Sintoma

Após estornar a liquidação do contrato, o programa não atualiza corretamente o campo VLSLLIQ da

tabela /PWS/ZYCBT030.

Solução

O programa foi alterado para que quando esteja parametrizado o tipo de conta p/ liquidação em

andamento para transitoria de cliente o sistema busque a conta da tabela 89.

Informações Complementares

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

Nota Número 02372 Data: 01/11/2006 Hora: 15:16:17

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

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

Nota Número              : 02372

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00139

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO EM ANDAMENTO CONTA CLIENTE

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

Palavras Chave:

LIQUIDAÇÃO EM ANDAMENTO CONTA CLIENTE

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

Objetos da nota:

REPS /PWS/MZYCB004F02

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

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

        v_budat2    TYPE datum,

        v_dtlanc    TYPE datum,

        v_kursf     TYPE kursf,

        v_subrc     LIKE sy-subrc,

        v_codaux    LIKE /pws/zyglt316-codaux1.

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

  DATA: v_ktokd TYPE kna1-ktokd.

* << Fim da inclusão

  CLEAR v_subrc.

  LOOP AT itab_zycbt006 WHERE v_status EQ 'A'

                           OR v_status EQ 'E'

                           AND status  EQ 'C'.

    IF itab_zycbt006-v_armda EQ 'X'.

...

...

          itab_trans-umskz = space.

          itab_trans-koart = 'S'.

          MODIFY itab_trans.

        ENDLOOP.

      ELSEIF itab_zycbt209-koart EQ 'D'.

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

        IF /pws/zycbt089-liq_and_cod_cli IS INITIAL.

          SELECT SINGLE ktokd FROM kna1

          INTO v_ktokd

          WHERE kunnr EQ itab_zycbt006-kunnr.

          SELECT SINGLE codtrans

          FROM          /pws/zyglt368

          INTO          v_kunnr

          WHERE         ktokd = v_ktokd.

        ELSE.

          v_kunnr = /pws/zycbt089-liq_and_cod_cli.

        ENDIF.

* << Fim da inclusão

        SELECT belnr budat kunnr AS hkont umskz wrbtr

               FROM bsad

               APPENDING CORRESPONDING FIELDS OF TABLE itab_trans

               WHERE bukrs =  itab_zycbt006-bukrs      AND

                     augdt =  itab_zycbt006-dtpagto    AND

                     augbl =  itab_zycbt006-belnr      AND

                     gjahr =  v_year                   AND

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

                     kunnr =  itab_zycbt006-kunnr      AND

* << Fim da exclusão

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

                     kunnr =  v_kunnr AND

* << Fim da inclusão

                     belnr <> itab_zycbt006-belnr.

        LOOP AT itab_trans WHERE koart IS initial.

          itab_trans-koart = 'D'.

          MODIFY itab_trans.

        ENDLOOP.

...