Sintoma

O campo elemento PEP não está sendo levado para a contabilização na da Rotina Mensal.

Solução

Foi adicionado tratamento para o elemento PEP na provsião de juros, ir sobre juros e comissão de

financiamento de importação.

Informações Complementares

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

Nota Número 03813 Data: 31/05/2007 Hora: 13:07:23

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

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

Nota Número              : 03813

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00001

Agrupamento              : 00168

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

Referência às notas relacionadas:

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

00563  - 00001 - 6.0    - 00022  - ROTINA MENSAL IMPORTAÇÃO - NÃO ESTÁ SENDO LEVADO O C. CUSTO NA CO

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

ROTINA MENSAL FINANCIAMENTO ELEMENTO PEP

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

Palavras Chave:

ROTINA MENSAL FINANCIAMENTO ELEMENTO PEP

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

Objetos da nota:

REPS /PWS/ZYCBI112

REPS /PWS/ZYCBI112X

REPS /PWS/ZYCBR112

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

Modificações efetuadas em REPS /PWS/ZYCBI112

...

      itab_zycbe033-d_zuonr = itab_zycbt112-nrfinanc.

      itab_zycbe033-c_zuonr = itab_zycbt112-nrfinanc.

    ELSE.

      itab_zycbe033-d_zuonr = itab_contabil-bco.

      itab_zycbe033-c_zuonr = itab_contabil-bco.

    ENDIF.

    itab_zycbe033-kursf   = itab_contabil-kursf.

    itab_zycbe033-blart   = itab_contabil-blart.

    itab_zycbe033-d_sgtxt = itab_contabil-d_sgtxt.

    itab_zycbe033-c_sgtxt = itab_contabil-c_sgtxt.

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

    itab_zycbe033-ps_posid = itab_contabil-ps_posid.

* << Fim da inclusão

    itab_zycbe033-d_newko = itab_contabil-d_newko.

    itab_zycbe033-d_gsber = itab_contabil-gsber.

    itab_zycbe033-d_kostl = itab_contabil-kostl.

    itab_zycbe033-d_prctr = itab_contabil-prctr.

    itab_zycbe033-d_fipos = itab_contabil-fipos.

    itab_zycbe033-d_fictr = itab_contabil-fictr.

    itab_zycbe033-c_newko = itab_contabil-c_newko.

    itab_zycbe033-c_gsber = itab_contabil-gsber.

    itab_zycbe033-c_kostl = itab_contabil-kostl.

    itab_zycbe033-c_prctr = itab_contabil-prctr.

...

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

Modificações efetuadas em REPS /PWS/ZYCBI112X

...

        vlrprov     LIKE /pws/zycbt154-vlme,

        vlrjprov    LIKE /pws/zycbt154-vlme,

        vlrprov2    LIKE /pws/zycbt154-vlme,

        vlrjprov2   LIKE /pws/zycbt154-vlme,

        vlrprov3    LIKE /pws/zycbt154-vlme,

        vlrjprov3   LIKE /pws/zycbt154-vlme,

        vlpagj      LIKE /pws/zycbt154-vlme,

        vlpagir     LIKE /pws/zycbt154-vlme,

        vlpagc      LIKE /pws/zycbt154-vlme,

        dtfpar      LIKE sy-datum,

* >> Início da inclusão:

        ps_posid    LIKE /pws/zycbt113-ps_posid,

* << Fim da inclusão

      END OF itab_relat.

DATA: END OF COMMON PART.

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

Modificações efetuadas em REPS /PWS/ZYCBR112

...

DATA: BEGIN OF itab_pagas OCCURS 2,

       nrseq    LIKE /pws/zycbt113-nrseq,

       tpparc   LIKE /pws/zycbt113-tpparc,

       nrparc   LIKE /pws/zycbt113-nrparc,

       nrdias   LIKE /pws/zycbt113-nrdias,

       dtinicio LIKE /pws/zycbt113-dtinicio,

       dtfinal  LIKE /pws/zycbt113-dtfinal,

       v_total  LIKE /pws/zycbt113-vlme,

       dtpagto  LIKE /pws/zycbt113-dtpagto,

       kostl    LIKE /pws/zycbt113-kostl,

* >> Início da inclusão:

       ps_posid LIKE /pws/zycbt112-ps_posid,

* << Fim da inclusão

      END OF itab_pagas.

DATA: BEGIN OF itab_status OCCURS 5,

        fcode LIKE rsmpe-func,

      END OF itab_status.

DATA: itab_zycbt009  LIKE /pws/zycbt009 OCCURS  3  WITH HEADER LINE,

      itab_zycbt010  LIKE /pws/zycbt010 OCCURS  2  WITH HEADER LINE,

      itab_zycbt011  LIKE /pws/zycbt011 OCCURS  5  WITH HEADER LINE,

      itab_zycbt013  LIKE /pws/zycbt013 OCCURS  5  WITH HEADER LINE,

      itab_zycbt154  LIKE /pws/zycbt154 OCCURS 10  WITH HEADER LINE,

      itab_tcurx     LIKE tcurx         OCCURS 10  WITH HEADER LINE.

...

...

        blartir    LIKE /pws/zycbt011-blart,

        c_sgtxt    LIKE /pws/zycbt011-txtdesc,

        d_sgtxt    LIKE /pws/zycbt011-txtdesc,

        c_sgtxtir  LIKE /pws/zycbt011-txtdesc,

        d_sgtxtir  LIKE /pws/zycbt011-txtdesc,

        codint     LIKE /pws/zycbt112-codint,

        nrparcp    LIKE /pws/zycbt113-nrparc,

        nrparcj    LIKE /pws/zycbt113-nrparc,

        vlmetransf LIKE /pws/zycbt001-vlme,

        dtfpar     LIKE sy-datum,

