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

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.NUMERO,TSLC001.ENDENT,TSLC001.BAIENT,TSLC001.CIDENT,TSLC001.UFENT,TSLC001.CEPENT,Tslc004.NOME,Tslc001.CLIRG,Tslc001.CLIINS "
nSelect = nSelect + "FROM Tslv020 LEFT JOIN Tslc001 ON Tslv020.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslv020.CODVEN = Tslc004.CODIGO WHERE ?cTabImp = Tslv020.SEQ "
TSEXEC("T",nSelect,"TSLV020_1")

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 SUM(TOTAL) AS TOTAL,SUM(DESCONTO) AS DESCONTO FROM TSLV021 INTO CURSOR TMP_TOTAL

cTotal = TMP_TOTAL.TOTAL
cDesconto = TMP_TOTAL.DESCONTO

SELECT PARAMETRO
   
*SET PRINTER TO NAME cImp(PARAMETRO.IMPORC)

nPagina = 1

*DO WHILE nPagina < 2

nValPag = 1

SELECT * FROM TSLV021 WHERE ENTREGA = '1' INTO CURSOR TMP_RETIRARLOJA
SELECT * FROM TSLV021 WHERE ENTREGA = '2' INTO CURSOR TMP_RETIRADEPOSITO
SELECT * FROM TSLV021 WHERE ENTREGA = '3' INTO CURSOR TMP_ENTREGA
SELECT * FROM TSLV021 WHERE ENTREGA = '4' INTO CURSOR TMP_ENTREGAFUTURA
SELECT * FROM TSLV021 WHERE ENTREGA = '5' INTO CURSOR TMP_ENCOMENDA
SELECT * FROM TSLV021 WHERE ENTREGA = '6' INTO CURSOR TMP_ENTREGATJ

cQEsp = 1

SELECT TMP_RETIRARLOJA
IF RECCOUNT() > 0

SELECT TMP_RETIRARLOJA
GO TOP in TMP_RETIRARLOJA

cTipoOrc = "RETIRAR NA LOJA"

Select * From TMP_RETIRARLOJA INTO CURSOR TMP_IMPRIMIR

cTabela  = "TSLV020_1"
cTabela2 = "TMP_IMPRIMIR"

SET PRINTER TO

??? CHR(18)
??? CHR(27) + CHR(50)

*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + DTOC(&cTabela..DATA) + REPLICATE(" ",22) + TIME() + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')))) / 2))+AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + AllTrim("Fone: " + AllTrim(TSL.FONE)) + " - " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim("< CUPOM SEM VALOR FISCAL >"))) / 2))+AllTrim("< CUPOM SEM VALOR FISCAL >") + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + REPLICATE(" ",cVal1)  + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,27)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "End.: " + ALLTRIM(&cTabela..CLIEND) + IIF( ! EMPTY(ALLTRIM(&cTabela..NUMERO)),", " + &cTabela..NUMERO,' ') +CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Vend: " + PADL(ALLTRIM(STR(&cTabela..CODVEN,4)),4,"0") + " " + SUBSTR(&cTabela..NOME,1,24) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Comp: " + &cTabela..COMPRADO + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + "Pgto: " + ALLTRIM(&cTabela..DESCRICAO)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "TP ORC: " + PADR(SUBSTR(ALLTRIM(cTipoOrc),1,16),16,' ') + "DT ENT: " + DTOC(&cTabela..ENTREGA) + " PER.: " + ALLTRIM(&cTabela..PERIODO)  + CHR(10) + CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "CODIGO        DESCRICAO" + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "    Qtde  X      Unit.R$ Desc  Valor R$  " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
SELECT &cTabela2
GO TOP
DO WHILE ! EOF(cTabela2)
   
   ??? REPLICATE(" ",cQEsp) + PADL(ALLTRIM(STR(val(&cTabela2..CODBAR),13)),13,"0") + " " + SUBSTR(&cTabela2..DESCRICAO,1,26) + CHR(10)+CHR(13)
   IF ! EMPTY(ALLTRIM(SUBSTR(&cTabela2..DESCRICAO,27,40)))
      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCRICAO,27,40) + CHR(10)+CHR(13)
   ENDIF
   IF &cTabela2..DESCONTO = 0
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + "     " + " " + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ELSE
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + TRANSFORM(&cTabela2..DESCONTO,"99.99") + "%" + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ENDIF
   
   SKIP IN &cTabela2
   LOOP
   
ENDDO

??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Sub Total..: " + TRANSFORM(&cTabela..BRUTO,"9,999,999.99") + CHR(10)+CHR(13)
IF &cTabela..DESCONTO > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Desconto...: " + TRANSFORM(&cTabela..DESCONTO,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
IF &cTabela..ACRESCIM > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Acrescimo..: " + TRANSFORM(&cTabela..ACRESCIM,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Total Geral: " + TRANSFORM(&cTabela..LIQUIDO,"9,999,999.99") + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS01)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS01)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS02)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS02)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS03)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS03)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40)+CHR(13)+CHR(10)
*WAIT WINDOW parametro.recorc
*WAIT WINDOW cImpRec

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

ENDDO

IF ! EMPTY(ALLTRIM(TSLV020_1.OBS))
   ??? "OBS: "+ SUBSTR(ALLTRIM(TSLV020_1.OBS),1,40)  + CHR(10)+CHR(13)
   IF ! EMPTY(SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40))
      ??? SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40)  + CHR(10)+CHR(13)
   ENDIF
   IF ! EMPTY(ALLTRIM(TSLV020_1.OBS2))
      ??? "     "+ SUBSTR(TSLV020_1.OBS2,1,40) + CHR(10)+CHR(13)
   ENDIF
ENDIF
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
*??? " " + "________________________________      RG:                  " + CHR(10) + CHR(13)
*??? " " + "           Assinatura           " + CHR(10) + CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)
??? " " + CHR(10)+CHR(13)
??? " " + "Data: " + DTOC(&cTabela..DATA) + "   ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + chr(10) + chr(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,27)+CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + "________________________________      RG:                  " + CHR(10) + CHR(13)
??? " " + "           Assinatura           " + CHR(10) + CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)

SET PRINTER TO

ENDIF



SELECT TMP_RETIRADEPOSITO
IF RECCOUNT() > 0
SELECT TMP_RETIRADEPOSITO
GO TOP in TMP_RETIRADEPOSITO

cTipoOrc = "RETIRA DEPOSITO "

Select * From TMP_RETIRADEPOSITO INTO CURSOR TMP_IMPRIMIR

cTabela  = "TSLV020_1"
cTabela2 = "TMP_IMPRIMIR"

SET PRINTER TO

??? CHR(18)
??? CHR(27) + CHR(50)

