Sintoma

Ao modificar embarque de um pedido, permite criar DI por fora

Solução

Bloquear pedido de compra

Informações Complementares

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

Nota Número 09211 Data: 16/10/2009 Hora: 17:11:44

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

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

Nota Número              : 09211

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00001

Agrupamento              : 00118

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AO MODIFICAR EMBARQUE DE UM PEDIDO, PERMITE CRIAR DI POR FORA

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

Palavras Chave:

EMBARQUE - PEDIDO - MODIFICAR - DI

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

Objetos da nota:

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023F05

REPS /PWS/MZYCI023I01

REPT /PWS/SAPMZYCI023

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

        MOVE-CORRESPONDING itab_zycit100 TO itab_it.

        APPEND itab_it.

        CLEAR itab_it.

      ENDLOOP.

      IF NOT itab_it[] IS INITIAL.

        SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003

                 FOR ALL ENTRIES IN itab_it

                 WHERE nrseq = itab_it-nrseq AND

                       ebeln = itab_it-ebeln AND

                       ebelp = itab_it-ebelp.

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

       perform lock_pedido.

* << Fim da inclusão

      ENDIF.

      MOVE: itab_zycit003[] TO itab_zycit003a[].

      e_subrc = '0'.

      v_perform  = 'FI' .

      PERFORM verifica_exit USING 'D'

                                  '/PWS/SAPMZYCI023'

                                  'DI008'.

      CLEAR itab_zyglt100 .

      READ TABLE itab_zyglt100 WITH KEY zexit = 'DI008'  BINARY SEARCH.

      IF sy-subrc EQ 0.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F05

...

* >> Início da inclusão:

FORM lock_pedido.

  CLEAR v_msg .

  LOOP AT itab_it.

    CALL FUNCTION 'ENQUEUE_EMEKKOE'

         EXPORTING

              mode_ekko      = 'E'

              mode_ekpo      = 'E'

              mandt          = sy-mandt

              ebeln          = itab_it-ebeln

              ebelp          = itab_it-ebelp

              _wait          = ' '

         EXCEPTIONS

              foreign_lock   = 1

              system_failure = 2

              OTHERS         = 3.

    IF sy-subrc EQ '1'.

      IF sy-tcode EQ '/PWS/ZYCI023_C'  OR

         sy-tcode EQ '/PWS/ZYCI023_A'.

        v_msg = 'X'.

      ENDIF.

    ENDIF.

  ENDLOOP.

  IF v_msg = 'X'.

    MESSAGE i015 WITH text-260 text-261.

    IF sy-dynnr EQ '0010'.

      LEAVE TO TRANSACTION '/PWS/ZYCI023_E'

                        AND SKIP FIRST SCREEN.

    ENDIF.

  ENDIF.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPT /PWS/SAPMZYCI023

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 258

Texto: (20 caracteres)

"Item no se ha encont"

Comprimento máximo: 20

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 260

Texto: (31 caracteres)

"The order is already been used."

Comprimento máximo: 32

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 260

Texto: (32 caracteres)

"Pedido já está sendo processado!"

Comprimento máximo: 32

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 260

Texto: (31 caracteres)

"Pedido ya esta sendo procesado!"

Comprimento máximo: 32

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 261

Texto: (24 caracteres)

"Only allowed exhibition."

Comprimento máximo: 27

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 261

Texto: (27 caracteres)

"Permitida somente exibição."

Comprimento máximo: 27

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 261

Texto: (27 caracteres)

"Permit.solamente exhibición"

Comprimento máximo: 27