&& STAB

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

   SYS(1037) && INDICAR IMPRESSORA
   
   ??? CHR(27)+"0"+CHR(27)+"C"+CHR(44)
   ??? CHR(15)
   
   cCodFor = TSF002A.CODPGTO

   nSelect = "SELECT * FROM Tslc005 WHERE ?cCodFor = CODIGO "
   TSEXEC("T",nSelect,"TMP_FOR")
   
   SELECT TMP_FOR
   cDia1     = TMP_FOR.NDIA1
   cDias     = TMP_FOR.NDIAS
   cParcelas = TMP_FOR.PARCELAS
   cCartao   = TMP_FOR.CARTAO
   cVal1     = TSF002A.LIQUIDO
   cParcelas2 = cParcelas - 1
   IF cParcelas2 > 0
      cValor = cVal1 / cParcelas
   ELSE
      cValor = cVal1
   ENDIF
   
   cLiquido = TSF002A.LIQUIDO

   IF EMPTY(ALLTRIM(TMP_FOR.TAXA))
      cVal1      = TSF002A.LIQUIDO
      IF cParcelas2 > 0
         cValor = cVal1 / cParcelas
      ENDIF
   ELSE
      SET DECIMALS TO 7
      CREATE CURSOR TMP_TX (TAXA N(20,7),VALOR N(12,2),PARCELA N(12,2))
      SELECT TMP_TX
      APPEND BLANK IN TMP_TX
      REPLACE TMP_TX.TAXA    WITH VAL(TMP_FOR.TAXA)
      REPLACE TMP_TX.VALOR   WITH (cLiquido + TMP_FOR.VTAXA)
      REPLACE TMP_TX.PARCELA WITH TMP_TX.VALOR * TMP_TX.TAXA
      cValor = TMP_TX.PARCELA
   ENDIF
   
   cVencto = DATE() + cDia1
   
   CREATE CURSOR TMP_CONTAS;
   (CONTA C(10),;
    VALOR N(12,2),;
    VENCTO D(08))
   
   SELECT TMP_CONTAS
   APPEND BLANK IN TMP_CONTAS

   REPLACE TMP_CONTAS.CONTA  WITH PADL(ALLTRIM(STR(TSF002A.NRO_NF,6)),6,"0") + "/01"
   REPLACE TMP_CONTAS.VALOR  WITH cValor
   REPLACE TMP_CONTAS.VENCTO WITH cVencto
   
   cParc = "02"
   DO WHILE cParcelas2 > 0
      
      cVencto = cVencto + cDias
      
      select TMP_CONTAS
      append blank in tmp_contas
      REPLACE TMP_CONTAS.CONTA  WITH PADL(ALLTRIM(STR(TSF002A.NRO_NF,6)),6,"0") + "/" + cParc
      REPLACE TMP_CONTAS.VALOR  WITH cValor
      REPLACE TMP_CONTAS.VENCTO WITH cVencto
      
      cParc = PADL(ALLTRIM(STR(VAL(cParc)+1,2)),2,"0")
      cParcelas2 = cParcelas2 - 1
      LOOP
   ENDDO
   
   SELECT TMP_CONTAS
   GO TOP IN TMP_CONTAS
   DO WHILE ! EOF("TMP_CONTAS")
      
*      ??? 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)

      ??? SPACE(100) + DTOC(TSF002A.EMISSAO) + CHR(13) + CHR(10)

      ??? CHR(13) + CHR(10)

      ??? CHR(13) + CHR(10)

      ??? CHR(13) + CHR(10)

      ??? CHR(13) + CHR(10)

      ??? SPACE(23) + TRANSFORM(TMP_CONTAS.VALOR,"99,999.99") + SPACE(10) + TMP_CONTAS.CONTA + SPACE(10) + TRANSFORM(TMP_CONTAS.VALOR,"99,999.99") + SPACE(10) + TMP_CONTAS.CONTA + SPACE(7) + DTOC(TMP_CONTAS.VENCTO) + CHR(13)+CHR(10)

      ??? CHR(13) + CHR(10)

      ??? CHR(13) + CHR(10)

      ??? CHR(13) + CHR(10)

      ??? CHR(13) + CHR(10)

*      ??? CHR(13) + CHR(10)

      ??? SPACE(35) + TSF002A.CLIENTE + CHR(13) + CHR(10)

      ??? CHR(13) + CHR(10)

      ??? CHR(13) + CHR(10)

      ??? SPACE(30) + TSF002A.ENDERECO + SPACE(50) + TSF002A.CEP + CHR(13) + CHR(10)

      ??? CHR(13) + CHR(10)

      ??? SPACE(30) + TSF002A.MUNICIPIO + SPACE(33) + TSF002A.UF + CHR(13) + CHR(10)

      ??? CHR(13) + CHR(10)

      ??? CHR(13) + CHR(10)

      ??? SPACE(34) + TSL.CIDADE + CHR(13) + CHR(10)

      ??? CHR(13) + CHR(10)

      ??? CHR(13) + CHR(10)

      ??? SPACE(30) + MCPF(TSF002A.CNPJ) + SPACE(48) + TSF002A.IE + CHR(13) + CHR(10)

*      ??? CHR(13) + CHR(10)

*      ??? CHR(13) + CHR(10)

*      ??? CHR(13) + CHR(10)

*      ??? CHR(13) + CHR(10)

      ??? CHR(13) + CHR(10)

      ??? SPACE(40) + SUBSTR((VALEXT(TMP_CONTAS.VALOR) + SPACE(100)),1,50) + CHR(13) + CHR(10)

      ??? SPACE(40) + SUBSTR((VALEXT(TMP_CONTAS.VALOR) + SPACE(100)),51,50) + 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) + CHR(10)

      ??? CHR(13) + CHR(10)

      ??? CHR(13) + CHR(10)

      ??? CHR(13) + CHR(10)

      ??? CHR(13) + CHR(10)

      ??? CHR(13) + CHR(10)

      SKIP IN TMP_CONTAS
      LOOP
   ENDDO

ENDIF

Set Printer To
SET PRINTER TO DEFAULT