Sintoma

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

Solução

Bloquear pedido de compra

Informações Complementares

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

Nota Número 09210 Data: 16/10/2009 Hora: 17:05:41

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

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

Nota Número              : 09210

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00001

Agrupamento              : 00001

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

Referência às notas relacionadas:

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

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

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

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

Palavras Chave:

EMBARQUE - PEDIDO - MODIFICAR - RECEBIMENTO

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

Objetos da nota:

REPS /PWS/MZYCI017F01

REPS /PWS/MZYCI017F03

REPT /PWS/SAPMZYCI017

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

Modificações efetuadas em REPS /PWS/MZYCI017F01

...

        AND  a~nrseq     = b~nrseq

        AND  a~nfglobal  = b~nfglobal

        AND  a~ebeln     = b~ebeln

        AND  a~ebelp     = b~ebelp

      INTO CORRESPONDING FIELDS OF TABLE itab_zycit044

        WHERE a~nrseqnf   = /pws/zycie043-nrseq

          AND a~nfglobal  = /pws/zycie043-nfglobal

          AND a~nfremessa = /pws/zycie043-nfremessa

          AND a~docnum    = /pws/zycie043-docnum.

    IF NOT itab_zycit044[] IS INITIAL.

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

      PERFORM lock_pedido .

* << Fim da inclusão

      SELECT ebeln ebelp matnr lgort knttp

             FROM ekpo INTO TABLE itab_deposito

             FOR ALL ENTRIES IN itab_zycit044

             WHERE ebeln = itab_zycit044-ebeln

               AND ebelp = itab_zycit044-ebelp.

    ENDIF.

...

...

FORM chamar_nfglobal.

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

  DATA: v_nrseq LIKE /pws/zycit041-nrseq.

* << Fim da inclusão

...

...

          ELSE.

            MOVE itab_zycit042-lgort TO itab_deposito-lgort.

            MODIFY itab_deposito TRANSPORTING lgort

              WHERE ebeln EQ itab_deposito-ebeln

              AND   ebelp EQ itab_deposito-ebelp

              AND   matnr EQ itab_deposito-matnr.

          ENDIF.

        ENDIF.

      ENDIF.

    ENDLOOP.

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

    DATA: v_nrseq LIKE /pws/zycit041-nrseq.

* << Fim da exclusão

    READ TABLE itab_zycit042 INDEX 1.

    CLEAR v_nrseq.

    v_nrseq = itab_zycit042-nrseq.

    SET PARAMETER ID '/PWS/ZYCIP001' FIELD v_nrseq.

    SUBMIT /pws/zycir006 AND RETURN.                     "#EC CI_SUBMIT

    FREE itab_zycit003.

    IF NOT itab_zycit042[] IS INITIAL.

      SELECT * FROM /pws/zycit003

        INTO TABLE itab_zycit003

        FOR ALL ENTRIES IN itab_zycit042

...

...

        ENDON.

      ENDLOOP.

    ENDIF.

    SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie043a-bukrs.

    SELECT SINGLE *

      FROM /pws/zycit000

      INTO wa_zycit000

      WHERE land1 EQ t001-land1.

    gv_subscreen_0050 = '0100'.

    gc_subscreen-prog = '0100'.

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

      PERFORM lock_pedido.

* << Fim da inclusão

    PERFORM lock_record.

    CALL SCREEN  '0050'.

  ELSE.

    MESSAGE s015 WITH text-013.

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI017F03

...

* >> Início da inclusão:

FORM lock_pedido.

  CLEAR v_msg.

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

     sy-tcode EQ '/PWS/ZYCI017_A'.

    IF gc_subscreen-prog = '0100'.

      LOOP AT itab_zycit042.

        CALL FUNCTION 'ENQUEUE_EMEKKOE'

             EXPORTING

                  mode_ekko      = 'E'

                  mode_ekpo      = 'E'

                  mandt          = sy-mandt

                  ebeln          = itab_zycit042-ebeln

                  ebelp          = itab_zycit042-ebelp

                  _wait          = ' '

             EXCEPTIONS

                  foreign_lock   = 1

                  system_failure = 2

                  OTHERS         = 3.

        IF sy-subrc EQ '1'.

          v_msg = 'X'.

        ENDIF.

      ENDLOOP.

    ELSE.

      LOOP AT itab_zycit044.

        CALL FUNCTION 'ENQUEUE_EMEKKOE'

             EXPORTING

                  mode_ekko      = 'E'

                  mode_ekpo      = 'E'

                  mandt          = sy-mandt

                  ebeln          = itab_zycit044-ebeln

                  ebelp          = itab_zycit044-ebelp

                  _wait          = ' '

             EXCEPTIONS

                  foreign_lock   = 1

                  system_failure = 2

                  OTHERS         = 3.

        IF sy-subrc EQ '1'.

          v_msg = 'X'.

        ENDIF.

      ENDLOOP.

    ENDIF.

    IF v_msg = 'X'.

      MESSAGE i015 WITH text-264 text-265.

      SET PARAMETER ID '/PWS/ZYCIP085' FIELD v_nrseqdi.

      LEAVE TO TRANSACTION '/PWS/ZYCI017_E'.

    ENDIF.

  ENDIF.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPT /PWS/SAPMZYCI017

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

Modificado símbolo de texto:

Idioma: ES

Símbolo: 108

Texto: (50 caracteres)

"Se ejecuta sólo la clasificación de los impuestos."

Comprimento máximo: 50

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 264

Texto: (31 caracteres)

"The order is already been used."

Comprimento máximo: 32

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 264

Texto: (32 caracteres)

"Pedido já está sendo processado!"

Comprimento máximo: 32

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 264

Texto: (31 caracteres)

"Pedido ya esta sendo procesado!"

Comprimento máximo: 32

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 265

Texto: (24 caracteres)

"Only allowed exhibition."

Comprimento máximo: 27

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 265

Texto: (27 caracteres)

"Permitida somente exibição."

Comprimento máximo: 27

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 265

Texto: (27 caracteres)

"Permit.solamente exhibición"

Comprimento máximo: 27