*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + DTOC(&cTabela..DATA) + REPLICATE(" ",22) + TIME() + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')))) / 2))+AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + AllTrim("Fone: " + AllTrim(TSL.FONE)) + " - " + "Cel: "+ CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim("< CUPOM SEM VALOR FISCAL >"))) / 2))+AllTrim("< CUPOM SEM VALOR FISCAL >") + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + REPLICATE(" ",cVal1) +  CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,27)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "End.: " + ALLTRIM(&cTabela..CLIEND) + IIF( ! EMPTY(ALLTRIM(&cTabela..NUMERO)),", " + &cTabela..NUMERO,' ') +CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Vend: " + PADL(ALLTRIM(STR(&cTabela..CODVEN,4)),4,"0") + " " + SUBSTR(&cTabela..NOME,1,24) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Comp: " + &cTabela..COMPRADO + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + "Pgto: " + ALLTRIM(&cTabela..DESCRICAO)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "TP ORC: " + PADR(SUBSTR(ALLTRIM(cTipoOrc),1,16),16,' ') + "DT ENT: " + DTOC(&cTabela..ENTREGA) + " PER.: " + ALLTRIM(&cTabela..PERIODO)  + CHR(10) + CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "CODIGO        DESCRICAO" + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "    Qtde  X      Unit.R$ Desc  Valor R$  " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
SELECT &cTabela2
GO TOP
DO WHILE ! EOF(cTabela2)
   
   ??? REPLICATE(" ",cQEsp) + PADL(ALLTRIM(STR(val(&cTabela2..CODBAR),13)),13,"0") + " " + SUBSTR(&cTabela2..DESCRICAO,1,26) + CHR(10)+CHR(13)
   IF ! EMPTY(ALLTRIM(SUBSTR(&cTabela2..DESCRICAO,27,40)))
      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCRICAO,27,40) + CHR(10)+CHR(13)
   ENDIF
   IF &cTabela2..DESCONTO = 0
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + "     " + " " + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ELSE
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + TRANSFORM(&cTabela2..DESCONTO,"99.99") + "%" + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ENDIF
   
   SKIP IN &cTabela2
   LOOP
   
ENDDO

??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Sub Total..: " + TRANSFORM(&cTabela..BRUTO,"9,999,999.99") + CHR(10)+CHR(13)
IF &cTabela..DESCONTO > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Desconto...: " + TRANSFORM(&cTabela..DESCONTO,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
IF &cTabela..ACRESCIM > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Acrescimo..: " + TRANSFORM(&cTabela..ACRESCIM,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Total Geral: " + TRANSFORM(&cTabela..LIQUIDO,"9,999,999.99") + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS01)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS01)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS02)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS02)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS03)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS03)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40)+CHR(13)+CHR(10)
*WAIT WINDOW parametro.recorc
*WAIT WINDOW cImpRec

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

ENDDO

IF ! EMPTY(ALLTRIM(TSLV020_1.OBS))
   ??? "OBS: "+ SUBSTR(ALLTRIM(TSLV020_1.OBS),1,40)  + CHR(10)+CHR(13)
   IF ! EMPTY(SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40))
      ??? SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40)  + CHR(10)+CHR(13)
   ENDIF
   IF ! EMPTY(ALLTRIM(TSLV020_1.OBS2))
      ??? "     "+ SUBSTR(TSLV020_1.OBS2,1,40) + CHR(10)+CHR(13)
   ENDIF
ENDIF
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
*??? " " + "________________________________      RG:                  " + CHR(10) + CHR(13)
*??? " " + "           Assinatura           " + CHR(10) + CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)
??? " " + CHR(10)+CHR(13)
??? " " + "Data: " + DTOC(&cTabela..DATA) + "   ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + chr(10) + chr(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,27)+CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + "________________________________      RG:                  " + CHR(10) + CHR(13)
??? " " + "           Assinatura           " + CHR(10) + CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)

SET PRINTER TO


ENDIF

SELECT TMP_ENTREGA
IF RECCOUNT() > 0
SELECT TMP_ENTREGA
GO TOP IN TMP_ENTREGA


cTipoOrc = "ENTREGA "

Select * From TMP_ENTREGA INTO CURSOR TMP_IMPRIMIR

cTabela  = "TSLV020_1"
cTabela2 = "TMP_IMPRIMIR"


SET PRINTER TO

??? CHR(18)
??? CHR(27) + CHR(50)

*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + DTOC(&cTabela..DATA) + REPLICATE(" ",22) + TIME() + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')))) / 2))+AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + AllTrim("Fone: " + AllTrim(TSL.FONE)) + " - " + "Cel:"+ CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim("< CUPOM SEM VALOR FISCAL >"))) / 2))+AllTrim("< CUPOM SEM VALOR FISCAL >") + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + REPLICATE(" ",cVal1) +  CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,27)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "End.: " + ALLTRIM(&cTabela..CLIEND) + IIF( ! EMPTY(ALLTRIM(&cTabela..NUMERO)),", " + &cTabela..NUMERO,' ') +CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Vend: " + PADL(ALLTRIM(STR(&cTabela..CODVEN,4)),4,"0") + " " + SUBSTR(&cTabela..NOME,1,24) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Comp: " + &cTabela..COMPRADO + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + "Pgto: " + ALLTRIM(&cTabela..DESCRICAO)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "TP ORC: " + PADR(SUBSTR(ALLTRIM(cTipoOrc),1,16),16,' ') + "DT ENT: " + DTOC(&cTabela..ENTREGA) + " PER.: " + ALLTRIM(&cTabela..PERIODO)  + CHR(10) + CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "CODIGO        DESCRICAO" + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "    Qtde  X      Unit.R$ Desc  Valor R$  " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
SELECT &cTabela2
GO TOP
DO WHILE ! EOF(cTabela2)
   
   ??? REPLICATE(" ",cQEsp) + PADL(ALLTRIM(STR(val(&cTabela2..CODBAR),13)),13,"0") + " " + SUBSTR(&cTabela2..DESCRICAO,1,26) + CHR(10)+CHR(13)
   IF ! EMPTY(ALLTRIM(SUBSTR(&cTabela2..DESCRICAO,27,40)))
      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCRICAO,27,40) + CHR(10)+CHR(13)
   ENDIF
   IF &cTabela2..DESCONTO = 0
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + "     " + " " + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ELSE
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + TRANSFORM(&cTabela2..DESCONTO,"99.99") + "%" + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ENDIF
   
   SKIP IN &cTabela2
   LOOP
   
ENDDO

??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Sub Total..: " + TRANSFORM(&cTabela..BRUTO,"9,999,999.99") + CHR(10)+CHR(13)
IF &cTabela..DESCONTO > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Desconto...: " + TRANSFORM(&cTabela..DESCONTO,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
IF &cTabela..ACRESCIM > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Acrescimo..: " + TRANSFORM(&cTabela..ACRESCIM,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Total Geral: " + TRANSFORM(&cTabela..LIQUIDO,"9,999,999.99") + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS01)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS01)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS02)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS02)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS03)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS03)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40)+CHR(13)+CHR(10)
*WAIT WINDOW parametro.recorc
*WAIT WINDOW cImpRec

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

