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.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,"
nSelect = nSelect + "Tslc001.CLICGC,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_1")

GERACURSOR("TSLOR02_1","TSLOR02")

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

SELECT TSLOR02
GO TOP IN TSLOR02

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

*REPORT FORM &cArqImp TO PRINTER PROMPT PREVIEW

CHAMAIMP2("",cArqimp)

ENDIF