Sintoma

Ao efetuar o estorno da liquidação, os saldos da fatura (tabela /PWS/ZYCBT030-VLSLLIQ) e da

liquidação em andamento (/PWS/ZYCBT209-SALDO) não estão sendo atualizados.

Solução

O programa passou a realizar a busca em tabelas standard de forma correta.

Informações Complementares

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

Nota Número 02540 Data: 29/11/2006 Hora: 07:39:37

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

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

Nota Número              : 02540

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00142

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO, ESTORNO -ATUAL. SALDOS DA FATURA E DA LIQ. EM ANDAMENTO

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

Palavras Chave:

LIQUIDAÇÃO ANDAMENTO ESTORNO ATUALIZAÇÃO SALDOS FATURA ZYCBT030 ZYCBT209

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

Objetos da nota:

REPS /PWS/MZYCB004F02

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

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

         wrbtr LIKE bsas-wrbtr,

        END OF itab_bsas.

  DATA: BEGIN OF itab_bsad OCCURS 0,

         bukrs LIKE bsad-bukrs,

         kunnr LIKE bsad-kunnr,

         umskz LIKE bsad-umskz,

         augdt LIKE bsad-augdt,

         augbl LIKE bsad-augbl,

         gjahr LIKE bsad-gjahr,

         belnr LIKE bsad-belnr,

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

         wrbtr LIKE bsad-wrbtr,

* << Fim da inclusão

        END OF itab_bsad.

  DATA: BEGIN OF itab_ace OCCURS 2.

  DATA: belnr TYPE belnr_d,

        budat TYPE datum,

        wrbtr TYPE wrbtr.

  DATA: END OF itab_ace.

  DATA: BEGIN OF itab_cli OCCURS 2.

  DATA: belnr TYPE belnr_d,

        budat TYPE datum,

        wrbtr TYPE wrbtr.

...

...

        v_tabix = sy-tabix.

        LOOP AT itab_zycbt006_aux4 WHERE bukrs      = itab_bsas-bukrs

                                     AND dtpagto    = itab_bsas-augdt

                                     AND belnr      = itab_bsas-augbl

                                     AND dtpagto(4) = itab_bsas-gjahr

                                     AND belnr      = itab_bsas-belnr.

          DELETE itab_bsas INDEX v_tabix.

        ENDLOOP.

      ENDLOOP.

      SELECT bukrs kunnr umskz augdt augbl gjahr belnr

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

             wrbtr

* << Fim da inclusão

            FROM bsad

            INTO TABLE itab_bsad

            FOR ALL ENTRIES IN itab_zycbt006_aux4

            WHERE bukrs EQ itab_zycbt006_aux4-bukrs      AND

                  augdt EQ itab_zycbt006_aux4-dtpagto    AND

                  augbl EQ itab_zycbt006_aux4-belnr      AND

                  gjahr EQ itab_zycbt006_aux4-dtpagto(4).

      DELETE itab_bsad WHERE kunnr = space

                          OR kunnr = '          '.

      LOOP AT itab_bsad.

...