Sintoma

Ao modificar o contrato quando o período está fechado, ao selecionar a opção "não" na mensagem "O

lançamento contábil será lançado em dd.aaaa, deseja continuar?", o programa está atualizando os

dados nas tabelas transparentes, ao selecionar a opção "sim", o programa não efetua o estorno, assim

o conta do cliente fica com duas partidas em aberto.

Solução

Quando selecionada a opção não, o programa não atualiza os dados nas tabelas transparentes.

Informações Complementares

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

Nota Número 02888 Data: 16/01/2007 Hora: 09:10:35

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

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

Nota Número              : 02888

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00149

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

Referência às notas relacionadas:

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

02150  - 00001 - 6.0    - 00025  - ESTORNO LIQUIDAÇÃO FB08 FBRA ANO FISCAL

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

CAPTAÇÃO - ATUALIZAÇÃO DE DADOS QUANDO PERÍODO CONTÁBIL ESTÁ FECHADO.

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

Palavras Chave:

CAPTAÇÃO ATUALIZAÇÃO PERÍODO CONTÁBIL FECHADO MENSAGEM

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

Objetos da nota:

REPS /PWS/MZYCB001F01

FUNC /PWS/ZYCB_TRANSACAO_FB08]

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

Modificações efetuadas em REPS /PWS/MZYCB001F01

...

      PERFORM fill_date1_f02.

    ENDIF.

    PERFORM save_zycbt002.

    PERFORM save_zycbt003.

    PERFORM save_zycbt221.

    MOVE /pws/zycbe001 TO wa_zycbt001.

    MOVE /pws/zycbe074 TO wa_zycbt074.

  ELSE.

    PERFORM refresh_dependent_tables USING v_ok 'SAVE'.

    IF v_ok NE 'N'.

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

      MODIFY /pws/zycbt001.

* << Fim da exclusão

      IF wa_zycbt007-cfm = 'X'.

        IF /pws/zycbt001-tpcontr(1) NE 'C' AND

           /pws/zycbt001-tpcontr(1) NE 'E'.

          DESCRIBE FIELD /pws/zycbt001 INTO t_sydes.

          LOOP AT t_sydes-types INTO wa_types.

            v_len = wa_types-length.

            EXIT.

          ENDLOOP.

          PERFORM grava_log USING '/PWS/ZYCBT001'

                                  wa_log

...

...

          PERFORM reverse_document_zycbt_alt USING wa_zycbt001-belnr2

                                                 wa_zycbt001-dtvincul

                                                   wa_zycbt001-vlme

                                                   '/PWS/ZYCBT001'.

        ENDIF.

      ENDIF.

      PERFORM save_zycbt002.

      PERFORM save_zycbt003.

      MOVE /pws/zycbe001 TO wa_zycbt001.

      MOVE /pws/zycbe074 TO wa_zycbt074.

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

      /pws/zycbt001 = wa_zycbt001.

      MODIFY /pws/zycbt001.

* << Fim da inclusão

    ELSE.

      MOVE wa_zycbt001 TO /pws/zycbe001.

      MOVE /pws/zycbe074 TO wa_zycbt074.

    ENDIF.

  ENDIF.

  PERFORM data_efetiva.

ENDFORM.

FORM save_zycbt002.

  DATA: BEGIN OF itab_zycbt002_j_ant OCCURS 0.

          INCLUDE STRUCTURE /pws/zycbt002.

...

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

Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_FB08

...

   v_mode               type c,

   v_update             type c,

   v_msgid              like t100-arbgb,

   v_date               like T009B-BDATJ,

   v_msgno              like t100-msgnr.

 tables bseg.

  loop at t_dados.

    CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

        EXPORTING

              v_bukrs                = t_dados-bukrs

* >> Início da exclusão: FUNCTION /PWS/ZYCB_TRANSACAO_FB08

              v_date                 = t_dados-budat

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_FB08

             v_date                 = t_dados-bldat

* << Fim da inclusão

        IMPORTING

              V_YEAR                 = v_date

        EXCEPTIONS

              VARIANTE_DE_EXERCICIO  = 1

              DATA_NAO_ENCONTRADA    = 2

              EMPRESA_NAO_ENCONTRADA = 3

              PERIOD_IN_NOT_VALID    = 4

              PERIOD_NOT_ASSIGNED    = 5

              VERSION_UNDEFINED      = 6

              OTHERS                 = 7.

...