CE PLUS - Nota 007724
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 05/12/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:59:09
Descrição da Nota: AJUSTE NA CONVERSÃO DAS DESPESAS
Sintoma
A conversão de despesa para JPY está errada.
Solução
Corrigir o tratamento de casas decimais da moeda
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07724 Data: 05/12/2008 Hora: 14:01:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07724
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02658 - 00001 - 6.0 - 00025 - DI
----------------------------------------------------------------------------------------------------
AJUSTE NA CONVERSÃO DAS DESPESAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
CONVERSÃO - MOEDA - DESPESA - DI
/PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
itab_zycit049-divabs = itab_zycit039-divabs.
itab_zycit049-peso = itab_zycit039-peso.
itab_zycit049-proporplan = itab_zycit039-proporplan.
ENDIF.
ENDIF.
IF NOT itab_zycit049-vldp IS INITIAL.
IF itab_zycit049-waers NE wa_zycbt007-waersb.
PERFORM taxa_converte USING itab_zycit049-waers
/pws/zycie085-dttax
CHANGING s_tax.
* >> Início da exclusão: FORM LOADING_ALL
itab_zycit049-vlreal = itab_zycit049-vldp * s_tax.
* << Fim da exclusão
* >> Início da inclusão: FORM LOADING_ALL
itab_zycit049-vlreal = itab_zycit049-vldp.
PERFORM trata_decimais USING itab_zycit049-waers
CHANGING itab_zycit049-vlreal.
itab_zycit049-vlreal = itab_zycit049-vlreal * s_tax.
* << Fim da inclusão
ELSE.
itab_zycit049-vlreal = itab_zycit049-vldp.
ENDIF.
ENDIF.
MODIFY itab_zycit049 FROM itab_zycit049.
ENDIF.
ENDLOOP.
REFRESH: itab_zycit049di.
LOOP AT itab_zycit049.
MOVE-CORRESPONDING itab_zycit049 TO itab_zycit049di.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
WHERE nrseq = /pws/zycie085-nrseqdi.
ENDIF.
IF p_tipo = 'I'.
LOOP AT itab_zycit049.
v_tabix = sy-tabix.
IF NOT itab_zycit049-vldp IS INITIAL.
IF itab_zycit049-waers NE wa_zycbt007-waersb.
PERFORM taxa_converte USING itab_zycit049-waers
/pws/zycie085-dttax
CHANGING s_tax.
* >> Início da exclusão: FORM CALC_INIT
itab_zycit049-vlreal = itab_zycit049-vldp * s_tax.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_INIT
itab_zycit049-vlreal = itab_zycit049-vldp.
* << Fim da inclusão
PERFORM trata_decimais USING itab_zycit049-waers
CHANGING itab_zycit049-vlreal.
* >> Início da inclusão: FORM CALC_INIT
itab_zycit049-vlreal = itab_zycit049-vlreal * s_tax.
* << Fim da inclusão
ENDIF.
ENDIF.
CLEAR itab_zycit049-vldp_aux.
MODIFY itab_zycit049 INDEX v_tabix TRANSPORTING vlreal vldp_aux.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
ENDIF.
itab_zycit049-tpdesp = /pws/zycie049-tpdesp.
itab_zycit049-descr = /pws/zycie049-descr.
itab_zycit049-vldp = /pws/zycie049-vldp.
itab_zycit049-waers = /pws/zycie049-waers.
IF NOT itab_zycit049-vldp IS INITIAL.
IF itab_zycit049-waers NE wa_zycbt007-waersb.
PERFORM taxa_converte USING /pws/zycie049-waers
/pws/zycie085-dttax
CHANGING s_tax.
* >> Início da exclusão: MODULE MODI_DATA049
itab_zycit049-vlreal = itab_zycit049-vldp * s_tax.
* << Fim da exclusão
* >> Início da inclusão: MODULE MODI_DATA049
itab_zycit049-vlreal = itab_zycit049-vldp.
* << Fim da inclusão
IF /pws/zycie049-waers NE wa_zycbt007-waersb.
PERFORM trata_decimais USING /pws/zycie049-waers
CHANGING itab_zycit049-vlreal.
ENDIF.
* >> Início da inclusão: MODULE MODI_DATA049
itab_zycit049-vlreal = itab_zycit049-vlreal * s_tax.
* << Fim da inclusão
ELSE.
itab_zycit049-vlreal = itab_zycit049-vldp.
ENDIF.
...