Sintoma

Ao estorar a liquidação de contratos em período fechado, o programa não faz as contabilizações de

estorno (F-02, F-30, F-30).

Solução

Ajuste na seleção da BSAS conforme consta nesta nota.

Informações Complementares

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

Nota Número 02890 Data: 16/01/2007 Hora: 09:53:31

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

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

Nota Número              : 02890

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 - Descrição Breve

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

ERRO ESTORNO LIQUIDAÇÃO PERÍODO FECHADO

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

Palavras Chave:

ERRO ESTORNO LIQUIDAÇÃO PERÍODO FECHADO

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

Objetos da nota:

REPS /PWS/MZYCB004F02

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

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

    CHECK sy-subrc EQ 0.

    CHECK sy-subrc EQ 0.

    IF NOT itab_zycbt074[] IS INITIAL.

      CLEAR itab_zycbt074.

      READ TABLE itab_zycbt074 WITH KEY nrseqc = itab_zycbt006-nrseqc.

      IF sy-subrc EQ '0' AND NOT itab_zycbt074-dtcont IS INITIAL.

     SELECT bukrs kunnr umskz gjahr belnr bschl gsber wrbtr sgtxt zuonr

                                                              FROM bsad

                                                   INTO TABLE itab_bsad

                                WHERE bukrs EQ itab_zycbt006-bukrs  AND

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

                  kunnr EQ itab_zycbt006-kunnr  AND

* << Fim da exclusão

                                      augdt EQ itab_zycbt074-dtcont AND

                                      augbl EQ itab_zycbt006-belnr  AND

                                           belnr NE itab_zycbt006-belnr.

        SELECT bukrs hkont gjahr belnr bschl gsber wrbtr sgtxt zuonr

               FROM bsas

               INTO TABLE itab_bsas

               WHERE bukrs EQ itab_zycbt006-bukrs  AND

                     augdt EQ itab_zycbt074-dtcont AND

                     augbl EQ itab_zycbt006-belnr  AND

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

                     belnr NE itab_zycbt006-belnr.

* << Fim da exclusão

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

                     belnr NE itab_zycbt006-belnr  AND

                   ( bschl EQ '40' OR bschl EQ '50' ).

* << Fim da inclusão

      ELSE.

     SELECT bukrs kunnr umskz gjahr belnr bschl gsber wrbtr sgtxt zuonr

                                                              FROM bsad

                                                   INTO TABLE itab_bsad

                               WHERE bukrs EQ itab_zycbt006-bukrs   AND

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

                   kunnr EQ itab_zycbt006-kunnr   AND

* << Fim da exclusão

                                     augdt EQ itab_zycbt006-dtpagto AND

                                     augbl EQ itab_zycbt006-belnr   AND

                                           belnr NE itab_zycbt006-belnr.

        SELECT bukrs hkont gjahr belnr bschl gsber wrbtr sgtxt zuonr

               FROM bsas

               INTO TABLE itab_bsas

               WHERE bukrs EQ itab_zycbt006-bukrs   AND

                     augdt EQ itab_zycbt006-dtpagto AND

                     augbl EQ itab_zycbt006-belnr   AND

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

                     belnr NE itab_zycbt006-belnr.

* << Fim da exclusão

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

                     belnr NE itab_zycbt006-belnr   AND

                     ( bschl EQ '40' OR bschl EQ '50' ).

* << Fim da inclusão

      ENDIF.

    ENDIF.

    PERFORM clear_date_batch.

    CLEAR itab_zycbt012.

    CONCATENATE '003' /pws/zycbe005-tpcontr INTO v_codeven.

    CASE itab_zycbt006-tpcontr+0(1).

      WHEN 'A' OR 'E' OR 'C'.

        PERFORM verify_null_field USING itab_zycbt006-bconegoc

                                        'BCONEGOC'

                                        text-001.

...

...

        itab_partidas-d_sgtxt = itab_bsas-sgtxt.

        itab_partidas-d_zuonr = itab_bsas-zuonr.

        itab_partidas-d_gsber = itab_bsas-gsber.

        itab_partidas-newbs   = itab_bsas-bschl.

        itab_partidas-brnch   = itab_zycbt017-j_1bbranch.

        SELECT SINGLE shkzg

               FROM tbsl

               INTO v_shkzg

               WHERE bschl = itab_bsas-bschl.

      ELSE.

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

        READ TABLE itab_bsad WITH KEY belnr = itab_zycbt084-belnr.

* << Fim da exclusão

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

        READ TABLE itab_bsad WITH KEY belnr = itab_zycbt084-belnr

                                      kunnr = itab_zycbt209-hkont.

* << Fim da inclusão

        CHECK sy-subrc EQ 0.

        itab_partidas-wrbtr   = itab_bsad-wrbtr.

        itab_partidas-d_newko = itab_bsad-kunnr.

        itab_partidas-agkoa   = 'D'.

        itab_partidas-agums   = itab_bsad-umskz.

        itab_partidas-d_sgtxt = itab_bsad-sgtxt.

        itab_partidas-d_zuonr = itab_bsad-zuonr.

        itab_partidas-d_gsber = itab_bsad-gsber.

        itab_partidas-newbs   = itab_bsad-bschl.

        itab_partidas-brnch   = itab_zycbt017-j_1bbranch.

...