Sintoma

Ao efetuar o estorno de um boleto, pelo complemento do boleto, onde o período contábil esta fechado,

esta lançando a FB08 na data do boleto e deveria lançar na data do dia.

Solução

Após constatar que o período esta fechado, pelo motivo de estorno, se for = 02 lançar Fb08 com a

data do dia.

Informações Complementares

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

Nota Número 04634 Data: 05/09/2007 Hora: 16:01:00

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

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

Nota Número              : 04634

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00011

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

Referência às notas relacionadas:

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

00798  - 00001 - 6.0    - 00023  - ASSOCIAÇÃO - TRATAMENTO PARA A DATA CONFORME PARAMETRIZAÇÃO POR U

01238  - 00002 - 6.0    - 00023  - ASSOCIAÇÃO FATURAS EM PERÍODO FECHADO - ANO FISCAL

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

COMPLEMENTO DO BOLETO - ESTORNO PERÍODO FECHADO - FB08

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

Palavras Chave:

COMPLEMENTO DO BOLETO ESTORNO PERÍODO FECHADO FB08

DATA DO ESTORNO

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

Objetos da nota:

REPS /PWS/MZYCB110F01

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

Modificações efetuadas em REPS /PWS/MZYCB110F01

...

  itab_zycbe033-d_newko = itab_zyglt316-konts.

  PERFORM verify_null_field USING itab_zycbe033-d_newko

                                 'NEWKO'

                                 text-016.

  itab_zycbe033-c_newko = v_contcli.

  PERFORM verify_null_field USING itab_zycbe033-c_newko

                            'C_NEWKO'

                            text-021.

ENDFORM.

FORM est_fb08.

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

  DATA: v_datum LIKE sy-datum.

* << Fim da inclusão

  IF sy-index = 2.

    v_belnr = /pws/zycbe031-belnr_pi.

  ELSEIF sy-index = 1 OR sy-index = 0.

    v_belnr = /pws/zycbe031-belnr_p.

  ELSEIF sy-index = 3.

    v_belnr = /pws/zycbe031-belnr_cide.

  ENDIF.

  CHECK NOT v_belnr IS INITIAL.

  PERFORM clear_date_batch.

  itab_zycbe033-mandt  = sy-mandt.

...

...

            i_koart          = 'S'

            i_monat          = v_monat

       EXCEPTIONS

            error_period     = 1

            error_period_acc = 2

            OTHERS           = 3.

  IF sy-subrc = 0.

    itab_zycbe033-stgrd = '01'.

  ELSE.

    itab_zycbe033-stgrd = '02'.

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

  ENDIF.

  IF itab_zycbe033-stgrd = '02'.

    v_datum = sy-datum.

* << Fim da inclusão

  ENDIF.

  APPEND itab_zycbe033.

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

  CALL FUNCTION '/PWS/ZYGL_TRANSACAO_FB08'

* << Fim da exclusão

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

  CALL FUNCTION '/PWS/ZYCM_TRANSACAO_FB08'

* << Fim da inclusão

       EXPORTING

            v_modo          = v_modo_bi

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

            v_datum         = v_datum

* << 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 NE 0.

    erro_bi = 'X'.

  ENDIF.

...