Sintoma

Quando são excluídos apenas os itens de embarque a pasta de container fica desabilitada não

permitindo que o usuário faça exclusão do container e consequentemente o embarque também não pode

ser excluído. Se excluir os itens do embarque e verificar que o cadastro de container foi

desabilitado porém se cancelamos a operação de exclusão dos itens do embarque através da seta verde

e não salvamos o embarque, quando entramos novamente no mesmo registro o cadastro de container ainda

está habilitado, ou seja, só fica desabilitado se o embarque for salvo sem os itens.

Solução

Criado tratamento para limpeza da tabela dos itens do da pasta container por dentro do embarque.

Desse forma, permitindo que, ao excluir uma ordem ou item, a tabela seja limpa.

Informações Complementares

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

Nota Número 02485 Data: 21/11/2006 Hora: 16:29:22

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

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

Nota Número              : 02485

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00025

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

EXCLUSÃO DE ITENS DO EMBARQUE E ITENS DA PASTA CONTAINER.

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

Palavras Chave:

EXCLUSÃO; CONTAINER; PASTA; EMBARQUE

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

Objetos da nota:

REPS /PWS/MZYCE003F02

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

Modificações efetuadas em REPS /PWS/MZYCE003F02

...

      IF NOT itab_zycet002[] IS INITIAL.

        MODIFY /pws/zycet002 FROM TABLE itab_zycet002.

        PERFORM verifica_alteracao_bd.

        CHECK sy-subrc EQ 0.

      ENDIF.

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

      PERFORM exclui_items_container

              USING

                 /pws/zycee001-nrseq

                 itab_zycet002[].

      PERFORM verifica_alteracao_bd.

      CHECK sy-subrc EQ 0.

* << Fim da inclusão

      DELETE FROM /pws/zycet003 WHERE nrseq   = /pws/zycee001-nrseq AND

                                      nrseqre = space.

      IF NOT itab_zycet003[] IS INITIAL.

        MODIFY /pws/zycet003 FROM TABLE itab_zycet003.

        PERFORM verifica_alteracao_bd.

...

...

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

       EXPORTING

            percentage = v_perc

            text       = p_texto.

ENDFORM.

* >> Início da inclusão:

FORM exclui_items_container

     USING

        p_nrseq      TYPE /pws/zycet001-nrseq

        p_t_zycet002 LIKE itab_zycet002[].

  DATA: it_zycet124 TYPE STANDARD TABLE OF /pws/zycet124.

  DATA: wa_zycet002 LIKE LINE OF p_t_zycet002[].

  SELECT mandt

         nrseq

         vbeln_va

         vbeln_vf

         posnr

         vbeln_fr

         nrcont

         aupos

    FROM /pws/zycet124

    INTO TABLE it_zycet124

    WHERE nrseq = p_nrseq.

  IF sy-subrc = 0.

    LOOP AT p_t_zycet002 INTO wa_zycet002.

      READ TABLE it_zycet124[]

           TRANSPORTING NO FIELDS

           WITH KEY nrseq    = wa_zycet002-nrseq

                    vbeln_va = wa_zycet002-vbeln_va

                    vbeln_vf = wa_zycet002-vbeln_vf

                    posnr    = wa_zycet002-posnr

                    vbeln_fr = wa_zycet002-vbeln_vl

                    aupos    = wa_zycet002-aupos.

      IF sy-subrc = 0.

        DELETE it_zycet124[] INDEX sy-tabix.

      ELSE.

        READ TABLE it_zycet124[]

             TRANSPORTING NO FIELDS

             WITH KEY nrseq    = wa_zycet002-nrseq

                      vbeln_va = wa_zycet002-vbeln_va

                      vbeln_fr = wa_zycet002-vbeln_vl

                      aupos    = wa_zycet002-aupos.

        IF sy-subrc = 0.

          DELETE it_zycet124[] INDEX sy-tabix.

        ELSE.

          READ TABLE it_zycet124[]

               TRANSPORTING NO FIELDS

               WITH KEY nrseq    = wa_zycet002-nrseq

                        vbeln_va = wa_zycet002-vbeln_va

                        aupos    = wa_zycet002-aupos.

          IF sy-subrc = 0.

            DELETE it_zycet124[] INDEX sy-tabix.

          ENDIF.

        ENDIF.

      ENDIF.

    ENDLOOP.

    IF NOT it_zycet124[] IS INITIAL.

      DELETE /pws/zycet124 FROM TABLE it_zycet124[].

    ELSE.

      sy-subrc = 0.

    ENDIF.

  ELSE.

    sy-subrc = 0.

  ENDIF.

ENDFORM.

* << Fim da inclusão