Sintoma

Ao executar a rotina mensal de importação, estorno mensal, a data da Fb08 esta incorreta, enviando a

data do dia, mas deveria respeitar a data parametrizada na /pws/zygl007.

Solução

Consistir para não sobrepor a data do estorno, com a data do dia, quando o motivo for 02 e a função

for chamada da rotina mensal importação.

Informações Complementares

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

Nota Número 07408 Data: 07/10/2008 Hora: 10:46:14

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

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

Nota Número              : 07408

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00068

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

Referência às notas relacionadas:

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

06002  - 00001 - 7.0    - 00004  - FINANCIAMENTO - ANO CONTABIL - LANÇAMENTO DE ESTORNO

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

ROTINA MENSAL IMPORTAÇÃO - ESTORNO MENSAL - DATA MOTIVO 02

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

Palavras Chave:

ROTINA MENSAL IMPORTAÇÃO ESTORNO MENSAL DATA MOTIVO 02

PERÍODO FECHADO DATA ESTORNO DIFERENTE DATA DOCUMENTO /PWS/ZYGL007

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

Objetos da nota:

FUNC /PWS/ZYCM_TRANSACAO_FB08

REPS /PWS/ZYCBI112

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

Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_FB08

MODIFICAR MÓDULO DE FUNÇÃO: /PWS/ZYCM_TRANSACAO_FB08

Criar:

IMPORTAÇÃO:

NOME PARAM.       ATRIB.   TIPO REFERÊNCIA    VL. PROPOSTO   OPCIONAL   TRANSF.   TEXT

V_MANTEM_BUDAT    TYPE     'C'                ' '            'X'        ' '       ' '

*Texto Fonte*

...

    SELECT SINGLE * FROM /pws/zycbt007

                    WHERE bukrs EQ t_dados-bukrs.

    IF t_dados-stgrd = '01'.

      IF NOT /pws/zycbt007-percorr IS INITIAL.

        t_dados-stgrd = /pws/zycbt007-percorr.

      ENDIF.

    ELSEIF t_dados-stgrd = '02'.

      IF NOT /pws/zycbt007-perencer IS INITIAL.

        t_dados-stgrd = /pws/zycbt007-perencer.

      ENDIF.

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

      IF v_mantem_budat IS INITIAL.

* << Fim da inclusão

      t_dados-budat = sy-datum.

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

      ENDIF.

* << Fim da inclusão

    ENDIF.

    IF v_gjahs IS INITIAL.

      PERFORM bdc_screen USING 'SAPMF05A' '0105'.

      PERFORM bdc_field  USING:

             'RF05A-BELNS' t_dados-belnr,

             'RF05A-GJAHS' v_date,

...

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

Modificações efetuadas em REPS /PWS/ZYCBI112

...

           itab_zycbt034.

    REFRESH: itab_zycbe033,

             itab_zycbt032,

             itab_zycbt034.

  ENDLOOP.

  LOOP AT itab_contabil WHERE tpcontab = 'T'.

    PERFORM clearing_transferencia.

  ENDLOOP.

ENDFORM.

FORM lancamento_estorno.

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

  DATA: v_ano   LIKE  t009b-bdatj.

* << Fim da exclusão

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

  DATA: v_ano   LIKE  t009b-bdatj,

        v_mantem_budat TYPE c.

* << Fim da inclusão

  IF itab_zycbt154[] IS INITIAL.

    SELECT * FROM /pws/zycbt154

             INTO TABLE itab_zycbt154

             WHERE codmod    EQ 'I'

               AND codint    IN s_codint

               AND bukrs     EQ s_bukrs

               AND codmodul  <> 'T'

               AND nrcorresp = ' '.

  ENDIF.

  LOOP AT itab_zycbt154.

...

...

    CALL FUNCTION 'FI_PERIOD_CHECK'

         EXPORTING

              i_bukrs          = itab_zycbe033-bukrs

              i_gjahr          = v_ano

              i_koart          = 'S'

              i_monat          = v_monat

         EXCEPTIONS

              error_period     = 1

              error_period_acc = 2

              OTHERS           = 3.

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

    CLEAR v_mantem_budat.

* << Fim da inclusão

    IF sy-subrc = 0.

      IF itab_zycbt154-dtcont EQ itab_zycbe033-budat.

        itab_zycbe033-stgrd = '01'.

      ELSE.

        itab_zycbe033-stgrd = '02'.

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

        v_mantem_budat = 'X'.

* << Fim da inclusão

      ENDIF.

    ELSE.

      itab_zycbe033-stgrd = '02'.

      itab_zycbe033-budat = sy-datum.

    ENDIF.

    APPEND itab_zycbe033.

    CALL FUNCTION '/PWS/ZYCM_TRANSACAO_FB08'

         EXPORTING

              v_gjahs         = itab_zycbt154-dtcont+0(4)

              v_modo          = v_modo_bi

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

              v_mantem_budat  = v_mantem_budat

* << Fim da inclusão

         TABLES

              t_dados         = itab_zycbe033

              t_campo         = itab_zycbt034

              t_zycbt032      = itab_zycbt032

         EXCEPTIONS

              campo_em_branco = 1

              OTHERS          = 2.

    IF sy-subrc = 0.

      CONCATENATE itab_zycbt154-codmodul

                  itab_zycbt154-codint

...