CE PLUS - Nota 002197
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Pagamento de Juros
Data/Hora da Publicação: 04/10/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:18:39
Descrição da Nota: NO PAGAMENTO DE JUROS, TRATAMENTO INCORRETO NO FATOR DE CONVERSÃO
Sintoma
1-) foi verificado que no programa de Pagto de Juros o programa efetua a conversão correta
respeitando fator de conversão 100 para 1, mas ao entrar no BI o programa faz a multiplicação da
taxa, e não deveria, pois o usuario já preencheu a taxa multiplicada por 100, sendo assim o campo
taxa no BI é preenchido errado.
2-) depois o campo da coluna "Vl. em MI alterado" não esta considerando o mesmo fator de conversão
do processo e no caso é 100 para 1 e nesta coluna o valor que está aparecendo é multiplicado pela
taxa digitada 1,62550.
Solução
Aplicar ajustes existentes nesta nota.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02197 Data: 04/10/2006 Hora: 07:14:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02197
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00134
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NO PAGAMENTO DE JUROS, TRATAMENTO INCORRETO NO FATOR DE CONVERSÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
PAGAMENTO DE JUROS, TAXA, CONVERSÃO CONFORME FATOR DE CONVERSÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB012F01
REPS /PWS/MZYCB012I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB012F01
...
ENDIF.
ENDCASE.
ENDLOOP.
itab_zycbe033-bukrs = /pws/zycbt004-bukrs.
itab_zycbe033-waers = /pws/zycbe043-waers.
* >> Início da exclusão: FORM FILL_DATE_F-02
itab_zycbe033-kursf = v_taxa.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-02
itab_zycbe033-kursf = /pws/zycbe043-kursf.
* << Fim da inclusão
itab_zycbe033-blart = wa_zycbt011-blart.
v_valordmi = v_valordme * /pws/zycbe043-kursf.
itab_zycbe033-wrbtr = /pws/zycbe043-vlme.
IF /pws/zycbe043-vlmi2 EQ 0.
itab_zycbe033-dmbtr = /pws/zycbe043-vlmi.
...
...
SELECT SINGLE * FROM tcurx WHERE currkey = v_waers.
IF sy-subrc <> 0.
tcurx-currdec = 2.
ENDIF.
v_vlmeaux = /pws/zycbe043-vlme / ( 10 ** ( tcurx-currdec - 2 ) ).
* >> Início da exclusão: FORM CALCULA_TOTAL
/pws/zycbe043-vlmi = v_vlmeaux * /pws/zycbe043-kursf.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_TOTAL
IF v_dfact GT 0 and v_pfact GT 0.
/pws/zycbe043-vlmi =
( ( /pws/zycbe043-kursf / v_dfact ) * v_pfact ) * v_vlmeaux.
ENDIF.
* << Fim da inclusão
CLEAR v_tot_vlmi.
LOOP AT itab_zycbt044.
IF ( itab_zycbt044-vlmi IS INITIAL OR
/pws/zycbe043-kursf NE v_kursf ) AND
NOT /pws/zycbe043-vlmi2 IS INITIAL.
CLEAR v_vlmeaux.
v_vlmeaux = itab_zycbt044-vlme / ( 10 ** ( tcurx-currdec - 2 ) ).
* >> Início da exclusão: FORM CALCULA_TOTAL
itab_zycbt044-vlmi = v_vlmeaux * /pws/zycbe043-kursf.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_TOTAL
itab_zycbt044-vlmi =
v_vlmeaux * ( ( /pws/zycbe043-kursf / v_dfact ) * v_pfact ).
* << Fim da inclusão
MODIFY itab_zycbt044.
ENDIF.
v_tot_vlmi = v_tot_vlmi + itab_zycbt044-vlmi.
ENDLOOP.
v_kursf = /pws/zycbe043-kursf.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB012I01
...
perform exclui_registro.
when 'SAVE'.
perform grava_tabelas.
when 'CONTAB'.
if /pws/zycbe043-belnr_p is initial.
* >> Início da exclusão: MODULE USER_COMMAND_0100
perform seleciona_fator_taxa changing v_sai.
if v_sai ne 'X'.
* << Fim da exclusão
perform verifica_parcelas.
if v_contabiliza eq 'X'.
perform contabilizacao_f-02.
else.
message i015 with text-134 text-136.
* >> Início da exclusão: MODULE USER_COMMAND_0100
endif.
* << Fim da exclusão
endif.
else.
message i015 with text-033.
endif.
when 'PARC'.
...