Sintoma

Quando vinculo um pedido com 2 itens, sendo que um deles está excluído, temos que indicar qual o

item que realmente será vinculado ao embarque.

Solução

Feito tratamento com as tabelas EKKO e EKPO para verificação dos itens bloqueados e excluidos.

Permitindo vincular pedido com itens excluidos, eliminando os excluidos.

Informações Complementares

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

Nota Número 01840 Data: 28/07/2006 Hora: 10:46:38

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

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

Nota Número              : 01840

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00124

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

Referência às notas relacionadas:

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

01290  - 00001 - 6.0    - 00023  - AO VINCULAR UM PEDIDO DE COMPRA COM FORNECEDOR BRASILEIRO,

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

ERRO NA VINCULAÇÃO DO PEDIDO NO EMBARQUE.

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

Palavras Chave:

VINCULAR - PEDIDO - EMBARQUE

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

Objetos da nota:

REPS /PWS/MZYCI001F01

REPT /PWS/SAPMZYCI001

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

      INTO TABLE itab_itens

      WHERE ekko~bukrs EQ pa_bukrs

        AND ekpo~werks IN so_werks

        AND ekpo~bstyp IN itab_bstyp

        AND ekko~waers IN so_waers

        AND ekko~lifnr IN so_lifnr

        AND ekko~inco1 IN itab_inco1

        AND ekpo~bednr IN so_bednr

        AND ekko~aedat IN so_aedat

        AND ekko~ebeln IN so_ebeln

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

        AND ekko~waers NE /pws/zycbt007-waersb

* << Fim da exclusão

       AND ekpo~ebelp IN so_ebelp

       AND ekpo~matnr IN so_matnr.

  ELSE.

    SELECT ekko~bukrs ekko~waers ekko~lifnr ekko~aedat

           ekko~inco1 ekko~ebeln

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

           ekpo~ebelp ekpo~loekz ekpo~werks ekpo~bednr ekpo~menge

* << Fim da exclusão

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

           ekpo~ebelp ekpo~werks ekpo~bednr ekpo~menge

* << Fim da inclusão

           ekpo~ktmng ekpo~bstyp

           ekpo~meins ekpo~ntgew ekpo~gewei ekpo~netpr ekpo~txz01

           ekpo~uebto ekpo~uebtk ekpo~j_1bnbm ekpo~matnr ekpo~mtart

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

           ekko~spras ekpo~idnlf ekpo~elikz ekpo~wepos ekpo~webre

           ekpo~j_1bmatuse

* << Fim da exclusão

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

           ekko~spras ekpo~idnlf

* << Fim da inclusão

      FROM ( ekpo INNER JOIN ekko ON ekpo~ebeln = ekko~ebeln )

      INTO TABLE itab_itens

      FOR ALL ENTRIES IN itab_zycit011

      WHERE ekko~ebeln EQ itab_zycit011-ebeln

        AND ekpo~ebelp EQ itab_zycit011-ebelp

        AND ekko~bukrs EQ /pws/zycie001-bukrs

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

        AND ekko~waers NE /pws/zycbt007-waersb

* << Fim da exclusão

       AND ekpo~ebelp IN so_ebelp

...

...

  ENDIF.

  IF sy-subrc NE 0.

    MESSAGE e013 WITH text-263.

    EXIT.

  ENDIF.

  DATA: v_index  TYPE i,

        v_index2 TYPE i.

  DESCRIBE TABLE itab_itens LINES v_index.

  LOOP AT itab_itens.

    DELETE itab_itens WHERE webre EQ 'X'.

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

    if sy-subrc eq 0.

      MESSAGE i013 WITH text-314 text-315.

    endif.

* << Fim da inclusão

    DELETE itab_itens WHERE wepos NE 'X'.

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

    if sy-subrc eq 0.

      MESSAGE i013 WITH text-314 text-316.

    endif.

* << Fim da inclusão

    DELETE itab_itens WHERE elikz EQ 'X'.

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

    if sy-subrc eq 0.

      MESSAGE i013 WITH text-314 text-317.

    endif.

* << Fim da inclusão

    DELETE itab_itens WHERE loekz EQ 'L'.

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

    if sy-subrc eq 0.

      MESSAGE i013 WITH text-314 text-318.

    endif.

* << Fim da inclusão

    DELETE itab_itens WHERE loekz EQ 'S'.

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

    if sy-subrc eq 0.

      MESSAGE i013 WITH text-314 text-319.

    endif.

* << Fim da inclusão

    DELETE itab_itens WHERE j_1bmatuse EQ ' '.

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

    if sy-subrc eq 0.

      MESSAGE i013 WITH text-314 text-320.

    endif.

* << Fim da inclusão

  ENDLOOP.

  IF itab_itens[] IS INITIAL.

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

    MESSAGE e013 WITH text-263.

    EXIT.

  ELSE.

    DESCRIBE TABLE itab_itens LINES v_index2.

    IF v_index NE v_index2.

* << Fim da exclusão

      MESSAGE e013 WITH text-263.

      EXIT.

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

    ENDIF.

* << Fim da exclusão

  ENDIF.

  DATA : BEGIN OF itab_bloqueio OCCURS 0,

           ebeln LIKE ekko-ebeln,

           frgke LIKE ekko-frgke.

  DATA: END OF itab_bloqueio.

...

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 314

Texto: (24 caracteres)

"Verificar Pedido,"

Comprimento máximo: 24

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 315

Texto: (24 caracteres)

"Pasta Fatura (Fatura Final)."

Comprimento máximo: 24

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 316

Texto: (24 caracteres)

"Pasta Fornecimento (Entr.Merc.)."

Comprimento máximo: 24

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 317

Texto: (24 caracteres)

"Pasta Fornecimento (Rem. Final)."

Comprimento máximo: 24

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 318

Texto: (24 caracteres)

"Possue Itens Eliminados."

Comprimento máximo: 24

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 319

Texto: (24 caracteres)

"Possue Itens Bloqueados."

Comprimento máximo: 24

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 320

Texto: (24 caracteres)

"Pasta Brasil (Utilização do Material)."

Comprimento máximo: 24

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 321

Texto: (24 caracteres)

"Fornecedor Nacional."

Comprimento máximo: 24