CE PLUS - Nota 005275
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Custo Efetivo
Data/Hora da Publicação: 22/11/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:00:40
Descrição da Nota: PROBLEMA NO CUSTO EFETIVO COM MOEDA JPY QUANDO A FATURA ERA DO TIPO P
Sintoma
Problema no Custo Efetivo com moeda JPY quando a Fatura era do tipo P
Solução
Atualização do programa de custo efetivo para verificar se a moeda é JPY para fazer a conversão de
moedas.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05275 Data: 22/11/2007 Hora: 10:18:35
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05275
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00022
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PROBLEMA NO CUSTO EFETIVO COM MOEDA JPY QUANDO A FATURA ERA DO TIPO P
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA TIPO P - JPY - CONVERSÃO DE MOEDAS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI010O01
REPS /PWS/MZYCI010O02
REPS /PWS/SAPMZYCI010
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010O01
...
MODULE carrega_zycbe036a OUTPUT.
CHECK NOT itab_zycit036a-nrseq IS INITIAL.
MOVE /pws/zycit001-embarca TO itab_zycit036a-embarca.
MOVE itab_zycit036a TO /pws/zycie036a.
READ TABLE itab_zycit029 WITH KEY codigo = itab_zycit036a-codigo.
IF sy-subrc EQ 0.
/pws/zycie029-descricao = itab_zycit029-descricao.
ENDIF.
DESCRIBE TABLE itab_zycit036a LINES v_lin.
tc_desp_emb-lines = v_lin.
* >> Início da inclusão: MODULE CARREGA_ZYCBE036A
if ( /pws/zycie036a-waers = 'JPY' and
/pws/zycie036a-waers_real = 'JPY' and
/pws/zycie036a-waers_mov = 'BRL' ).
read table itab_zycit140 with key
codmod = 'D'
codigo = itab_zycit036a-codigo
custo = 'X' .
if itab_zycit140-origem eq 'FAT' .
perform trata_decimais using 'JPY'
changing itab_zycit036a-vlmov.
endif.
/pws/zycie036a-vlmov = itab_zycit036a-vlmov.
endif.
* << Fim da inclusão
ENDMODULE.
MODULE status_0200 OUTPUT.
SET PF-STATUS '0200'.
SET TITLEBAR '0200'.
ENDMODULE.
MODULE set_screen_0200 OUTPUT.
PERFORM carrega_cgc.
ENDMODULE.
MODULE set_screen_tc_0200 OUTPUT.
LOOP AT SCREEN.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010O02
...
v_tmov_conv = v_tmov_aux.
PERFORM trata_decimais USING itab_zycit036a-waers_real
CHANGING v_treal_conv.
ENDIF.
ENDIF.
ENDIF.
PERFORM trata_decimais USING /pws/zycie001-waers_mov
CHANGING v_tmov_conv.
v_tmov = v_tmov + v_tmov_conv.
ELSE.
* >> Início da inclusão: MODULE CARREGA_TOTAIS
IF ( itab_zycit036a-waers = 'JPY' and
itab_zycit036a-waers_real = 'JPY' and
itab_zycit036a-waers_mov = 'BRL' ).
read table itab_zycit140 with key
codmod = 'D'
codigo = itab_zycit036a-codigo
custo = 'X' .
if itab_zycit140-origem eq 'FAT' .
perform trata_decimais using 'JPY'
changing itab_zycit036a-vlmov.
endif.
endif.
* << Fim da inclusão
v_tmov = v_tmov + itab_zycit036a-vlmov.
ENDIF.
IF itab_zycit036a-waers_dif NE /pws/zycie001-waers_dif
AND NOT itab_zycit036a-vldif IS INITIAL.
PERFORM converter_moeda USING
itab_zycit036a-vldif
itab_zycit036a-waers_dif
/pws/zycie001-waers_dif
CHANGING v_tmov_aux.
v_tdif_conv = v_tmov_aux.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCI010