Sintoma

Ao eliminar DI não está limpando dados da DI na LI

Solução

Limpar os dados da DI na tabela ZYCIT078

Informações Complementares

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

Nota Número 12560 Data: 28/09/2012 Hora: 11:05:36

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

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

Nota Número              : 12560

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 9.0

Pacote                   : 00002

Agrupamento              : 00130

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

Referência às notas relacionadas:

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

06440  - 00001 - 7.0    - 00005  - DESENVOLVIMENTO DE FUNCIONALIDADE DE RETIFICAÇÃO DA DI

07020  - 00002 - 7.0    - 00006  - CRIAR TABELA DE LOG PARA EXCLUSÕES

11558  - 00004 - 8.0    - 00009  - ANEXAR DOCUMENTOS NO EMBARQUE.

11569  - 00005 - 8.0    - 00009  - CRIAÇÃO DE TRILHA DE AUDITORIA: EMBARQUE

11861  - 00003 - 8.0    - 00010  - TRILHA DE AUDITORIA NA DI

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

AO ELIMINAR DI NÃO ESTÁ LIMPANDO DADOS DA DI NA LI

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

Palavras Chave:

DI - LI - ESTORNO DI - DESVINCULAÇÃO - VINCULAÇÃO

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

Objetos da nota:

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI001X01

REPS /PWS/MZYCI001F01

REPT /PWS/SAPMZYCI001

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

        wa_zycit492-retif = wa_zycit487-retif.

        INSERT /pws/zycit492 FROM wa_zycit492.

      ENDLOOP.

      LOOP AT itab_zycit116.

        MOVE-CORRESPONDING itab_zycit116 TO wa_zycit493.

        wa_zycit493-retif = wa_zycit487-retif.

        INSERT /pws/zycit493 FROM wa_zycit493.

      ENDLOOP.

    ENDIF.

  ENDIF.

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

  PERFORM atualiza_li.

* << Fim da inclusão

  READ TABLE itab_it INDEX 1.

  /pws/zycit496-mandt    = /pws/zycie085-mandt  .

  /pws/zycit496-nrseq    = itab_it-nrseq        .

  /pws/zycit496-func     = 'DI'                 .

  /pws/zycit496-nrseqdi  = /pws/zycie085-nrseqdi.

  /pws/zycit496-nrdi     = /pws/zycie085-nrdi   .

  /pws/zycit496-dtuser   = sy-datlo             .

  /pws/zycit496-hruser   = sy-uzeit             .

  /pws/zycit496-username = sy-uname             .

  MOVE-CORRESPONDING /pws/zycie085 TO /pws/zycit085.

...

...

* >> Início da inclusão:

FORM atualiza_li.

  DATA: lt_zycit078 TYPE STANDARD

          TABLE OF /pws/zycit078 with header line.

  IF NOT itab_zycit003[] IS INITIAL.

    SELECT * FROM /pws/zycit078

    INTO TABLE lt_zycit078

    FOR ALL ENTRIES IN itab_zycit003

    WHERE nrseqli EQ itab_zycit003-nrseqli

    AND   nrseqdi EQ /pws/zycie085-nrseqdi.

  ENDIF.

  UPDATE /pws/zycit078 SET nrseqdi = space

                           nrdi    = space

                           dtregdi = space

                           adicao  = space

                     WHERE nrseqdi = /pws/zycie085-nrseqdi.

  IF sy-subrc EQ 0.

    LOOP AT lt_zycit078.

      MOVE-CORRESPONDING lt_zycit078 TO /pws/zycit078.

      PERFORM carrega_log USING '/PWS/ZYCIT078' 'U'

              sy-tcode  '/PWS/SAPMZYCI020' /pws/zycit078-nrseqli.

    ENDLOOP.

  ENDIF.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI001X01

...

