CE PLUS - Nota 011273
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 27/06/2011 00:00:00
Data/Hora Última Alteração: 28/06/2011 11:35:28
Descrição da Nota: NECESSÁRIO EXIT PARA DESENVOLVIMENTO ESPECÍFICO
Sintoma
Necessário exit para desenvolvimento específico.
Solução
Criada a chamada de exit DI020 no programa /PWS/SAPMZYCI023, perform Fill_receitas
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11273 Data: 27/06/2011 Hora: 14:39:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11273
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00008
Agrupamento : 00075
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
NECESSÁRIO EXIT PARA DESENVOLVIMENTO ESPECÍFICO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT- DESENVOLVIMENTO ESPECÍFICO - ZYGLT100
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023TOP
REPS /PWS/MZYCI023X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023TOP
...
* >> Início da exclusão:
s_waddevi LIKE s_fbvr,
* << Fim da exclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023X01
...
* >> Início da inclusão:
DATA s_waddevi LIKE s_fbvr.
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
ELSE.
IF v_petroleo IS INITIAL.
PERFORM: fill_receitas_auto USING '0086' t_vlii.
ELSE.
PERFORM: fill_receitas_auto USING '1962' t_vlii.
ENDIF.
PERFORM: fill_receitas_auto USING '1038' t_vlipi.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM FILL_RECEITAS
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI023'
'DI020'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DI020' BINARY SEARCH.
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.
ENDIF.
* << Fim da inclusão
ENDFORM.
...