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,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")

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 TMP_RETIRARLOJA
IF RECCOUNT() > 0
SELECT TMP_RETIRARLOJA
GO TOP in TMP_RETIRARLOJA

CABECA = " " + space(int((70 - len(AllTrim(TSL.NOME))) / 2)) + alltrim(TSL.NOME)+space(int((70 - len(AllTrim(TSL.NOME))) / 2))+dToc(TSLV020.DATA) + chr(13)
CABECA = CABECA + space(int((72 - len(AllTrim(TSL.ENDERECO))) / 2)) + alltrim(TSL.ENDERECO)+space(int((72 - len(AllTrim(TSL.ENDERECO))) / 2)) + TIME()+chr(13)
CABECA = CABECA + space(int((80 - len(Alltrim(TSL.FONE))) / 2)) + AllTrim(TSL.FONE)+chr(13)
CABECA = CABECA + "ORC. N.: " + PADL(ALLTRIM(STR(TSLV020.SEQ,6)),6,"0") + Replicate(" ",12) + "< CUPOM SEM VALOR FISCAL >" + REPLICATE(" ",cVal1) + ALLTRIM("ORCAMENTO")+CHR(13)
CABECA = CABECA + Replicate("-",80)+chr(13)
IF TSLV020.PESSOA = "FSICA"
   cCpfCgc = "CPF......: " + TSLV020.CLICPF
   cRgIe   = "RG: " + TSLV020.CLIRG
ELSE
   cCpfCgc = "CNPJ.....: " + TSLV020.CLICGC
   cRgIe   = "IE: " + TSLV020.CLIINS
ENDIF
CABECA = CABECA + "Nome.....: " + PADL(ALLTRIM(STR(TSLV020.CODCLI,6)),6,"0") + " - " + TSLV020.CLINOM + CHR(13)
CABECA = CABECA + cCpfCgc + " " + cRgIe + CHR(13)
CABECA = CABECA + "Endereco.: " + AllTrim(TSLV020.CLIEND) + " " + " Tel.: " + TSLV020.CLITEL + CHR(13)
CABECA = CABECA + "Bairro...: " + ALLTRIM(TSLV020.CLIBAI) + "  Cidade.: " + ALLTRIM(TSLV020.CLICID) + " CEP: " + ALLTRIM(TSLV020.CLICEP) + CHR(13)
CABECA = CABECA + "Vendedor.: " + PADL(ALLTRIM(STR(TSLV020.CODVEN,5)),5,"0") + " - " + ALLTRIM(TSLV020.NOME) + "  Comprador.: " + ALLTRIM(TSLV020.COMPRADO) + CHR(13)
CABECA = CABECA + Replicate("-",80)+chr(13)
*CABECA = CABECA + "Data de Entrega: " + DTOC(TSLV020.ENTREGA) + " Perodo: "+ ALLTRIM(TSLV020.PERIODO) + chr(13)
CABECA = CABECA + "TIPO: RETIRAR NA LOJA "+chr(13)
cImprimir = CABECA + "Cod.  Descricao                        UN   ST         Qtde    Unit.R$  Valor R$"+chr(13)
cImprimir = cImprimir + Replicate("-",80)+chr(13)
Select TMP_RETIRARLOJA
Go Top IN TMP_RETIRARLOJA
nLinha = 9
*cTotal = 0

Do While ! Eof("TMP_RETIRARLOJA")
   
*      If nLinha > 36
*         ??? Replicate("-",80)+chr(13)+chr(10)
*         ??? chr(12)
*         ??? cabeca + CHR(13)+CHR(10)
*         nLinha = 9
*      Endif
   
      nLinha = nLinha + 1
   
      SET DECIMALS TO 3
      cImprimir = cImprimir + Substr(TMP_RETIRARLOJA.CODBAR,12,5) + " " + Substr(TMP_RETIRARLOJA.DESCRICAO,1,31) + "  " +;
      TMP_RETIRARLOJA.UNIDADE + "  " + TMP_RETIRARLOJA.ST + "  " + TRANSFORM(TMP_RETIRARLOJA.QUANT,"999,999.99") + " "+;
      TRANSFORM(TMP_RETIRARLOJA.UNIT,"99,999.999") + " " + TRANSFORM(TMP_RETIRARLOJA.TOTAL,"99,999.99")+CHR(13)
      
      *cTotal = cTotal + TMP_RETIRARLOJA.TOTAL
      
      Skip In TMP_RETIRARLOJA
   Loop
Enddo

SELECT SUM(QUANT) AS QUANT FROM TMP_RETIRARLOJA INTO CURSOR TMP_QUANT