ENDDO

IF ! EMPTY(ALLTRIM(TSLV020_1.OBS))
   ??? "OBS: "+ SUBSTR(ALLTRIM(TSLV020_1.OBS),1,40)  + CHR(10)+CHR(13)
   IF ! EMPTY(SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40))
      ??? SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40)  + CHR(10)+CHR(13)
   ENDIF
   IF ! EMPTY(ALLTRIM(TSLV020_1.OBS2))
      ??? "     "+ SUBSTR(TSLV020_1.OBS2,1,40) + CHR(10)+CHR(13)
   ENDIF
ENDIF
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
*??? " " + "________________________________      RG:                  " + CHR(10) + CHR(13)
*??? " " + "           Assinatura           " + CHR(10) + CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)
??? " " + CHR(10)+CHR(13)
??? " " + "Data: " + DTOC(&cTabela..DATA) + "   ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + chr(10) + chr(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,27)+CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + "________________________________      RG:                  " + CHR(10) + CHR(13)
??? " " + "           Assinatura           " + CHR(10) + CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)

SET PRINTER TO

ENDIF


SELECT TMP_ENTREGAFUTURA
IF RECCOUNT() > 0
SELECT TMP_ENTREGAFUTURA
GO TOP IN TMP_ENTREGAFUTURA

cTipoOrc = "ENTREGA FUTURA"

Select * From TMP_ENTREGAFUTURA INTO CURSOR TMP_IMPRIMIR

cTabela  = "TSLV020_1"
cTabela2 = "TMP_IMPRIMIR"


SET PRINTER TO

??? CHR(18)
??? CHR(27) + CHR(50)

*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + DTOC(&cTabela..DATA) + REPLICATE(" ",22) + TIME() + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')))) / 2))+AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + AllTrim("Fone: " + AllTrim(TSL.FONE)) + " - " + "Cel:"+ CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim("< CUPOM SEM VALOR FISCAL >"))) / 2))+AllTrim("< CUPOM SEM VALOR FISCAL >") + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + REPLICATE(" ",cVal1) +  CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,27)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "End.: " + ALLTRIM(&cTabela..CLIEND) + IIF( ! EMPTY(ALLTRIM(&cTabela..NUMERO)),", " + &cTabela..NUMERO,' ') +CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Vend: " + PADL(ALLTRIM(STR(&cTabela..CODVEN,4)),4,"0") + " " + SUBSTR(&cTabela..NOME,1,24) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Comp: " + &cTabela..COMPRADO + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + "Pgto: " + ALLTRIM(&cTabela..DESCRICAO)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "TP ORC: " + PADR(SUBSTR(ALLTRIM(cTipoOrc),1,16),16,' ') + "DT ENT: " + DTOC(&cTabela..ENTREGA) + " PER.: " + ALLTRIM(&cTabela..PERIODO)  + CHR(10) + CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "CODIGO        DESCRICAO" + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "    Qtde  X      Unit.R$ Desc  Valor R$  " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
SELECT &cTabela2
GO TOP
DO WHILE ! EOF(cTabela2)
   
   ??? REPLICATE(" ",cQEsp) + PADL(ALLTRIM(STR(val(&cTabela2..CODBAR),13)),13,"0") + " " + SUBSTR(&cTabela2..DESCRICAO,1,26) + CHR(10)+CHR(13)
   IF ! EMPTY(ALLTRIM(SUBSTR(&cTabela2..DESCRICAO,27,40)))
      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCRICAO,27,40) + CHR(10)+CHR(13)
   ENDIF
   IF &cTabela2..DESCONTO = 0
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + "     " + " " + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ELSE
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + TRANSFORM(&cTabela2..DESCONTO,"99.99") + "%" + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ENDIF
   
   SKIP IN &cTabela2
   LOOP
   
ENDDO

??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Sub Total..: " + TRANSFORM(&cTabela..BRUTO,"9,999,999.99") + CHR(10)+CHR(13)
IF &cTabela..DESCONTO > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Desconto...: " + TRANSFORM(&cTabela..DESCONTO,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
IF &cTabela..ACRESCIM > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Acrescimo..: " + TRANSFORM(&cTabela..ACRESCIM,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Total Geral: " + TRANSFORM(&cTabela..LIQUIDO,"9,999,999.99") + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS01)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS01)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS02)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS02)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS03)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS03)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40)+CHR(13)+CHR(10)
*WAIT WINDOW parametro.recorc
*WAIT WINDOW cImpRec

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

ENDDO

IF ! EMPTY(ALLTRIM(TSLV020_1.OBS))
   ??? "OBS: "+ SUBSTR(ALLTRIM(TSLV020_1.OBS),1,40)  + CHR(10)+CHR(13)
   IF ! EMPTY(SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40))
      ??? SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40)  + CHR(10)+CHR(13)
   ENDIF
   IF ! EMPTY(ALLTRIM(TSLV020_1.OBS2))
      ??? "     "+ SUBSTR(TSLV020_1.OBS2,1,40) + CHR(10)+CHR(13)
   ENDIF
ENDIF
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
*??? " " + "________________________________      RG:                  " + CHR(10) + CHR(13)
*??? " " + "           Assinatura           " + CHR(10) + CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)
??? " " + CHR(10)+CHR(13)
??? " " + "Data: " + DTOC(&cTabela..DATA) + "   ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + chr(10) + chr(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,27)+CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + "________________________________      RG:                  " + CHR(10) + CHR(13)
??? " " + "           Assinatura           " + CHR(10) + CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)

SET PRINTER TO


ENDIF

SELECT TMP_ENCOMENDA
IF RECCOUNT() > 0
SELECT TMP_ENCOMENDA
GO TOP IN TMP_ENCOMENDA

SET PRINTER TO

cTipoOrc = "ENCOMENDA "

Select * From TMP_ENCOMENDA INTO CURSOR TMP_IMPRIMIR

cTabela  = "TSLV020_1"
cTabela2 = "TMP_IMPRIMIR"

SET PRINTER TO

??? CHR(18)
??? CHR(27) + CHR(50)

