CE PLUS - Nota 009816
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 10/02/2010 00:00:00
Data/Hora Última Alteração: 20/06/2011 11:58:50
Descrição da Nota: ABERTURA DA EXIT LI005
Sintoma
Abertura da exit LI005 - vinculação do ato concessório.
Solução
Abertura da exit LI005 - vinculação do ato concessório.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09816 Data: 10/02/2010 Hora: 14:16:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09816
Categoria : Melhoria
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
07616 - 00001 - 7.0 - 00007 - VINCULAÇÃO DE ATO CONCESSÓRIO NA LI
----------------------------------------------------------------------------------------------------
ABERTURA DA EXIT LI005
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT LI005 VINCULAÇÃO DO ATO CONCESSÓRIO.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
text-454
CHANGING itab_atos2-icon.
ENDIF.
ELSE.
PERFORM call_icon USING text-452
text-454
CHANGING itab_atos2-icon.
ENDIF.
MODIFY itab_atos2.
ENDLOOP.
* >> Início da inclusão: FORM VINCULAR_ATOC
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI020'
'LI005'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'LI005' 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 NOT itab_atos2[] IS INITIAL.
CALL SCREEN '0810'.
ELSE.
MESSAGE i015 WITH text-395.
ENDIF.
ENDFORM.
FORM call_icon USING p_name p_inf CHANGING p_v_icone.
CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = p_name
...