cImprimir = cImprimir + Replicate("-",80)+chr(13)
cImprimir = cImprimir + Replicate(" ",49) + TRANSFORM(TMP_QUANT.QUANT,"999,999.99") + " Total R$: " + TRANSFORM(cTotal,"999,999.99")+chr(13)
IF cDesconto > 0
   cImprimir = cImprimir + Replicate(" ",60) + "Desconto: " + TRANSFORM(cDesconto,"999,999.99")+chr(13)
   cImprimir = cImprimir + Replicate(" ",60) + "Total R$: " + TRANSFORM((cTotal - cDesconto),"999,999.99")+chr(13)
ENDIF
cImprimir = cImprimir + Replicate("-",80)+chr(13)

cImprimir = cImprimir + "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")
   cImprimir = cImprimir + DTOC(TMP_VENCTOS.RECVENCI) + " " + TRANSFORM(TMP_VENCTOS.RECVALOR,"9,999,999.99") + CHR(13)
   
   SKIP IN TMP_VENCTOS
   LOOP

ENDDO

cImprimir = cImprimir + Replicate("-",80)+chr(13)
cImprimir = cImprimir + space(int((80 - len(AllTrim(AllTrim(TSL.OMENS01) + " - " + AllTrim(TSL.OMENS02)))) / 2))+AllTrim(AllTrim(TSL.OMENS01) + " - " + AllTrim(TSL.OMENS02))+chr(13)
*cImprimir = cImprimir + space(int((80 - len(AllTrim(AllTrim(TSL.OMENS03)))) / 2))+AllTrim(AllTrim(TSL.OMENS03))+chr(13)
cImprimir = cImprimir + "Obs: " + ALLTRIM(TSLV020.OBS) + CHR(13)
cImprimir = cImprimir+ ALLTRIM(TSLV020.OBS2) + CHR(13)
cImprimir = cImprimir + " " + CHR(13)
cImprimir = cImprimir + " " + chr(13)
cImprimir = cIMprimir + replicate("- ",40)
cImprimir = cImprimir + " " + chr(13)
cImprimir = cImprimir + " " + chr(13)
cImprimir = cImprimir + "  /    /       Ass.............................   RG........................"+chr(13)
cImprimir = cIMprimir + "Cliente: " + PADL(ALLTRIM(STR(TSLV020.CODCLI,6)),6,"0") + " - " + TSLV020.CLINOM + "   Orc.  N.: " + PADL(ALLTRIM(STR(TSLV020.SEQ,6)),6,"0") + chr(13)

*IF nPagina < 2
   cImprimir = cImprimir + REPLICATE("- ",40) + CHR(13)+CHR(10)
*ENDIF

nPagina = nPagina + 1
*LOOP
*ENDDO

CREATE CURSOR TMP_IMPRIMIR (CODIGO M(04))
SELECT TMP_IMPRIMIR
INSERT INTO TMP_IMPRIMIR (CODIGO) VALUES (cImprimir)
*SELECT TSLV021
*IF RECCOUNT() > 8
   cReim = 1
*ELSE
*   cReim = 0
*   INSERT INTO TMP_IMPRIMIR (CODIGO) VALUES (cImprimir)
*ENDIF

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

SET PRINTER TO NAME "CAIXA"
REPORT FORM &cReport TO PRINTER NOCONSOLE

ENDIF



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

SET PRINTER TO NAME 'EXPEDICAO'

CABECA = " " + space(int((70 - len(AllTrim(TSL.NOME))) / 2)) + alltrim(TSL.NOME)+space(int((70 - len(AllTrim(TSL.NOME))) / 2))+dToc(TSLV020.DATA) + chr(13)
CABECA = CABECA + space(int((72 - len(AllTrim(TSL.ENDERECO))) / 2)) + alltrim(TSL.ENDERECO)+space(int((72 - len(AllTrim(TSL.ENDERECO))) / 2)) + TIME()+chr(13)
CABECA = CABECA + space(int((80 - len(Alltrim(TSL.FONE))) / 2)) + AllTrim(TSL.FONE)+chr(13)
CABECA = CABECA + "ORC. N.: " + PADL(ALLTRIM(STR(TSLV020.SEQ,6)),6,"0") + Replicate(" ",12) + "< CUPOM SEM VALOR FISCAL >" + REPLICATE(" ",cVal1) + ALLTRIM("ORCAMENTO")+CHR(13)
CABECA = CABECA + Replicate("-",80)+chr(13)
IF TSLV020.PESSOA = "FSICA"
   cCpfCgc = "CPF......: " + TSLV020.CLICPF
   cRgIe   = "RG: " + TSLV020.CLIRG
ELSE
   cCpfCgc = "CNPJ.....: " + TSLV020.CLICGC
   cRgIe   = "IE: " + TSLV020.CLIINS
