Sintoma

A rotina mensal não esta provisionando os juros de contratos do tipo DP.

Solução

Deixar os contratos de DP para provisão de juros e só barrar para transferência de LP/CP.

Informações Complementares

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

Nota Número 05726 Data: 23/01/2008 Hora: 11:59:13

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

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

Nota Número              : 05726

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00031

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

Referência às notas relacionadas:

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

04174  - 00001 - 7.0    - 00002  - ROTINA MENSAL EXPORTAÇÃO - EXCLUSÃO CONTRATOS DP

05294  - 00002 - 7.0    - 00003  - ROTINA MENSAL EXPORTAÇÃO - PONTO DE EXIT RME001

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

ROTINA MENSAL EXPORTAÇÃO - PROVISÃO CONTRATOS DP

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

Palavras Chave:

ROTINA MENSAL EXPORTAÇÃO - PROVISÃO CONTRATOS DP

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

Objetos da nota:

REPS /PWS/ZYCBI003

REPS /PWS/ZYCBR003

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

Modificações efetuadas em REPS /PWS/ZYCBI003

...

             EXPORTING

                  i_codmod                = 'E'

                  i_func                  = v_repid

             TABLES

                  itab_zyglt100           = itab_zyglt100

             EXCEPTIONS

                  i_codmod_nao_encontrado = 1

                  i_func_nao_encontrado   = 2

                  i_zexit_nao_encontrado  = 3

                  OTHERS                  = 4.

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

        IF sy-subrc = 0.

        ELSE.

        ENDIF.

* << Fim da inclusão

        READ TABLE itab_zyglt100 WITH KEY zexit = 'RME001'

                                                  BINARY SEARCH.

        IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.

          PERFORM (itab_zyglt100-formulario)

                  IN PROGRAM (itab_zyglt100-programa).

        ELSE.

          IF itab_contabil-tpcontab IS INITIAL OR

             itab_contabil-tpcontab = 'PR'     OR

             itab_contabil-tpcontab EQ 'C'.

            CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_02'

...

...

           (16) space,

           AT v_tamr sy-vline.

  ENDIF.

  ULINE.

  FORMAT COLOR OFF.

ENDFORM.

FORM processa_transfer_longo_curto.

  DATA: v_nrdias TYPE i,

        v_dtpror TYPE /pws/zycbt003-dtpror,

        v_vlmeaux LIKE /pws/zycbt005-vlvinc.

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

  LOOP AT itab_zycbt001.

* << Fim da exclusão

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

  LOOP AT itab_zycbt001

          WHERE tpcontr(1) NE 'D'.

* << Fim da inclusão

    CLEAR: itab_relat, v_vlmeaux.

    LOOP AT itab_zycbt005 WHERE nrseqc = itab_zycbt001-nrseqc

                            AND tpdesp = ' '.

      v_vlmeaux = v_vlmeaux + itab_zycbt005-vlvinc.

    ENDLOOP.

    CLEAR v_dtpror.

    SORT itab_zycbt003 BY dtpror ASCENDING.

    LOOP AT itab_zycbt003

      WHERE nrseqc = itab_zycbt001-nrseqc.

      v_dtpror = itab_zycbt003-dtpror.

...

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

Modificações efetuadas em REPS /PWS/ZYCBR003

...

    SELECT *

           FROM /pws/zycbt001

           APPENDING TABLE itab_zycbt001

           WHERE bukrs       EQ s_bukrs       AND

                 tpcontr     IN s_tpcont      AND

               ( fdtjuros    EQ 'C' OR

                 fdtjuros    EQ ' ' )         AND

                 dtcred      LE s_dtentr      AND

                 f_encerrado NE v_f_encerrado AND

                 f_encerrado NE v_flag_e.               "#EC CI_NOFIELD

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

    DELETE itab_zycbt001 WHERE tpcontr = 'DP'.

* << Fim da exclusão

  ELSE.

    SELECT * FROM /pws/zycbt062

             INTO TABLE itab_zycbt062

             WHERE nrseq_c  IN s_nrseqc

               AND dtvencto LE s_dtentr.                "#EC CI_NOFIRST

    SELECT *

           FROM /pws/zycbt001

           INTO TABLE itab_zycbt001

           WHERE bukrs       EQ s_bukrs       AND

                 nrseqc      IN s_nrseqc      AND

                 tpcontr     IN s_tpcont      AND

                 f_encerrado <> v_f_encerrado AND

                 f_encerrado <> v_flag_e.

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

    DELETE itab_zycbt001 WHERE tpcontr = 'DP'.

* << Fim da exclusão

  ENDIF.

  IF NOT itab_zycbt062[] IS INITIAL.

    SELECT * FROM /pws/zycbt060

             INTO TABLE itab_zycbt060

             FOR ALL ENTRIES IN itab_zycbt062

             WHERE nrseq EQ itab_zycbt062-nrseq.

  ENDIF.

  IF itab_zycbt001[] IS INITIAL.

    MESSAGE i222.

    STOP.

...