*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + DTOC(&cTabela..DATA) + REPLICATE(" ",22) + TIME() + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')))) / 2))+AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + AllTrim("Fone: " + AllTrim(TSL.FONE)) + " - " + "Cel:"+ CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim("< CUPOM SEM VALOR FISCAL >"))) / 2))+AllTrim("< CUPOM SEM VALOR FISCAL >") + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + REPLICATE(" ",cVal1) +  CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,27)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "End.: " + ALLTRIM(&cTabela..CLIEND) + IIF( ! EMPTY(ALLTRIM(&cTabela..NUMERO)),", " + &cTabela..NUMERO,' ') +CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Vend: " + PADL(ALLTRIM(STR(&cTabela..CODVEN,4)),4,"0") + " " + SUBSTR(&cTabela..NOME,1,24) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Comp: " + &cTabela..COMPRADO + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + "Pgto: " + ALLTRIM(&cTabela..DESCRICAO)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "TP ORC: " + PADR(SUBSTR(ALLTRIM(cTipoOrc),1,16),16,' ') + "DT ENT: " + DTOC(&cTabela..ENTREGA) + " PER.: " + ALLTRIM(&cTabela..PERIODO)  + CHR(10) + CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "CODIGO        DESCRICAO" + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "    Qtde  X      Unit.R$ Desc  Valor R$  " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
SELECT &cTabela2
GO TOP
DO WHILE ! EOF(cTabela2)
   
   ??? REPLICATE(" ",cQEsp) + PADL(ALLTRIM(STR(val(&cTabela2..CODBAR),13)),13,"0") + " " + SUBSTR(&cTabela2..DESCRICAO,1,26) + CHR(10)+CHR(13)
   IF ! EMPTY(ALLTRIM(SUBSTR(&cTabela2..DESCRICAO,27,40)))
      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCRICAO,27,40) + CHR(10)+CHR(13)
   ENDIF
   IF &cTabela2..DESCONTO = 0
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + "     " + " " + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ELSE
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + TRANSFORM(&cTabela2..DESCONTO,"99.99") + "%" + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ENDIF
   
   SKIP IN &cTabela2
   LOOP
   
ENDDO

??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Sub Total..: " + TRANSFORM(&cTabela..BRUTO,"9,999,999.99") + CHR(10)+CHR(13)
IF &cTabela..DESCONTO > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Desconto...: " + TRANSFORM(&cTabela..DESCONTO,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
IF &cTabela..ACRESCIM > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Acrescimo..: " + TRANSFORM(&cTabela..ACRESCIM,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Total Geral: " + TRANSFORM(&cTabela..LIQUIDO,"9,999,999.99") + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS01)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS01)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS02)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS02)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS03)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS03)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40)+CHR(13)+CHR(10)
*WAIT WINDOW parametro.recorc
*WAIT WINDOW cImpRec

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

ENDDO

IF ! EMPTY(ALLTRIM(TSLV020_1.OBS))
   ??? "OBS: "+ SUBSTR(ALLTRIM(TSLV020_1.OBS),1,40)  + CHR(10)+CHR(13)
   IF ! EMPTY(SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40))
      ??? SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40)  + CHR(10)+CHR(13)
   ENDIF
   IF ! EMPTY(ALLTRIM(TSLV020_1.OBS2))
      ??? "     "+ SUBSTR(TSLV020_1.OBS2,1,40) + CHR(10)+CHR(13)
   ENDIF
ENDIF
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
*??? " " + "________________________________      RG:                  " + CHR(10) + CHR(13)
*??? " " + "           Assinatura           " + CHR(10) + CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)
??? " " + CHR(10)+CHR(13)
??? " " + "Data: " + DTOC(&cTabela..DATA) + "   ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + chr(10) + chr(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,27)+CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + "________________________________      RG:                  " + CHR(10) + CHR(13)
??? " " + "           Assinatura           " + CHR(10) + CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)

SET PRINTER TO

ENDIF

SELECT TMP_ENTREGATJ
IF RECCOUNT() > 0
SELECT TMP_ENTREGATJ
GO TOP IN TMP_ENTREGATJ

SET PRINTER TO

cTipoOrc = "ENTREGA TJ"

Select * From TMP_ENTREGATJ INTO CURSOR TMP_IMPRIMIR

cTabela  = "TSLV020_1"
cTabela2 = "TMP_IMPRIMIR"


SET PRINTER TO

??? CHR(18)
??? CHR(27) + CHR(50)

*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + DTOC(&cTabela..DATA) + REPLICATE(" ",22) + TIME() + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')))) / 2))+AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + AllTrim("Fone: " + AllTrim(TSL.FONE)) + " - " + "Cel:"+ CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim("< CUPOM SEM VALOR FISCAL >"))) / 2))+AllTrim("< CUPOM SEM VALOR FISCAL >") + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + REPLICATE(" ",cVal1) +  CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,27)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "End.: " + ALLTRIM(&cTabela..CLIEND) + IIF( ! EMPTY(ALLTRIM(&cTabela..NUMERO)),", " + &cTabela..NUMERO,' ') +CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Vend: " + PADL(ALLTRIM(STR(&cTabela..CODVEN,4)),4,"0") + " " + SUBSTR(&cTabela..NOME,1,24) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Comp: " + &cTabela..COMPRADO + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + "Pgto: " + ALLTRIM(&cTabela..DESCRICAO)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "TP ORC: " + PADR(SUBSTR(ALLTRIM(cTipoOrc),1,16),16,' ') + "DT ENT: " + DTOC(&cTabela..ENTREGA) + " PER.: " + ALLTRIM(&cTabela..PERIODO)  + CHR(10) + CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "CODIGO        DESCRICAO" + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "    Qtde  X      Unit.R$ Desc  Valor R$  " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
SELECT &cTabela2
GO TOP
DO WHILE ! EOF(cTabela2)
   
   ??? REPLICATE(" ",cQEsp) + PADL(ALLTRIM(STR(val(&cTabela2..CODBAR),13)),13,"0") + " " + SUBSTR(&cTabela2..DESCRICAO,1,26) + CHR(10)+CHR(13)
   IF ! EMPTY(ALLTRIM(SUBSTR(&cTabela2..DESCRICAO,27,40)))
      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCRICAO,27,40) + CHR(10)+CHR(13)
   ENDIF
   IF &cTabela2..DESCONTO = 0
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + "     " + " " + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ELSE
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + TRANSFORM(&cTabela2..DESCONTO,"99.99") + "%" + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ENDIF
   
   SKIP IN &cTabela2
   LOOP
   
ENDDO

??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Sub Total..: " + TRANSFORM(&cTabela..BRUTO,"9,999,999.99") + CHR(10)+CHR(13)
IF &cTabela..DESCONTO > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Desconto...: " + TRANSFORM(&cTabela..DESCONTO,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
IF &cTabela..ACRESCIM > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Acrescimo..: " + TRANSFORM(&cTabela..ACRESCIM,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Total Geral: " + TRANSFORM(&cTabela..LIQUIDO,"9,999,999.99") + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS01)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS01)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS02)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS02)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS03)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS03)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40)+CHR(13)+CHR(10)
*WAIT WINDOW parametro.recorc
*WAIT WINDOW cImpRec

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

ENDDO

IF ! EMPTY(ALLTRIM(TSLV020_1.OBS))
   ??? "OBS: "+ SUBSTR(ALLTRIM(TSLV020_1.OBS),1,40)  + CHR(10)+CHR(13)
   IF ! EMPTY(SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40))
      ??? SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40)  + CHR(10)+CHR(13)
   ENDIF
   IF ! EMPTY(ALLTRIM(TSLV020_1.OBS2))
      ??? "     "+ SUBSTR(TSLV020_1.OBS2,1,40) + CHR(10)+CHR(13)
   ENDIF
