Sintoma

Verificar o centro do Pedido ao vincular na LI, ele não pode ser diferente do que já está na LI, ex:

um é produtivo e o outro não.

Solução

Verificar os centros - werks.

Informações Complementares

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

Nota Número 12747 Data: 28/12/2012 Hora: 11:40:58

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

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

Nota Número              : 12747

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00003

Agrupamento              : 00141

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

Referência às notas relacionadas:

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

08318  - 00001 - 7.0    - 00009  - DESENVOLVIMENTO NACIONALIZAÇÃO DE ADMISSÃO TEMPORÁRIA

09176  - 00002 - 8.0    - 00001  - NA LI NÃO ESTA VALIDANDO O IMPORTADOR AO VINCULAR O PEDIDO

11416  - 00003 - 8.0    - 00008  - AO VINCULAR UM ITEM APENAS DO EMBARQUE, EMITE ERRO DE NCM DIFEREN

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

VERIFICAR SE O CENTROS DOS PEDIDOS AO VINCULAR NA LI

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

Palavras Chave:

LI - CENTRO - PRODUTIVO - VINCULAR - PEDIDO - WERKS

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

Objetos da nota:

REPS /PWS/MZYCI020F01

REPT /PWS/SAPMZYCI020

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

Modificações efetuadas em REPS /PWS/MZYCI020F01

...

FORM selecionar_itens.

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

  DATA: v_werks_prod TYPE  boole,

        v_werks      LIKE /pws/zycit003-werks.

  DATA: BEGIN OF lt_ekpo OCCURS 0,

          ebeln TYPE ekpo-ebeln,

          ebelp TYPE ekpo-ebelp,

          werks TYPE ekpo-werks,

        END OF lt_ekpo.

* << Fim da inclusão

...

...

    WHERE bukrs = /pws/zycie078-bukrs.

    IF v_land1 EQ 'BR'.

      IF NOT itab_itens[] IS INITIAL.

        SELECT * FROM t001w INTO TABLE itab_t001w

            FOR ALL ENTRIES IN itab_itens

            WHERE werks = itab_itens-werks.

        LOOP AT itab_t001w WHERE j_1bbranch NE /pws/zycie078-j_1bbranch.

        ENDLOOP.

        IF sy-subrc EQ 0.

          MESSAGE e015 WITH text-497.

        ENDIF.

      ENDIF.

    ENDIF.

  ENDIF.

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

  IF ( v_tcode EQ '/PWS/ZYCI020_C' OR

       v_tcode EQ '/PWS/ZYCI020_A' ) AND

     NOT /pws/zycie078-bukrs IS INITIAL AND

     NOT itab_itens[] IS INITIAL.

    CLEAR: v_werks_prod, v_werks, lt_ekpo, lt_ekpo[].

    CALL FUNCTION 'CHECK_BUKRS_ML_PRODUCTIVE'

         EXPORTING

              i_bukrs          = /pws/zycie078-bukrs

         IMPORTING

              e_all_productive = v_werks_prod.

    IF v_werks_prod IS INITIAL.

      READ TABLE itab_itens INDEX 1.

      MOVE: itab_itens-werks TO v_werks.

      LOOP AT itab_itens WHERE werks NE v_werks.

      ENDLOOP.

      IF sy-subrc EQ 0.

        MESSAGE e015 WITH text-520 text-521.

      ENDIF.

      IF NOT it_zycit079[] IS INITIAL.

        SELECT ebeln ebelp werks FROM ekpo

           INTO TABLE lt_ekpo

           FOR ALL ENTRIES IN it_zycit079

           WHERE ebeln = it_zycit079-ebeln

             AND ebelp = it_zycit079-ebelp.

        LOOP AT lt_ekpo WHERE werks NE v_werks.

        ENDLOOP.

        IF sy-subrc EQ 0.

          MESSAGE e015 WITH text-520 text-521.

        ENDIF.

      ENDIF.

    ENDIF.

  ENDIF.

* << Fim da inclusão

  CLEAR v_novo_item.

  LOOP AT itab_itens.

    IF NOT it_zycit079[] IS INITIAL.

      CLEAR it_zycit079.

      READ TABLE it_zycit079 WITH KEY ebeln = itab_itens-ebeln

                                      ebelp = itab_itens-ebelp.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI020

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 520

Texto: (48 caracteres)

"Orders with productive and not productive center"

Comprimento máximo: 55

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 520

Texto: (44 caracteres)

"Pedidos com centro produtivo e não produtivo"

Comprimento máximo: 55

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 520

Texto: (45 caracteres)

"Pedidos con centro productivo y no productivo"

Comprimento máximo: 55

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 521

Texto: (33 caracteres)

"can not be linked in the same LI."

Comprimento máximo: 55

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 521

Texto: (35 caracteres)

"não pode ser vinculado na mesma LI."

Comprimento máximo: 55

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 521

Texto: (36 caracteres)

"no se puede vincular en la LI mismo."

Comprimento máximo: 55