SET CONSOLE OFF
IF TYPE('l_mail') = "U"
   l_mail = .F.
ENDIF 

cQtdReg = 0

IF l_mail = .F.

nSelect = "SELECT Tslv020.*,Tslc001.CLINOM,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,Tslc001.Numero,"
nSelect = nSelect + "Tslc001.CLICGC,Tslc001.CELULAR,Tslc004.NOME,Tslc005.DESCRICAO "
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))

SELECT * FROM TSLV021 WHERE ENTREGA = 'R' INTO CURSOR TMP_RETIRADO
SELECT * FROM TSLV021 WHERE ENTREGA = 'E' INTO CURSOR TMP_ENTREGA

SELECT TMP_RETIRADO
IF RECCOUNT() > 0

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

cQEsp = TSL.QECUP
cTpOrc = 'ORCAMENTO'

cValor1 = LEN(ALLTRIM(cTpOrc))
cVal1 = 28 - cValor1

cTabela  = "TSLV020"
cTabela2 = "TMP_RETIRADO"

SET PRINTER TO NAME "TSTISAT"

??? CHR(18)
??? CHR(27) + CHR(50)

*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + DTOC(&cTabela..DATA) + REPLICATE(" ",22) + TIME() + CHR(10)+CHR(13)

??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim('BEDULLI MATERIAIS PARA CONSTRUCAO')))) / 2))+AllTrim('BEDULLI MATERIAIS PARA CONSTRUCAO') + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + AllTrim('AV PEDRO PIRES DE MELLO, 1830 - 15 99656 8253') + CHR(10) + CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim('FONE: (15) 3292-3222')))) / 2))+AllTrim('FONE: (15) 3292-3222')+ CHR(10) + CHR(13)
??? REPLICATE(" ",cQEsp) + AllTrim('RUA JOAO TEIXEIRA DO ESPIRITO SANTO, 190 - CENTRO') + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim('FONE: (15) 3292-2736')))) / 2))+AllTrim('FONE: (15) 3292-2736')+ CHR(10) + CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim("< CUPOM SEM VALOR FISCAL >"))) / 2))+AllTrim("< CUPOM SEM VALOR FISCAL >") + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + REPLICATE(" ",cVal1) + ALLTRIM(cTpOrc) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "CODIGO        DESCRICAO" + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "    Qtde  X      Unit.R$ Desc  Valor R$  " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
SELECT &cTabela2
GO TOP
DO WHILE ! EOF(cTabela2)
   
   ??? REPLICATE(" ",cQEsp) + PADL(ALLTRIM(STR(val(&cTabela2..CODBAR),16)),16,"0") + " " + SUBSTR(&cTabela2..DESCRICAO,1,26) + CHR(10)+CHR(13)
   IF ! EMPTY(ALLTRIM(SUBSTR(&cTabela2..DESCRICAO,27,40)))
      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCRICAO,27,40) + CHR(10)+CHR(13)
   ENDIF
   IF &cTabela2..DESCONTO = 0
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + "     " + " " + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ELSE
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + TRANSFORM(&cTabela2..DESCONTO,"99.99") + "%" + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ENDIF
   
   SKIP IN &cTabela2
   LOOP
   
ENDDO

??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Sub Total..: " + TRANSFORM(&cTabela..BRUTO,"9,999,999.99") + CHR(10)+CHR(13)
IF &cTabela..DESCONTO > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Desconto...: " + TRANSFORM(&cTabela..DESCONTO,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
IF &cTabela..ACRESCIM > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Acrescimo..: " + TRANSFORM(&cTabela..ACRESCIM,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Total Geral: " + TRANSFORM(&cTabela..LIQUIDO,"9,999,999.99") + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,27)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "End.: " + ALLTRIM(&cTabela..CLIEND) + IIF( ! EMPTY(ALLTRIM(&cTabela..NUMERO)),", " + &cTabela..NUMERO,' ') +CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Vend: " + PADL(ALLTRIM(STR(&cTabela..CODVEN,4)),4,"0") + " " + SUBSTR(&cTabela..NOME,1,24) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Pgto: " + ALLTRIM(&cTabela..DESCRICAO)+CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS01)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS01)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS02)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS02)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS03)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS03)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40)+CHR(13)+CHR(10)
*WAIT WINDOW parametro.recorc
*WAIT WINDOW cImpRec

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

