CE PLUS - Nota 008030
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 10/02/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 10:04:34
Descrição da Nota: VALOR UNITARIO DOS ITENS ESTÁ INCORRETO.
Sintoma
As despesas parametrizadas para compor o valor do item não estão sendo consideradas no calculo do
valor unitario.
Solução
Ajustado tratamento para verificar o retorno da exit através da variavel e_subrc.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08030 Data: 10/02/2009 Hora: 10:51:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08030
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00085
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00866 - 00001 - 6.0 - 00022 - PROBLEMAS AO GERAR O SEQUENCIAL DE LI NA PLI.
----------------------------------------------------------------------------------------------------
VALOR UNITARIO DOS ITENS ESTÁ INCORRETO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
LI - ITENS - VALOR - UNITARIO - PARAMETRO - DESPESAS - PEDIDO
/PWS/SAPMZYCI020 - /PWS/ZYCIT030 - EXIT - PLI002
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
AND land1 = t001-land1
AND bukrs = /pws/zycie078-bukrs.
* >> Início da inclusão: FORM VERIFICA_ITENS
CLEAR: e_subrc.
* << Fim da inclusão
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI020'
'PLI002'.
CLEAR: itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'PLI002'.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
* >> Início da exclusão: FORM VERIFICA_ITENS
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ITENS
ENDIF.
IF e_subrc EQ 0.
* << Fim da inclusão
IF NOT itab_itens_aux2[] IS INITIAL.
REFRESH: itab_itens_auxs, itab_a016, itab_konp.
LOOP AT itab_zycit030.
LOOP AT itab_itens_aux2.
itab_itens_auxs-ebeln = itab_itens_aux2-ebeln.
itab_itens_auxs-ebelp = itab_itens_aux2-ebelp.
itab_itens_auxs-kschl = itab_zycit030-kschl.
APPEND itab_itens_auxs.
ENDLOOP.
ENDLOOP.
...