CE PLUS - Nota 006476
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Custo Efetivo
Data/Hora da Publicação: 29/04/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:31:13
Descrição da Nota: AO RATEAR ITENS, ESTÁ GERANDO DIFERENÇA
Sintoma
Ao ratear itens, está gerando diferença quando o último item é isento ou suspenso.
Solução
Verificar o último item em que o valor realizado não esteja zerado.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06476 Data: 29/04/2008 Hora: 10:50:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06476
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00045
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02396 - 00001 - 6.0 - 00025 - FATURA DE DESPESA PARA EMBARQUES DE SERVIÇO
----------------------------------------------------------------------------------------------------
AO RATEAR ITENS, ESTÁ GERANDO DIFERENÇA
----------------------------------------------------------------------------------------------------
Palavras Chave:
RATEIO DE ITENS - ISENÇÃO - SUSPENSÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_RATEIO_CUSTO
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_RATEIO_CUSTO
FUNCTION /pws/zyci_rateio_custo.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
DATA: v_ebeln TYPE ekpo-ebeln,
v_ebelp TYPE ekpo-ebelp.
* << Fim da inclusão
...
...
ENDIF.
IF NOT itab_despesa-waers IS INITIAL.
itab_zycit036_aux-waers_real = itab_despesa-waers.
ELSE.
itab_zycit036_aux-waers_real = /pws/zycbt007-waersb.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
APPEND itab_zycit036_aux.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
IF v_linha = v_index AND
itab_zycit036_aux-vlreal IS INITIAL AND
itab_despesa-netpr NE v_tot_desp.
READ TABLE itab_zycit036_aux WITH KEY
codigo = itab_zycit036_aux-codigo
ebeln = v_ebeln
ebelp = v_ebelp.
IF sy-subrc EQ 0.
itab_zycit036_aux-vlreal = itab_zycit036_aux-vlreal +
( itab_despesa-netpr - v_tot_desp ).
ENDIF.
ELSEIF NOT itab_zycit036_aux-vlreal IS INITIAL.
v_ebeln = itab_zycit036_aux-ebeln.
v_ebelp = itab_zycit036_aux-ebelp.
ENDIF.
* << Fim da inclusão
v_tot_desp = v_tot_desp + itab_zycit036_aux-vlreal.
ENDIF.
ENDIF.
ENDLOOP.
DELETE itab_zycit036_aux WHERE vlreal IS initial.
ENDLOOP.
MOVE itab_zycit036_aux[] TO itab_zycit036[].
IF sy-subrc NE 0.
v_erro = 3.
ENDIF.
...