Sintoma

Ao executar a rotina mensal para um contrato com juros, irrf, comissão e transferência, as taxas

estão diferentes onde, juros/irrf traz taxa do dia, comissão não traz taxa e transferência traz taxa

da rotina mensal. A de transferência é a única correta.

Solução

Fazer busca da taxa no Juros, irrf e comissão conforme taxa de transferência, buscando do dia da

rotina mensal.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 03942 Data: 15/06/2007 Hora: 12:34:34

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 03942

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00001

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

03289  - 00001 - 6.0    - 00026  - ROTINA MENSAL - CAMPO TAXA - MONTANTE CONVERTE

----------------------------------------------------------------------------------------------------

ROTINA MENSAL EXPORTAÇÃO - TAXAS

----------------------------------------------------------------------------------------------------

Palavras Chave:

ROTINA MENSAL EXPORTAÇÃO TAXAS JUROS IRRF COMISSÃO TRANSFERÊNCIA

KURSF

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/ZYCBR003

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/ZYCBR003

...

           WHERE bukrs EQ s_bukrs.

  ENDIF.

  SELECT kurst

         UP TO 1 ROWS

         FROM /pws/zycbt009

         INTO v_kurst

         WHERE codpadr = wa_zycbt011-ctmoed.

  ENDSELECT.

  v_data = s_dtentr.

  CONVERT DATE v_data INTO INVERTED-DATE v_dtbudat.

* >> Início da inclusão: FORM SELECIONA_TAXA

  clear v_taxac.

* << Fim da inclusão

  CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'

       EXPORTING

            i_montante                 = '1'

            i_demoeda                  = itab_zycbt001-waers

            i_paramoeda                = wa_zycbt007-waersb

            i_ctmoeda                  = v_kurst

* >> Início da exclusão: FORM SELECIONA_TAXA

            i_dtbase                   = sy-datum

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_TAXA

            i_dtbase                   = s_dtentr

* << Fim da inclusão

       IMPORTING

            e_txc                      = v_taxac

       EXCEPTIONS

            i_demoeda_nao_encontrado   = 1

            i_paramoeda_nao_encontrado = 2

            i_ctmoeda_nao_encontrado   = 3

            i_dtbase_nao_encontrada    = 4

            taxa_nao_encontrada        = 5

            fator_nao_encontrado       = 6

            i_montante_nao_encontrado  = 7

...

...

    ELSE.

      itab_relat-dtate = p_dtfinal.

    ENDIF.

    v_dias_mes = itab_relat-dtate - itab_relat-dtde.

    IF NOT s_rbrotd IS INITIAL        AND

       itab_relat-dtde  LE v_dtinicio AND

       itab_relat-dtate GE v_dtinicio.

      v_dias_mes = itab_relat-dtate - v_dtinicio.

    ENDIF.

    PERFORM preenche_itab_relat_comissao.

* >> Início da inclusão: FORM PROCESSA_PERIODO_COMISSAO

    PERFORM seleciona_taxa.

    itab_relat-txc   = v_taxac.

* << Fim da inclusão

    itab_relat-vlme = itab_zycbt002c-vlme * v_dias_mes /

      itab_zycbt002c-nrdias.

    READ TABLE itab_tcurx WITH KEY currkey = itab_zycbt002c-waers.

    IF sy-subrc NE 0.

      itab_tcurx-currdec = 2.

    ENDIF.

    itab_relat-vlme = itab_relat-vlme / ( 10 **

      ( itab_tcurx-currdec - 2 ) ).

    itab_relat-vlmej  = itab_relat-vlme.

    itab_relat-vlmij  = itab_relat-vlmej * itab_relat-txc.

...