Sintoma

Ao fazer a liberação por estrategia e dar erro o sistema muda o status para 2 liberado, só que como

deu erro ainda não foi liberada.

Solução

Condição para campo ITAB_LIBERA-FRGZU

Informações Complementares

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

Nota Número 00461 Data: 15/12/2005 Hora: 17:07:09

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

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

Nota Número              : 00461

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00021

Agrupamento              : 00091

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

Referência às notas relacionadas:

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

00125  - 00001 - 6.0    - 00021  - INLUSÃO DO AUTHORITY CHECK NOS PROGRAMAS DE IMPORTAÇÃO

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

AO FAZER A LIBERAÇÃO POR ESTRATEGIA E DAR ERRO O SISTEM

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

Palavras Chave:

ESTRATEGIA, PRESTAÇÃO DE CONTAS, LIBERAÇÃO

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

Objetos da nota:

REPS /PWS/ZYCIR103

TABU /PWS/ZYGLT100

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

Modificações efetuadas em REPS /PWS/ZYCIR103

... < Declarações da tabelas >

* Tabela interna de debito em conta e adiantamento

DATA: BEGIN OF IT_ZYCIT008 OCCURS 0.

        INCLUDE STRUCTURE /PWS/ZYCIT008.

DATA: END OF IT_ZYCIT008.

DATA: BEGIN OF ITAB_MESSAGE OCCURS 0,

* << Início Inclusão >>                 <----- Nota

      NRSEQ  LIKE /PWS/ZYCIE001-NRSEQ,

      NRDOC  LIKE /PWS/ZYCIE026-NRPRES,

      NRADTO LIKE /PWS/ZYCIT008-NRADTO,

      LIFNR  LIKE LFA1-LIFNR,

* << Fim    Inclusão >>                 <----- Nota

      MSG(50) TYPE C.

DATA: END OF ITAB_MESSAGE.

...

... < Perform  executa_liberação >

    perform efetua_liberacao(/pws/zyglr022) tables

                                  itab_libera

                                  it_zyglt343

                         using v_frggr.

    loop at itab_libera.

* << Início Inclusão >>                 <----- Nota

*      IF ITAB_LIBERA-VIEW EQ '@08\QInformações@'.

      IF ITAB_LIBERA-FRGZU = 1.

        ITAB_LIBERA-VIEW = '@08\QInformações@'.

* << Fim    Inclusão >>                 <----- Nota

        read table it_zyglt343 with key frgsx = itab_libera-estrat.

        if sy-subrc eq 0.

          read table it_zycit008 with key nradto = itab_libera-nrseq.

          move: itab_libera-frgsx1  to it_zycit008-frgsx1 ,

                itab_libera-frgsx2  to it_zycit008-frgsx2 ,

...

... < Perform  executa_liberação >

    perform efetua_liberacao(/pws/zyglr022) tables

                                  itab_libera

                                  it_zyglt343

                         using v_frggr.

    loop at itab_libera.

* << Início Inclusão >>                 <----- Nota

*      IF ITAB_LIBERA-VIEW EQ '@08\QInformações@'.

       IF ITAB_LIBERA-FRGZU = 1.

         ITAB_LIBERA-VIEW = '@08\QInformações@'.

* << Fim    Inclusão >>                 <----- Nota

        read table it_zyglt343 with key frgsx = itab_libera-estrat.

        if sy-subrc eq 0.

          read table it_zycit008 with key nradto = itab_libera-nrseq.

          move: itab_libera-frgsx1  to it_zycit008-frgsx1 ,

                itab_libera-frgsx2  to it_zycit008-frgsx2 ,

...

... < Perform  salva_dados >

    modify /pws/zycit337 from table it_zycit337[].

  endif.

  v_aprova = 'X'.

  refresh itab_message.

  clear itab_message.

* << Início Inclusão >>                 <----- Nota

  DATA: BEGIN OF ITAB_ZYCIT026_ERRO OCCURS 0.

          INCLUDE STRUCTURE /PWS/ZYCIT026.

  DATA: END OF ITAB_ZYCIT026_ERRO.

* << Fim    Inclusão >>                 <----- Nota

  perform chama_tela.

  if not itab_message[] is initial.

