Sintoma

O saldo a vincular e o saldo a pagar não estão corretos na geração do relatório.

Solução

Melhoria na rotina que calcula os saldos. Usadas as tabelas 60 e 61 para o cálculo.

Informações Complementares

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

Nota Número 10475 Data: 09/08/2010 Hora: 09:45:21

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

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

Nota Número              : 10475

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00004

Agrupamento              : 00034

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

Referência às notas relacionadas:

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

02282  - 00001 - 6.0    - 00025  - PADRONIZAÇÃO DA CLASSE /PWS/ZYCB

06858  - 00002 - 7.0    - 00006  - INCLUSÃO DE AUTHORITY CHECK EM PROGRAMAS E RELATÓRIOS.

09191  - 00003 - 8.0    - 00001  - RELATÓRIO - CONTRATOS - VALORES A VINCULAR E PAGAR INCORRETOS

10237  - 00004 - 8.0    - 00003  - RELATATÓRIO CONTRATO EXPORT.SALDO A VINCULAR,SALDO A PAGAR,DATA P

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

RELATÓRIO DE CONTRATOS SALDO A PAGAR E SALDO A VINCULAR

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

Palavras Chave:

RELATORIO CONTRATO SALDO A PAGAR E VINCULAR

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

Objetos da nota:

REPS /PWS/ZYCBR010

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

Modificações efetuadas em REPS /PWS/ZYCBR010

...

       gsberf    like /pws/zycbt050-gsberf,

       vldev     like /pws/zycbt050-vldev,

     end  of itab_zycbt050,

     begin of itab_zycbt051 occurs 100,

       nrseqc    like /pws/zycbt051-nrseqc,

       nrinvoic  like /pws/zycbt051-nrinvoic,

       nrparcf  like /pws/zycbt051-nrparcf,

       gsberf    like /pws/zycbt051-gsberf,

       vlme     like /pws/zycbt051-vlme,

     end  of itab_zycbt051.

* >> Início da inclusão:

TYPES: BEGIN OF ty_zycbt061,

          nrseq_c TYPE /pws/zycbt061-nrseq_c,

          vlalt   TYPE /pws/zycbt061-vlme_c,

       END OF ty_zycbt061.

DATA: itab_zycbt061 TYPE SORTED TABLE OF ty_zycbt061

      WITH NON-UNIQUE KEY nrseq_c,

      wa_zycbt061 TYPE ty_zycbt061.

* << Fim da inclusão

data: itab_relat type tipo1 occurs 100 with header line,

      itab_relat2 type tipo1 occurs 100 with header line.

data:

  v_dia_sem(20) type c,

  v_titulo(80)  type c,

  v_tam         type i value 286,

  v_tamr        type i value 87,

  v_usd         like /pws/zycbt001-vlme,

  v_periodo     type i,

  v_prazo(2)    type c,

...

...

      and dtdevol le s_posic.

    sort itab_zycbt050 by nrseqc nrinvoic nrparcf gsberf.

    select nrseqc nrinvoic nrparcf gsberf vlme

      from /pws/zycbt051

      into table itab_zycbt051

      for all entries in itab_zycbt001

      where nrseqc  =  itab_zycbt001-nrseqc

        and dtreceb le s_posic

        and tpdev   =  'RP'.

    sort itab_zycbt051 by nrseqc nrinvoic nrparcf gsberf.

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

    SELECT a~nrseq_c

           a~vlalt

      INTO TABLE itab_zycbt061

      FROM /pws/zycbt061 AS a INNER JOIN /pws/zycbt060 AS b

        ON a~nrseq = b~nrseq

       FOR ALL ENTRIES IN itab_zycbt001

     WHERE a~nrseq_c EQ itab_zycbt001-nrseqc

       AND b~dtinclu LE s_posic

       AND a~belnr2  IS not NULL.

* << Fim da inclusão

    select lifnr name1

           from lfa1

           into table itab_bancos

           for all entries in itab_zycbt001

           where lifnr = itab_zycbt001-bconegoc

              or lifnr = itab_zycbt001-bcofinan.

    loop at itab_zycbt001.

      authority-check object 'F_BKPF_BUK'

                      id     'BUKRS'

                      field  itab_zycbt001-bukrs

...

...

        move:

         itab_zycbt016-txtdesc to itab_relat-txtdesc.

      endif.

      v_saldo_vincular  = itab_zycbt001-vlme.

      v_saldo_pagar     = itab_zycbt001-vlme.

      loop at itab_zycbt005 where nrseqc = itab_zycbt001-nrseqc.

         v_saldo_vincular = v_saldo_vincular - itab_zycbt005-vlme_p.

      endloop.

      loop at itab_zycbt006 where nrseqc = itab_zycbt001-nrseqc.

         v_saldo_pagar    = v_saldo_pagar    - itab_zycbt006-vlme.

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

      ENDLOOP.

      LOOP AT itab_zycbt061

         INTO wa_zycbt061

        WHERE nrseq_c = itab_zycbt001-nrseqc.

        v_saldo_vincular = v_saldo_vincular - wa_zycbt061-vlalt.

        v_saldo_pagar    = v_saldo_pagar - wa_zycbt061-vlalt.

* << Fim da inclusão

      endloop.

      move:

        itab_zycbt001-nrseqc   to itab_relat-nrseqc,

        itab_zycbt001-nrcontr  to itab_relat-nrcontr,

        itab_zycbt001-bukrs    to itab_relat-bukrs,

        itab_zycbt001-tpcontr  to itab_relat-tpcontr,

        itab_zycbt001-bconegoc to itab_relat-bconegoc,

        itab_zycbt001-bcofinan to itab_relat-bcofinan,

        itab_zycbt001-dtcontr  to itab_relat-dtcontr,

        itab_zycbt001-dtentr   to itab_relat-dtentr,

...