ENDIF
CABECA = CABECA + "Nome.....: " + PADL(ALLTRIM(STR(TSLV020.CODCLI,6)),6,"0") + " - " + TSLV020.CLINOM + CHR(13)
CABECA = CABECA + cCpfCgc + " " + cRgIe + CHR(13)
CABECA = CABECA + "Endereco.: " + AllTrim(TSLV020.CLIEND) + " " + " Tel.: " + TSLV020.CLITEL + CHR(13)
CABECA = CABECA + "Bairro...: " + ALLTRIM(TSLV020.CLIBAI) + "  Cidade.: " + ALLTRIM(TSLV020.CLICID) + " CEP: " + ALLTRIM(TSLV020.CLICEP) + CHR(13)
CABECA = CABECA + "Vendedor.: " + PADL(ALLTRIM(STR(TSLV020.CODVEN,5)),5,"0") + " - " + ALLTRIM(TSLV020.NOME) + "  Comprador.: " + ALLTRIM(TSLV020.COMPRADO) + CHR(13)
CABECA = CABECA + Replicate("-",80)+chr(13)
*CABECA = CABECA + "Data de Entrega: " + DTOC(TSLV020.ENTREGA) + " Perodo: "+ ALLTRIM(TSLV020.PERIODO) + chr(13)
CABECA = CABECA + "TIPO: RETIRA DEPOSITO "+chr(13)
cImprimir = CABECA + "Cod.  Descricao                        UN   ST         Qtde    Unit.R$  Valor R$"+chr(13)
cImprimir = cImprimir + Replicate("-",80)+chr(13)
Select TMP_RETIRADEPOSITO
Go Top IN TMP_RETIRADEPOSITO
nLinha = 9
*cTotal = 0

Do While ! Eof("TMP_RETIRADEPOSITO")
   
*      If nLinha > 36
*         ??? Replicate("-",80)+chr(13)+chr(10)
*         ??? chr(12)
*         ??? cabeca + CHR(13)+CHR(10)
*         nLinha = 9
*      Endif
   
      nLinha = nLinha + 1
   
      SET DECIMALS TO 3
      cImprimir = cImprimir + Substr(TMP_RETIRADEPOSITO.CODBAR,12,5) + " " + Substr(TMP_RETIRADEPOSITO.DESCRICAO,1,31) + "  " +;
      TMP_RETIRADEPOSITO.UNIDADE + "  " + TMP_RETIRADEPOSITO.ST + "  " + TRANSFORM(TMP_RETIRADEPOSITO.QUANT,"999,999.99") + " "+;
      TRANSFORM(TMP_RETIRADEPOSITO.UNIT,"99,999.999") + " " + TRANSFORM(TMP_RETIRADEPOSITO.TOTAL,"99,999.99")+CHR(13)
      
      *cTotal = cTotal + TMP_RETIRADEPOSITO.TOTAL
      
      Skip In TMP_RETIRADEPOSITO
   Loop
Enddo

SELECT SUM(QUANT) AS QUANT FROM TMP_RETIRADEPOSITO INTO CURSOR TMP_QUANT

cImprimir = cImprimir + Replicate("-",80)+chr(13)
cImprimir = cImprimir + Replicate(" ",49) + TRANSFORM(TMP_QUANT.QUANT,"999,999.99") + " Total R$: " + TRANSFORM(cTotal,"999,999.99")+chr(13)
IF TSLV020.DESCONTO > 0
   cImprimir = cImprimir + Replicate(" ",60) + "Desconto: " + TRANSFORM(cDesconto,"999,999.99")+chr(13)
   cImprimir = cImprimir + Replicate(" ",60) + "Total R$: " + TRANSFORM((cTotal - cDesconto),"999,999.99")+chr(13)
ENDIF
cImprimir = cImprimir + Replicate("-",80)+chr(13)

cImprimir = cImprimir + "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")
   cImprimir = cImprimir + DTOC(TMP_VENCTOS.RECVENCI) + " " + TRANSFORM(TMP_VENCTOS.RECVALOR,"9,999,999.99") + CHR(13)
   
   SKIP IN TMP_VENCTOS
   LOOP

ENDDO

cImprimir = cImprimir + Replicate("-",80)+chr(13)
cImprimir = cImprimir + space(int((80 - len(AllTrim(AllTrim(TSL.OMENS01) + " - " + AllTrim(TSL.OMENS02)))) / 2))+AllTrim(AllTrim(TSL.OMENS01) + " - " + AllTrim(TSL.OMENS02))+chr(13)
*cImprimir = cImprimir + space(int((80 - len(AllTrim(AllTrim(TSL.OMENS03)))) / 2))+AllTrim(AllTrim(TSL.OMENS03))+chr(13)
cImprimir = cImprimir + "Obs: " + ALLTRIM(TSLV020.OBS) + CHR(13)
cImprimir = cImprimir+ ALLTRIM(TSLV020.OBS2) + CHR(13)
cImprimir = cImprimir + " " + CHR(13)
cImprimir = cImprimir + " " + chr(13)
cImprimir = cIMprimir + replicate("- ",40)
cImprimir = cImprimir + " " + chr(13)
cImprimir = cImprimir + " " + chr(13)
cImprimir = cImprimir + "  /    /       Ass.............................   RG........................"+chr(13)
cImprimir = cIMprimir + "Cliente: " + PADL(ALLTRIM(STR(TSLV020.CODCLI,6)),6,"0") + " - " + TSLV020.CLINOM + "   Orc.  N.: " + PADL(ALLTRIM(STR(TSLV020.SEQ,6)),6,"0") + chr(13)

