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

nSelect = "SELECT Tslor01.*,Tslc001.CLINOM,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,"
nSelect = nSelect + "Tslc001.CLIINS,Tslc001.CLICGC,Tslc001.CLICEP,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.CLICPF,Tslor01.CLICGC,Tslor01.CLICEP,Tslor01.CLIINS,Tslor01.NOME ;
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) + " - 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_COT
GO TOP IN TMP_IMPRIMIR_COT
cArqImp = FULLPATH(CURDIR()) + "IMPRESS\TSCOTRAFAEL.FRX"

*cArqImp = FULLPATH(CURDIR()) + "IMPRESS\TSCOTEMAIL.FRX"

*REPORT FORM &cArqImp TO PRINTER PROMPT PREVIEW

cArqTemp = FULLPATH(CURDIR()) + "TEMP\cotacao_" + padl(ALLTRIM(STR(cTabImp,6)),6,"0") + ".pdf"
*cArqEnv[1] = cArqTemp
GERAPDF("TMP_IMPRIMIR_COT",cArqImp,cArqTemp)

*CHAMAIMP2("TSLOR01",cArqimp)

*ENDIF