cTabela3 = "TMP_FIN"

*IF TSL.RECORC = "S" && Se Emite Contas a Receber no Oramento
*   ??? "Vencimentos..." + chr(13)+chr(10)
*   select &cTabela3
*   Go Top
*   Do While ! Eof(cTabela3)
*      ??? "Vencto.: " + dToc(&cTabela3..RECVENCI) + "  Valor..: " + TRANSFORM(&cTabela3..RECVALOR,"999,999.99")+CHR(13)+CHR(10)
*      Skip In &cTabela3
*      Loop
*   ENDDO
*ENDIF

IF ! EMPTY(ALLTRIM(TSLV020.OBS))
   ??? "OBS: "+ SUBSTR(ALLTRIM(TSLV020.OBS),1,40)  + CHR(10)+CHR(13)
   IF ! EMPTY(SUBSTR(ALLTRIM(TSLV020.OBS),41,40))
      ??? SUBSTR(ALLTRIM(TSLV020.OBS),41,40)  + CHR(10)+CHR(13)
   ENDIF
   IF ! EMPTY(ALLTRIM(TSLV020.OBS2))
      ??? "     "+ SUBSTR(TSLV020.OBS2,1,40) + CHR(10)+CHR(13)
   ENDIF
ENDIF
*??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)

SET PRINTER TO name "TSTISAT"

ENDIF 

SELECT TMP_ENTREGA
IF RECCOUNT() > 0

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

nSelect = "SELECT Tslv020.*,Tslc001.CLINOM,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.PESSOA,Tslc001.CLICPF,Tslc001.NUMENT,"
nSelect = nSelect + "Tslc001.CLICGC,Tslc001.CLIRG,Tslc001.email,Tslc001.CLIINS,Tslc001.CLICEP,Tslc001.CLIEST,Tslc001.CLITEL,Tslc001.CELULAR,TSLC001.NUMERO,Tslv021.SEQ AS SEQ2,Tslv021.CODPROD,"
nSelect = nSelect + "Tslv021.DESCRICAO,Tslv021.QUANT,Tslv021.TOTAL,Tslv021.UNIT,Tslv021.UNIDADE,Tslc003.CODBAR,Tslc003.UNI,Tslc004.NOME AS CLIVEND,Tslc005.Descricao as Forma_pagto,1 AS REF,Tslc001.Endent,Tslc001.Baient,Tslc001.Cident,Tslc001.Ufent,Tslc001.Cepent  "
nSelect = nSelect + "FROM Tslv020 INNER JOIN Tslv021 ON Tslv020.SEQ = Tslv021.CUPOM "
nSelect = nSelect + "INNER JOIN Tslc001 ON Tslv020.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc003 ON Tslv021.CODPROD = Tslc003.CODIGO "
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 AND Tslv021.Entrega = 'E' "

TSEXEC("T",nSelect,"TMP_IMPRIMIR")

*GERACURSOR("TMP_IMPRIMIR1","TMP_IMPRIMIR")

*SELECT TMP_IMPRIMIR 
*ALTER TABLE TMP_IMPRIMIR ADD COLUMN REF N(1)

*SELECT TMP_IMPRIMIR
*UPDATE TMP_IMPRIMIR SET REF = 1

SELECT COUNT(*) AS TOT FROM TMP_IMPRIMIR INTO CURSOR TMP_TOT

*SELECT * FROM TMP_IMPRIMIR WHERE REF = 1 INTO CURSOR TMP_INSERE
*SELECT TMP_INSERE
*BROW

nTP = TMP_TOT.TOT
*WAIT WINDOW nTP

cProd = ""

GERACURSOR("TMP_IMPRIMIR","TMP_IMPRIMIR2")
qtd = 0
cQtdReg = 0

SELECT TMP_IMPRiMIR2
cTeste  = RECCOUNT()