ENDIF
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
*??? " " + "________________________________      RG:                  " + CHR(10) + CHR(13)
*??? " " + "           Assinatura           " + CHR(10) + CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)
??? " " + CHR(10)+CHR(13)
??? " " + "Data: " + DTOC(&cTabela..DATA) + "   ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + chr(10) + chr(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,27)+CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + "________________________________      RG:                  " + CHR(10) + CHR(13)
??? " " + "           Assinatura           " + CHR(10) + CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)

SET PRINTER TO

ENDIF

ENDIF

RETURN .F.

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

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.NUMERO,TSLC001.ENDENT,TSLC001.BAIENT,TSLC001.CIDENT,TSLC001.UFENT,TSLC001.CEPENT,Tslc004.NOME,Tslc001.CLIRG,Tslc001.CLIINS "
nSelect = nSelect + "FROM Tslv020 LEFT JOIN Tslc001 ON Tslv020.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslv020.CODVEN = Tslc004.CODIGO WHERE ?cTabImp = Tslv020.SEQ "
TSEXEC("T",nSelect,"TSLV020_1")

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 SUM(TOTAL) AS TOTAL,SUM(DESCONTO) AS DESCONTO FROM TSLV021 INTO CURSOR TMP_TOTAL

cTotal = TMP_TOTAL.TOTAL
cDesconto = TMP_TOTAL.DESCONTO

SELECT PARAMETRO
   
*SET PRINTER TO NAME cImp(PARAMETRO.IMPORC)

nPagina = 1

*DO WHILE nPagina < 2

nValPag = 1

SELECT * FROM TSLV021 WHERE ENTREGA = '1' INTO CURSOR TMP_RETIRARLOJA
SELECT * FROM TSLV021 WHERE ENTREGA = '2' INTO CURSOR TMP_RETIRADEPOSITO
SELECT * FROM TSLV021 WHERE ENTREGA = '3' INTO CURSOR TMP_ENTREGA
SELECT * FROM TSLV021 WHERE ENTREGA = '4' INTO CURSOR TMP_ENTREGAFUTURA
SELECT * FROM TSLV021 WHERE ENTREGA = '5' INTO CURSOR TMP_ENCOMENDA
SELECT * FROM TSLV021 WHERE ENTREGA = '6' INTO CURSOR TMP_ENTREGATJ

cQEsp = 1

SELECT TMP_RETIRARLOJA
IF RECCOUNT() > 0

SELECT TMP_RETIRARLOJA
GO TOP in TMP_RETIRARLOJA

cTipoOrc = "RETIRAR NA LOJA"

Select * From TMP_RETIRARLOJA INTO CURSOR TMP_IMPRIMIR

cTabela  = "TSLV020_1"
cTabela2 = "TMP_IMPRIMIR"

SET PRINTER TO

??? CHR(18)
??? CHR(27) + CHR(50)

*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + DTOC(&cTabela..DATA) + REPLICATE(" ",22) + TIME() + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')))) / 2))+AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + AllTrim("Fone: " + AllTrim(TSL.FONE)) + " - " + "Cel:"+ CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim("< CUPOM SEM VALOR FISCAL >"))) / 2))+AllTrim("< CUPOM SEM VALOR FISCAL >") + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + REPLICATE(" ",cVal1)  + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,27)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "End.: " + ALLTRIM(&cTabela..CLIEND) + IIF( ! EMPTY(ALLTRIM(&cTabela..NUMERO)),", " + &cTabela..NUMERO,' ') +CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Vend: " + PADL(ALLTRIM(STR(&cTabela..CODVEN,4)),4,"0") + " " + SUBSTR(&cTabela..NOME,1,24) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Comp: " + &cTabela..COMPRADO + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + "Pgto: " + ALLTRIM(&cTabela..DESCRICAO)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "TP ORC: " + PADR(SUBSTR(ALLTRIM(cTipoOrc),1,16),16,' ') + "DT ENT: " + DTOC(&cTabela..ENTREGA) + " PER.: " + ALLTRIM(&cTabela..PERIODO)  + CHR(10) + CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "CODIGO        DESCRICAO" + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "    Qtde  X      Unit.R$ Desc  Valor R$  " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
SELECT &cTabela2
GO TOP
DO WHILE ! EOF(cTabela2)
   
   ??? REPLICATE(" ",cQEsp) + PADL(ALLTRIM(STR(val(&cTabela2..CODBAR),13)),13,"0") + " " + SUBSTR(&cTabela2..DESCRICAO,1,26) + CHR(10)+CHR(13)
   IF ! EMPTY(ALLTRIM(SUBSTR(&cTabela2..DESCRICAO,27,40)))
      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCRICAO,27,40) + CHR(10)+CHR(13)
   ENDIF
   IF &cTabela2..DESCONTO = 0
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + "     " + " " + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ELSE
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + TRANSFORM(&cTabela2..DESCONTO,"99.99") + "%" + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ENDIF
   
   SKIP IN &cTabela2
   LOOP
   
ENDDO

??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Sub Total..: " + TRANSFORM(&cTabela..BRUTO,"9,999,999.99") + CHR(10)+CHR(13)
IF &cTabela..DESCONTO > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Desconto...: " + TRANSFORM(&cTabela..DESCONTO,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
IF &cTabela..ACRESCIM > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Acrescimo..: " + TRANSFORM(&cTabela..ACRESCIM,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Total Geral: " + TRANSFORM(&cTabela..LIQUIDO,"9,999,999.99") + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS01)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS01)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS02)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS02)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS03)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS03)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40)+CHR(13)+CHR(10)
*WAIT WINDOW parametro.recorc
*WAIT WINDOW cImpRec

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

ENDDO

IF ! EMPTY(ALLTRIM(TSLV020_1.OBS))
   ??? "OBS: "+ SUBSTR(ALLTRIM(TSLV020_1.OBS),1,40)  + CHR(10)+CHR(13)
   IF ! EMPTY(SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40))
      ??? SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40)  + CHR(10)+CHR(13)
   ENDIF
   IF ! EMPTY(ALLTRIM(TSLV020_1.OBS2))
      ??? "     "+ SUBSTR(TSLV020_1.OBS2,1,40) + CHR(10)+CHR(13)
   ENDIF
ENDIF
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + "________________________________      RG:                  " + CHR(10) + CHR(13)
??? " " + "           Assinatura           " + CHR(10) + CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)

SET PRINTER TO

ENDIF



SELECT TMP_RETIRADEPOSITO
IF RECCOUNT() > 0
SELECT TMP_RETIRADEPOSITO
GO TOP in TMP_RETIRADEPOSITO

