Sintoma

Ao vincular o pedido ao embarque o Ce não está fazendo o check para verificar se existe ou não o

flag <<<RF bas EM>>>.

Este check já existe em produção.

Solução

Verificar no Pedido se o flag RF bas EM está marcado.

Informações Complementares

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

Nota Número 02185 Data: 02/10/2006 Hora: 10:27:54

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

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

Nota Número              : 02185

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00132

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

Referência às notas relacionadas:

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

01840  - 00001 - 6.0    - 00024  - ERRO NA VINCULAÇÃO DO PEDIDO NO EMBARQUE.

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

TEXT-315 - EMBARQUE

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

Palavras Chave:

ALTERAÇÃO DOS TEXTOS

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

Objetos da nota:

MERG F6DK938029 20061002 105437 PWSCI

RELE F6DK938044 20061002 105456 PWSCI

REPS /PWS/MZYCI001F01

REPT /PWS/SAPMZYCI001

Observação: Existe duas vezes o include /PWS/MZYCI001F01, porem esta correto, aplicar na ordem em

que aparece.

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

        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

       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

           ekko~spras ekpo~idnlf

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

           ekpo~elikz ekpo~wepos ekpo~webre

           ekpo~j_1bmatuse

* << Fim da exclusã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

       AND ekpo~ebelp IN so_ebelp

       AND ekpo~matnr IN so_matnr.

  ENDIF.

  IF sy-subrc NE 0.

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

    MESSAGE e013 WITH text-263.

* << Fim da exclusão

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

    MESSAGE e013 WITH text-254.

* << Fim da inclusão

    EXIT.

  ENDIF.

  DATA: v_index  TYPE i,

        v_index2 TYPE i.

  DESCRIBE TABLE itab_itens LINES v_index.

  LOOP AT itab_itens.

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

    DELETE itab_itens WHERE webre EQ 'X'.

    IF sy-subrc EQ 0.

      MESSAGE i013 WITH text-314 text-315.

* << Fim da exclusão

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

    IF itab_itens-webre EQ 'X'.

      MESSAGE e013 WITH text-255 text-256.

* << Fim da inclusão

    ENDIF.

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

    DELETE itab_itens WHERE wepos NE 'X'.

    IF sy-subrc EQ 0.

      MESSAGE i013 WITH text-314 text-316.

* << Fim da exclusão

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

    IF itab_itens-wepos NE 'X'.

      MESSAGE e013 WITH text-255 text-257.

* << Fim da inclusão

    ENDIF.

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

    DELETE itab_itens WHERE elikz EQ 'X'.

    IF sy-subrc EQ 0.

      MESSAGE i013 WITH text-314 text-317.

* << Fim da exclusão

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

    IF itab_itens-elikz EQ 'X'.

      MESSAGE e013 WITH text-255 text-258.

* << Fim da inclusão

    ENDIF.

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

    DELETE itab_itens WHERE loekz EQ 'L'.

    IF sy-subrc EQ 0.

      MESSAGE i013 WITH text-314 text-318.

* << Fim da exclusão

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

    IF itab_itens-loekz EQ 'L'.

      MESSAGE e013 WITH text-255 text-259.

* << Fim da inclusão

    ENDIF.

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

    DELETE itab_itens WHERE loekz EQ 'S'.

    IF sy-subrc EQ 0.

      MESSAGE i013 WITH text-314 text-319.

* << Fim da exclusão

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

    IF itab_itens-loekz EQ 'S'.

      MESSAGE e013 WITH text-255 text-260.

* << Fim da inclusão

    ENDIF.

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

    DELETE itab_itens WHERE j_1bmatuse EQ ' '.

    IF sy-subrc EQ 0.

      MESSAGE i013 WITH text-314 text-320.

* << Fim da exclusão

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

    IF itab_itens-j_1bmatuse EQ ' '.

      MESSAGE e013 WITH text-255 text-261.

* << Fim da inclusão

    ENDIF.

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

    IF itab_itens-waers = /pws/zycbt007-waersb.

      MESSAGE e013 WITH text-255 text-262.

    ENDIF.

* << Fim da inclusão

  ENDLOOP.

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

  IF itab_itens[] IS INITIAL.

    MESSAGE e013 WITH text-263.

    EXIT.

  ENDIF.

* << Fim da exclusão

  DATA : BEGIN OF itab_bloqueio OCCURS 0,

           ebeln LIKE ekko-ebeln,

           frgke LIKE ekko-frgke.

  DATA: END OF itab_bloqueio.

  TABLES t16fb.

  IF NOT itab_itens[] IS INITIAL.

    SELECT ebeln frgke FROM ekko

    INTO TABLE itab_bloqueio

    FOR ALL ENTRIES IN itab_itens

    WHERE ebeln EQ itab_itens-ebeln.

...

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

  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.

    IF itab_itens-webre EQ 'X'.

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

      MESSAGE e013 WITH text-314 text-315.

* << Fim da exclusão

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

      MESSAGE e013 WITH text-255 text-256.

* << Fim da inclusão

    ENDIF.

    IF itab_itens-wepos NE 'X'.

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

      MESSAGE e013 WITH text-314 text-316.

* << Fim da exclusão

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

      MESSAGE e013 WITH text-255 text-257.

* << Fim da inclusão

    ENDIF.

    IF itab_itens-elikz EQ 'X'.

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

      MESSAGE e013 WITH text-314 text-317.

* << Fim da exclusão

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

      MESSAGE e013 WITH text-255 text-258.

* << Fim da inclusão

    ENDIF.

    IF itab_itens-loekz EQ 'L'.

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

      MESSAGE e013 WITH text-314 text-318.

* << Fim da exclusão

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

      MESSAGE e013 WITH text-255 text-259.

* << Fim da inclusão

    ENDIF.

    IF itab_itens-loekz EQ 'S'.

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

      MESSAGE e013 WITH text-314 text-319.

* << Fim da exclusão

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

      MESSAGE e013 WITH text-255 text-260.

* << Fim da inclusão

    ENDIF.

    IF itab_itens-j_1bmatuse EQ ' '.

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

      MESSAGE e013 WITH text-314 text-320.

* << Fim da exclusão

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

      MESSAGE e013 WITH text-255 text-261.

* << Fim da inclusão

    ENDIF.

    IF itab_itens-waers = /pws/zycbt007-waersb.

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

      MESSAGE e013 WITH text-314 text-321.

* << Fim da exclusão

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

      MESSAGE e013 WITH text-255 text-262.

* << Fim da inclusão

    ENDIF.

  ENDLOOP.

  DATA : BEGIN OF itab_bloqueio OCCURS 0,

           ebeln LIKE ekko-ebeln,

           frgke LIKE ekko-frgke.

  DATA: END OF itab_bloqueio.

  TABLES t16fb.

  IF NOT itab_itens[] IS INITIAL.

    SELECT ebeln frgke FROM ekko

    INTO TABLE itab_bloqueio

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI001

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 315

Texto: (25 caracteres)

"Pasta Fatura (RF bas.EM)."

Comprimento máximo: 28