*IF nPagina < 2
   cImprimir = cImprimir + REPLICATE("- ",40) + CHR(13)+CHR(10)
*ENDIF

nPagina = nPagina + 1
*LOOP
*ENDDO

CREATE CURSOR TMP_IMPRIMIR (CODIGO M(04))
SELECT TMP_IMPRIMIR
INSERT INTO TMP_IMPRIMIR (CODIGO) VALUES (cImprimir)
*SELECT TSLV021
*IF RECCOUNT() > 8
   cReim = 1
*ELSE
*   cReim = 0
*   INSERT INTO TMP_IMPRIMIR (CODIGO) VALUES (cImprimir)
*ENDIF

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

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

SET PRINTER TO NAME "EXPEDICAO"

REPORT FORM &cReport TO PRINTER NOCONSOLE


ENDIF

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

SET PRINTER TO NAME 'EXPEDICAO'

CABECA = " " + space(int((70 - len(AllTrim(TSL.NOME))) / 2)) + alltrim(TSL.NOME)+space(int((70 - len(AllTrim(TSL.NOME))) / 2))+dToc(TSLV020.DATA) + chr(13)
CABECA = CABECA + space(int((72 - len(AllTrim(TSL.ENDERECO))) / 2)) + alltrim(TSL.ENDERECO)+space(int((72 - len(AllTrim(TSL.ENDERECO))) / 2)) + TIME()+chr(13)
CABECA = CABECA + space(int((80 - len(Alltrim(TSL.FONE))) / 2)) + AllTrim(TSL.FONE)+chr(13)
CABECA = CABECA + "ORC. N.: " + PADL(ALLTRIM(STR(TSLV020.SEQ,6)),6,"0") + Replicate(" ",12) + "< CUPOM SEM VALOR FISCAL >" + REPLICATE(" ",cVal1) + ALLTRIM("ORCAMENTO")+CHR(13)
CABECA = CABECA + Replicate("-",80)+chr(13)
IF TSLV020.PESSOA = "FSICA"
   cCpfCgc = "CPF......: " + TSLV020.CLICPF
   cRgIe   = "RG: " + TSLV020.CLIRG
ELSE
   cCpfCgc = "CNPJ.....: " + TSLV020.CLICGC
   cRgIe   = "IE: " + TSLV020.CLIINS
ENDIF
CABECA = CABECA + "Nome.....: " + PADL(ALLTRIM(STR(TSLV020.CODCLI,6)),6,"0") + " - " + TSLV020.CLINOM + CHR(13)
CABECA = CABECA + cCpfCgc + " " + cRgIe + CHR(13)
CABECA = CABECA + "Endereco.: " + AllTrim(TSLV020.CLIEND) + " " + " Tel.: " + TSLV020.CLITEL + CHR(13)
CABECA = CABECA + "Bairro...: " + ALLTRIM(TSLV020.CLIBAI) + "  Cidade.: " + ALLTRIM(TSLV020.CLICID) + " CEP: " + ALLTRIM(TSLV020.CLICEP) + CHR(13)
CABECA = CABECA + "Vendedor.: " + PADL(ALLTRIM(STR(TSLV020.CODVEN,5)),5,"0") + " - " + ALLTRIM(TSLV020.NOME) + "  Comprador.: " + ALLTRIM(TSLV020.COMPRADO) + CHR(13)
CABECA = CABECA + Replicate("-",80)+chr(13)
CABECA = CABECA + "Data de Entrega: " + DTOC(TSLV020.ENTREGA) + " Perodo: "+ ALLTRIM(TSLV020.PERIODO) + chr(13)
CABECA = CABECA + "TIPO: ENTREGA "+chr(13)
cImprimir = CABECA + "Cod.  Descricao                        UN   ST         Qtde    Unit.R$  Valor R$"+chr(13)
cImprimir = cImprimir + Replicate("-",80)+chr(13)
Select TMP_ENTREGA
Go Top IN TMP_ENTREGA
nLinha = 9
*cTotal = 0

Do While ! Eof("TMP_ENTREGA")
   
*      If nLinha > 36
*         ??? Replicate("-",80)+chr(13)+chr(10)
*         ??? chr(12)
*         ??? cabeca + CHR(13)+CHR(10)
*         nLinha = 9
*      Endif
   
      nLinha = nLinha + 1
   
      SET DECIMALS TO 3
      cImprimir = cImprimir + Substr(TMP_ENTREGA.CODBAR,12,5) + " " + Substr(TMP_ENTREGA.DESCRICAO,1,31) + "  " +;
      TMP_ENTREGA.UNIDADE + "  " + TMP_ENTREGA.ST + "  " + TRANSFORM(TMP_ENTREGA.QUANT,"999,999.99") + " "+;
      TRANSFORM(TMP_ENTREGA.UNIT,"99,999.999") + " " + TRANSFORM(TMP_ENTREGA.TOTAL,"99,999.99")+CHR(13)
      
      *cTotal = cTotal + TMP_ENTREGA.TOTAL
      
      Skip In TMP_ENTREGA
   Loop