* >> Início da inclusão:

        ps_posid    LIKE /pws/zycbt113-ps_posid,

* << Fim da inclusão

      END OF itab_contabil.

INCLUDE /pws/zygli100.

INCLUDE /pws/zycbi112x.

DATA: itab_zyglt100 LIKE /pws/zyglt100 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_msg OCCURS 10,

        nrseq    LIKE /pws/zycbt112-nrseq,

        nrfinanc LIKE /pws/zycbt112-nrfinanc,

        nrparc   LIKE /pws/zycbt113-nrparc,

        tpmsg    LIKE /pws/zycbt032-tpmsg,

        msg      LIKE /pws/zycbt032-msg,

...

...

               AND codint IN s_codint.

  ENDIF.

  IF wa_zycbt007-fprovisao <> 'C'.

    SELECT * FROM /pws/zycbt113

           INTO TABLE itab_zycbt113p

           FOR ALL ENTRIES IN itab_zycbt112

           WHERE nrseq = itab_zycbt112-nrseq

             AND tpparc = 'P'

             AND status NE 'E'.

    SELECT nrseq tpparc nrparc nrdias dtinicio dtfinal vlme dtpagto

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

           kostl ps_posid

* << Fim da inclusão

            INTO TABLE itab_pagas

            FROM /pws/zycbt113

            FOR ALL ENTRIES IN itab_zycbt112

                    WHERE nrseq = itab_zycbt112-nrseq

                      AND tpparc = 'C'

                      AND dtinicio <= s_dtentr

                      AND ( dtpagto = '00000000' OR dtpagto = space )

                      AND status NE 'E'.

  ELSE.

    SELECT * FROM /pws/zycbt113

...

...

               AND nrcorresp = itab_zycbt112-nrseq

               AND status NE 'E'.

    IF NOT itab_zycbt031[] IS INITIAL.

      SELECT * FROM /pws/zycbt134

               INTO TABLE itab_zycbt134

               FOR ALL ENTRIES IN itab_zycbt031

               WHERE nrseq = itab_zycbt031-nrseq.

    ENDIF.

    SELECT nrseq tpparc nrparc nrdias dtinicio dtfinal vlme dtpagto

           kostl

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

           ps_posid

* << Fim da inclusão

            INTO TABLE itab_pagas

            FROM /pws/zycbt113

            FOR ALL ENTRIES IN itab_zycbt112

                    WHERE nrseq = itab_zycbt112-nrseq

                      AND tpparc = 'C'

                      AND dtinicio <= s_dtentr

                      AND status NE 'E'.

  ENDIF.

  SELECT * FROM /pws/zycbt113

           INTO TABLE itab_zycbt113j

...

...

  itab_relat-nrseq       = itab_zycbt112-nrseq.

  itab_relat-nrfinanc    = itab_zycbt112-nrfinanc.

  itab_relat-codint      = itab_zycbt112-codint.

  itab_relat-nrparcj     = itab_zycbt113j-nrparc.

  itab_relat-nrparcp     = itab_zycbt113p-nrparc.

  itab_relat-bco         = itab_zycbt112-bcofinan.

  itab_relat-bukrs       = itab_zycbt112-bukrs.

  itab_relat-gsber       = itab_zycbt112-gsber.

  itab_relat-waers       = itab_zycbt112-waers.

  itab_relat-dtoperac    = v_dtoperac.

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

  itab_relat-ps_posid    = itab_zycbt113j-ps_posid.

* << Fim da inclusão

  IF itab_relat-dtoperac+0(6) = s_dtentr+0(6).

    itab_relat-vlmec = itab_zycbt113p-vlme.

  ENDIF.

  IF wa_zycbt007-fprovisao <> 'C'.

    IF     ( NOT itab_zycbt113p-dtpagto IS INITIAL ) AND

           ( itab_zycbt113j-dtpagto <= s_dtentr ).

      itab_relat-vlmep = itab_zycbt113p-vlme.

    ENDIF.

  ELSE.

    IF itab_relat-tpcontab = 'T'.

...

...

  itab_relat-dtde        = itab_pagas-dtinicio.

  IF s_dtentr <= itab_pagas-dtfinal.

    itab_relat-dtate       = s_dtentr.

  ELSE.

    itab_relat-dtate       = itab_pagas-dtfinal.

  ENDIF.

  itab_relat-vlmec       = v_vlcomis.

  itab_relat-vlme        = v_vlcomis.

  itab_relat-vlmep       = v_vlcomis.

  itab_relat-vlmej       = v_vlcomis.

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

  itab_relat-ps_posid    = itab_pagas-ps_posid.

* << Fim da inclusão

  PERFORM montante_converte2.

  itab_relat-d_newko     = v_d_newko.

  itab_relat-c_newko     = v_c_newko.

  itab_relat-kostl       = itab_pagas-kostl.

  itab_relat-prctr       = itab_zycbt112-prctr.

  itab_relat-fipos       = itab_zycbt112-fipos.

  itab_relat-fictr       = itab_zycbt112-fictr.

  itab_relat-blart       = v_blart.

  itab_relat-c_sgtxt     = v_c_sgtxt.

  itab_relat-d_sgtxt     = v_d_sgtxt.

...