CE PLUS - Nota 008497
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 05/06/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 16:59:09
Descrição da Nota: ERRO EM RATEIO DE DESPESAS POR VALOR PLANEJADO QUANDO EMBARQUE É GRANEL.
Sintoma
Erro em rateio de despesas por valor planejado quando embarque é granel.
Solução
Ratear valores considerando sempre quantidade embarcada, na DI e na NF.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08497 Data: 05/06/2009 Hora: 10:21:09
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08497
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00100
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ERRO EM RATEIO DE DESPESAS POR VALOR PLANEJADO QUANDO EMBARQUE É GRANEL.
----------------------------------------------------------------------------------------------------
Palavras Chave:
RATEIO - DESPESAS - DI - GRANEL - NF
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
IF v_idx EQ v_lines.
v_vldp = v_vldp + ( v_vldp_aux - v_vldp ) .
ELSE.
IF itab_zycit039-divabs = 'X'.
v_vldp = v_vldp + v_vldp_aux / v_lines.
ELSEIF itab_zycit039-peso = 'X'.
v_vldp = v_vldp +
v_vldp_aux * itab_zycit003_mark-ntgew /
v_tot_ntgew.
ELSEIF itab_zycit039-proporplan = 'X'.
* >> Início da exclusão: FORM MENSAGENS_NF
IF NOT itab_zycit003_mark-qtd_itend IS INITIAL.
* << Fim da exclusão
v_vldp = v_vldp + v_vldp_aux *
( itab_zycit003_mark-netpr *
* >> Início da exclusão: FORM MENSAGENS_NF
itab_zycit003_mark-qtd_itend / v_tot_plan ).
ELSE.
v_vldp = v_vldp + v_vldp_aux *
( itab_zycit003_mark-netpr *
* << Fim da exclusão
itab_zycit003_mark-qtd_iten / v_tot_plan ).
* >> Início da exclusão: FORM MENSAGENS_NF
ENDIF.
ELSE.
IF NOT itab_zycit003_mark-qtd_itend IS INITIAL.
v_vldp = v_vldp + v_vldp_aux *
( itab_zycit003_mark-vlreal *
itab_zycit003_mark-qtd_itend / v_tot_real ).
* << Fim da exclusão
ELSE.
v_vldp = v_vldp + v_vldp_aux *
( itab_zycit003_mark-vlreal *
itab_zycit003_mark-qtd_iten / v_tot_real ).
* >> Início da exclusão: FORM MENSAGENS_NF
ENDIF.
* << Fim da exclusão
ENDIF.
ENDIF.
ENDIF.
...
...
/pws/zycit053-vlreal = itab_zycit049aux-vldp / v_lines.
v_total_dp = v_total_dp + /pws/zycit053-vlreal.
ELSEIF itab_zycit039-peso = 'X'.
/pws/zycit053-vlreal = itab_zycit049aux-vldp *
itab_zycit003-ntgew / v_tot_ntgew.
v_total_dp = v_total_dp + /pws/zycit053-vlreal.
ELSEIF itab_zycit039-proporplan = 'X'.
* >> Início da exclusão: FORM CONGELA_DESPESA
IF NOT itab_zycit003-qtd_itend IS INITIAL .
/pws/zycit053-vlreal = itab_zycit003-netpr *
itab_zycit003-qtd_itend
/ v_tot_plan * itab_zycit049aux-vldp.
v_total_dp = v_total_dp + /pws/zycit053-vlreal.
ELSE.
* << Fim da exclusão
/pws/zycit053-vlreal = itab_zycit003-netpr *
itab_zycit003-qtd_iten
/ v_tot_plan * itab_zycit049aux-vldp.
* >> Início da exclusão: FORM CONGELA_DESPESA
v_total_dp = v_total_dp + /pws/zycit053-vlreal.
ENDIF.
ELSE.
IF NOT itab_zycit003-qtd_itend IS INITIAL.
/pws/zycit053-vlreal = itab_zycit003-vlreal *
itab_zycit003-qtd_itend
/ v_tot_real * itab_zycit049aux-vldp.
* << Fim da exclusão
v_total_dp = v_total_dp + /pws/zycit053-vlreal.
ELSE.
/pws/zycit053-vlreal = itab_zycit003-vlreal *
itab_zycit003-qtd_iten
/ v_tot_real * itab_zycit049aux-vldp.
v_total_dp = v_total_dp + /pws/zycit053-vlreal.
* >> Início da exclusão: FORM CONGELA_DESPESA
ENDIF.
* << Fim da exclusão
ENDIF.
...