Enddo

SELECT SUM(QUANT) AS QUANT FROM TMP_ENTREGA INTO CURSOR TMP_QUANT

cImprimir = cImprimir + Replicate("-",80)+chr(13)
cImprimir = cImprimir + Replicate(" ",49) + TRANSFORM(TMP_QUANT.QUANT,"999,999.99") + " Total R$: " + TRANSFORM(cTotal,"999,999.99")+chr(13)
IF TSLV020.DESCONTO > 0
   cImprimir = cImprimir + Replicate(" ",60) + "Desconto: " + TRANSFORM(cDesconto,"999,999.99")+chr(13)
   cImprimir = cImprimir + Replicate(" ",60) + "Total R$: " + TRANSFORM((cTotal - cDesconto),"999,999.99")+chr(13)
ENDIF
cImprimir = cImprimir + Replicate("-",80)+chr(13)

cImprimir = cImprimir + "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")
   cImprimir = cImprimir + DTOC(TMP_VENCTOS.RECVENCI) + " " + TRANSFORM(TMP_VENCTOS.RECVALOR,"9,999,999.99") + CHR(13)
   
   SKIP IN TMP_VENCTOS
   LOOP

ENDDO

cImprimir = cImprimir + Replicate("-",80)+chr(13)
cImprimir = cImprimir + space(int((80 - len(AllTrim(AllTrim(TSL.OMENS01) + " - " + AllTrim(TSL.OMENS02)))) / 2))+AllTrim(AllTrim(TSL.OMENS01) + " - " + AllTrim(TSL.OMENS02))+chr(13)
*cImprimir = cImprimir + space(int((80 - len(AllTrim(AllTrim(TSL.OMENS03)))) / 2))+AllTrim(AllTrim(TSL.OMENS03))+chr(13)
cImprimir = cImprimir + "Obs: " + ALLTRIM(TSLV020.OBS) + CHR(13)
cImprimir = cImprimir+ ALLTRIM(TSLV020.OBS2) + CHR(13)
cImprimir = cImprimir + " " + CHR(13)
cImprimir = cImprimir + " " + chr(13)
cImprimir = cIMprimir + replicate("- ",40)
cImprimir = cImprimir + " " + chr(13)
cImprimir = cImprimir + " " + chr(13)
cImprimir = cImprimir + "  /    /       Ass.............................   RG........................"+chr(13)
cImprimir = cIMprimir + "Cliente: " + PADL(ALLTRIM(STR(TSLV020.CODCLI,6)),6,"0") + " - " + TSLV020.CLINOM + "   Orc.  N.: " + PADL(ALLTRIM(STR(TSLV020.SEQ,6)),6,"0") + chr(13)

*IF nPagina < 2
   cImprimir = cImprimir + REPLICATE("- ",40) + CHR(13)+CHR(10)
*ENDIF

nPagina = nPagina + 1
*LOOP
*ENDDO

CREATE CURSOR TMP_IMPRIMIR (CODIGO M(04))
SELECT TMP_IMPRIMIR
INSERT INTO TMP_IMPRIMIR (CODIGO) VALUES (cImprimir)
*SELECT TSLV021
*IF RECCOUNT() > 8
   cReim = 1
*ELSE
*   cReim = 0
*   INSERT INTO TMP_IMPRIMIR (CODIGO) VALUES (cImprimir)
*ENDIF

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

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

*cTeste = FULLPATH(CURDIR()) + "IMPRESS\ReportFormPrompt"

SET PRINTER TO NAME "EXPEDICAO"

REPORT FORM &cReport TO PRINTER NOCONSOLE

ENDIF


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

SET PRINTER TO NAME 'VENDEDOR'

CABECA = " " + space(int((70 - len(AllTrim(TSL.NOME))) / 2)) + alltrim(TSL.NOME)+space(int((70 - len(AllTrim(TSL.NOME))) / 2))+dToc(TSLV020.DATA) + chr(13)
CABECA = CABECA + space(int((72 - len(AllTrim(TSL.ENDERECO))) / 2)) + alltrim(TSL.ENDERECO)+space(int((72 - len(AllTrim(TSL.ENDERECO))) / 2)) + TIME()+chr(13)
CABECA = CABECA + space(int((80 - len(Alltrim(TSL.FONE))) / 2)) + AllTrim(TSL.FONE)+chr(13)
CABECA = CABECA + "ORC. N.: " + PADL(ALLTRIM(STR(TSLV020.SEQ,6)),6,"0") + Replicate(" ",12) + "< CUPOM SEM VALOR FISCAL >" + REPLICATE(" ",cVal1) + ALLTRIM("ORCAMENTO")+CHR(13)
CABECA = CABECA + Replicate("-",80)+chr(13)
IF TSLV020.PESSOA = "FSICA"
   cCpfCgc = "CPF......: " + TSLV020.CLICPF
   cRgIe   = "RG: " + TSLV020.CLIRG
