IF MESSAGEBOX("Confirma Impresso   ",36,"Impresso") = 6

cValor1 = LEN(ALLTRIM("ORCAMENTO"))
cVal1 = 27 - cValor1

TSEXEC("T","SELECT * FROM Tsl ","TSL")

*SET STEP ON 
nSelect = "SELECT Tslv020.*,Tslc001.CLINOM,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,Tslc001.Numero,Tslc001.Email,"
nSelect = nSelect + "Tslc001.CLICGC,Tslc001.CELULAR,Tslc004.NOME AS CLIVEND,Tslc001.EndEnt,Tslc001.BaiEnt,Tslc001.CidEnt,Tslc001.Clifan,Tslc005.DESCRICAO AS FORMA_PAGTO "
nSelect = nSelect + "FROM Tslv020 LEFT JOIN Tslc001 ON Tslv020.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslv020.CODVEN = Tslc004.CODIGO "
nSelect = nSelect + "LEFT JOIN Tslc005 ON Tslv020.CODFORM = Tslc005.CODIGO "
nSelect = nSelect + "WHERE ?cTabImp = Tslv020.SEQ "
TSEXEC("T",nSelect,"TSLV020")

nSelect = "SELECT Tslv021.*,Tslc003.CODBAR FROM Tslv021 LEFT JOIN Tslc003 ON Tslv021.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "WHERE ?cTabImp = CUPOM AND EXCLUI <> 'S' "
TSEXEC("T",nSelect,"TSLV021_1")

GERACURSOR("TSLV021_1","TSLV021")

SELECT TSLV021
UPDATE TSLV021 SET CODBAR = PADL(ALLTRIM(STR(CODPROD,16)),16,"0") WHERE EMPTY(ALLTRIM(CODBAR))

IF ! USED("PARAMETRO")
   USE PARAMETRO IN 44 SHARED
ENDIF
   
nPagina = 1

Select TSLV021
Go Top IN TSLV021
nLinha = 9
cTotal = 0
cTotalD = 0
select TSLV021
ALTER TABLE TSLV021 ADD COLUMN VVISTA N(12,2)
IF TSLV020.DESCONTO > 0
   cTotalD = TSLV020.DESCONTO
   cPerDes = TSLV020.DESCONTO / TSLV020.BRUTO
   SELECT TSLV021
   UPDATE TSLV021 SET VVISTA = (TOTAL - (TOTAL * cPerDes))
   SELECT TSLV021
   cTotLind = RECCOUNT()
   cTotald2 = TSLV020.DESCONTO
ELSE
   SELECT TSLV021
   UPDATE TSLV021 SET VVISTA = TOTAL
ENDIF

SELECT TSLV021
GO TOP IN TSLV021

GERACURSOR("TSLV021","TMP_IMPRIMIR2")
qtd = 0

SELECT TMP_IMPRiMIR2
cTeste = SUBSTR(ALLTRIM(STR(ROUND(RECCOUNT()/10,1),12,1)),LEN(ALLTRIM(STR(ROUND(RECCOUNT()/10,1),12,1))),1)

IF( VAL(cTeste) > 0 .AND. VAL(cTeste) < 5)
   cQtdReg = ROUND(RECCOUNT()/10,0) + 1
ELSE
   cQtdReg = ROUND(RECCOUNT()/10,0)
ENDIF

cProd = ""

SET STEP ON 
SELECT TMP_IMPRiMIR2
cTotalItens = RECCOUNT()
IF cTotalItens <= 10

   SELECT TMP_IMPRIMIR2
   GO TOP IN TMP_IMPRIMIR2

   FOR nIdx = 1 to 10
      
      IF ! EOF("TMP_IMPRIMIR2")

         cProd = cProd + Substr(TMP_IMPRIMIR2.CODBAR,12,5) + "    " + TRANSFORM(TMP_IMPRIMIR2.QUANT,"99999.99") + "  " + TMP_IMPRIMIR2.UNIDADE + " " 
         cProd = cProd + Substr(TMP_IMPRIMIR2.DESCRICAO,1,38) + " " 
         cProd = cProd + TRANSFORM(TMP_IMPRIMIR2.UNIT,"99,999.99") + "      " + TRANSFORM(TMP_IMPRIMIR2.TOTAL,"99,999.99") + "    " 
         cProd = cProd + TRANSFORM(TMP_IMPRIMIR2.VVISTA,"99,999.99") + CHR(13)
   
         SELECT TMP_IMPRIMIR2
         SKIP IN TMP_IMPRIMIR2
      ENDIF
   NEXT

