Sintoma

Ao entrar em liquidação - criar, o programa está levando o valor de juros errado para as colunas

"Valor Juros ACC" e "Valor Juros ACE" da table control.

Solução

Quando o campo 'currdec' da tabela 'tcurx', for igual a zero não é necessário fazer o cálculo de

exponenciação.

Informações Complementares

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

Nota Número 04674 Data: 11/09/2007 Hora: 14:34:37

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

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

Nota Número              : 04674

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00011

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

EXPORTAÇÃO LIQUIDAÇÃO - CÁLCULO DE JUROS EM JPY

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

Palavras Chave:

EXPORTAÇÃO LIQUIDAÇÃO - CÁLCULO DE JUROS EM JPY

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

Objetos da nota:

REPS /PWS/MZYCB004I01

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

Modificações efetuadas em REPS /PWS/MZYCB004I01

...

        ENDIF.

      ENDIF.

      IF itab_zycbt001-tpcontr(1) = 'E'.

        v_vljur_ace = itab_zycbt005-v_vljur.

        CLEAR v_vljur_acc.

      ENDIF.

      SELECT SINGLE * FROM tcurx WHERE currkey = itab_zycbt005-waers_c.

      IF sy-subrc <> 0.

        tcurx-currdec = 2.

      ENDIF.

* >> Início da inclusão: MODULE CALCULA_JUROS

      IF NOT tcurx-currdec IS INITIAL.

* << Fim da inclusão

      itab_zycbt005-v_vljur = itab_zycbt005-v_vljur *

                              ( 10 ** ( tcurx-currdec - 2 ) ).

      v_vljur_acc           = v_vljur_acc *

                              ( 10 ** ( tcurx-currdec - 2 ) ).

      v_vljur_ace           = v_vljur_ace *

                              ( 10 ** ( tcurx-currdec - 2 ) ).

* >> Início da inclusão: MODULE CALCULA_JUROS

      ENDIF.

* << Fim da inclusão

      MOVE:  v_vljur_acc TO /pws/zycbe006-vljur_acc,

...