ELSE
   cCpfCgc = "CNPJ.....: " + TSLV020.CLICGC
   cRgIe   = "IE: " + TSLV020.CLIINS
ENDIF
CABECA = CABECA + "Nome.....: " + PADL(ALLTRIM(STR(TSLV020.CODCLI,6)),6,"0") + " - " + TSLV020.CLINOM + CHR(13)
CABECA = CABECA + cCpfCgc + " " + cRgIe + CHR(13)
CABECA = CABECA + "Endereco.: " + AllTrim(TSLV020.CLIEND) + " " + " Tel.: " + TSLV020.CLITEL + CHR(13)
CABECA = CABECA + "Bairro...: " + ALLTRIM(TSLV020.CLIBAI) + "  Cidade.: " + ALLTRIM(TSLV020.CLICID) + " CEP: " + ALLTRIM(TSLV020.CLICEP) + CHR(13)
CABECA = CABECA + "Vendedor.: " + PADL(ALLTRIM(STR(TSLV020.CODVEN,5)),5,"0") + " - " + ALLTRIM(TSLV020.NOME) + "  Comprador.: " + ALLTRIM(TSLV020.COMPRADO) + CHR(13)
CABECA = CABECA + Replicate("-",80)+chr(13)
CABECA = CABECA + "Data de Entrega: " + DTOC(TSLV020.ENTREGA) + " Perodo: "+ ALLTRIM(TSLV020.PERIODO) + chr(13)
CABECA = CABECA + "TIPO: ENTREGA FUTURA "+chr(13)
cImprimir = CABECA + "Cod.  Descricao                        UN   ST         Qtde    Unit.R$  Valor R$"+chr(13)
cImprimir = cImprimir + Replicate("-",80)+chr(13)
Select TMP_ENTREGAFUTURA
Go Top IN TMP_ENTREGAFUTURA
nLinha = 9
*cTotal = 0

Do While ! Eof("TMP_ENTREGAFUTURA")
   
*      If nLinha > 36
*         ??? Replicate("-",80)+chr(13)+chr(10)
*         ??? chr(12)
*         ??? cabeca + CHR(13)+CHR(10)
*         nLinha = 9
*      Endif
   
      nLinha = nLinha + 1
   
      SET DECIMALS TO 3
      cImprimir = cImprimir + Substr(TMP_ENTREGAFUTURA.CODBAR,12,5) + " " + Substr(TMP_ENTREGAFUTURA.DESCRICAO,1,31) + "  " +;
      TMP_ENTREGAFUTURA.UNIDADE + "  " + TMP_ENTREGAFUTURA.ST + "  " + TRANSFORM(TMP_ENTREGAFUTURA.QUANT,"999,999.99") + " "+;
      TRANSFORM(TMP_ENTREGAFUTURA.UNIT,"99,999.999") + " " + TRANSFORM(TMP_ENTREGAFUTURA.TOTAL,"99,999.99")+CHR(13)
      
      *cTotal = cTotal + TMP_ENTREGAFUTURA.TOTAL
      
      Skip In TMP_ENTREGAFUTURA
   Loop
Enddo

SELECT SUM(QUANT) AS QUANT FROM TMP_ENTREGAFUTURA INTO CURSOR TMP_QUANT

cImprimir = cImprimir + Replicate("-",80)+chr(13)
cImprimir = cImprimir + Replicate(" ",49) + TRANSFORM(TMP_QUANT.QUANT,"999,999.99") + " Total R$: " + TRANSFORM(cTotal,"999,999.99")+chr(13)
IF TSLV020.DESCONTO > 0
   cImprimir = cImprimir + Replicate(" ",60) + "Desconto: " + TRANSFORM(cDesconto,"999,999.99")+chr(13)
   cImprimir = cImprimir + Replicate(" ",60) + "Total R$: " + TRANSFORM((cTotal - cDesconto),"999,999.99")+chr(13)
ENDIF
cImprimir = cImprimir + Replicate("-",80)+chr(13)

cImprimir = cImprimir + "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")
   cImprimir = cImprimir + DTOC(TMP_VENCTOS.RECVENCI) + " " + TRANSFORM(TMP_VENCTOS.RECVALOR,"9,999,999.99") + CHR(13)
   
   SKIP IN TMP_VENCTOS
   LOOP

ENDDO

