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

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

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

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

nSelect = "SELECT Tslv020.*,Tslc001.CLINOM,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,"
nSelect = nSelect + "Tslc001.CLICGC,Tslc001.CLICEP,Tslc004.NOME,Tslc001.CLIRG,Tslc001.CLIINS,Tslc005.DESCRICAO AS FORMA "
nSelect = nSelect + "FROM Tslv020 LEFT JOIN Tslc001 ON Tslv020.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslv020.CODVEN = Tslc004.CODIGO "
nSelect = nSelect + "LEFT JOIN Tslc005 ON Tslv020.CODFORM = Tslc005.CODIGO WHERE ?cTabImp = Tslv020.SEQ "
TSEXEC("T",nSelect,"TSLV020")

IF TSLV020.PESSOA = "FSICA"
   cCpfCgc = "CPF......: " + TSLV020.CLICPF
   cRgIe   = "RG: " + TSLV020.CLIRG
ELSE
   cCpfCgc = "CNPJ.....: " + TSLV020.CLICGC
   cRgIe   = "IE: " + TSLV020.CLIINS
ENDIF

nSelect = "SELECT Tslv021.*,Tslc003.CODBAR FROM Tslv021 LEFT JOIN Tslc003 ON Tslv021.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "WHERE ?cTabImp = CUPOM AND EXCLUI <> 'S' "
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))

IF ! USED("PARAMETRO")
   USE PARAMETRO IN 44 SHARED
ENDIF

SELECT TSLV021
GO TOP IN TSLV021

cReport = FULLPATH(CURDIR()) + "IMPRESS\TSORC_RE.FRX"
CHAMAIMP2("TSLV021",cReport)

ENDIF