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

nSelect = "SELECT Tslv022.*,Tslc001.CLINOM,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,"
nSelect = nSelect + "Tslc001.CLICGC,Tslc004.NOME,Tslc001.CLIRG,Tslc001.PESSOA,Tslc001.CLIFAN,Tslc001.CLIEST "
nSelect = nSelect + "FROM Tslv022 LEFT JOIN Tslc001 ON Tslv022.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslv022.CODVEN = Tslc004.CODIGO "
nSelect = nSelect + "WHERE ?cCodDev = Tslv022.SEQ "
TSEXEC("T",nSelect,"TSLV022")

SELECT TSLV022.*,TMP_ITENSDEV.CODPROD,TMP_ITENSDEV.DESCRICAO,TMP_ITENSDEV.QUANTR,TMP_ITENSDEV.UNIDADE,TMP_ITENSDEV.UNIT,;
TMP_ITENSDEV.UNIT * TMP_ITENSDEV.QUANTR AS TOTAL,TMP_ITENSDEV.CODBAR,1 AS TIMP FROM TSLV022 ;
INNER JOIN TMP_ITENSDEV ON TSLV022.SEQ = TMP_ITENSDEV.CUPOM INTO CURSOR 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\TSDEV.FRX"
*ELSE
*   cReport = FULLPATH(CURDIR()) + "IMPRESS\TSORC_GOTA3.FRX"
*ENDIF
CHAMAIMP2("TMP_IMPRIMIR",cReport)
