CE PLUS - Nota 005339
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DSI
Data/Hora da Publicação: 28/11/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:58:33
Descrição da Nota: RATEIO DE DESPESA POR VALOR PLANEJADO ESTÁ INCORRETO.
Sintoma
RATEIO DE DESPESA POR VALOR PLANEJADO ESTÁ INCORRETO.
Solução
rateiar despesa por valor planejado.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05339 Data: 28/11/2007 Hora: 10:27:30
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05339
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00024
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04713 - 00001 - 7.0 - 00002 - MULTIPLAS MOEDAS, RATEIO DE DESPESAS, REGIME TRIBUTÁRIO NA DSI
----------------------------------------------------------------------------------------------------
RATEIO DE DESPESA POR VALOR PLANEJADO ESTÁ INCORRETO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
RATEIO DE DEPESAS - VALOR PLANEJADO - DSI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI058F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F01
...
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0.
IF /pws/zycie085-waersfob NE itab_zycit003-waers.
PERFORM: calc_conv_moeda USING itab_zycit003-waers
/pws/zycie085-waersfob
CHANGING itab_zycit003-netpr.
t_ivdes2 =
( ( itab_zycit003-netpr * itab_zycit003-qtd_iten ) /
v_tot_plan ) * itab_zycit049-vlreal.
ENDIF.
* >> Início da inclusão: FORM LOAD_ITAX
t_ivdes2 =
( ( itab_zycit003-netpr * itab_zycit003-qtd_iten ) /
v_tot_plan ) * itab_zycit049-vlreal.
* << Fim da inclusão
ENDIF.
ENDIF.
ELSE.
IF NOT v_tot_real IS INITIAL.
READ TABLE itab_zycit003 WITH KEY
nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0.
IF /pws/zycie085-waersfob NE itab_zycit003-waers.
...
...
CHANGING itab_zycit003-vlreal.
ENDIF.
t_ivdes2 = ( itab_zycit003-vlreal *
itab_zycit003-qtd_iten
/ v_tot_real ) * itab_zycit049-vlreal.
ENDIF.
ENDIF.
ENDIF.
IF p_tipo = 'I'.
itab_zycit049-vldp_aux = itab_zycit049-vldp_aux + t_ivdes2.
* >> Início da exclusão: FORM LOAD_ITAX
MODIFY itab_zycit049 INDEX sy-tabix TRANSPORTING vldp_aux.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_ITAX
MODIFY itab_zycit049 TRANSPORTING vldp_aux.
* << Fim da inclusão
ENDIF.
IF t_ivdes2 > 0.
t_ivdesp = t_ivdesp + t_ivdes2.
ENDIF.
ENDLOOP.
CASE s_inco1_ci.
WHEN 'CIF'.
t_dif_seg = v_tsegfat - v_sgtofat.
t_dif_seg = ( v_cfr / ( v_tcfr ) ) * t_dif_seg.
ENDCASE.
...