Sintoma

Quando eu tento vincular um Pedido de Compra que possui um item com o campo Remessa Final flegado ao

embarque ele não aceita a vinculação dos outros itens que não possuem esse campo flegado.

Solução

Alterada a consistência da vinculação ao embarque .

Informações Complementares

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

Nota Número 02487 Data: 21/11/2006 Hora: 17:15:46

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

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

Nota Número              : 02487

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00141

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

Referência às notas relacionadas:

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

02185  - 00001 - 6.0    - 00025  - TEXT-315 - EMBARQUE

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

AO VINCULAR PEDIDO DE COMPRA COM REMESSA FINAL DAVA ERRO EM OUTROS ITENS

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

Palavras Chave:

PEDIDO DE COMPRA - EMBARQUE - REMESSA FINAL - FLAG

VINCULAÇÃO.

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

Objetos da nota:

REPS /PWS/MZYCI001F01

REPT /PWS/SAPMZYCI001

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

    EXIT.

  ENDIF.

  DESCRIBE TABLE itab_itens LINES v_index.

  LOOP AT itab_itens.

    IF itab_itens-loekz EQ 'S'.

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

      MESSAGE i013 WITH text-314 text-319.

      v_exit = 'X'.

      v_ebeln = itab_itens-ebeln .

      EXIT.

* << Fim da exclusão

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

      MESSAGE i015 WITH text-340

                        itab_itens-ebeln

                        itab_itens-ebelp

                        text-339.

      DELETE itab_itens WHERE ebeln EQ itab_itens-ebeln

                        AND   ebelp EQ itab_itens-ebelp.

* << Fim da inclusão

    ELSEIF itab_itens-loekz EQ 'L'.

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

      MESSAGE i013 WITH text-314 text-318.

      v_exit = 'X'.

      v_ebeln = itab_itens-ebeln .

      EXIT.

* << Fim da exclusão

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

      MESSAGE i015 WITH text-341

                        itab_itens-ebeln

                        itab_itens-ebelp

                        text-339.

      DELETE itab_itens WHERE ebeln EQ itab_itens-ebeln

                        AND   ebelp EQ itab_itens-ebelp.

* << Fim da inclusão

    ENDIF.

  ENDLOOP.

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

  IF v_exit EQ 'X'.

    DELETE itab_itens WHERE ebeln EQ v_ebeln.

  ENDIF.

* << Fim da exclusão

  LOOP AT itab_itens.

    IF itab_itens-webre EQ 'X'.

      MESSAGE i013 WITH text-314 text-315.

    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 i015 WITH text-342

                        itab_itens-ebeln

                        itab_itens-ebelp

                        text-339.

      DELETE itab_itens WHERE ebeln = itab_itens-ebeln

                        AND   ebelp = itab_itens-ebelp.

* << 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 i015 WITH text-338

                        itab_itens-ebeln

                        itab_itens-ebelp

                        text-339.

      DELETE itab_itens WHERE ebeln = itab_itens-ebeln

                        AND   ebelp = itab_itens-ebelp.

* << Fim da inclusão

    ENDIF.

    IF itab_itens-j_1bmatuse EQ ' '.

      MESSAGE e013 WITH text-314 text-320.

    ENDIF.

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

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI001

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

Modificado símbolo de texto:

Idioma: ES

Símbolo: 254

Texto: (39 caracteres)

"No permitido seleccionar DAs distintas."

Comprimento máximo: 39

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 338

Texto: (50 caracteres)

"Pasta Fornecimento Flag Rem.Final marcado-Ped/Item"

Comprimento máximo: 50

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 339

Texto: (18 caracteres)

"não será vinculado"

Comprimento máximo: 18

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 340

Texto: (14 caracteres)

"Item bloqueado"

Comprimento máximo: 14

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 341

Texto: (14 caracteres)

"Item eliminado"

Comprimento máximo: 14

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 342

Texto: (59 caracteres)

"Pasta Fornecimento Flag Entrada Mercad.não marcado-Ped/Item"

Comprimento máximo: 59

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

Modificado texto de seleção:

Idioma: ES

Variável (SELECT-OPTION / PARAMETER): SO_MATRI

Texto: (14 caracteres)

"Matriz"

Referência ao Dictionary: NÃO