cImprimir = cImprimir + Replicate("-",80)+chr(13)
cImprimir = cImprimir + space(int((80 - len(AllTrim(AllTrim(TSL.OMENS01) + " - " + AllTrim(TSL.OMENS02)))) / 2))+AllTrim(AllTrim(TSL.OMENS01) + " - " + AllTrim(TSL.OMENS02))+chr(13)
*cImprimir = cImprimir + space(int((80 - len(AllTrim(AllTrim(TSL.OMENS03)))) / 2))+AllTrim(AllTrim(TSL.OMENS03))+chr(13)
cImprimir = cImprimir + "Obs: " + ALLTRIM(TSLV020.OBS) + CHR(13)
cImprimir = cImprimir+ ALLTRIM(TSLV020.OBS2) + CHR(13)
cImprimir = cImprimir + " " + CHR(13)
cImprimir = cImprimir + " " + chr(13)
cImprimir = cIMprimir + replicate("- ",40)
cImprimir = cImprimir + " " + chr(13)
cImprimir = cImprimir + " " + chr(13)
cImprimir = cImprimir + "  /    /       Ass.............................   RG........................"+chr(13)
cImprimir = cIMprimir + "Cliente: " + PADL(ALLTRIM(STR(TSLV020.CODCLI,6)),6,"0") + " - " + TSLV020.CLINOM + "   Orc.  N.: " + PADL(ALLTRIM(STR(TSLV020.SEQ,6)),6,"0") + chr(13)

*IF nPagina < 2
   cImprimir = cImprimir + REPLICATE("- ",40) + CHR(13)+CHR(10)
*ENDIF

nPagina = nPagina + 1
*LOOP
*ENDDO

CREATE CURSOR TMP_IMPRIMIR (CODIGO M(04))
SELECT TMP_IMPRIMIR
INSERT INTO TMP_IMPRIMIR (CODIGO) VALUES (cImprimir)
*SELECT TSLV021
*IF RECCOUNT() > 8
   cReim = 1
*ELSE
*   cReim = 0
*   INSERT INTO TMP_IMPRIMIR (CODIGO) VALUES (cImprimir)
*ENDIF

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

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

SET PRINTER TO NAME "VENDEDOR"

REPORT FORM &cReport TO PRINTER NOCONSOLE


ENDIF

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

SET PRINTER TO NAME 'VENDEDOR'

CABECA = " " + space(int((70 - len(AllTrim(TSL.NOME))) / 2)) + alltrim(TSL.NOME)+space(int((70 - len(AllTrim(TSL.NOME))) / 2))+dToc(TSLV020.DATA) + chr(13)
CABECA = CABECA + space(int((72 - len(AllTrim(TSL.ENDERECO))) / 2)) + alltrim(TSL.ENDERECO)+space(int((72 - len(AllTrim(TSL.ENDERECO))) / 2)) + TIME()+chr(13)
CABECA = CABECA + space(int((80 - len(Alltrim(TSL.FONE))) / 2)) + AllTrim(TSL.FONE)+chr(13)
CABECA = CABECA + "ORC. N.: " + PADL(ALLTRIM(STR(TSLV020.SEQ,6)),6,"0") + Replicate(" ",12) + "< CUPOM SEM VALOR FISCAL >" + REPLICATE(" ",cVal1) + ALLTRIM("ORCAMENTO")+CHR(13)
CABECA = CABECA + Replicate("-",80)+chr(13)
IF TSLV020.PESSOA = "FSICA"
   cCpfCgc = "CPF......: " + TSLV020.CLICPF
   cRgIe   = "RG: " + TSLV020.CLIRG
ELSE
   cCpfCgc = "CNPJ.....: " + TSLV020.CLICGC
   cRgIe   = "IE: " + TSLV020.CLIINS
ENDIF
CABECA = CABECA + "Nome.....: " + PADL(ALLTRIM(STR(TSLV020.CODCLI,6)),6,"0") + " - " + TSLV020.CLINOM + CHR(13)
CABECA = CABECA + cCpfCgc + " " + cRgIe + CHR(13)
CABECA = CABECA + "Endereco.: " + AllTrim(TSLV020.CLIEND) + " " + " Tel.: " + TSLV020.CLITEL + CHR(13)
CABECA = CABECA + "Bairro...: " + ALLTRIM(TSLV020.CLIBAI) + "  Cidade.: " + ALLTRIM(TSLV020.CLICID) + " CEP: " + ALLTRIM(TSLV020.CLICEP) + CHR(13)
CABECA = CABECA + "Vendedor.: " + PADL(ALLTRIM(STR(TSLV020.CODVEN,5)),5,"0") + " - " + ALLTRIM(TSLV020.NOME) + "  Comprador.: " + ALLTRIM(TSLV020.COMPRADO) + CHR(13)
CABECA = CABECA + Replicate("-",80)+chr(13)
*CABECA = CABECA + "Data de Entrega: " + DTOC(TSLV020.ENTREGA) + " Perodo: "+ ALLTRIM(TSLV020.PERIODO) + chr(13)
CABECA = CABECA + "TIPO: ENCOMENDA "+chr(13)
cImprimir = CABECA + "Cod.  Descricao                        UN   ST         Qtde    Unit.R$  Valor R$"+chr(13)
cImprimir = cImprimir + Replicate("-",80)+chr(13)
Select TMP_ENCOMENDA
Go Top IN TMP_ENCOMENDA
nLinha = 9
*cTotal = 0

