Sintoma

O Relatório esta apresentando as Colunas Saldo a Vincular, Saldo a Pagar e Data Pagamento,

incorretamente em relação a Data Informada em Posição EM.:

Solução

O Relatório irá apresentar as colunas Saldo a Vincular, Saldo a Pagar e Data de Pagamento do Juros

respeitando a Data informada em Posição EM para selecionar os valores corretamente.

Informações Complementares

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

Nota Número 10237 Data: 02/06/2010 Hora: 15:34:21

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

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

Nota Número              : 10237

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00003

Agrupamento              : 00026

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

Referência às notas relacionadas:

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

02366  - 00001 - 6.0    - 00025  - RELATÓRIO DE CONTRATOS - NÃO ESTÁ SENDO RESPEITADO O CAMPO POSIÇÃ

04818  - 00002 - 7.0    - 00003  - RELATÓRIO DE CONTRATOS - VALOR A VINCULAR

05877  - 00003 - 7.0    - 00004  - RELATÓRIO DE CONTRATOS - NOVAS COLUNAS VALOR/PERCENTUAL COMISSÃO

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

RELATATÓRIO CONTRATO EXPORT.SALDO A VINCULAR,SALDO A PAGAR,DATA PAGTO

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

Palavras Chave:

RELATATÓRIO CONTRATO EXPORT.SALDO A VINCULAR,SALDO A PAGAR,DATA PAGTO

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

Objetos da nota:

REPS /PWS/ZYCBR010

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

Modificações efetuadas em REPS /PWS/ZYCBR010

...

        nrinvoic like /pws/zycbt005-nrinvoic,

        nrparcf  like /pws/zycbt005-nrparcf,

        gsberf   like /pws/zycbt005-gsberf,

        tpdesp   like /pws/zycbt005-tpdesp,

        waers_c  like /pws/zycbt005-waers_c,

        waers    like /pws/zycbt005-waers,

        parid    like /pws/zycbt005-parid,

        nrparc   like /pws/zycbt005-nrparc,

        dtincl   like /pws/zycbt005-dtincl,

        dtvencto like /pws/zycbt005-dtvencto,

* >> Início da inclusão:

        vlme_p   like /pws/zycbt005-vlme_p,

* << Fim da inclusão

      end of itab_zycbt005,

      begin of itab_zycbt006 occurs 100,

        nrseqc  like /pws/zycbt006-nrseqc,

        dtpagto like /pws/zycbt006-dtpagto,

        nrcontr like /pws/zycbt006-nrcontr,

        vlme    like /pws/zycbt006-vlme,

        status  like /pws/zycbt006-status,

        nrinvoic like /pws/zycbt006-nrinvoic,

        nrparcf  like /pws/zycbt006-nrparcf,

        gsberf   like /pws/zycbt006-gsberf,

...

...

       tables

            i_fieldcat     = i_fieldcat

            t_data         = i_final.

endform.

form processar_dados.

  data: begin of itab_zycbt003 occurs 5.

          include structure /pws/zycbt003.

  data: end of itab_zycbt003.

  data:

    v_type       type tcurr-kurst.

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

  data:

    v_saldo_vincular  type  /pws/zycbt001-slvinc,

    v_saldo_pagar     type  /pws/zycbt001-slpagar.

* << Fim da inclusão

  refresh: itab_zycbt001,

           itab_zycbt002,

           itab_relat,

           itab_relat2.

  perform verifica_parametros.

  select nrseqc  nrcontr bukrs   tpcontr  bconegoc bcofinan fdtlanc

         dtcontr dtcred  dtdesem dtentr   dtliquid waers    vlme

         vlcanc  slvinc  slpagar

         tp_pagt_antc

    from /pws/zycbt001

...

...

        delete itab_zycbt001 where dtcontr > s_posic

                                or dtcontr is initial.

      when 'C'.

        delete itab_zycbt001 where dtcred > s_posic

                                or dtcred is initial.

    endcase.

    read table itab_zycbt001 index sy-tabix.

    select nrseqc dtvincul nrcontr vlvinc status

           nrinvoic nrparcf gsberf

           tpdesp waers_c waers parid nrparc dtincl dtvencto

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

           vlme_p

* << Fim da inclusão

           from /pws/zycbt005

           into table itab_zycbt005

           for all entries in itab_zycbt001

          where dtvincul le s_posic

            and nrseqc = itab_zycbt001-nrseqc

             and ( status = 'C' or status = '1' or status = 'I' ).

    sort itab_zycbt005 by nrseqc tpdesp nrparc dtincl nrinvoic nrparcf

                          gsberf dtvincul dtvencto.

    select nrseqc dtpagto nrcontr vlme status

           nrinvoic nrparcf gsberf

...

...

      loop at itab_zycbt003 where nrseqc = itab_zycbt001-nrseqc.

        if itab_zycbt001-dtentr le itab_zycbt003-dtpror.

          itab_zycbt001-dtentr = itab_zycbt003-dtpror.

        endif.

      endloop.

      read table itab_zycbt016 with key tpcontr = itab_zycbt001-tpcontr.

      if sy-subrc = 0.

        move:

         itab_zycbt016-txtdesc to itab_relat-txtdesc.

      endif.

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

      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.

      endloop.

* << Fim da inclusão

      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,

        itab_zycbt001-waers    to itab_relat-waers,

        itab_zycbt001-vlme     to itab_relat-vlme,

        itab_zycbt001-vlcanc   to itab_relat-vlcanc,

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

        itab_zycbt001-slvinc   to itab_relat-slvinc,

        itab_zycbt001-slpagar  to itab_relat-slpagar,

* << Fim da exclusão

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

        v_saldo_vincular       to itab_relat-slvinc,

        v_saldo_pagar          to itab_relat-slpagar,

* << Fim da inclusão

        itab_zycbt001-slpagbr  to itab_relat-slpagbr.

      loop at itab_zycbt002

        where nrseqc eq itab_zycbt001-nrseqc.

        if itab_zycbt002-tpparc = 'C'.

          move itab_zycbt002-vlme to itab_relat-vl_comis.

          read table itab_zycbt074 with key

            nrseqc = itab_zycbt001-nrseqc.

          if sy-subrc eq 0.

            if itab_zycbt002-flat eq 'X'.

              move itab_zycbt074-perc_comis_flat

...

...

           itab_zycbt001-tpcontr(1) eq 'S'.

          clear: itab_relat-dtpagto, itab_relat-vlpagar.

          if itab_zycbt002-tpparc = 'J'.

            itab_relat-vlpagar = itab_zycbt002-vlme.

            clear itab_zycbt004.

            loop at itab_zycbt004 where nrseqc = itab_zycbt002-nrseqc

                                    and nrparc = itab_zycbt002-nrparc

                                    and dtpagto ne '00000000'

                                    and dtpagto ne '        '

                                    and dtpagto ne space.

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

              if itab_zycbt004-dtpagto <= s_posic.

* << Fim da inclusão

              itab_relat-dtpagto = itab_zycbt004-dtpagto.

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

              else.

                 itab_relat-dtpagto = '00000000'.

              endif.

* << Fim da inclusão

            endloop.

          elseif itab_zycbt002-tpparc = 'C'.

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

            if itab_zycbt002-dtpagto <= s_posic.

* << Fim da inclusão

            move itab_zycbt002-dtpagto to itab_relat-dtpagto.

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

            else.

               move '00000000' to itab_relat-dtpagto.

            endif.

* << Fim da inclusão

          endif.

          clear: v_usd, v_taxacambial.

          if itab_zycbt001-waers eq /pws/zycbt007-waersa.

            v_usd = itab_relat-vlpagar.

...