cTipoOrc = "RETIRA DEPOSITO "

Select * From TMP_RETIRADEPOSITO INTO CURSOR TMP_IMPRIMIR

cTabela  = "TSLV020_1"
cTabela2 = "TMP_IMPRIMIR"

SET PRINTER TO

??? CHR(18)
??? CHR(27) + CHR(50)

*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + DTOC(&cTabela..DATA) + REPLICATE(" ",22) + TIME() + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')))) / 2))+AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + AllTrim("Fone: " + AllTrim(TSL.FONE)) + " - " + "Cel:"+ CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim("< CUPOM SEM VALOR FISCAL >"))) / 2))+AllTrim("< CUPOM SEM VALOR FISCAL >") + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + REPLICATE(" ",cVal1) +  CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,27)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "End.: " + ALLTRIM(&cTabela..CLIEND) + IIF( ! EMPTY(ALLTRIM(&cTabela..NUMERO)),", " + &cTabela..NUMERO,' ') +CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Vend: " + PADL(ALLTRIM(STR(&cTabela..CODVEN,4)),4,"0") + " " + SUBSTR(&cTabela..NOME,1,24) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Comp: " + &cTabela..COMPRADO + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + "Pgto: " + ALLTRIM(&cTabela..DESCRICAO)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "TP ORC: " + PADR(SUBSTR(ALLTRIM(cTipoOrc),1,16),16,' ') + "DT ENT: " + DTOC(&cTabela..ENTREGA) + " PER.: " + ALLTRIM(&cTabela..PERIODO)  + CHR(10) + CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "CODIGO        DESCRICAO" + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "    Qtde  X      Unit.R$ Desc  Valor R$  " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
SELECT &cTabela2
GO TOP
DO WHILE ! EOF(cTabela2)
   
   ??? REPLICATE(" ",cQEsp) + PADL(ALLTRIM(STR(val(&cTabela2..CODBAR),13)),13,"0") + " " + SUBSTR(&cTabela2..DESCRICAO,1,26) + CHR(10)+CHR(13)
   IF ! EMPTY(ALLTRIM(SUBSTR(&cTabela2..DESCRICAO,27,40)))
      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCRICAO,27,40) + CHR(10)+CHR(13)
   ENDIF
   IF &cTabela2..DESCONTO = 0
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + "     " + " " + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ELSE
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + TRANSFORM(&cTabela2..DESCONTO,"99.99") + "%" + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ENDIF
   
   SKIP IN &cTabela2
   LOOP
   
ENDDO

??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Sub Total..: " + TRANSFORM(&cTabela..BRUTO,"9,999,999.99") + CHR(10)+CHR(13)
IF &cTabela..DESCONTO > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Desconto...: " + TRANSFORM(&cTabela..DESCONTO,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
IF &cTabela..ACRESCIM > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Acrescimo..: " + TRANSFORM(&cTabela..ACRESCIM,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Total Geral: " + TRANSFORM(&cTabela..LIQUIDO,"9,999,999.99") + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS01)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS01)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS02)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS02)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS03)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS03)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40)+CHR(13)+CHR(10)
*WAIT WINDOW parametro.recorc
*WAIT WINDOW cImpRec

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

ENDDO

IF ! EMPTY(ALLTRIM(TSLV020_1.OBS))
   ??? "OBS: "+ SUBSTR(ALLTRIM(TSLV020_1.OBS),1,40)  + CHR(10)+CHR(13)
   IF ! EMPTY(SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40))
      ??? SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40)  + CHR(10)+CHR(13)
   ENDIF
   IF ! EMPTY(ALLTRIM(TSLV020_1.OBS2))
      ??? "     "+ SUBSTR(TSLV020_1.OBS2,1,40) + CHR(10)+CHR(13)
   ENDIF
ENDIF
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + "________________________________      RG:                  " + CHR(10) + CHR(13)
??? " " + "           Assinatura           " + CHR(10) + CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)

SET PRINTER TO


ENDIF

SELECT TMP_ENTREGA
IF RECCOUNT() > 0
SELECT TMP_ENTREGA
GO TOP IN TMP_ENTREGA


cTipoOrc = "ENTREGA "

Select * From TMP_ENTREGA INTO CURSOR TMP_IMPRIMIR

cTabela  = "TSLV020_1"
cTabela2 = "TMP_IMPRIMIR"


SET PRINTER TO

??? CHR(18)
??? CHR(27) + CHR(50)

*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + DTOC(&cTabela..DATA) + REPLICATE(" ",22) + TIME() + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')))) / 2))+AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + AllTrim("Fone: " + AllTrim(TSL.FONE)) + " - " + "Cel:"+ CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim("< CUPOM SEM VALOR FISCAL >"))) / 2))+AllTrim("< CUPOM SEM VALOR FISCAL >") + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + REPLICATE(" ",cVal1) +  CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,27)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "End.: " + ALLTRIM(&cTabela..CLIEND) + IIF( ! EMPTY(ALLTRIM(&cTabela..NUMERO)),", " + &cTabela..NUMERO,' ') +CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Vend: " + PADL(ALLTRIM(STR(&cTabela..CODVEN,4)),4,"0") + " " + SUBSTR(&cTabela..NOME,1,24) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Comp: " + &cTabela..COMPRADO + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + "Pgto: " + ALLTRIM(&cTabela..DESCRICAO)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "TP ORC: " + PADR(SUBSTR(ALLTRIM(cTipoOrc),1,16),16,' ') + "DT ENT: " + DTOC(&cTabela..ENTREGA) + " PER.: " + ALLTRIM(&cTabela..PERIODO)  + CHR(10) + CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "CODIGO        DESCRICAO" + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "    Qtde  X      Unit.R$ Desc  Valor R$  " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
SELECT &cTabela2
GO TOP
DO WHILE ! EOF(cTabela2)
   
   ??? REPLICATE(" ",cQEsp) + PADL(ALLTRIM(STR(val(&cTabela2..CODBAR),13)),13,"0") + " " + SUBSTR(&cTabela2..DESCRICAO,1,26) + CHR(10)+CHR(13)
   IF ! EMPTY(ALLTRIM(SUBSTR(&cTabela2..DESCRICAO,27,40)))
      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCRICAO,27,40) + CHR(10)+CHR(13)
   ENDIF
   IF &cTabela2..DESCONTO = 0
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + "     " + " " + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ELSE
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + TRANSFORM(&cTabela2..DESCONTO,"99.99") + "%" + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ENDIF
   
   SKIP IN &cTabela2
   LOOP
   
ENDDO

