Sintoma

Necessário desenvolvimento específico

Solução

Criada chamada de exit DI021 no perform adic_list.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 11530 Data: 11/10/2011 Hora: 08:57:57

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 11530

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00009

Agrupamento              : 00089

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

----------------------------------------------------------------------------------------------------

NECESSÁRIO DESENVOLVIMENTO ESPECÍFICO

----------------------------------------------------------------------------------------------------

Palavras Chave:

DI - EXIT - ZYGLT100

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI023F01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

  ENDLOOP.

  PERFORM data_sort.

  IF itab_zycit001-flag_adicao EQ 'X'.

    v_adic = 0.

  ELSE.

    v_adic = 1.

  ENDIF.

  CLEAR: v_tabix, v_cont.

  SORT itab_zycit503 BY j_1bnbm atributo_nve especif_nve.

  CLEAR v_nve .

* >> Início da inclusão: FORM ADIC_LIST

  PERFORM verifica_exit USING 'D'

                              '/PWS/SAPMZYCI023'

                              'DI021'.

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY zexit = 'DI021'  BINARY SEARCH.

  IF sy-subrc EQ 0.

    e_subrc = 0 .

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario) IN PROGRAM

          (itab_zyglt100-programa) IF FOUND.

    ENDIF.

  ENDIF.

  IF e_subrc EQ 0.

* << Fim da inclusão

  LOOP AT itab_it_aux.

    IF sy-tabix = 1.

      MOVE-CORRESPONDING itab_it_aux TO itab_itb.

    ENDIF.

    v_tabix = v_tabix + 1.

    CLEAR v_flag_quebra.

    v_cont = v_cont + 1.

    IF itab_it_aux-j_1bnbm           NE itab_itb-j_1bnbm     .

      PERFORM adic_next.

    ELSEIF itab_it_aux-inco1      NE itab_itb-inco1.

...

...

  IF NOT itab_zycit503[] IS INITIAL.

    IF itab_zycit001-flag_adicao EQ 'X'.

      v_adic = 0.

    ELSE.

      v_adic = 1.

    ENDIF.

  ENDIF.

  MOVE: it_adi[]   TO it_alist[],

      it_adi[]   TO it_adia[].

  DELETE ADJACENT DUPLICATES FROM it_alist COMPARING adicao.

* >> Início da inclusão: FORM ADIC_LIST

  ENDIF.

* << Fim da inclusão

  SORT itab_it_aux BY adicao ebeln ebelp.

  READ TABLE itab_it_aux INDEX 1.

  v_adic = itab_it_aux-adicao.

  CLEAR v_cont .

  LOOP AT itab_it_aux.

    v_tabix = sy-tabix.

    IF itab_it_aux-item_adi_sisc IS INITIAL.

      IF v_adic = itab_it_aux-adicao.

        itab_it_aux-item_adi_sisc = v_cont + 1 .

      ELSE.

...