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

nSelect = "SELECT Tslor01.*,Tslc001.CLINOM,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,Tslc001.Email,"
nSelect = nSelect + "Tslc001.CLIINS,Tslc001.CLICGC,Tslc001.CLICEP,Tslc001.Clifan,Tslc001.EndEnt,Tslc001.BaiEnt,Tslc001.CidEnt,Tslc001.Celular,Tslc001.Numero,Tslc004.NOME "
nSelect = nSelect + "FROM Tslor01 LEFT JOIN Tslc001 ON Tslor01.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslor01.CODVEN = Tslc004.CODIGO WHERE ?cTabImp = Tslor01.SEQ "
TSEXEC("T",nSelect,"Tslor01")

nSelect = "SELECT Tslor02.*,Tslc003.CODBAR FROM Tslor02 LEFT JOIN Tslc003 ON Tslor02.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "WHERE ?cTabImp = CUPOM AND EXCLUI <> 'S' ORDER BY Tslor02.SEQ "
TSEXEC("T",nSelect,"Tslor02")

IF USED ("TMP_IMPRIMIR_COT")
   USE IN TMP_IMPRIMIR_COT
ENDIF

SELECT Tslor02.*,Tslor01.DATA,Tslor01.BRUTO,Tslor01.DESCONTO AS DESCONT,Tslor01.ACRESCIM,Tslor01.LIQUIDO,Tslor01.OBS,Tslor01.OBS2,;
Tslor01.PESSOA,Tslor01.COMPRADO,Tslor01.CLINOM,Tslor01.CLIEND,Tslor01.CLIBAI,Tslor01.CLICID,Tslor01.CLITEL,Tslor01.EMAIL,;
Tslor01.CLICPF,Tslor01.CLICGC,Tslor01.CLICEP,Tslor01.CLIINS,Tslor01.NOME,Tslor01.Clifan,Tslor01.EndEnt,Tslor01.BaiEnt,Tslor01.CidEnt,Tslor01.Celular,Tslor01.Numero ;
FROM Tslor02 ;
LEFT JOIN Tslor01 ON Tslor02.CUPOM = Tslor01.SEQ ;
INTO CURSOR TMP_IMPRIMIR_COT

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

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

SELECT TMP_IMPRIMIR_COT
GO TOP IN TMP_IMPRIMIR_COT
cReport = FULLPATH(CURDIR()) + "IMPRESS\tscot_docelandia.FRX"
CHAMAIMP2("TMP_IMPRIMIR_COT",cReport)