Sintoma

O programa está permitindo a desvinculação de pedidos que já estão vinculados a LI e DI.

Solução

Atualização do programa para verificar a existencia de LI's e DI's.

Informações Complementares

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

Nota Número 05535 Data: 28/12/2007 Hora: 09:07:16

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

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

Nota Número              : 05535

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

DESVINCULAÇÃO DE PEDIDOS JÁ VINCULADOS A PROCESSOS DE IMPORTAÇÃO

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

Palavras Chave:

DESVINCULAÇÃO PEDIDO DE COMPRAS DRAWBACK

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

Objetos da nota:

REPS /PWS/MZYCI068F01

REPT /PWS/SAPMZYCI068

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

Modificações efetuadas em REPS /PWS/MZYCI068F01

...

FORM selec_des.

  DATA: itab_zycit279 LIKE /pws/zycit279 OCCURS 0 WITH HEADER LINE.

  REFRESH: itab_zycit376_t, itab_zycit376,

           itab_zycit244  , itab_zycit245.

  SELECT * FROM /pws/zycit376

  INTO TABLE itab_zycit376                              "#EC CI_NOFIRST

      WHERE ebeln IN s_ebeln

        AND werks IN s_werks

        AND datac IN s_data.

  IF NOT itab_zycit376[] IS INITIAL.

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

    SELECT * FROM /pws/zycit100

    INTO TABLE itab_zycit100                            "#EC CI_NOFIRST

      FOR ALL ENTRIES IN itab_zycit376

      WHERE ebeln EQ itab_zycit376-ebeln

        AND ebelp EQ itab_zycit376-ebelp.

    SELECT * FROM /pws/zycit079

    INTO TABLE itab_zycit079                            "#EC CI_NOFIRST

      FOR ALL ENTRIES IN itab_zycit376

      WHERE ebeln EQ itab_zycit376-ebeln

        AND ebelp EQ itab_zycit376-ebelp.

* << Fim da inclusão

    SELECT * FROM /pws/zycit279

    INTO TABLE itab_zycit279                            "#EC CI_NOFIRST

        FOR ALL ENTRIES IN itab_zycit376

        WHERE ebeln EQ itab_zycit376-ebeln

          AND ebelp EQ itab_zycit376-ebelp.

    SELECT * FROM /pws/zycit244 INTO TABLE itab_zycit244

        FOR ALL ENTRIES IN itab_zycit376

        WHERE nrseqd EQ itab_zycit376-nrseqd

          AND status EQ 'D'.

    IF NOT itab_zycit244[] IS INITIAL.

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

    PERFORM verifica_lock_ato.

* << Fim da inclusão

      SELECT * FROM /pws/zycit245 INTO TABLE itab_zycit245

          FOR ALL ENTRIES IN itab_zycit244

          WHERE nrseqd EQ itab_zycit244-nrseqd.

    ENDIF.

  ENDIF.

  LOOP AT itab_zycit376.

    READ TABLE itab_zycit244 WITH KEY nrseqd = itab_zycit376-nrseqd.

    IF sy-subrc NE 0 AND NOT itab_zycit376-nrseqd IS INITIAL.

      CONTINUE.

    ENDIF.

    READ TABLE itab_zycit279 WITH KEY ebeln = itab_zycit376-ebeln

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

                                      ebelp = itab_zycit376-ebelp.

    IF sy-subrc EQ 0.

     MESSAGE i015 WITH text-021 itab_zycit376-ebeln itab_zycit376-ebelp

                        text-022.

      CONTINUE.

    ENDIF.

    READ TABLE itab_zycit100 WITH KEY ebeln = itab_zycit376-ebeln

* << Fim da inclusão

                                      ebelp = itab_zycit376-ebelp.

    IF sy-subrc EQ 0.

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

     MESSAGE i015 WITH text-021 itab_zycit376-ebeln itab_zycit376-ebelp

                        text-023.

* << Fim da inclusão

      CONTINUE.

    ENDIF.

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

    READ TABLE itab_zycit079 WITH KEY ebeln = itab_zycit376-ebeln

                                      ebelp = itab_zycit376-ebelp.

    IF sy-subrc EQ 0.

     MESSAGE i015 WITH text-021 itab_zycit376-ebeln itab_zycit376-ebelp

                        text-024.

      CONTINUE.

    ENDIF.

* << Fim da inclusão

    itab_zycit376_t = itab_zycit376.

    APPEND itab_zycit376_t.

  ENDLOOP.

  IF NOT itab_zycit376_t[] IS INITIAL.

    CALL SCREEN 0300.

  ELSE.

    MESSAGE i015 WITH text-005.

  ENDIF.

ENDFORM.

FORM desvincula_pedido.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI068

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 021

Texto: (8 caracteres)

"O pedido"

Comprimento máximo: 8

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 022

Texto: (48 caracteres)

"possui recebimento! Desvinculação não permitida!"

Comprimento máximo: 100

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 023

Texto: (39 caracteres)

"possui DI! Desvinculação não permitida!"

Comprimento máximo: 100

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 024

Texto: (39 caracteres)

"possui LI! Desvinculação não permitida!"

Comprimento máximo: 100