* >> Início da inclusão:

  DATA: BEGIN OF itab_desv_li OCCURS 0.

  DATA: nrseqli    TYPE /pws/zycit078-nrseqli,

        tpli       type /pws/zycit078-tpli   ,

        nrli       type /pws/zycit078-nrli   .

  DATA: END OF itab_desv_li.

* << Fim da inclusão

  DATA: END OF COMMON PART a.

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

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

  PERFORM verifica_desvinculacao.

* << Fim da inclusão

ENDFORM.

...

...

FORM realizando_desv_li.

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

  itab_desv_li-nrseqli = itab_zycit003-nrseqli .

  itab_desv_li-nrli    = itab_zycit003-nrli    .

  itab_desv_li-tpli    = 'N'  .

  APPEND itab_desv_li .

* << Fim da inclusão

...

...

FORM realizando_desv_lsi.

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

  itab_desv_li-nrseqli = itab_zycit003-nrseqlsi .

  itab_desv_li-nrli    = itab_zycit003-nrlsi    .

  itab_desv_li-tpli    = 'S'  .

  APPEND itab_desv_li .

* << Fim da inclusão

...

...

* >> Início da inclusão:

FORM verifica_desvinculacao.

  clear v_msg.

  LOOP AT itab_desv_li.

    SELECT SINGLE * FROM /pws/zycit078

    WHERE nrseqli = itab_desv_li-nrseqli

    AND   status  = 'VIN'.

    IF sy-subrc EQ 0.

      v_msg = 'X'.

      WHILE sy-subrc EQ 0.

        SELECT SINGLE * FROM /pws/zycit078

        WHERE nrseqli = itab_desv_li-nrseqli

        AND   status  = 'VIN'.

        IF sy-subrc EQ 0.

          IF itab_desv_li-tpli EQ 'N' .

            IF itab_desv_li-nrli IS INITIAL.

              UPDATE /pws/zycit078 SET status = 'COM'

                                  nrseq  = space

                              WHERE nrseqli = itab_desv_li-nrseqli

                                AND nrli    = itab_desv_li-nrli

                                AND tpli    = 'N'.

            ELSE.

              UPDATE /pws/zycit078 SET status = 'VAL'

                                  nrseq  = space

                              WHERE nrseqli = itab_desv_li-nrseqli

                                AND nrli    = itab_desv_li-nrli

                                AND tpli    = 'N'.

            ENDIF.

          ELSE.

            IF itab_zycit003-nrlsi IS INITIAL.

              UPDATE /pws/zycit078 SET status = 'COM'

                                  nrseq  = space

                                   WHERE nrseqli = itab_desv_li-nrseqli

                                        AND nrli    = itab_desv_li-nrli

                                        AND tpli    = 'S'.

            ELSE.

              UPDATE /pws/zycit078 SET status = 'COM'

                                  nrseq  = space

                                   WHERE nrseqli = itab_desv_li-nrseqli

                                        AND nrli    = itab_desv_li-nrli

                                        AND tpli    = 'S'.

            ENDIF.

          ENDIF.

          COMMIT WORK AND WAIT.

        ENDIF.

      ENDWHILE.

    ENDIF.

  ENDLOOP.

  IF v_msg = 'X' .

    MESSAGE i015 WITH text-536 text-537.

    CLEAR v_msg.

  ENDIF.

clear itab_desv_li. refresh itab_desv_li.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPT /PWS/SAPMZYCI001

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 536

Texto: (44 caracteres)

"Errors occurred while updating the database."

Comprimento máximo: 46

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 536

Texto: (46 caracteres)

"Ocorreram erros ao atualizar o Banco de Dados."

Comprimento máximo: 60

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 536

Texto: (34 caracteres)

"Se han errores in actualización in"

Comprimento máximo: 46

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 537

Texto: (28 caracteres)

"There will be a new attempt."

Comprimento máximo: 35

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 537

Texto: (30 caracteres)

"Será feita uma nova tentativa."

Comprimento máximo: 35