cTeste1 = SUBSTR(ALLTRIM(STR(ROUND(RECCOUNT()/10,1),12,1)),LEN(ALLTRIM(STR(ROUND(RECCOUNT()/10,1),12,1))),1)

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


IF cTeste < 10

   PUBLIC ARRAY [cProd1]
   DIMENSION cProd1[cQtdReg]

   SELECT TMP_IMPRIMIR2
   GO TOP IN TMP_IMPRIMIR2
   FOR nIdx1 = 1 to cQtdReg
      cProd1[nIdx1] = ""
      FOR nIdx = 1 to 9
      
         IF ! EOF("TMP_IMPRIMIR2")
            cProd1[nIdx1] = cProd1[nIdx1] + PADL(ALLTRIM(TMP_IMPRIMIR2.CODBAR),16,' ') + SPACE(2) + PADR(SUBSTR(ALLTRIM(TMP_IMPRIMIR2.DESCRICAO),1,34),34,' ')  
            cProd1[nIdx1] = cProd1[nIdx1] + SPACE(5) + PADR(ALLTRIM(TMP_IMPRIMIR2.UNIDADE),2,' ') + SPACE(3) + TRANSFORM(TMP_IMPRIMIR2.QUANT,"999,999.99")+ SPACE(3) 
            cProd1[nIdx1] = cProd1[nIdx1] + TRANSFORM(TMP_IMPRIMIR2.UNIT,"999,999.99") + SPACE(2) + TRANSFORM(TMP_IMPRIMIR2.TOTAL,"999,999.99") + CHR(13)
   
            SELECT TMP_IMPRIMIR2
            SKIP IN TMP_IMPRIMIR2
         ENDIF
      NEXT

   NEXT

ELSE 

   PUBLIC ARRAY [cProd1]
   DIMENSION cProd1[1]

   nIdx1 = 1

   cProd1[nIdx1] = ""

   SELECT TMP_IMPRIMIR2
   GO TOP IN TMP_IMPRIMIR2
   DO WHILE ! EOF("TMP_IMPRIMIR2")
      
      cProd1[nIdx1] = cProd1[nIdx1] + PADL(ALLTRIM(TMP_IMPRIMIR2.CODBAR),16,' ') + SPACE(2) + PADR(SUBSTR(ALLTRIM(TMP_IMPRIMIR2.DESCRICAO),1,34),34,' ')  
      cProd1[nIdx1] = cProd1[nIdx1] + SPACE(5) + PADR(ALLTRIM(TMP_IMPRIMIR2.UNIDADE),2,' ') + SPACE(3) + TRANSFORM(TMP_IMPRIMIR2.QUANT,"999,999.99")+ SPACE(3) 
      cProd1[nIdx1] = cProd1[nIdx1] + TRANSFORM(TMP_IMPRIMIR2.UNIT,"999,999.99") + SPACE(2) + TRANSFORM(TMP_IMPRIMIR2.TOTAL,"999,999.99") + CHR(13)
   
      SELECT TMP_IMPRIMIR2
      SKIP IN TMP_IMPRIMIR2   
      LOOP

   ENDDO

ENDIF 

*SELECT TMP_IMPRIMIR2
*GO TOP IN TMP_IMPRIMIR2
*DO WHILE ! EOF("TMP_IMPRIMIR2")
*   cCod = TMP_IMPRIMIR2.SEQ2   
   
*   cProd = cProd + PADL(ALLTRIM(TMP_IMPRIMIR2.CODBAR),16,' ') + SPACE(1) + PADR(SUBSTR(ALLTRIM(TMP_IMPRIMIR2.DESCRICAO),1,35),35,' ')  
*   cProd = cProd + ALLTRIM(TMP_IMPRIMIR2.UNIDADE) + SPACE(2) + TRANSFORM(TMP_IMPRIMIR2.QUANT,"999,999.99")+ SPACE(3) 
*   cProd = cProd + TRANSFORM(TMP_IMPRIMIR2.UNIT,"999,999.99") + SPACE(1) + TRANSFORM(TMP_IMPRIMIR2.TOTAL,"999,999.99") + CHR(13)
   
