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

cTabImp = cRet024

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

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

nSelect = "SELECT Tslv024.*,Tslc001.CLINOM,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,"
nSelect = nSelect + "Tslc001.CLICGC,Tslc004.NOME "
nSelect = nSelect + "FROM Tslv024 LEFT JOIN Tslc001 ON Tslv024.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslv024.CODVEN = Tslc004.CODIGO WHERE ?cTabImp = Tslv024.SEQ "
TSEXEC("T",nSelect,"TSLV024")

nSelect = "SELECT Tslv025.*,Tslc003.CODBAR,Tslv021.QUANT AS QUANTC,Tslv021.QUANTR FROM Tslv025 "
nSelect = nSelect + "LEFT JOIN Tslc003 ON Tslv025.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "LEFT JOIN Tslv021 ON Tslv025.SEQV021 = Tslv021.SEQ "
nSelect = nSelect + "WHERE ?cTabImp = Tslv025.CUPOM AND Tslv025.EXCLUI <> 'S' "
TSEXEC("T",nSelect,"TSLV025_1")

GERACURSOR("TSLV025_1","TSLV025")

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

SELECT TSLV025
GO TOP IN TSLV025

cForm = FULLPATH(CURDIR()) + "IMPRESS\TSRET.FRX"

*REPORT FORM &cForm TO PRINT PROMPT PREVIEW

CHAMAIMP2("TSLV025",cForm)

ENDIF