CE PLUS - Nota 009095
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 25/09/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:20:45
Descrição da Nota: DIFERENÇA VALOR TOTAL DA FATURA COM O TOTAL DOS ITENS(JPY)
Sintoma
Ao criar uma fatura com a moeda JPY o programa está indicando que existe diferença entre o valor
apontado no cabeçalho da fatura e o total dos itens e não permite salvar a fatura
Solução
Realizado ajuste para efetuar o arredondamento do valor total dos itens conforme o realizado no
embarque.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09095 Data: 25/09/2009 Hora: 15:59:32
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09095
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02816 - 00001 - 6.0 - 00026 - FATURA AJUSTE LIVRE, ERRO NO TOTAL QND AJUSTE LIVRE
----------------------------------------------------------------------------------------------------
DIFERENÇA VALOR TOTAL DA FATURA COM O TOTAL DOS ITENS(JPY)
----------------------------------------------------------------------------------------------------
Palavras Chave:
DIFERENÇA - FATURA - TOTAL - ITEM - MOEDA - JPY - CASAS - DECIMAIS
/PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
v_total = ( itab_zycit003-netpr * itab_zycit003-toinv )
+ v_total.
ENDIF.
ENDLOOP.
IF ( t001-land1 = 'AR' OR t001-land1 = 'CL' )
AND /pws/zycit031-inco1_ci = 'FOB'.
v_vlreal = /pws/zycie006-vlmerc .
ELSE.
v_vlreal = /pws/zycie006-vltotal.
ENDIF.
* >> Início da inclusão: FORM CHECK_TOTAL
PERFORM trata_decimais USING /pws/zycie006-waers
CHANGING v_total.
PERFORM retorna_decimais USING /pws/zycie006-waers
CHANGING v_total.
* << Fim da inclusão
PERFORM retorna_decimais USING /pws/zycie006-waers
CHANGING v_vlreal.
v_ttotal = v_total - v_vlreal.
PERFORM trata_decimais USING /pws/zycie006-waers
CHANGING v_ttotal.
IF /pws/zycie006-ratval = 3.
DESCRIBE TABLE itab_zycit003 LINES v_line.
LOOP AT itab_zycit003 WHERE livre = 'S'.
v_tabix = sy-tabix.
IF v_waers_diferente = 'X'.
...
...
AND /pws/zycit031-inco1_ci = 'FOB'.
v_total = ( itab_zycit003-vlreal * itab_zycit003-toinv )
- itab_zycit003-vlfre_fat + v_total.
ELSE.
v_total = ( itab_zycit003-vlreal * itab_zycit003-toinv )
+ v_total
+ itab_zycit003-vlfre_fat + itab_zycit003-vlseg_fat.
ENDIF.
ENDLOOP.
ENDIF.
* >> Início da inclusão: FORM CHECK_TOTAL
PERFORM trata_decimais USING /pws/zycie006-waers
CHANGING v_total.
PERFORM retorna_decimais USING /pws/zycie006-waers
CHANGING v_total.
* << Fim da inclusão
IF v_vlreal NE v_total AND
( /pws/zycie006-tpfatura EQ '01' OR /pws/zycie006-tpfatura EQ '11' )
AND /pws/zycie006-eliminado NE 'X'
AND /pws/zycie006-ratval NE '3'.
v_ttotal = v_total - v_vlreal.
PERFORM trata_decimais USING /pws/zycie006-waers
CHANGING v_ttotal.
IF NOT v_ttotal EQ '0'.
WRITE v_ttotal TO v_tot_char CURRENCY /pws/zycie006-waers.
MESSAGE s015 WITH text-019 v_tot_char.
...