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

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

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

nSelect = "SELECT Tslv022.*,Tslc001.CLINOM,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,Tslc001.CLIFAN,Tslc001.CLIEST,"
nSelect = nSelect + "Tslc001.PESSOA,Tslc001.CLIRG,"
nSelect = nSelect + "Tslc001.CLICGC,Tslc004.NOME,Tslv023.CODPROD,Tslv023.DESCRICAO,Tslv023.QUANT,Tslv023.UNIDADE,Tslv023.UNIT,Tslv023.TOTAL,Tslc003.CODBAR,1 AS TIMP "
nSelect = nSelect + "FROM Tslv022 LEFT JOIN Tslc001 ON Tslv022.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslv022.CODVEN = Tslc004.CODIGO "
nSelect = nSelect + "LEFT JOIN Tslv023 ON Tslv022.SEQ = Tslv023.CUPOM "
nSelect = nSelect + "LEFT JOIN Tslc003 ON Tslv023.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "WHERE ?cTabImp = Tslv022.SEQ "
TSEXEC("T",nSelect,"TMP_IMPRIMIR")

SELECT TMP_IMPRIMIR

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

GO TOP IN TMP_IMPRIMIR

cLogo = FULLPATH(CURDIR()) + "IMPRESS\LOGO_GOTA.JPG"
*IF TMP_CHECK.TOTAL < 12
   cReport = FULLPATH(CURDIR()) + "IMPRESS\TSCONS_JATO.FRX"
*ELSE
*   cReport = FULLPATH(CURDIR()) + "IMPRESS\TSORC_GOTA3.FRX"
*ENDIF
CHAMAIMP2("TMP_IMPRIMIR",cReport)

ENDIF