ENDIF 

SELECT * FROM TSLV020 INTO CURSOR TMP_IMPRIMIR

SELECT SUM(TOTAL)    AS TOTAL    FROM TMP_IMPRIMIR2 INTO CURSOR TMP_SUB
*SELECT SUM(DESCONTO) AS DESCONTO FROM TMP_IMPRIMIR INTO CURSOR TMP_DES
*SELECT SUM(ACRESCIM) AS ACRESCIM FROM TMP_IMPRIMIR INTO CURSOR TMP_ACR

SELECT TMP_SUB
IF RECCOUNT() > 0
   IF ! ISNULL(TMP_SUB.TOTAL)
      cSubTotal = TMP_SUB.TOTAL
   ELSE
      cSubTotal = 0
   ENDIF
ENDIF

cAcrescim = 0

cDesconto = TSLV020.DESCONTO

cTotal = (cSubTotal + cAcrescim) - cDesconto

TSEXEC("T","SELECT * FROM Tsl ","TSL")

nSelect = "SELECT * FROM Tsm003 WHERE ?cTabImp = SEQCUP AND FLAG = 'O' AND RECEST = 0"
TSEXEC("T",nSelect,"TMP_FIN")

cTabela3 = "TMP_FIN"
cVenctos = "Vencimentos: "

select &cTabela3
Go Top
Do While ! Eof(cTabela3)
   cVenctos = cVenctos + dToc(&cTabela3..RECVENCI) + "  Valor..: " + TRANSFORM(&cTabela3..RECVALOR,"999,999.99") + CHR(13) + space(13)
   Skip In &cTabela3
   Loop
ENDDO

cFone = ALLTRIM(TSL.FONE)

cLogo = FULLPATH(CURDIR()) + "IMPRESS\LOGO.JPG"

IF l_mail = .T.
cCodCli = TSLV020.CODCLI
nSelect = "SELECT * FROM Tslc001 WHERE ?cCodCli = CLICOD "
TSEXEC("T",nSelect,"TMP_CLI")
TSEXEC("T","SELECT * FROM Tsl ","TSL")
TSEXEC("T","SELECT * FROM Tsc008a WHERE ?cCodEmp = EMPCOD ","TMP_EMP")

SELECT TMP_CLI
cEndEmail = LOWER(ALLTRIM(TMP_CLI.EMAIL))

*DO FORM END_EMAIL.SCX

LOCAL oMsg AS Object 
oMsg = CREATEOBJECT("JMail.Message")

* Fica em silncio se ocorrer algum erro
oMsg.Silent = .T.
      
* Informar qual o email que est enviando
*!*	      oMsg.From = ISLOWER(ALLTRIM(TMP_EMP.EMAIL))

oMsg.From = "noreply@tsti.com.br"
oMsg.FromName = ALLTRIM(cParNome)
oMsg.AddRecipient(ALLTRIM(cEndEmail))
      
      * Ler o email do destinatrio e adiciona
      * o email  lista de recipientes da mensagem
*!*	      oMsg.AddRecipient(LOWER(ALLTRIM(TMP_EMP.EMAILCONT)))
*!*	      oMsg.AddRecipient("wmbg@terra.com.br")
      
      * Ler o assunto da mensagem
      oMsg.Subject = ("Cotao " + ALLTRIM(cParNome))
