CE PLUS - Nota 009387
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 16/11/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 17:53:19
Descrição da Nota: IMPLEMENTAÇÃO DE EXIT NO DESEMBARAÇO LI
Sintoma
Implementação de Exit no Desembaraço LI - LI004
Solução
Implementação de Exit no Desembaraço LI - LI004
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09387 Data: 16/11/2009 Hora: 14:09:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09387
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00123
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
IMPLEMENTAÇÃO DE EXIT NO DESEMBARAÇO LI
----------------------------------------------------------------------------------------------------
Palavras Chave:
IMPLEMENTAÇÃO - EXIT - DESEMBARAÇO LI - LI004
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
IF /pws/zycie078-fabricante EQ '2'.
MOVE it_zycit003-lifnrfabr TO it_zycit079-lifnr.
ENDIF.
MODIFY it_zycit079 INDEX v_tabix.
ENDLOOP.
SORT it_zycit079 BY ebeln ebelp.
ENDIF.
ENDIF.
ENDFORM.
FORM save_li.
* >> Início da inclusão: FORM SAVE_LI
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI020'
'LI004'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'LI004' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa)
CHANGING e_subrc
IF FOUND .
IF e_subrc EQ '8'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
IF v_saili EQ 'S'.
IF v_tcode EQ '/PWS/ZYCI020_I'.
PERFORM save_novoreg .
ELSEIF v_tcode EQ '/PWS/ZYCI020_G'.
PERFORM verifica_novoreg.
ENDIF.
ELSE.
MESSAGE w015 WITH text-374.
ENDIF.
SORT it_zycit079 BY ebeln ebelp.
...