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,Tslc001.CLifan,Tslc001.Cliest,Tslc004.NOME,Tslc001.CLIRG,Tslc001.CLIINS,"
nSelect = nSelect + "Tslc001.ENDENT,Tslc001.BAIENT,Tslc001.CIDENT,TSLC001.UFENT,TSLC001.TELENT,Tslc001.Celular,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 = TSLV020.CLICPF
   cRgIe   = TSLV020.CLIRG
ELSE
   cCpfCgc = TSLV020.CLICGC
   cRgIe   = TSLV020.CLIINS
ENDIF

nSelect = "SELECT Tslv021.*,Tslc003.CODBAR,Tslc032.Descricao as Descfab,(Tslv021.Quant/Tslc003.Equivale) as volume,Tslc003.PBruto as Peso,Tslc003.Obsnfe,Tslc003.Referenc,Tslc003_lt.Lote "
nSelect = nSelect + "FROM Tslv021 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 "
nSelect = nSelect + "WHERE ?cTabImp = Tslv021.CUPOM AND Tslv021.EXCLUI <> 'S' "
TSEXEC("T",nSelect,"TSLV021_1")

GERACURSOR("TSLV021_1","TSLV021")


cVenctos = "Vencimentos..." + chr(13)

nselect = "SELECT * FROM Tsm003 WHERE ?cTabImp = SEQCUP AND FLAG = 'O' AND RECEST = 0 "
TSEXEC("T",nSelect,"TMP_VENCTOS")
SELECT TMP_VENCTOS
go top IN TMP_VENCTOS
DO WHILE ! EOF("TMP_VENCTOS")
   cVenctos = cVenctos + DTOC(TMP_VENCTOS.RECVENCI) + " " + TRANSFORM(TMP_VENCTOS.RECVALOR,"9,999,999.99") + " "
   
   SKIP IN TMP_VENCTOS
   LOOP

ENDDO

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)

IF MESSAGEBOX("Deseja Imprimir o Contrato ",292,"Impresso Contrato") = 6

   CREATE CURSOR TMP_CONTRATO(CONTRATO M)

   cImpContrato = ""

   *cImpContrato = cImpContrato + "Autorizo a " + ALLTRIM(TSLV020.CLINOM) +" a ceder, transferir, empenhar, alienar, dispor dos direitos e garantias decorrentes deste contrato, independentemente de prvia comunicao." + CHR(10)
   cImpContrato = cImpContrato + 'Autorizo a "DICASA" a ceder, transferir, empenhar, alienar, dispor dos direitos e garantias decorrentes deste contrato, independentemente de prvia comunicao.' + CHR(10)
   cImpContrato = cImpContrato + "Autorizo a Cessionria a registrar as informaes decorrentes deste contrato e de minha responsabilidade junto ao Sistema de Informaes de Crdito (SCR) do " 
   cImpContrato = cImpContrato + "Banco Central do Brasil (BACEN), para fins de superviso do risco de crdito e intercmbio de informaes com outras instituies financeiras. Estou ciente de " 
   cImpContrato = cImpContrato + "que a consulta ao SCR pela Cessionria depende dessa prvia autorizao e que poderei ter acesso aos dados do SCR pelos meios colocados  minha disposio pelo " 
   cImpContrato = cImpContrato + "BACEN, sendo que eventuais pedidos de correes, excluses, registros de medidas judiciais e de manifestaes de discordncia sobre as informaes inseridas no SCR " 
   *INSERT INTO TMP_CONTRATO(CONTRATO) VALUES (cImpContrato)

   *cImpContrato = ""

   cImpContrato = cImpContrato + "devero ser efetuados por escrito, acompanhados, se necessrio, de documentos. Ainda, autorizo (i) a fornecer e compartilhar as informaes cadastrais, financeiras " 
   cImpContrato = cImpContrato + "e de operaes ativas e passivas e servios prestados junto a outras instituies pertencentes ao Conglomerado da Cessionria, ficando todas autorizadas a examinar e " 
   cImpContrato = cImpContrato + "utilizar, no Brasil e no exterior, tais informaes, inclusive para ofertas de produtos e servios; (ii) a informar aos rgos de proteo ao crdito, tais como " 
   cImpContrato = cImpContrato + "SERASA e SPC, os dados relativos  falta de pagamento de obrigaes assumidas e (iii) a compartilhar informaes cadastrais com outras instituies financeiras e a " 

   *INSERT INTO TMP_CONTRATO(CONTRATO) VALUES (cImpContrato)

   *cImpContrato = ""

   cImpContrato = cImpContrato + "contatar-me por meio de Cartas, e-mails, Short Message Service (SMS) e telefone, inclusive para ofertar produtos e servios." 
   cImpContrato = cImpContrato + "Se o pagamento for feito mediante dbito automtico em conta corrente, desde j autoriza o banco indicado a acolher a solicitao de dbito que vier a ser apresentada." 
   cImpContrato = cImpContrato + "A quitao das parcelas pagas por cheque ou boleto bancrio somente ocorrer aps a efetiva compensao e disponibilizao do recurso ao credor." 
   cImpContrato = cImpContrato + "Estou ciente de que se eu atrasar o pagamento, sobre o valor da obrigao vencida incidiro (i) multa de 2% e (ii) juros moratrios de 1% ao ms, estes calculados " 
   cImpContrato = cImpContrato + "sobre o valor da obrigao vencida acrescida da multa."
   INSERT INTO TMP_CONTRATO(CONTRATO) VALUES (cImpContrato)

   
   SELECT SUM(iif(tslv021.volume = 0,tslv021.quant,tslv021.volume)) AS TOTVOLUME,SUM(tslv021.peso*iif(tslv021.volume = 0,tslv021.quant,tslv021.volume)) AS TOTPESO ;
   FROM TSLV021 INTO CURSOR TMP_TOTCONTRATO

   cTotVolume = TMP_TOTCONTRATO.TOTVOLUME
   cTotPeso   = TMP_TOTCONTRATO.TOTPESO

   SELECT TMP_CONTRATO
   GO TOP IN TMP_CONTRATO

   cReport = FULLPATH(CURDIR()) + "IMPRESS\TSORC_RECONTRATO.FRX"
   CHAMAIMP2("TMP_CONTRATO",cReport)   
ENDIF

ENDIF