Sintoma

ao tentar estornar a liquidação de um cambio pronto,o programa não o efetua,o programa deixa em modo

de espera,e não efetua nenhuma contabilização.

Solução

Ajuste efetuado, inserido o campo BUDAT nas tabelas internas BSAD e BSAS.

Informações Complementares

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

Nota Número 03193 Data: 07/03/2007 Hora: 08:53:26

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

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

Nota Número              : 03193

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00156

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO - CAMPO BUDAT NAS TABELAS INTERNAS BSAS E BSAD.

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

Palavras Chave:

LIQUIDAÇÃO - CAMPO BUDAT NAS TABELAS INTERNAS BSAS E BSAD.

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

Objetos da nota:

REPS /PWS/MZYCB004F01

REPS /PWS/MZYCB004TOP

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

Modificações efetuadas em REPS /PWS/MZYCB004F01

...

          bukrs LIKE bsad-bukrs,

          kunnr LIKE bsad-kunnr,

          umskz LIKE bsad-umskz,

          gjahr LIKE bsad-gjahr,

          belnr LIKE bsad-belnr,

          bschl LIKE bsad-bschl,

          gsber LIKE bsad-gsber,

          wrbtr LIKE bsad-wrbtr,

          sgtxt LIKE bsad-sgtxt,

          zuonr LIKE bsad-zuonr,

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

          budat LIKE bsad-budat,

* << Fim da inclusão

        END OF itab_bsad.

  DATA: BEGIN OF itab_bsas OCCURS 0,

          bukrs LIKE bsas-bukrs,

          hkont LIKE bsas-hkont,

          gjahr LIKE bsas-gjahr,

          belnr LIKE bsas-belnr,

          bschl LIKE bsas-bschl,

          gsber LIKE bsas-gsber,

          wrbtr LIKE bsas-wrbtr,

          sgtxt LIKE bsas-sgtxt,

          zuonr LIKE bsas-zuonr,

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

          budat LIKE bsas-budat,

* << Fim da inclusão

        END OF itab_bsas.

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

  CLEAR itab_zyglt321.

  REFRESH itab_zyglt321.

  SELECT * FROM /pws/zyglt321

           INTO TABLE itab_zyglt321

           WHERE ktosl   = 'CPT'

             AND codeven = v_codeven.

  LOOP AT itab_zycbt006 WHERE v_status EQ 'A'

                           OR v_status EQ 'E'

...

...

          bukrs LIKE bsad-bukrs,

          kunnr LIKE bsad-kunnr,

          umskz LIKE bsad-umskz,

          gjahr LIKE bsad-gjahr,

          belnr LIKE bsad-belnr,

          bschl LIKE bsad-bschl,

          gsber LIKE bsad-gsber,

          wrbtr LIKE bsad-wrbtr,

          sgtxt LIKE bsad-sgtxt,

          zuonr LIKE bsad-zuonr,

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

          budat LIKE bsad-budat,

* << Fim da inclusão

        END OF itab_bsad.

  DATA: BEGIN OF itab_bsas OCCURS 0,

          bukrs LIKE bsas-bukrs,

          hkont LIKE bsas-hkont,

          gjahr LIKE bsas-gjahr,

          belnr LIKE bsas-belnr,

          bschl LIKE bsas-bschl,

          gsber LIKE bsas-gsber,

          wrbtr LIKE bsas-wrbtr,

          sgtxt LIKE bsas-sgtxt,

          zuonr LIKE bsas-zuonr,

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

          budat LIKE bsas-budat,

* << Fim da inclusão

        END OF itab_bsas.

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

  CLEAR itab_zyglt321.

  REFRESH itab_zyglt321.

  SELECT * FROM /pws/zyglt321

           INTO TABLE itab_zyglt321

           WHERE ktosl   = 'CPT'

             AND codeven = v_codeven.

  LOOP AT itab_zycbt006 WHERE v_status EQ 'A'

                           OR v_status EQ 'E'

...

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

Modificações efetuadas em REPS /PWS/MZYCB004TOP

...

        bukrs LIKE bsad-bukrs,

        kunnr LIKE bsad-kunnr,

        umskz LIKE bsad-umskz,

        gjahr LIKE bsad-gjahr,

        belnr LIKE bsad-belnr,

        bschl LIKE bsad-bschl,

        gsber LIKE bsad-gsber,

        wrbtr LIKE bsad-wrbtr,

        sgtxt LIKE bsad-sgtxt,

        zuonr LIKE bsad-zuonr,

* >> Início da inclusão:

        budat LIKE bsad-budat,

* << Fim da inclusão

      END OF itab_bsad_aux.

DATA: BEGIN OF itab_bsas_aux OCCURS 0,

        bukrs LIKE bsas-bukrs,

        hkont LIKE bsas-hkont,

        gjahr LIKE bsas-gjahr,

        belnr LIKE bsas-belnr,

        bschl LIKE bsas-bschl,

        gsber LIKE bsas-gsber,

        wrbtr LIKE bsas-wrbtr,

        sgtxt LIKE bsas-sgtxt,

        zuonr LIKE bsas-zuonr,

* >> Início da inclusão:

        budat LIKE bsas-budat,

* << Fim da inclusão

      END OF itab_bsas_aux.

DATA: BEGIN OF itab_periodos_j OCCURS 0.

DATA: nrseqc   LIKE /pws/zycbt005-nrseqc,

      tpdesp   LIKE /pws/zycbt005-tpdesp,

      nrparc   LIKE /pws/zycbt005-nrparc,

      dtincl   LIKE /pws/zycbt005-dtincl,

      nrinvoic LIKE /pws/zycbt005-nrinvoic,

      nrparcf  LIKE /pws/zycbt005-nrparcf,

      gsberf   LIKE /pws/zycbt005-gsberf,

      dtvincul LIKE /pws/zycbt005-dtvincul,

...