Sintoma

O campo nrdi na tabela zycit003 está preenchido de forma incorreta

Solução

Localizar o nrseqdi da zycit085 pela tabela zycit100 para atualizar o campo nrdi

Informações Complementares

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

Nota Número 05995 Data: 22/02/2008 Hora: 09:01:02

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

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

Nota Número              : 05995

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00035

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

O CAMPO NRDI NA TABELA ZYCIT003 ESTÁ PREENCHIDO DE FORMA INCORRETA

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

Palavras Chave:

EMBARQUE - NRDI - ZYCIT003

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

Objetos da nota:

REPS /PWS/MZYCI001F03

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

Modificações efetuadas em REPS /PWS/MZYCI001F03

...

       itab_zycit003_da-gewei          TO    itab_zycit003-gewei,

       itab_zycit003_da-gsber          TO    itab_zycit003-gsber,

       itab_zycit003_da-numero_al      TO    itab_zycit003-numero_al,

       itab_zycit003_da-vlreal         TO    itab_zycit003-vlreal,

       itab_zycit003_da-waers          TO    itab_zycit003-waers,

       itab_zycit003_da-qtd_iten         TO    itab_zycit003-menge ,

       itab_zycit003_da-netpr          TO    itab_zycit003-v_fob ,

       /pws/zycie001-nrseq          TO    itab_zycit003-nrseq ,

       itab_zycit100_da-nrseqdi        TO    itab_zycit003-nrseqda,

       itab_zycit100_da-adicao         TO    itab_zycit003-adicao ,

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

       /pws/zycit085-nrdi           TO    itab_zycit003-nrdi  ,

* << Fim da exclusão

        itab_nac-id_reg_ano_nac TO itab_zycit003-id_reg_ano_nac,

        itab_nac-id_reg_num_nac TO itab_zycit003-id_reg_num_nac,

        itab_nac-id_reg_itm_nac  TO itab_zycit003-id_reg_itm_nac.

        IF v_caller = 'SELECIONAR_RC'.

          itab_zycit003-utilizacao = pa_util.

        ENDIF.

        IF NOT itab_zycit003_da-qtd_iten IS INITIAL.

          itab_zycit003-ntgew = (  itab_zycit003_da-ntgew /

               itab_zycit003_da-qtd_iten ) * itab_zycit003-qtd_iten.

        ENDIF.

        itab_zycit003-sld_da   =  itab_zycit003_da-qtd_iten -

        v_qtd_util - itab_zycit003-qtd_iten.

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

        READ TABLE itab_zycit085_da

          WITH KEY nrseqdi = itab_zycit100_da-nrseqdi.

        IF sy-subrc EQ 0.

          MOVE itab_zycit085_da-nrdi  TO   itab_zycit003-nrdi .

        ENDIF.

* << Fim da inclusão

        APPEND itab_zycit003.

      ENDIF.

    ENDLOOP.

    IF v_centro_dif EQ c_sim.

      itab_zycit003_aux[] = itab_zycit003[].

      CLEAR   itab_zycit003.

      REFRESH itab_zycit003.

      SORT itab_zycit003_aux BY ebeln ebelp werks.

      LOOP AT itab_zycit003_aux.

        ON CHANGE OF itab_zycit003_aux-ebeln OR

...