Sintoma

No momento de efetuar a última liberação de uma estratégia de Prestação de Contas (parametrizado

para efetuar a contabilização no momento da última liberação), se por algum motivo ocorrer algum

erro no momento da contabilização, a última liberação não fica salva na estratégia, o que

impossibilita a contabilização manual, por fora, sem estratégia.

Solução

Ajustado para o mudar o status corretamente.

Informações Complementares

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

Nota Número 01123 Data: 31/03/2006 Hora: 13:15:06

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

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

Nota Número              : 01123

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00107

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

Referência às notas relacionadas:

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

00461  - 00001 - 6.0    - 00021  - AO FAZER A LIBERAÇÃO POR ESTRATEGIA E DAR ERRO O SISTEM

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

NO MOMENTO DE EFETUAR A ÚLTIMA LIBERAÇÃO DE UMA ESTRATÉGIA DE PRESTAÇÃO

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

Palavras Chave:

LIBERAÇÃO - ESTRATEGIA - PRESTAÇÃO - CONTAS

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

Objetos da nota:

REPS /PWS/ZYCIR103

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

Modificações efetuadas em REPS /PWS/ZYCIR103

...

    MODIFY /PWS/ZYCIT337 FROM TABLE IT_ZYCIT337[].

  ENDIF.

  V_APROVA = 'X'.

  REFRESH ITAB_MESSAGE.

  CLEAR ITAB_MESSAGE.

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

  DATA: BEGIN OF ITAB_ZYCIT026_ERRO OCCURS 0.

          INCLUDE STRUCTURE /PWS/ZYCIT026.

  DATA: END OF ITAB_ZYCIT026_ERRO.

* << Fim da exclusão

  PERFORM CHAMA_TELA.

  IF NOT ITAB_MESSAGE[] IS INITIAL.

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

    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 da exclusão

    CALL SCREEN 0102 STARTING AT 5 5  ENDING AT 122 30.

  ENDIF.

  DELETE ITAB_DADOS WHERE GRAVADO = 'X'.

  CALL FUNCTION 'SAPGUI_SET_FUNCTIONCODE'

       EXPORTING

...