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

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

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,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.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 Tslv021.*,Tslv020.Seq,Tslv020.Data,Tslv020.bruto,Tslv020.desconto,Tslv020.acrescim,Tslv020.liquido,Tslv020.obs,Tslv020.obs2,"
*   nSelect = nSelect + "Tslv020.codcli,Tslv020.codvend,Tslv020.comprado,Tslv020.codform,Tslc003.CODBAR,Tslc001.CLINOM,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,"
*   nSelect = nSelect + "Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,Tslc001.CLICGC,Tslc001.CLICEP,Tslc004.NOME,Tslc001.CLIRG,Tslc001.CLIINS,Tslc005.Descricao as COND_PAGTO "
*   nSelect = nSelect + "FROM Tslv021 "
*   nSelect = nSelect + "LEFT JOIN Tslv020 ON Tslv021.CUPOM = TslV020.SEQ "
*   nSelect = nSelect + "LEFT JOIN Tslc003 ON Tslv021.CODPROD = Tslc003.CODIGO "
*   nSelect = nSelect + "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 = CUPOM AND EXCLUI <> 'S' "
*   TSEXEC("T",nSelect,"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()) + "tsti.gif"

   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


   SELECT TMP_IMPRIMIR
   GO TOP IN TMP_IMPRIMIR
   cReport = FULLPATH(CURDIR()) + "IMPRESS\TSORCFORM.FRX"
   *Wait window cReport
   *REPORT FORM &cReport TO PRINTER PROMPT preview
   CHAMAIMP2("TMP_IMPRIMIR",cReport)

ENDIF
