CE PLUS - Nota 008580
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 24/06/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 16:56:19
Descrição da Nota: NECESSIDADE DE EXIT PARA PROGRAMA ESPECIFICO.
Sintoma
Necessidade de exit para programa especifico.
Solução
Criada exit DI014 no perform data_sort após ordenação de itens
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08580 Data: 24/06/2009 Hora: 10:03:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08580
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00102
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NECESSIDADE DE EXIT PARA PROGRAMA ESPECIFICO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - DI - PROGRAMA ESPECIFICO - ORDENAÇÃO DE ITENS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
condmerc inco1 codmat cacl codfunleg
acordo acordorate reduzida percreduz notatipi
reduzidaipi unit_valor unit_meins unit_reccapac unit_rectipo
waersbem dttaxbem antidrate extarif_al tipo_al
orgemiss_al numero_al anoemiss_al ii_extarif ii_tipo
ii_orgemiss ii_numero ii_anoemiss ipi_extarif ipi_tipo
ipi_orgemiss ipi_numero ipi_anoemiss ad_extarif ad_tipo
ad_orgemiss ad_numero ad_anoemiss aladi tribipi
advalicms vlantid meinsantid qtdeantid
inco_item.
* >> Início da inclusão: FORM DATA_SORT
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI023'
'DI014'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DI014' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa).
ENDIF.
ENDIF.
* << Fim da inclusão
ENDFORM.
...