
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_ENT.*,Tslc004.Nome FROM TSLV020_ENT Left Join Tslc004 On Tslv020_Ent.Func = Tslc004.Codigo WHERE Tslv020_Ent.SEQ020ENT = ?cSeqEntrega "
TSEXEC("T",nSelect,"TSLV020_ENT")

cMoto = TSLV020_ENT.MOTO

nSelect = "Select Nome From Tslc004 Where Codigo = ?cMoto "
TSEXEC("T",nSelect,"TMP_MOTO")

cMotorista = PADL(ALLTRIM(STR(TSLV020_ENT.MOTO,5)),5,"0") + " - " + ALLTRIM(TMP_MOTO.NOME)

nSelect = "SELECT Tslv020_Ent.*,Tslc001.CLINOM,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,"
nSelect = nSelect + "Tslc001.CLICGC,Tslc001.CLICEP,Tslc001.CLifan,Tslc001.Cliest,Tslc004.NOME,Tslc001.CLIRG,Tslc001.CLIINS,"
nSelect = nSelect + "Tslc001.ENDENT,Tslc001.BAIENT,Tslc001.CIDENT,TSLC001.UFENT,TSLC001.TELENT,Tslc001.Celular "
nSelect = nSelect + "FROM Tslv020_Ent LEFT JOIN Tslc001 ON Tslv020_Ent.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslv020_Ent.FUNC = Tslc004.CODIGO "
nSelect = nSelect + "WHERE ?cSeqEntrega = Tslv020_Ent.SEQ020ENT "
TSEXEC("T",nSelect,"TSLV020")

IF TSLV020.PESSOA = "FSICA"
   cCpfCgc = TSLV020.CLICPF
   cRgIe   = TSLV020.CLIRG
ELSE
   cCpfCgc = TSLV020.CLICGC
   cRgIe   = TSLV020.CLIINS
ENDIF

nSelect = "SELECT Tslv021.*,Tslv021_ent.Quant as QtdEnt,Tslc003.CODBAR,Tslc003.Obsnfe,Tslc032.Descricao as Descfab,(Tslv021_ent.Quant/Tslc003.Equivale) as "
nSelect = nSelect + "volume,Tslc003.PBRUTO AS PESO,Tslc003_lt.Lote FROM Tslv021_ent LEFT JOIN TSLV021 ON "
nSelect = nSelect + "Tslv021_Ent.Seq021 = Tslv021.Seq LEFT JOIN Tslc003 ON Tslv021.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "Left Join Tslc032 On Tslc003.Codfab = Tslc032.Codigo Left Join Tslc003_lt On Tslv021.Seq003lt = Tslc003_lt.Seq003lt WHERE ?cSeqEntrega = Tslv021_ent.SEQ020ENT "
TSEXEC("T",nSelect,"TSLV021_1")

GERACURSOR("TSLV021_1","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\TSENT.FRX"
CHAMAIMP2("TSLV021",cReport)

ENDIF