CE PLUS - Nota 007475
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 23/10/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:15:48
Descrição da Nota: ERRO NO VALOR DO DOCUMENTO CONTÁBIL DE FATURA EM JPY
Sintoma
Erro no valor do documento contábil de fatura em JPY
Solução
Tratar o valor do documento na fatura.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07475 Data: 23/10/2008 Hora: 15:22:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07475
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00070
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07442 - 00001 - 7.0 - 00007 - ERRO AO CONTABILIZAR FATURA JPY
----------------------------------------------------------------------------------------------------
ERRO NO VALOR DO DOCUMENTO CONTÁBIL DE FATURA EM JPY
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALOR - DOCUMENTO CONTÁBIL - FATURA - JPY
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
IF v_tabix EQ v_line.
PERFORM retorna_decimais USING /pws/zycie006-waers
CHANGING v_tot_aux.
itab_zycit003-total = itab_zycit003-total +
( v_vlreal - v_tot_aux ).
ELSE.
itab_zycit003-total = ( itab_zycit003-vlreal *
itab_zycit003-toinv )
+ itab_zycit003-vlfre_aux
+ itab_zycit003-vlseg_aux.
* >> Início da inclusão: FORM CHECK_TOTAL
PERFORM trata_decimais USING /pws/zycie006-waers
CHANGING itab_zycit003-total.
* << Fim da inclusão
ENDIF.
MODIFY itab_zycit003 TRANSPORTING vlreal total.
ENDLOOP.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
itab_zycbt035_aux-d_valut = /pws/zycie006-dtd_conta.
IF v_parcela = 'X' AND /pws/zycit477 IS INITIAL.
IF v_line = v_index.
itab_zycbt035_aux-wrbtr = itab_zycit132-vlparc - v_tot_parc.
ELSE.
itab_zycbt035_aux-wrbtr = itab_zycit132-vlparc *
( itab_zycit003-total / /pws/zycie006-vltotal ).
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS
PERFORM trata_decimais USING /pws/zycie006-waers
* << Fim da inclusão
* >> Início da exclusão: FORM MULTIPLOS_LANCAMENTOS
SELECT SINGLE * FROM tcurx WHERE currkey = /pws/zycie006-waers.
IF sy-subrc <> 0.
tcurx-currdec = 2.
ENDIF.
itab_zycbt035_aux-wrbtr =
itab_zycbt035_aux-wrbtr * ( 10 ** ( tcurx-currdec - 2 ) ).
* << Fim da exclusão
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS
CHANGING itab_zycbt035_aux-wrbtr.
* << Fim da inclusão
v_tot_parc = v_tot_parc + itab_zycbt035_aux-wrbtr.
ENDIF.
ELSE.
itab_zycbt035_aux-wrbtr = itab_zycit003-total.
ENDIF.
IF NOT v_parcela = 'X' OR /pws/zycit477 IS INITIAL.
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS
PERFORM trata_decimais USING /pws/zycie006-waers
* << Fim da inclusão
* >> Início da exclusão: FORM MULTIPLOS_LANCAMENTOS
SELECT SINGLE * FROM tcurx WHERE currkey = /pws/zycie006-waers.
IF sy-subrc <> 0.
tcurx-currdec = 2.
ENDIF.
itab_zycbt035_aux-wrbtr =
itab_zycbt035_aux-wrbtr * ( 10 ** ( tcurx-currdec - 2 ) ).
* << Fim da exclusão
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS
CHANGING itab_zycbt035_aux-wrbtr.
* << Fim da inclusão
ENDIF.
itab_zycbt035_aux-werks = itab_zycit003-werks.
IF /pws/zycit000-clucro_ia = 'X'.
PERFORM verifica_centro_l.
ENDIF.
itab_zycbt035_aux-d_gsber = itab_zycit003-gsber.
...