*   INSERT INTO TMP_IMPRIMIR SELECT TMP_IMPRIMIR2.*,2 AS REF FROM TMP_IMPRIMIR2 WHERE TMP_IMPRIMIR2.SEQ2 = cCod
   
*   qtd = qtd + 1

*   SELECT TMP_IMPRIMIR2
*   SKIP IN TMP_IMPRIMIR2
*   LOOP
*ENDDO


SELECT SUM(TOTAL) AS TOTAL       FROM TMP_IMPRIMIR WHERE REF = '1' INTO CURSOR TMP_SUB
SELECT DESCONTO AS DESCONTO  FROM TMP_IMPRIMIR WHERE REF = '1' GROUP BY DESCONTO INTO CURSOR TMP_DES
SELECT ACRESCIM AS ACRESCIM FROM TMP_IMPRIMIR WHERE REF = '1' GROUP BY ACRESCIM INTO CURSOR TMP_ACR

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

   IF ! ISNULL(TMP_IMPRIMIR.BRUTO)
      cSubTotal = TMP_IMPRIMIR.BRUTO
   ELSE
      cSubTotal = 0
   ENDIF

   IF ! ISNULL(TMP_IMPRIMIR.ACRESCIM)
      cAcrescim = TMP_IMPRIMIR.ACRESCIM
   ELSE
      cAcrescim = 0
   ENDIF

   IF ! ISNULL(TMP_IMPRIMIR.DESCONTO)
      cDesconto = TMP_IMPRIMIR.DESCONTO
   ELSE
      cDesconto = 0
   ENDIF

cTotal = (cSubTotal + cAcrescim) - cDesconto

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

   IF cTeste > 9 
      
      cCam123 = FULLPATH(CURDIR()) + "IMPRESS\TSORC_JATOBEDULLI2.FRX"
      *BROW

      *cFone = "(15) 3262-2022"
      cLogo = FULLPATH(CURDIR()) + "IMPRESS\LOGO.JPG"

      SELECT TMP_IMPRIMIR
      GO TOP IN TMP_IMPRIMIR
      create cursor TMP_IMP(CODIGO N(1))
      SELECT TMP_IMP
      APPEND BLANK IN TMP_IMP
      GO TOP IN TMP_IMP
      SELECT TMP_IMPRIMIR2
      GO TOP IN TMP_IMPRIMIR2
      cProd = cProd1[1]
*      CHAMAIMP2("TMP_IMPRIMIR",cCam123)
      REPORT FORM &cCam123 TO PRINTER prompt preview
      REPORT FORM &cCam123 TO PRINTER

   ELSE 

      cCam123 = FULLPATH(CURDIR()) + "IMPRESS\TSORC_JATOBEDULLI.FRX"
      *BROW

     *cFone = "(15) 3262-2022"
      cLogo = FULLPATH(CURDIR()) + "IMPRESS\LOGO.JPG"
   
      FOR nIdx = 1 to cQtdReg
         SELECT TMP_IMPRIMIR
         GO TOP IN TMP_IMPRIMIR
         cProd = cProd1[nIdx]
         *CHAMAIMP2("TMP_IMPRIMIR",cCam123)
         REPORT FORM &cCam123 TO PRINTER
      NEXT

   ENDIF 

ENDIF

ELSE

nSelect = "SELECT Tslv020.*,Tslc001.CLINOM,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,"
nSelect = nSelect + "Tslc001.CLICGC,Tslc001.CLICEP,Tslc004.NOME,Tslc001.CLIRG,Tslc001.CLIINS,Tslc001.Email,TSLC001.NUMERO,TSLC001.CELULAR,Tslc005.Descricao as COND_PAGTO "
nSelect = nSelect + "FROM Tslv020 LEFT JOIN Tslc001 ON Tslv020.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslv020.CODVEN = Tslc004.CODIGO LEFT JOIN Tslc005 ON Tslv020.CODFORM = Tslc005.CODIGO 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")

