Sintoma

Ao alterar DI, campo Item de Adição Siscomex está fechado para alteração

Solução

Reabrir campo para digitação, propondo valores ao criar DI.

Informações Complementares

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

Nota Número 10765 Data: 24/11/2010 Hora: 16:54:51

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

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

Nota Número              : 10765

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00005

Agrupamento              : 00049

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

Referência às notas relacionadas:

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

04349  - 00001 - 7.0    - 00002  - NA DI, QUANDO HÁ MAIS DE 2 ADIÇÕES, REPETE O NÚMERO DOS ITENS

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

AO ALTERAR DI, CAMPO ITEM DE ADIÇÃO SISCOMEX ESTÁ FECHADO PARA ALTERAÇÃO

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

Palavras Chave:

DI - ITEM DE ADIÇÃO SISCOMEX - CAMPO FECHADO.

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

Objetos da nota:

DYNP /PWS/SAPMZYCI023                        0322

REPS /PWS/MZYCI023F01

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI023                        0322

Na tela, alterar o campo WA_ITB-ITEM_ADI_SISC para Campo de entrada e campo de saída.

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

    itab_it-adicao = itab_it_aux-adicao = v_adic.

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

    MODIFY itab_it TRANSPORTING adicao

* << Fim da exclusão

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

    itab_it-item_adi_sisc = itab_it_aux-item_adi_sisc.

    MODIFY itab_it TRANSPORTING adicao item_adi_sisc

* << Fim da inclusão

           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.

    it_adi-nrseq         = itab_it_aux-nrseq    .

    it_adi-ebeln         = itab_it_aux-ebeln    .

    it_adi-ebelp         = itab_it_aux-ebelp    .

    it_adi-nrseqli       = itab_it_aux-nrseqli  .

    it_adi-j_1bnbm       = itab_it_aux-j_1bnbm  .

...

...

  ENDIF.

  MOVE: it_adi[]   TO it_alist[],

      it_adi[]   TO it_adia[].

  DELETE ADJACENT DUPLICATES FROM it_alist COMPARING adicao.

  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.

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

    IF itab_it_aux-item_adi_sisc IS INITIAL.

* << Fim da inclusão

    IF v_adic = itab_it_aux-adicao.

      itab_it_aux-item_adi_sisc = v_cont + 1 .

    ELSE.

      CLEAR v_cont.

      itab_it_aux-item_adi_sisc = v_cont + 1 .

    ENDIF.

    v_adic = itab_it_aux-adicao.

    MODIFY itab_it_aux INDEX v_tabix.

    itab_it-item_adi_sisc = itab_it_aux-item_adi_sisc.

    MODIFY itab_it TRANSPORTING item_adi_sisc

           WHERE ebeln EQ itab_it_aux-ebeln

           AND   ebelp EQ itab_it_aux-ebelp.

    v_cont = v_cont + 1.

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

    ENDIF.

* << Fim da inclusão

  ENDLOOP.

  MOVE: it_adi[]   TO it_alist[],

      it_adi[]   TO it_adia[].

...