Sintoma

Desenvolvimento Adicional

Solução

Desenvolvimento Adicional

Informações Complementares

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

Nota Número 05794 Data: 30/01/2008 Hora: 14:14:27

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

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

Nota Número              : 05794

Categoria                : Melhoria

Prioridade               : Média

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 PERMISO DE EMBARQUE

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

Palavras Chave:

OBJETO DE BLOQUEIO PERMISO DE EMBARQUE

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

Objetos da nota:

ENQU /PWS/EZYCET292

FUGR /PWS/ZYCEGF1

REPS /PWS/MZYCE045F01

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

Modificações efetuadas em ENQU /PWS/EZYCET292

Criar Objeto de Bloqueio: /PWS/EZYCET292

Descrição Breve: DE - Parâmetro Exibição Permiso de Embarque

Tabela Primária:

    Nome: /PWS/ZYCET292

    Modo bloqueio: Bloqueio de Escrita

Parâm. Bloqueio:

  Pond  Parâmetro de Bloqueio      Tabela        Nome campo

    X        MANDT              /PWS/ZYCET292      MANDT

    X        NRSEQPER           /PWS/ZYCET292      NRSEQPER

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

Modificações efetuadas em FUGR /PWS/ZYCEGF1

Excluir a Função: /PWS/ZYCE_DEQUEUE_ZYCET292

Excluir a Função: /PWS/ZYCE_ENQUEUE_ZYCET292

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

Modificações efetuadas em REPS /PWS/MZYCE045F01

...

    IF v_erro EQ 0.

      MESSAGE s016(/pws/zycem) WITH text-005 v_nrseqper.

    ELSE.

      MESSAGE s016(/pws/zycem) WITH

           text-006 v_nrseqper v_erro text-008.

    ENDIF.

  ENDIF.

ENDFORM.

FORM rot_lock_record.

  CLEAR v_lock.

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

  CALL FUNCTION '/PWS/ZYCE_ENQUEUE_ZYCET292'

* << Fim da exclusão

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

  CALL FUNCTION 'ENQUEUE_/PWS/EZYCET292'

* << Fim da inclusão

       EXPORTING

            nrseqper       = /pws/zycee292-nrseqper

       EXCEPTIONS

            foreign_lock   = 1

            system_failure = 2.

  IF sy-subrc EQ 0.

    v_lock = 1.

  ELSE.

    MESSAGE s016(/pws/zycem) WITH text-009.

    PERFORM rot_clear_all.

    CALL SCREEN 0001.

  ENDIF.

ENDFORM.

FORM rot_unlock_record.

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

  CALL FUNCTION '/PWS/ZYCE_DEQUEUE_ZYCET292'

* << Fim da exclusão

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

  CALL FUNCTION 'DEQUEUE_/PWS/EZYCET292'

* << Fim da inclusão

       EXPORTING

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

            nrseqper = /pws/zycee292-nrseqper.

* << Fim da exclusão

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

            nrseqper = /pws/zycee292-nrseqper

       EXCEPTIONS

            OTHERS   = 0.

* << Fim da inclusão

ENDFORM.

FORM busca_ordens.

  DATA :

         v_cambio LIKE /pws/zycet001-envia_c. "#EC NEEDED

  SELECT SINGLE envia_c FROM /pws/zycet001 INTO v_cambio

...