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

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

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

nSelect = "SELECT Tslv022.*,Tslc001.CLINOM,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,"
nSelect = nSelect + "Tslc001.CLICGC,Tslc004.NOME "
nSelect = nSelect + "FROM Tslv022 LEFT JOIN Tslc001 ON Tslv022.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslv022.CODVEN = Tslc004.CODIGO WHERE ?cTabImp = Tslv022.SEQ "
TSEXEC("T",nSelect,"Tslv022")

nSelect = "SELECT Tslv023.*,Tslc003.CODBAR FROM Tslv023 LEFT JOIN Tslc003 ON Tslv023.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "WHERE ?cTabImp = CUPOM AND EXCLUI <> 'S' "
TSEXEC("T",nSelect,"Tslv023_1")

GERACURSOR("Tslv023_1","Tslv023")

SELECT Tslv023
UPDATE Tslv023 SET CODBAR = PADL(ALLTRIM(STR(CODPROD,16)),16,"0") WHERE EMPTY(ALLTRIM(CODBAR))

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

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

nValPag = 1
*SYS(1037) && INDICAR IMPRESSORA

*??? CHR(27)+"0"+CHR(27)+"C"+CHR(44)
*??? chr(18)
CABECA = space(int((70 - len(AllTrim(TSL.NOME))) / 2)) + alltrim(TSL.NOME)+space(int((70 - len(AllTrim(TSL.NOME))) / 2))+dToc(Tslv022.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(Tslv022.SEQ,6)),6,"0") + Replicate(" ",12) + "< CUPOM SEM VALOR FISCAL >" + REPLICATE(" ",cVal1) + ALLTRIM("CONSIGNACAO")+CHR(13)
CABECA = CABECA + Replicate("-",80)+chr(13)
IF Tslv022.PESSOA = "FSICA"
   cCpfCgc = "CPF: " + Tslv022.CLICPF
ELSE
   cCpfCgc = "CNPJ: " + Tslv022.CLICGC
ENDIF
CABECA = CABECA + "Nome.....: " + PADL(ALLTRIM(STR(Tslv022.CODCLI,6)),6,"0") + " - " + Tslv022.CLINOM + cCpfCgc + CHR(13)
CABECA = CABECA + "Endereco.: " + AllTrim(Tslv022.CLIEND) + " " + " Tel.: " + Tslv022.CLITEL + CHR(13)
CABECA = CABECA + "Bairro...: " + ALLTRIM(Tslv022.CLIBAI) + "  Cidade.: " + ALLTRIM(Tslv022.CLICID) + CHR(13)
CABECA = CABECA + "Vendedor.: " + PADL(ALLTRIM(STR(Tslv022.CODVEN,5)),5,"0") + " - " + ALLTRIM(Tslv022.NOME) + "  Comprador.: " + ALLTRIM(Tslv022.COMPRADO) + CHR(13)
CABECA = CABECA + Replicate("-",90)+chr(13)

cImprimir = CABECA + "Cod.  Descricao                        UN   ST         Qtde    Unit.R$  Valor R$"+chr(13)
cImprimir = cImprimir + Replicate("-",90)+chr(13)
Select Tslv023
Go Top IN Tslv023
nLinha = 9
cTotal = 0

SELECT * FROM Tslv023 WHERE QUANT > 0 INTO CURSOR TSLV023P
SELECT TSLV023P
GO TOP IN TSLV023P

Do While ! Eof("Tslv023P")
   
*      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(Tslv023P.CODBAR,9,5) + " " + Substr(Tslv023P.DESCRICAO,1,31) + "  " +;
      Tslv023P.UNIDADE + "  " + Tslv023P.ST + "  " + TRANSFORM(Tslv023P.QUANT,"999,999.99") + " "+;
      TRANSFORM(Tslv023P.UNIT,"99,999.999") + " " + TRANSFORM(Tslv023P.TOTAL,"99,999.99")+CHR(13)
      
      cTotal = cTotal + Tslv023P.TOTAL
      
      Skip In Tslv023P
   Loop
Enddo

cImprimir = cImprimir + Replicate("-",90)+chr(13)
cImprimir = cImprimir + Replicate(" ",51) + "Total Retirado R$: " + TRANSFORM(cTotal,"999,999.99")+chr(13)
cImprimir = cImprimir + Replicate("-",80)+chr(13)

SELECT * FROM Tslv023 WHERE QUANT <= 0 INTO CURSOR TSLV023N
SELECT TSLV023N
GO TOP IN TSLV023N
cTotaln = 0

Do While ! Eof("Tslv023N")
   
*      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(Tslv023N.CODBAR,9,5) + " " + Substr(Tslv023N.DESCRICAO,1,31) + "  " +;
      Tslv023N.UNIDADE + "  " + Tslv023N.ST + "  " + TRANSFORM(Tslv023N.QUANT,"999,999.99") + " "+;
      TRANSFORM(Tslv023N.UNIT,"99,999.999") + " " + TRANSFORM(Tslv023N.TOTAL,"99,999.99")+CHR(13)
      
      cTotaln = cTotaln + Tslv023N.TOTAL
      
      Skip In Tslv023N
   Loop
Enddo

cImprimir = cImprimir + Replicate("-",80)+chr(13)
cImprimir = cImprimir + Replicate(" ",50) + "Total Devolvido R$: " + TRANSFORM(cTotaln,"999,999.99")+chr(13)
cImprimir = cImprimir + Replicate(" ",60) + "Total R$: " + TRANSFORM(cTotal + cTotaln,"999,999.99")+chr(13)
IF Tslv022.DESCONTO > 0
   cImprimir = cImprimir + Replicate(" ",60) + "Desconto: " + TRANSFORM(Tslv022.DESCONTO,"999,999.99")+chr(13)
   cImprimir = cImprimir + Replicate(" ",60) + "Total R$: " + TRANSFORM((cTotal - Tslv022.DESCONTO),"999,999.99")+chr(13)
ENDIF


*If nlinha > 25
*   ??? chr(12)
*   ??? cabeca + CHR(10)+CHR(13)
*   nLinha = 9
*Endif

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

*IF nLinha > 24
*   ??? CHR(12)
*   ??? CABECA + CHR(10)+CHR(13)
*ENDIF
cImprimir = cImprimir + Replicate("-",80)+chr(13)
cImprimir = cImprimir + "OBS: "+ ALLTRIM(Tslv022.OBS)  + CHR(13)
cImprimir = cImprimir + "     "+ ALLTRIM(Tslv022.OBS2) + 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 + " " + CHR(13)
cImprimir = cImprimir + "  /    /       Ass.............................   RG........................"+chr(13)
cImprimir = cImprimir + Replicate("=",80)+chr(13)
cImprimir = cImprimir + "_______________             __________________" + CHR(13)
cImprimir = cImprimir + "Ass. Conferente               Ass. Motorista" + CHR(13)

cImprimir = alltrim(cImprimir)
CREATE CURSOR TMP_IMPRIMIR (CODIGO M(04))
SELECT TMP_IMPRIMIR
INSERT INTO TMP_IMPRIMIR (CODIGO) VALUES (cImprimir)

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR
cReport = FULLPATH(CURDIR()) + "IMPRESS\TSORC.FRX"

CHAMAIMP2("TMP_IMPRIMIR",cReport)
*REPORT FORM &cReport TO PRINTER PROMPT preview

ENDIF