CE PLUS - Nota 010578
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 09/09/2010 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:24:15
Descrição da Nota: RATEIO DESPESA POR PESO EM PROCESSO A GRANEL
Sintoma
O valor das despesas rateadas por peso estão incorretos na nota fiscal para processos a granel.
Solução
Ajustado rateio por peso na nota fiscal para utilizar o campo de peso liquido desembarcado quando
este estiver preenchido.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10578 Data: 09/09/2010 Hora: 14:41:01
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10578
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00037
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08899 - 00001 - 7.0 - 00010 - DIFERENÇA ENTRE BASE DE ICMS E O TOTAL DA NOTA FISCAL
----------------------------------------------------------------------------------------------------
RATEIO DESPESA POR PESO EM PROCESSO A GRANEL
----------------------------------------------------------------------------------------------------
Palavras Chave:
RATEIO - DESPESAS - PESO - PROCESSO - GRANEL - NOTA - FISCAL
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
regio = itab_zycit019-regio.
READ TABLE itab_zycit039 WITH KEY
codigo = itab_zycit019-codigo.
IF sy-subrc EQ 0.
IF v_idx EQ v_lines AND /pws/zycit062-arbase NE 'X'.
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'.
* >> Início da inclusão: FORM MENSAGENS_NF
IF NOT itab_zycit003-qtd_itend IS INITIAL.
v_vldp = v_vldp +
v_vldp_aux * itab_zycit003_mark-ntgewd /
v_tot_ntgew.
ELSE.
* << Fim da inclusão
v_vldp = v_vldp +
v_vldp_aux * itab_zycit003_mark-ntgew /
v_tot_ntgew.
* >> Início da inclusão: FORM MENSAGENS_NF
ENDIF.
* << Fim da inclusão
ELSEIF itab_zycit039-proporplan = 'X'.
v_vldp = v_vldp + v_vldp_aux *
( itab_zycit003_mark-netpr *
itab_zycit003_mark-qtd_iten / v_tot_plan ).
ELSE.
v_vldp = v_vldp + v_vldp_aux *
( itab_zycit003_mark-vlreal *
itab_zycit003_mark-qtd_iten / v_tot_real ).
ENDIF.
ENDIF.
...