CE PLUS - Nota 008272
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 02/04/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 16:40:49
Descrição da Nota: ABERTURA DE PONTO DE EXIT NA DI ANTES DA QUEBRA DE 80 ITENS PARA ADIÇÃO
Sintoma
Abertura de ponto de Exit na DI antes da quebra de 80 itens para adição DI013
Solução
Abertura de ponto de Exit na DI antes da quebra de 80 itens para adição DI013
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08272 Data: 02/04/2009 Hora: 17:10:09
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08272
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00092
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ABERTURA DE PONTO DE EXIT NA DI ANTES DA QUEBRA DE 80 ITENS PARA ADIÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ABERTURA - EXIT - DI - 80 - DI013
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
PERFORM adic_next.
ELSEIF itab_it_aux-paisfab NE itab_itb-paisfab .
PERFORM adic_next.
ELSEIF itab_it_aux-tp_certif NE itab_itb-tp_certif .
PERFORM adic_next.
ELSE.
IF itab_zycit001-flag_adicao EQ 'X'.
PERFORM adic_next.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM ADIC_LIST
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI023'
'DI013'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DI013' 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
IF v_flag_quebra IS INITIAL AND v_cont > 80.
PERFORM adic_next.
ENDIF.
itab_it-adicao = itab_it_aux-adicao = v_adic.
MODIFY itab_it TRANSPORTING adicao
WHERE ebeln EQ itab_it_aux-ebeln
AND ebelp EQ itab_it_aux-ebelp.
MODIFY itab_it_aux INDEX v_tabix TRANSPORTING adicao.
it_adi-adicao = v_adic.
it_adi-nrseqdi = /pws/zycie085-nrseqdi.
...