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

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

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

nSelect = "SELECT Tslor01.*,Tslc001.CLINOM,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.PESSOA,Tslc001.CLICPF,"
nSelect = nSelect + "Tslc001.CLICGC,Tslc001.CLIRG,Tslc001.CLIINS,Tslc001.CLICEP,Tslc001.CLIEST,Tslc001.CLITEL,Tslor02.CODPROD,"
nSelect = nSelect + "Tslor02.DESCRICAO,Tslor02.QUANT,Tslor02.TOTAL,Tslor02.UNIT,Tslor02.UNIDADE,Tslc003.CODBAR,Tslc003.UNI,Tslc004.NOME AS CLIVEND "
nSelect = nSelect + "FROM Tslor01 INNER JOIN Tslor02 ON Tslor01.SEQ = Tslor02.CUPOM "
nSelect = nSelect + "INNER JOIN Tslc001 ON Tslor01.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc003 ON Tslor02.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslor01.CODVEN = Tslc004.CODIGO WHERE ?cTabImp = Tslor01.SEQ "

*cFone = "(15) 3262-2022"

TSEXEC("T","Select * From Tsl","TSL")

TSEXEC("T",nSelect,"TMP_IMPRIMIR")
*GERACURSOR("TMP_IMPRIMIR1","TSLOR01")

*SELECT TSLOR02
*UPDATE TSLOR02 SET CODBAR = PADL(ALLTRIM(STR(CODPROD,16)),16,"0") WHERE EMPTY(ALLTRIM(CODBAR))

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

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

*REPORT FORM &cArqImp TO PRINTER PROMPT PREVIEW

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

*REPORT FORM &cArqImp TO PRINTER NOCONSOLE
CHAMAIMP2("TMP_IMPRIMIR",cArqimp)

*ENDIF