Do While ! Eof("TMP_ENCOMENDA")
   
*      If nLinha > 36
*         ??? Replicate("-",80)+chr(13)+chr(10)
*         ??? chr(12)
*         ??? cabeca + CHR(13)+CHR(10)
*         nLinha = 9
*      Endif
   
      nLinha = nLinha + 1
   
      SET DECIMALS TO 3
      cImprimir = cImprimir + Substr(TMP_ENCOMENDA.CODBAR,12,5) + " " + Substr(TMP_ENCOMENDA.DESCRICAO,1,31) + "  " +;
      TMP_ENCOMENDA.UNIDADE + "  " + TMP_ENCOMENDA.ST + "  " + TRANSFORM(TMP_ENCOMENDA.QUANT,"999,999.99") + " "+;
      TRANSFORM(TMP_ENCOMENDA.UNIT,"99,999.999") + " " + TRANSFORM(TMP_ENCOMENDA.TOTAL,"99,999.99")+CHR(13)
      
      *cTotal = cTotal + TMP_ENCOMENDA.TOTAL
      
      Skip In TMP_ENCOMENDA
   Loop
Enddo

SELECT SUM(QUANT) AS QUANT FROM TMP_ENCOMENDA INTO CURSOR TMP_QUANT

cImprimir = cImprimir + Replicate("-",80)+chr(13)
cImprimir = cImprimir + Replicate(" ",49) + TRANSFORM(TMP_QUANT.QUANT,"999,999.99") + " Total R$: " + TRANSFORM(cTotal,"999,999.99")+chr(13)
IF TSLV020.DESCONTO > 0
   cImprimir = cImprimir + Replicate(" ",60) + "Desconto: " + TRANSFORM(cDesconto,"999,999.99")+chr(13)
   cImprimir = cImprimir + Replicate(" ",60) + "Total R$: " + TRANSFORM((cTotal - cDesconto),"999,999.99")+chr(13)
ENDIF
cImprimir = cImprimir + Replicate("-",80)+chr(13)

cImprimir = cImprimir + "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")
   cImprimir = cImprimir + DTOC(TMP_VENCTOS.RECVENCI) + " " + TRANSFORM(TMP_VENCTOS.RECVALOR,"9,999,999.99") + CHR(13)
   
   SKIP IN TMP_VENCTOS
   LOOP

ENDDO

cImprimir = cImprimir + Replicate("-",80)+chr(13)
cImprimir = cImprimir + space(int((80 - len(AllTrim(AllTrim(TSL.OMENS01) + " - " + AllTrim(TSL.OMENS02)))) / 2))+AllTrim(AllTrim(TSL.OMENS01) + " - " + AllTrim(TSL.OMENS02))+chr(13)
*cImprimir = cImprimir + space(int((80 - len(AllTrim(AllTrim(TSL.OMENS03)))) / 2))+AllTrim(AllTrim(TSL.OMENS03))+chr(13)
cImprimir = cImprimir + "Obs: " + ALLTRIM(TSLV020.OBS) + CHR(13)
cImprimir = cImprimir+ ALLTRIM(TSLV020.OBS2) + CHR(13)
cImprimir = cImprimir + " " + CHR(13)
cImprimir = cImprimir + " " + chr(13)
cImprimir = cIMprimir + replicate("- ",40)
cImprimir = cImprimir + " " + chr(13)
cImprimir = cImprimir + " " + chr(13)
cImprimir = cImprimir + "  /    /       Ass.............................   RG........................"+chr(13)
cImprimir = cIMprimir + "Cliente: " + PADL(ALLTRIM(STR(TSLV020.CODCLI,6)),6,"0") + " - " + TSLV020.CLINOM + "   Orc.  N.: " + PADL(ALLTRIM(STR(TSLV020.SEQ,6)),6,"0") + chr(13)

*IF nPagina < 2
   cImprimir = cImprimir + REPLICATE("- ",40) + CHR(13)+CHR(10)
*ENDIF

nPagina = nPagina + 1
*LOOP
*ENDDO

CREATE CURSOR TMP_IMPRIMIR (CODIGO M(04))
SELECT TMP_IMPRIMIR
INSERT INTO TMP_IMPRIMIR (CODIGO) VALUES (cImprimir)
SELECT TSLV021
*IF RECCOUNT() > 8
   cReim = 1
*ELSE
*   cReim = 0
*   INSERT INTO TMP_IMPRIMIR (CODIGO) VALUES (cImprimir)
*ENDIF

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

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

SET PRINTER TO NAME "VENDEDOR"

REPORT FORM &cReport TO PRINTER NOCONSOLE

ENDIF

ENDIF