Sintoma

Não havia bloqueio no Registro de Venda '/PWS/SAPZYCET145'.

Solução

Criado objeto de bloqueio /PWS/EZYCET145.

Funções de bloqueio: DEQUEUE_/PWS/EZYCET145 e ENQUEUE_/PWS/EZYCET145.

Substituidas funções obsoletas no programa  '/PWS/SAPZYCET145'

Informações Complementares

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

Nota Número 05735 Data: 23/01/2008 Hora: 16:51:26

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

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

Nota Número              : 05735

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00004

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

OBJETO DE BLOQUEIO NO PROGRAMA PARÂMETRO DE RV / RE / DDE

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

Palavras Chave:

OBJETO DE BLOQUEIO, RV, RE, DDE, REGISTRO DE VENDA, PARAMETRO

REGISTRO DE EXPORTAÇAO, DECLARAÇÃO DE DESPACHO ADUANEIRO, ZYCET145

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

Objetos da nota:

ENQU /PWS/EZYCET145

REPS /PWS/MZYCET145F01

REPS /PWS/MZYCET145I01

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

Modificações efetuadas em ENQU /PWS/EZYCET145

CRIAR OBJETO DE BLOQUEIO : /PWS/EZYCET145

CLASSE DE DESENVOLVIMENTO:  /PWS/ZYCE

DESCRIÇÃO BREVE: CE - Bloqueio Parâmetro de RV / RE / DDE

TABELA PRIMARIA: /PWS/ZYCET145

MODO BLOQUEIO: Bloqueio de escrita

PARAMETRO DE BLOQUEIO: Marcar MANDT, BUKRS E BRANCH

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

Modificações efetuadas em REPS /PWS/MZYCET145F01

FORM seleciona.

  d_bukrs = /pws/zycee145-bukrs.

  d_branch = /pws/zycee145-branch.

  IF sy-tcode = '/PWS/ZYCET145_M'.

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

    CALL FUNCTION '/PWS/ZYCE_ENQUEUE_ZYCET145'

* << Fim da exclusão

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

    CALL FUNCTION 'ENQUEUE_/PWS/EZYCET145'

* << Fim da inclusão

         EXPORTING

              bukrs          = d_bukrs

              branch         = d_branch

         EXCEPTIONS

              foreign_lock   = 1

              system_failure = 2

              OTHERS         = 3.

    IF sy-subrc <> 0.

      MESSAGE s001 WITH text-021 text-022.

      SET PARAMETER ID '/PWS/ZYCEP446' FIELD /pws/zycee145-bukrs.

...

...

  ELSEIF v_input = 'C'.

    LOOP AT itab_botoes.

      SET PF-STATUS '0200_M' EXCLUDING itab_botoes.

    ENDLOOP.

  ELSEIF v_input = 'E'.

    SET PF-STATUS '0200'.

  ENDIF.

ENDFORM.

FORM modificar.

  IF v_input = 'E'.

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

    CALL FUNCTION '/PWS/ZYCE_ENQUEUE_ZYCET145'

* << Fim da exclusão

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

    CALL FUNCTION 'ENQUEUE_/PWS/EZYCET145'

* << Fim da inclusão

         EXPORTING

              bukrs          = d_bukrs

              branch         = d_branch

         EXCEPTIONS

              foreign_lock   = 1

              system_failure = 2

              OTHERS         = 3.

    IF sy-subrc <> 0.

      MESSAGE s001 WITH text-021 text-022.

    ELSE.

...

...

        v_input = 'E'.

      ELSEIF v_resposta = 'N'.

        CLEAR: v_alt,

               /pws/zycee145.

        v_input = 'E'.

      ELSE.

      ENDIF.

    ELSE.

      v_input = 'E'.

    ENDIF.

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

    CALL FUNCTION '/PWS/ZYCE_DEQUEUE_ZYCET145'

* << Fim da exclusão

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

    CALL FUNCTION 'DEQUEUE_/PWS/EZYCET145'

* << Fim da inclusão

         EXPORTING

              bukrs  = d_bukrs

              branch = d_branch.

  ELSEIF v_input = 'C'.

    v_input = 'E'.

  ENDIF.

ENDFORM.

FORM abre_fecha.

  CASE v_input.

    WHEN 'E'.

...

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

Modificações efetuadas em REPS /PWS/MZYCET145I01

...

MODULE sel_descfinalid INPUT.

  PERFORM sel_descfinalid.

ENDMODULE.

MODULE seleciona INPUT.

  PERFORM seleciona.

ENDMODULE.

MODULE modificou INPUT.

  PERFORM modificou.

ENDMODULE.

MODULE user_command_exit INPUT.

* >> Início da exclusão: MODULE USER_COMMAND_EXIT

  CALL FUNCTION '/PWS/ZYCE_DEQUEUE_ZYCET145'

* << Fim da exclusão

* >> Início da inclusão: MODULE USER_COMMAND_EXIT

 CALL FUNCTION 'DEQUEUE_/PWS/EZYCET145'

* << Fim da inclusão

       EXPORTING

* >> Início da exclusão: MODULE USER_COMMAND_EXIT

            bukrs  = d_bukrs

            branch = d_branch.

* << Fim da exclusão

* >> Início da inclusão: MODULE USER_COMMAND_EXIT

    BUKRS                    = d_bukrs

    BRANCH                   = d_branch.

* << Fim da inclusão

  CLEAR: /pws/zycee145-bukrs, /pws/zycee145-branch.

...