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

cQEsp = TSL.QECUP
cTpOrc = 'DEVOLUCAO'

cValor1 = LEN(ALLTRIM(cTpOrc))
cVal1 = 28 - cValor1

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

nSelect = "SELECT Tslv023.*,Tslc003.CODBAR FROM Tslv023 LEFT JOIN Tslc003 ON Tslv023.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "WHERE ?cCodDev = CUPOM AND EXCLUI <> 'S' "
IF ! USED("TSL2")
   TSEXEC("T","SELECT * FROM TSL2","TSL2")
ENDIF 

IF TSL2.NOVOCONS = 1
   nSelect = nSelect + "And Tslv023.Exclui <> 'S' And Tslv023.Devolvido <> 'S' "
ENDIF 

TSEXEC("T",nSelect,"TSLV021_1")

GERACURSOR("TSLV021_1","TSLV021")

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

cTabela2 = cTabDev

cReport = FULLPATH(CURDIR()) + "IMPRESS\TSDEV_REPORT.FRX"

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 * FROM &cTabela2 INTO CURSOR TMP_TSLV021
SELECT TMP_TSLV021
GO TOP IN TMP_TSLV021
REPORT FORM &cReport TO PROMPT PREVIEW

*CHAMAIMP2("TSLV021",cReport)