??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Sub Total..: " + TRANSFORM(&cTabela..BRUTO,"9,999,999.99") + CHR(10)+CHR(13)
IF &cTabela..DESCONTO > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Desconto...: " + TRANSFORM(&cTabela..DESCONTO,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
IF &cTabela..ACRESCIM > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Acrescimo..: " + TRANSFORM(&cTabela..ACRESCIM,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Total Geral: " + TRANSFORM(&cTabela..LIQUIDO,"9,999,999.99") + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS01)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS01)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS02)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS02)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS03)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS03)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40)+CHR(13)+CHR(10)
*WAIT WINDOW parametro.recorc
*WAIT WINDOW cImpRec

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

ENDDO

IF ! EMPTY(ALLTRIM(TSLV020_1.OBS))
   ??? "OBS: "+ SUBSTR(ALLTRIM(TSLV020_1.OBS),1,40)  + CHR(10)+CHR(13)
   IF ! EMPTY(SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40))
      ??? SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40)  + CHR(10)+CHR(13)
   ENDIF
   IF ! EMPTY(ALLTRIM(TSLV020_1.OBS2))
      ??? "     "+ SUBSTR(TSLV020_1.OBS2,1,40) + CHR(10)+CHR(13)
   ENDIF
ENDIF
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + "________________________________      RG:                  " + CHR(10) + CHR(13)
??? " " + "           Assinatura           " + CHR(10) + CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)

SET PRINTER TO

ENDIF


SELECT TMP_ENTREGAFUTURA
IF RECCOUNT() > 0
SELECT TMP_ENTREGAFUTURA
GO TOP IN TMP_ENTREGAFUTURA

cTipoOrc = "ENTREGA FUTURA"

Select * From TMP_ENTREGAFUTURA INTO CURSOR TMP_IMPRIMIR

cTabela  = "TSLV020_1"
cTabela2 = "TMP_IMPRIMIR"


SET PRINTER TO

??? CHR(18)
??? CHR(27) + CHR(50)

*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + DTOC(&cTabela..DATA) + REPLICATE(" ",22) + TIME() + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')))) / 2))+AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + AllTrim("Fone: " + AllTrim(TSL.FONE)) + " - " + "Cel:"+ CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim("< CUPOM SEM VALOR FISCAL >"))) / 2))+AllTrim("< CUPOM SEM VALOR FISCAL >") + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + REPLICATE(" ",cVal1) +  CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,27)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "End.: " + ALLTRIM(&cTabela..CLIEND) + IIF( ! EMPTY(ALLTRIM(&cTabela..NUMERO)),", " + &cTabela..NUMERO,' ') +CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Vend: " + PADL(ALLTRIM(STR(&cTabela..CODVEN,4)),4,"0") + " " + SUBSTR(&cTabela..NOME,1,24) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Comp: " + &cTabela..COMPRADO + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + "Pgto: " + ALLTRIM(&cTabela..DESCRICAO)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "TP ORC: " + PADR(SUBSTR(ALLTRIM(cTipoOrc),1,16),16,' ') + "DT ENT: " + DTOC(&cTabela..ENTREGA) + " PER.: " + ALLTRIM(&cTabela..PERIODO)  + CHR(10) + CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "CODIGO        DESCRICAO" + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "    Qtde  X      Unit.R$ Desc  Valor R$  " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
SELECT &cTabela2
GO TOP
DO WHILE ! EOF(cTabela2)
   
   ??? REPLICATE(" ",cQEsp) + PADL(ALLTRIM(STR(val(&cTabela2..CODBAR),13)),13,"0") + " " + SUBSTR(&cTabela2..DESCRICAO,1,26) + CHR(10)+CHR(13)
   IF ! EMPTY(ALLTRIM(SUBSTR(&cTabela2..DESCRICAO,27,40)))
      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCRICAO,27,40) + CHR(10)+CHR(13)
   ENDIF
   IF &cTabela2..DESCONTO = 0
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + "     " + " " + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ELSE
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + TRANSFORM(&cTabela2..DESCONTO,"99.99") + "%" + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ENDIF
   
   SKIP IN &cTabela2
   LOOP
   
ENDDO

??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Sub Total..: " + TRANSFORM(&cTabela..BRUTO,"9,999,999.99") + CHR(10)+CHR(13)
IF &cTabela..DESCONTO > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Desconto...: " + TRANSFORM(&cTabela..DESCONTO,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
IF &cTabela..ACRESCIM > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Acrescimo..: " + TRANSFORM(&cTabela..ACRESCIM,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Total Geral: " + TRANSFORM(&cTabela..LIQUIDO,"9,999,999.99") + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS01)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS01)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS02)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS02)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS03)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS03)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40)+CHR(13)+CHR(10)
*WAIT WINDOW parametro.recorc
*WAIT WINDOW cImpRec

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

ENDDO

IF ! EMPTY(ALLTRIM(TSLV020_1.OBS))
   ??? "OBS: "+ SUBSTR(ALLTRIM(TSLV020_1.OBS),1,40)  + CHR(10)+CHR(13)
   IF ! EMPTY(SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40))
      ??? SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40)  + CHR(10)+CHR(13)
   ENDIF
   IF ! EMPTY(ALLTRIM(TSLV020_1.OBS2))
      ??? "     "+ SUBSTR(TSLV020_1.OBS2,1,40) + CHR(10)+CHR(13)
   ENDIF
ENDIF
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + "________________________________      RG:                  " + CHR(10) + CHR(13)
??? " " + "           Assinatura           " + CHR(10) + CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)

SET PRINTER TO


ENDIF

SELECT TMP_ENCOMENDA
IF RECCOUNT() > 0
SELECT TMP_ENCOMENDA
GO TOP IN TMP_ENCOMENDA

SET PRINTER TO NAME "CAIXA"

cTipoOrc = "ENCOMENDA "

Select * From TMP_ENCOMENDA INTO CURSOR TMP_IMPRIMIR

cTabela  = "TSLV020_1"
cTabela2 = "TMP_IMPRIMIR"

SET PRINTER TO

??? CHR(18)
??? CHR(27) + CHR(50)

*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + DTOC(&cTabela..DATA) + REPLICATE(" ",22) + TIME() + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')))) / 2))+AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + AllTrim("Fone: " + AllTrim(TSL.FONE)) + " - " + "Cel:"+ CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim("< CUPOM SEM VALOR FISCAL >"))) / 2))+AllTrim("< CUPOM SEM VALOR FISCAL >") + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + REPLICATE(" ",cVal1) +  CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,27)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "End.: " + ALLTRIM(&cTabela..CLIEND) + IIF( ! EMPTY(ALLTRIM(&cTabela..NUMERO)),", " + &cTabela..NUMERO,' ') +CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Vend: " + PADL(ALLTRIM(STR(&cTabela..CODVEN,4)),4,"0") + " " + SUBSTR(&cTabela..NOME,1,24) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Comp: " + &cTabela..COMPRADO + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + "Pgto: " + ALLTRIM(&cTabela..DESCRICAO)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "TP ORC: " + PADR(SUBSTR(ALLTRIM(cTipoOrc),1,16),16,' ') + "DT ENT: " + DTOC(&cTabela..ENTREGA) + " PER.: " + ALLTRIM(&cTabela..PERIODO)  + CHR(10) + CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "CODIGO        DESCRICAO" + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "    Qtde  X      Unit.R$ Desc  Valor R$  " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
SELECT &cTabela2
GO TOP
DO WHILE ! EOF(cTabela2)
   
   ??? REPLICATE(" ",cQEsp) + PADL(ALLTRIM(STR(val(&cTabela2..CODBAR),13)),13,"0") + " " + SUBSTR(&cTabela2..DESCRICAO,1,26) + CHR(10)+CHR(13)
   IF ! EMPTY(ALLTRIM(SUBSTR(&cTabela2..DESCRICAO,27,40)))
      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCRICAO,27,40) + CHR(10)+CHR(13)
   ENDIF
   IF &cTabela2..DESCONTO = 0
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + "     " + " " + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ELSE
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + TRANSFORM(&cTabela2..DESCONTO,"99.99") + "%" + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ENDIF
   
   SKIP IN &cTabela2
   LOOP
   