SELECT TSLV021.*,TSLV020.DATA,TSLV020.BRUTO,TSLV020.DESCONTO AS DESCONT,TSLV020.ACRESCIM,TSLV020.LIQUIDO,TSLV020.OBS,TSLV020.OBS2,;
TSLV020.PESSOA,TSLV020.COMPRADO,TSLV020.CLINOM,TSLV020.CLIEND,TSLV020.CLIBAI,TSLV020.CLICID,TSLV020.CLITEL,TSLV020.NUMERO,;
TSLV020.CLICPF,TSLV020.CLICGC,TSLV020.CLICEP,TSLV020.CLIINS,TSLV020.NOME,TSLV020.COND_PAGTO;
FROM TSLV021 ;
LEFT JOIN TSLV020 ON TSLV021.CUPOM = TSLV020.SEQ ;
INTO CURSOR TMP_IMPRIMIR

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

   cVenctos = "Vencimentos" + chr(13) + "Forma de Pagamento:" + ALLTRIM(TMP_IMPRIMIR.COND_PAGTO) + CHR(13)

   SELECT TMP_VENCTOS
   go top IN TMP_VENCTOS
   DO WHILE ! EOF("TMP_VENCTOS")
      cVenctos  = cVenctos + "CD: " + ALLTRIM(TMP_VENCTOS.RECCOD) + " " + "DATA: " + DTOC(TMP_VENCTOS.RECVENCI) + "  " + "VALOR: " + TRANSFORM(TMP_VENCTOS.RECVALOR,"9,999,999.99") + CHR(13)
      SKIP IN TMP_VENCTOS
      LOOP

   ENDDO

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

   cEmp = ALLTRIM(TSL.NOME) + CHR(13)+CHR(10) 
*   cEmp = cEmp + "CNPJ:" + MCPF(TSL.CGC) + " - Insc. Estadual:" + Alltrim(Tsl.Ie)+chr(13)+chr(10) 
   cEmp = cEmp + ALLTRIM(TSL.ENDERECO) + " - " + ALLTRIM(TSL.BAIRRO) + CHR(13)+CHR(10)
   cEmp = cEmp + SUBSTR(TSL.CEP,1,5) + " -" + SUBSTR(TSL.CEP,6,3) + "-" + ALLTRIM(TSL.CIDADE) + "-" + ALLTRIM(TSL.UF)+CHR(13)+CHR(10)
   cEmp = cEmp + "Fone:" + TSL.FONE + CHR(13)
   cEmp = cEmp + "Celular: (15) 99656-8253"

   SELECT TMP_IMPRIMIR
   GO TOP IN TMP_IMPRIMIR

cArqImp = FULLPATH(CURDIR()) + "IMPRESS\TSORCBEDULLI.FRX"

*REPORT FORM &cArqImp TO PRINTER PROMPT PREVIEW

cArqTemp = FULLPATH(CURDIR()) + "TEMP\orc_" + padl(ALLTRIM(STR(cTabImp,6)),6,"0") + ".pdf"
*cArqEnv[1] = cArqTemp
GERAPDF("TMP_IMPRIMIR",cArqImp,cArqTemp)

TSEXEC("T","SELECT * FROM Tsl ","TSL")
TSEXEC("T","SELECT * FROM Tsc008a WHERE ?cCodEmp = EMPCOD ","TMP_EMP")

SELECT TSLV020
GO TOP IN TSLV020

cEndEmail = LOWER(ALLTRIM(TSLV020.EMAIL))

IF EMPTY(ALLTRIM(cEndEmail))
   MESSAGEBOX("Cliente Sem E-mail Cadastrado ",48,"Aviso")
   RETURN .F.
ENDIF 

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(TSL.NOME)
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 = ("Oramento " + ALLTRIM(TSL.NOME))
*!*	      oMsg.Subject = "RFD DA EMPRESA"
      
      * Adiciona a mensagem em formato texto
      *oMsg.AppendText(ThisForm.edtMensagem.Value)
      XX = CHR(13) + CHR(10)
      cMens = "Seguem anexo Oramento" + 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
            
      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

ENDIF