* << Início Inclusão >>                 <----- Nota

    SELECT * FROM /PWS/ZYCIT026

     INTO TABLE ITAB_ZYCIT026_ERRO

      FOR ALL ENTRIES IN ITAB_MESSAGE

       WHERE NRPRES EQ ITAB_MESSAGE-NRDOC.

    LOOP AT ITAB_MESSAGE.

     READ TABLE ITAB_ZYCIT026_ERRO WITH KEY NRPRES = ITAB_MESSAGE-NRDOC.

      IF SY-SUBRC = 0.

        IF  NOT ITAB_ZYCIT026_ERRO-FRGSX5 IS INITIAL

        AND NOT ITAB_ZYCIT026_ERRO-FRGSX4 IS INITIAL

        AND NOT ITAB_ZYCIT026_ERRO-FRGSX3 IS INITIAL

        AND NOT ITAB_ZYCIT026_ERRO-FRGSX2 IS INITIAL

        AND NOT ITAB_ZYCIT026_ERRO-FRGSX1 IS INITIAL.

          CLEAR ITAB_ZYCIT026_ERRO-FRGSX5.

          ITAB_ZYCIT026_ERRO-FRGZU = '1'.

        ELSEIF  ITAB_ZYCIT026_ERRO-FRGSX5 IS INITIAL

        AND NOT ITAB_ZYCIT026_ERRO-FRGSX4 IS INITIAL

        AND NOT ITAB_ZYCIT026_ERRO-FRGSX3 IS INITIAL

        AND NOT ITAB_ZYCIT026_ERRO-FRGSX2 IS INITIAL

        AND NOT ITAB_ZYCIT026_ERRO-FRGSX1 IS INITIAL.

          CLEAR ITAB_ZYCIT026_ERRO-FRGSX4.

          ITAB_ZYCIT026_ERRO-FRGZU = '1'.

        ELSEIF  ITAB_ZYCIT026_ERRO-FRGSX5 IS INITIAL

        AND     ITAB_ZYCIT026_ERRO-FRGSX4 IS INITIAL

        AND NOT ITAB_ZYCIT026_ERRO-FRGSX3 IS INITIAL

        AND NOT ITAB_ZYCIT026_ERRO-FRGSX2 IS INITIAL

        AND NOT ITAB_ZYCIT026_ERRO-FRGSX1 IS INITIAL.

          CLEAR ITAB_ZYCIT026_ERRO-FRGSX3.

          ITAB_ZYCIT026_ERRO-FRGZU = '1'.

        ELSEIF  ITAB_ZYCIT026_ERRO-FRGSX5 IS INITIAL

        AND     ITAB_ZYCIT026_ERRO-FRGSX4 IS INITIAL

        AND     ITAB_ZYCIT026_ERRO-FRGSX3 IS INITIAL

        AND NOT ITAB_ZYCIT026_ERRO-FRGSX2 IS INITIAL

        AND NOT ITAB_ZYCIT026_ERRO-FRGSX1 IS INITIAL.

          CLEAR ITAB_ZYCIT026_ERRO-FRGSX2.

          ITAB_ZYCIT026_ERRO-FRGZU = '1'.

        ELSEIF  ITAB_ZYCIT026_ERRO-FRGSX5 IS INITIAL

        AND     ITAB_ZYCIT026_ERRO-FRGSX4 IS INITIAL

        AND     ITAB_ZYCIT026_ERRO-FRGSX3 IS INITIAL

        AND     ITAB_ZYCIT026_ERRO-FRGSX2 IS INITIAL

        AND NOT ITAB_ZYCIT026_ERRO-FRGSX1 IS INITIAL.

          CLEAR ITAB_ZYCIT026_ERRO-FRGSX1.

          ITAB_ZYCIT026_ERRO-FRGZU = '1'.

        ENDIF.

        MODIFY ITAB_ZYCIT026_ERRO INDEX SY-TABIX.

      ENDIF.

    ENDLOOP.

    MODIFY /PWS/ZYCIT026 FROM TABLE ITAB_ZYCIT026_ERRO.

* << Fim    Inclusão >>                 <----- Nota

    call screen 0102 starting at 5 5  ending at 122 30.

  endif.

  delete itab_dados where gravado = 'X'.

  call function 'SAPGUI_SET_FUNCTIONCODE'

       exporting

...