CE PLUS - Nota 009821
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 11/02/2010 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:14:32
Descrição da Nota: CORREÇÃO DE RATEIO DAS DESPESAS POR VALOR CIF
Sintoma
O valor das despesas na nota fiscal está diferente da DI.
Solução
Ajustado programa para utilizar o valor total do frete convertido para a moeda da mercadoria no
calculo do rateio das despesas.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09821 Data: 11/02/2010 Hora: 09:24:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09821
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00008
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05011 - 00001 - 7.0 - 00003 - ERRO NO RATEIO DE DESPESAS DA DI AO FAZER A NF
----------------------------------------------------------------------------------------------------
CORREÇÃO DE RATEIO DAS DESPESAS POR VALOR CIF
----------------------------------------------------------------------------------------------------
Palavras Chave:
RATEIO - DESPESA - VALOR - CIF - DIFERENÇA
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
/pws/zycit085-dttax
CHANGING v_taxa_desp.
IF NOT v_taxa_desp IS INITIAL.
itab_zycit100-vlfre = itab_zycit100-vlfre / v_taxa_desp.
itab_zycit100-vlseg = itab_zycit100-vlseg /
/pws/zycit085-ukursseg.
ENDIF.
v_vldp = itab_zycit049_a-vlreal *
( ( itab_zycit100-vlfob +
itab_zycit100-vlfre + itab_zycit100-vlseg )
* >> Início da exclusão: FORM SELECIONA_DESPESAS
/ ( /pws/zycit085-vlfob + /pws/zycit085-vlfre +
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DESPESAS
/ ( /pws/zycit085-vlfob + v_vlfre +
* << Fim da inclusão
/pws/zycit085-vlseg ) ).
ENDIF.
ELSE.
v_vldp = itab_zycit049_a-vldp *
( itab_zycit003-vlreal *
itab_zycit003-qtd_iten / v_tot_real ).
ENDIF.
ENDIF.
v_tot_vldp = v_tot_vldp + v_vldp.
itab_zycit042_d-vldp = itab_zycit042_d-vldp + v_vldp.
...
...
/pws/zycit085-dttax
CHANGING v_taxa_desp.
IF NOT v_taxa_desp IS INITIAL.
itab_zycit100-vlfre = itab_zycit100-vlfre / v_taxa_desp.
itab_zycit100-vlseg = itab_zycit100-vlseg /
/pws/zycit085-ukursseg.
ENDIF.
v_vldp = itab_zycit049-vlreal *
( ( itab_zycit100-vlfob +
itab_zycit100-vlfre + itab_zycit100-vlseg )
* >> Início da exclusão: FORM SELECIONA_DESPESAS
/ ( /pws/zycit085-vlfob + /pws/zycit085-vlfre +
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DESPESAS
/ ( /pws/zycit085-vlfob + v_vlfre +
* << Fim da inclusão
/pws/zycit085-vlseg ) ).
ENDIF.
ELSE.
v_vldp = itab_zycit049-vldp *
( itab_zycit003-vlreal *
itab_zycit003-qtd_iten / v_tot_real ).
ENDIF.
ENDIF.
v_tot_vldp = v_tot_vldp + v_vldp.
itab_zycit042-vldp = itab_zycit042-vldp + v_vldp.
...