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

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

nSelect = "SELECT SUM(1) AS TOTAL FROM Tslv021 WHERE CUPOM = ?cTabImp AND EXCLUI <> 'S' "
TSEXEC("T",nSelect,"TMP_CHECK")

SELECT TMP_CHECK


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

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

nSelect = "SELECT (1) AS TIMP,Tslv020.*,Tslc001.CLINOM,Tslc001.CLIFAN,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,"
nSelect = nSelect + "Tslc001.CLICGC,Tslc001.CLICEP,Tslc001.CLifan,Tslc001.Cliest,Tslc004.NOME,Tslc001.CLIRG,Tslc001.CLIINS,"
nSelect = nSelect + "Tslc001.ENDENT,Tslc001.BAIENT,Tslc001.CIDENT,TSLC001.UFENT,TSLC001.TELENT,Tslc001.Celular,Tslc005.DESCRICAO AS FORMA,"
nSelect = nSelect + "Tslv021.*,Tslc003.CODBAR "
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 + "LEFT JOIN Tslv021 ON Tslv020.SEQ = Tslv021.CUPOM "
nSelect = nSelect + "LEFT JOIN Tslc003 ON Tslv021.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "WHERE ?cTabImp = Tslv020.SEQ AND Tslv021.EXCLUI <> 'S' "
nSelect = nSelect + "UNION "
nSelect = nSelect + "SELECT (2) AS TIMP,Tslv020.*,Tslc001.CLINOM,Tslc001.CLIFAN,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,"
nSelect = nSelect + "Tslc001.CLICGC,Tslc001.CLICEP,Tslc001.CLifan,Tslc001.Cliest,Tslc004.NOME,Tslc001.CLIRG,Tslc001.CLIINS,"
nSelect = nSelect + "Tslc001.ENDENT,Tslc001.BAIENT,Tslc001.CIDENT,TSLC001.UFENT,TSLC001.TELENT,Tslc001.Celular,Tslc005.DESCRICAO AS FORMA,"
nSelect = nSelect + "Tslv021.*,Tslc003.CODBAR "
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 + "LEFT JOIN Tslv021 ON Tslv020.SEQ = Tslv021.CUPOM "
nSelect = nSelect + "LEFT JOIN Tslc003 ON Tslv021.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "WHERE ?cTabImp = Tslv020.SEQ AND Tslv021.EXCLUI <> 'S' "
TSEXEC("T",nSelect,"TMP_IMPRIMIR1")
GERACURSOR("TMP_IMPRIMIR1","TMP_IMPRIMIR2")
SELECT TMP_IMPRIMIR2
GO TOP IN TMP_IMPRIMIR2
cValorLiq = TMP_IMPRIMIR2.LIQUIDO

FOR X = TMP_CHECK.TOTAL TO 10
   SELECT TMP_IMPRIMIR2
   APPEND BLANK IN TMP_IMPRIMIR2
   REPLACE TMP_IMPRIMIR2.TIMP    WITH '1'
   REPLACE TMP_IMPRIMIR2.SEQ1    WITH 999999
   REPLACE TMP_IMPRIMIR2.LIQUIDO WITH cValorLiq
NEXT

FOR X = TMP_CHECK.TOTAL TO 10
   SELECT TMP_IMPRIMIR2
   APPEND BLANK IN TMP_IMPRIMIR2
   REPLACE TMP_IMPRIMIR2.TIMP WITH '2'
   REPLACE TMP_IMPRIMIR2.SEQ1 WITH 999999
   REPLACE TMP_IMPRIMIR2.LIQUIDO WITH cValorLiq
NEXT

SELECT * FROM TMP_IMPRIMIR2 ORDER BY TIMP,SEQ1 INTO CURSOR TMP_IMPRIMIR

*ELSE

*nSelect = "SELECT (1) AS TIMP,Tslv020.*,Tslc001.CLINOM,Tslc001.CLIFAN,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,"
*nSelect = nSelect + "Tslc001.CLICGC,Tslc001.CLICEP,Tslc001.CLifan,Tslc001.Cliest,Tslc004.NOME,Tslc001.CLIRG,Tslc001.CLIINS,"
*nSelect = nSelect + "Tslc001.ENDENT,Tslc001.BAIENT,Tslc001.CIDENT,TSLC001.UFENT,TSLC001.TELENT,Tslc001.Celular,Tslc005.DESCRICAO AS FORMA,"
*nSelect = nSelect + "Tslv021.*,Tslc003.CODBAR "
*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 + "LEFT JOIN Tslv021 ON Tslv020.SEQ = Tslv021.CUPOM "
*nSelect = nSelect + "LEFT JOIN Tslc003 ON Tslv021.CODPROD = Tslc003.CODIGO "
*nSelect = nSelect + "WHERE ?cTabImp = Tslv020.SEQ AND Tslv021.EXCLUI <> 'S' "
*TSEXEC("T",nSelect,"TMP_IMPRIMIR")

*ENDIF

IF TMP_IMPRIMIR.PESSOA = "FSICA"
   cCpfCgc = TMP_IMPRIMIR.CLICPF
   cRgIe   = TMP_IMPRIMIR.CLIRG
ELSE
   cCpfCgc = TMP_IMPRIMIR.CLICGC
   cRgIe   = TMP_IMPRIMIR.CLIINS
ENDIF

cVenctos = "Vencimentos..." + chr(13)

nselect = "SELECT * FROM Tsm003 WHERE ?cTabImp = SEQCUP AND FLAG = 'O' AND RECEST = 0 "
TSEXEC("T",nSelect,"TMP_VENCTOS")
SELECT TMP_VENCTOS
go top IN TMP_VENCTOS
DO WHILE ! EOF("TMP_VENCTOS")
   cVenctos = cVenctos + DTOC(TMP_VENCTOS.RECVENCI) + " " + TRANSFORM(TMP_VENCTOS.RECVALOR,"9,999,999.99") + " "
   
   SKIP IN TMP_VENCTOS
   LOOP

ENDDO

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

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

cLogo = FULLPATH(CURDIR()) + "IMPRESS\LOGO_GOTA.JPG"
IF TMP_CHECK.TOTAL < 12
   cReport = FULLPATH(CURDIR()) + "IMPRESS\TSORC_GOTA2.FRX"
ELSE
   cReport = FULLPATH(CURDIR()) + "IMPRESS\TSORC_GOTA3.FRX"
ENDIF
CHAMAIMP2("TMP_IMPRIMIR",cReport)
*REPORT FORM &cReport TO PRINT PROMPT PREVIEW

ENDIF