*!*	      oMsg.Subject = "RFD DA EMPRESA"
      
      * Adiciona a mensagem em formato texto
      *oMsg.AppendText(ThisForm.edtMensagem.Value)
      XX = CHR(13) + CHR(10)
      cMens = "Seguem anexo Cotao" + XX + XX + XX
      cMens = cMens + "Atenciosamente," + XX + XX
      cMens = cMens + PROPER(ALLTRIM(TMP_EMP.EMPNOM)) + XX
      cMens = cMens + ALLTRIM(TMP_EMP.EMAIL) + XX + XX + XX
      cMens = cMens + "E-Mail Automtico Gerado por Tsl 2.0 - TSTI - Tecnologia da Informao"
      
*!*	      oMsg.AppendText("TESTE")
      
      * Adiciona mensagem em formato HTML
      oMsg.AppendHTML("<HTML><BODY>"+;
         [<font face="Verdana, Arial, Helvetica,]+;
         [ sans-serif" size="2">] +;
         STRTRAN(cMens,;
         CHR(13)+CHR(10),"<br>") + ;
         [</font>] +;
         "</BODY></HTML>")
*!*	      
      * Adiciona o(s) anexo(s)  mensagem
      
      cArqTemp = ""
      *cTabImp  = TMP_TSLOR01.SEQ
      cArqImp = FULLPATH(CURDIR()) + "IMPRESS\tsorc_docelandia2.frx"
 
      SELECT TMP_IMPRIMIR2
      GO TOP IN TMP_IMPRIMIR2
      
      cArqTemp = FULLPATH(CURDIR()) + "TEMP\ORC_" + padl(ALLTRIM(STR(cTabImp,6)),6,"0") + ".pdf"
      *cArqEnv[1] = cArqTemp
      GERAPDF("TMP_IMPRIMIR2",cArqImp,cArqTemp)

      IF ! EMPTY(ALLTRIM(cArqTemp))
         
         IF FILE(cArqTemp)
            oMsg.AddAttachment(ALLTRIM(cArqTemp))
         ENDIF
         
      ENDIF

	* Usurio P/ autenticar na hora do envio:
*!*		oMsg.MailServerUserName ;
*!*			= "testejmail@foxtotal.com.br"
*!*		* Senha p/ autenticar na hora do envio:
*!*		oMsg.MailServerPassWord = "teste"

      oMsg.MailServerUserName = "noreply@tsti.com.br"
      * Senha p/ autenticar na hora do envio:
      oMsg.MailServerPassWord = "golpreto"
      
*!*	      oMsg.MailServerUserName ;
*!*			= "tsl@tsti.com.br"
*!*	      * Senha p/ autenticar na hora do envio:
*!*	      oMsg.MailServerPassWord = "fiatuno"
      
      * Envia a mensagem
      *IF oMsg.Send(ALLTRIM(TMP_EMP.SERVSAIDA)) THEN 
      IF oMsg.Send("smtp.terra.com.br:587") THEN 
         MESSAGEBOX("Mensagem enviada!",0+64,;
                    "Envio completo")
      
      ELSE
         MESSAGEBOX("Ocorreu um erro no envio:"+;
            CHR(13)+STR(oMsg.ErrorCode) + ;
            CHR(13)+oMsg.ErrorMessage,0+16,;
            "Erro no envio")
      
      ENDIF	
      
      * Elimina o objeto mensagem
      oMsg = NULL

ELSE

IF cTotalItens > 10
   
   cReport = FULLPATH(CURDIR()) + "IMPRESS\tsorc_docelandia2.frx"
 
   SELECT TMP_IMPRIMIR2
   GO TOP IN TMP_IMPRIMIR2
   CHAMAIMP2("TMP_IMPRIMIR",cReport)
ELSE

   cReport = FULLPATH(CURDIR()) + "IMPRESS\tsorc_docelandia.frx"

   SELECT TMP_IMPRIMIR
   GO TOP IN TMP_IMPRIMIR
   CHAMAIMP2("TMP_IMPRIMIR",cReport)

ENDIF

ENDIF

ENDIF