ENDDO

??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Sub Total..: " + TRANSFORM(&cTabela..BRUTO,"9,999,999.99") + CHR(10)+CHR(13)
IF &cTabela..DESCONTO > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Desconto...: " + TRANSFORM(&cTabela..DESCONTO,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
IF &cTabela..ACRESCIM > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Acrescimo..: " + TRANSFORM(&cTabela..ACRESCIM,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Total Geral: " + TRANSFORM(&cTabela..LIQUIDO,"9,999,999.99") + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS01)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS01)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS02)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS02)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS03)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS03)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40)+CHR(13)+CHR(10)
*WAIT WINDOW parametro.recorc
*WAIT WINDOW cImpRec

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

ENDDO

IF ! EMPTY(ALLTRIM(TSLV020_1.OBS))
   ??? "OBS: "+ SUBSTR(ALLTRIM(TSLV020_1.OBS),1,40)  + CHR(10)+CHR(13)
   IF ! EMPTY(SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40))
      ??? SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40)  + CHR(10)+CHR(13)
   ENDIF
   IF ! EMPTY(ALLTRIM(TSLV020_1.OBS2))
      ??? "     "+ SUBSTR(TSLV020_1.OBS2,1,40) + CHR(10)+CHR(13)
   ENDIF
ENDIF
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + "________________________________      RG:                  " + CHR(10) + CHR(13)
??? " " + "           Assinatura           " + CHR(10) + CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)

SET PRINTER TO

ENDIF

SELECT TMP_ENTREGATJ
IF RECCOUNT() > 0
SELECT TMP_ENTREGATJ
GO TOP IN TMP_ENTREGATJ

SET PRINTER TO NAME "CAIXA"

cTipoOrc = "ENTREGA TJ"

Select * From TMP_ENTREGATJ INTO CURSOR TMP_IMPRIMIR

cTabela  = "TSLV020_1"
cTabela2 = "TMP_IMPRIMIR"


SET PRINTER TO

??? CHR(18)
??? CHR(27) + CHR(50)

*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + DTOC(&cTabela..DATA) + REPLICATE(" ",22) + TIME() + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')))) / 2))+AllTrim(AllTrim('BARRACAO MATERIAIS PARA CONSTRUCAO')) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + AllTrim("Fone: " + AllTrim(TSL.FONE)) + " - " + "Cel:"+ CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim("< CUPOM SEM VALOR FISCAL >"))) / 2))+AllTrim("< CUPOM SEM VALOR FISCAL >") + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + REPLICATE(" ",cVal1) +  CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,27)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "End.: " + ALLTRIM(&cTabela..CLIEND) + IIF( ! EMPTY(ALLTRIM(&cTabela..NUMERO)),", " + &cTabela..NUMERO,' ') +CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Vend: " + PADL(ALLTRIM(STR(&cTabela..CODVEN,4)),4,"0") + " " + SUBSTR(&cTabela..NOME,1,24) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Comp: " + &cTabela..COMPRADO + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + "Pgto: " + ALLTRIM(&cTabela..DESCRICAO)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "TP ORC: " + PADR(SUBSTR(ALLTRIM(cTipoOrc),1,16),16,' ') + "DT ENT: " + DTOC(&cTabela..ENTREGA) + " PER.: " + ALLTRIM(&cTabela..PERIODO)  + CHR(10) + CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "CODIGO        DESCRICAO" + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "    Qtde  X      Unit.R$ Desc  Valor R$  " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
SELECT &cTabela2
GO TOP
DO WHILE ! EOF(cTabela2)
   
   ??? REPLICATE(" ",cQEsp) + PADL(ALLTRIM(STR(val(&cTabela2..CODBAR),13)),13,"0") + " " + SUBSTR(&cTabela2..DESCRICAO,1,26) + CHR(10)+CHR(13)
   IF ! EMPTY(ALLTRIM(SUBSTR(&cTabela2..DESCRICAO,27,40)))
      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCRICAO,27,40) + CHR(10)+CHR(13)
   ENDIF
   IF &cTabela2..DESCONTO = 0
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + "     " + " " + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ELSE
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + TRANSFORM(&cTabela2..DESCONTO,"99.99") + "%" + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ENDIF
   
   SKIP IN &cTabela2
   LOOP
   
ENDDO

??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Sub Total..: " + TRANSFORM(&cTabela..BRUTO,"9,999,999.99") + CHR(10)+CHR(13)
IF &cTabela..DESCONTO > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Desconto...: " + TRANSFORM(&cTabela..DESCONTO,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
IF &cTabela..ACRESCIM > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Acrescimo..: " + TRANSFORM(&cTabela..ACRESCIM,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Total Geral: " + TRANSFORM(&cTabela..LIQUIDO,"9,999,999.99") + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS01)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS01)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS02)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS02)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS03)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS03)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("=",40)+CHR(13)+CHR(10)
*WAIT WINDOW parametro.recorc
*WAIT WINDOW cImpRec

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

ENDDO

IF ! EMPTY(ALLTRIM(TSLV020_1.OBS))
   ??? "OBS: "+ SUBSTR(ALLTRIM(TSLV020_1.OBS),1,40)  + CHR(10)+CHR(13)
   IF ! EMPTY(SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40))
      ??? SUBSTR(ALLTRIM(TSLV020_1.OBS),41,40)  + CHR(10)+CHR(13)
   ENDIF
   IF ! EMPTY(ALLTRIM(TSLV020_1.OBS2))
      ??? "     "+ SUBSTR(TSLV020_1.OBS2,1,40) + CHR(10)+CHR(13)
   ENDIF
ENDIF
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + "________________________________      RG:                  " + CHR(10) + CHR(13)
??? " " + "           Assinatura           " + CHR(10) + CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)
*??? " " + CHR(10)+CHR(13)

SET PRINTER TO

ENDIF

ENDIF