Ocorrência: | O Banco Central do Brasil, no dia 23 de Fevereiro de 2017, publicou a Resolução 4.558, que regulamenta a cobrança de encargos por parte das instituições financeiras e das sociedades de arrendamento mercantil nas situações de atraso de pagamentos de obrigações por clientes, entrando em vigor a partir de 1º de Setembro de 2017. A partir dessa data a instituição poderá cobrar de seus clientes apenas a taxa de juros remuneratórios igual à taxa pactuada no contrato para o período de adimplência da respectiva operação de crédito. Com o objetivo de adequarmos o sistema a Resolução acima, estamos disponibilizando script que deverá ser executado no banco Credimaster de produção, após término do fechamento diário do dia 31/08/2017, assim como procedimento que deverá ser realizado para adequação das configurações de Mora. |
Passo a passo: | Pré-requisito indispensável: Realizar o fechamento do dia 31/08/2017, utilizando o Sistema Credimaster; Executar o script enviado para fixação das configurações de mora sobre as operações emitidas com data igual ou inferior à 31/08/2017. O script deverá ser executado de acordo com o Banco de Dados utilizado por cada cliente:
/************************************************************************************/
create table t402titu_prm
as
select a.cd_emp,
a.cd_und,
a.cd_cli,
a.nr_ctr,
a.nr_adl,
a.sg_mod,
a.nr_nos_nr,
c.id_crt_ope,
c.id_fma_a30,
c.id_dd_a30,
c.tx_prm_a30,
c.sg_mon_a30,
c.sg_mon_m30,
c.id_fma_m30,
c.id_dd_m30,
c.tx_prm_m30,
c.tx_spr_ope
from t402titu a, t402moda b, t402entx c
where a.sg_mod = b.sg_mod
and a.sg_lin_ope = b.sg_lin_ope
and b.sg_ecg = c.sg_ecg
and a.id_sit_lqd in ('PA', 'PP')
and a.id_crt_prm = 'C'
and a.dt_ems <= to_date('31/08/2017','dd/mm/yyyy');
update t402titu a
set id_crt_prm = 'T',
id_crt_ope =
(select id_crt_ope
from t402titu_prm b
where a.cd_emp = b.cd_emp
and a.cd_und = b.cd_und
and a.cd_cli = b.cd_cli
and a.sg_mod = b.sg_mod
and a.nr_ctr = b.nr_ctr
and a.nr_adl = b.nr_adl
and a.nr_nos_nr = b.nr_nos_nr),
id_dd_a30 =
(select id_dd_a30
from t402titu_prm b
where a.cd_emp = b.cd_emp
and a.cd_und = b.cd_und
and a.cd_cli = b.cd_cli
and a.sg_mod = b.sg_mod
and a.nr_ctr = b.nr_ctr
and a.nr_adl = b.nr_adl
and a.nr_nos_nr = b.nr_nos_nr),
tx_prm_a30 =
(select tx_prm_a30
from t402titu_prm b
where a.cd_emp = b.cd_emp
and a.cd_und = b.cd_und
and a.cd_cli = b.cd_cli
and a.sg_mod = b.sg_mod
and a.nr_ctr = b.nr_ctr
and a.nr_adl = b.nr_adl
and a.nr_nos_nr = b.nr_nos_nr),
sg_id_a30 =
(select sg_id_a30
from t402titu_prm b
where a.cd_emp = b.cd_emp
and a.cd_und = b.cd_und
and a.cd_cli = b.cd_cli
and a.sg_mod = b.sg_mod
and a.nr_ctr = b.nr_ctr
and a.nr_adl = b.nr_adl
and a.nr_nos_nr = b.nr_nos_nr),
id_fma_a30 =
(select id_fma_a30
from t402titu_prm b
where a.cd_emp = b.cd_emp
and a.cd_und = b.cd_und
and a.cd_cli = b.cd_cli
and a.sg_mod = b.sg_mod
and a.nr_ctr = b.nr_ctr
and a.nr_adl = b.nr_adl
and a.nr_nos_nr = b.nr_nos_nr),
id_dd_m30 =
(select id_dd_m30
from t402titu_prm b
where a.cd_emp = b.cd_emp
and a.cd_und = b.cd_und
and a.cd_cli = b.cd_cli
and a.sg_mod = b.sg_mod
and a.nr_ctr = b.nr_ctr
and a.nr_adl = b.nr_adl
and a.nr_nos_nr = b.nr_nos_nr),
tx_prm_m30 =
(select tx_prm_m30
from t402titu_prm b
where a.cd_emp = b.cd_emp
and a.cd_und = b.cd_und
and a.cd_cli = b.cd_cli
and a.sg_mod = b.sg_mod
and a.nr_ctr = b.nr_ctr
and a.nr_adl = b.nr_adl
and a.nr_nos_nr = b.nr_nos_nr),
sg_id_m30 =
(select sg_id_m30
from t402titu_prm b
where a.cd_emp = b.cd_emp
and a.cd_und = b.cd_und
and a.cd_cli = b.cd_cli
and a.sg_mod = b.sg_mod
and a.nr_ctr = b.nr_ctr
and a.nr_adl = b.nr_adl
and a.nr_nos_nr = b.nr_nos_nr),
id_fma_m30 =
(select id_fma_m30
from t402titu_prm b
where a.cd_emp = b.cd_emp
and a.cd_und = b.cd_und
and a.cd_cli = b.cd_cli
and a.sg_mod = b.sg_mod
and a.nr_ctr = b.nr_ctr
and a.nr_adl = b.nr_adl
and a.nr_nos_nr = b.nr_nos_nr),
vr_tx_spr =
(select tx_spr_ope
from t402titu_prm b
where a.cd_emp = b.cd_emp
and a.cd_und = b.cd_und
and a.cd_cli = b.cd_cli
and a.sg_mod = b.sg_mod
and a.nr_ctr = b.nr_ctr
and a.nr_adl = b.nr_adl
and a.nr_nos_nr = b.nr_nos_nr)
where a.id_sit_lqd in ('PA', 'PP')
and a.id_crt_prm = 'C'
and exists (select 1
from t402titu_prm c
where a.cd_emp = c.cd_emp
and a.cd_und = c.cd_und
and a.cd_cli = c.cd_cli
and a.sg_mod = c.sg_mod
and a.nr_ctr = c.nr_ctr
and a.nr_adl = c.nr_adl
and a.nr_nos_nr = c.nr_nos_nr);
commit;
update t402tiab a
set a.id_crt_prm = 'T'
where exists (select 1
from t402titu_prm c
where a.cd_emp = c.cd_emp
and a.cd_und = c.cd_und
and a.cd_cli = c.cd_cli
and a.sg_mod = c.sg_mod
and a.nr_ctr = c.nr_ctr
and a.nr_adl = c.nr_adl
and a.nr_nos_nr = c.nr_nos_nr);
commit;
/************************************************************************************/
create table t402entx_res4558
as
select * from t402entx; |
|
/************************************************************************************/
select a.cd_emp,
a.cd_und,
a.cd_cli,
a.nr_ctr,
a.nr_adl,
a.sg_mod,
a.nr_nos_nr,
c.id_crt_ope,
c.id_fma_a30,
c.id_dd_a30,
c.tx_prm_a30,
c.sg_mon_a30,
c.sg_mon_m30,
c.id_fma_m30,
c.id_dd_m30,
c.tx_prm_m30,
c.tx_spr_ope
into t402titu_prm
from t402titu a, t402moda b, t402entx c
where a.sg_mod = b.sg_mod
and a.sg_lin_ope = b.sg_lin_ope
and b.sg_ecg = c.sg_ecg
and a.id_sit_lqd in ('PA', 'PP')
and a.id_crt_prm = 'C'
and a.dt_ems <= '20170831'
and c.id_fma_a30 <> 'O'
update t402titu
set id_crt_prm = 'T',
id_crt_ope =
(select id_crt_ope
from t402titu_prm b
where t402titu.cd_emp = b.cd_emp
and t402titu.cd_und = b.cd_und
and t402titu.cd_cli = b.cd_cli
and t402titu.sg_mod = b.sg_mod
and t402titu.nr_ctr = b.nr_ctr
and t402titu.nr_adl = b.nr_adl
and t402titu.nr_nos_nr = b.nr_nos_nr),
id_dd_a30 =
(select id_dd_a30
from t402titu_prm b
where t402titu.cd_emp = b.cd_emp
and t402titu.cd_und = b.cd_und
and t402titu.cd_cli = b.cd_cli
and t402titu.sg_mod = b.sg_mod
and t402titu.nr_ctr = b.nr_ctr
and t402titu.nr_adl = b.nr_adl
and t402titu.nr_nos_nr = b.nr_nos_nr),
tx_prm_a30 =
(select tx_prm_a30
from t402titu_prm b
where t402titu.cd_emp = b.cd_emp
and t402titu.cd_und = b.cd_und
and t402titu.cd_cli = b.cd_cli
and t402titu.sg_mod = b.sg_mod
and t402titu.nr_ctr = b.nr_ctr
and t402titu.nr_adl = b.nr_adl
and t402titu.nr_nos_nr = b.nr_nos_nr),
sg_id_a30 =
(select sg_id_a30
from t402titu_prm b
where t402titu.cd_emp = b.cd_emp
and t402titu.cd_und = b.cd_und
and t402titu.cd_cli = b.cd_cli
and t402titu.sg_mod = b.sg_mod
and t402titu.nr_ctr = b.nr_ctr
and t402titu.nr_adl = b.nr_adl
and t402titu.nr_nos_nr = b.nr_nos_nr),
id_fma_a30 =
(select id_fma_a30
from t402titu_prm b
where t402titu.cd_emp = b.cd_emp
and t402titu.cd_und = b.cd_und
and t402titu.cd_cli = b.cd_cli
and t402titu.sg_mod = b.sg_mod
and t402titu.nr_ctr = b.nr_ctr
and t402titu.nr_adl = b.nr_adl
and t402titu.nr_nos_nr = b.nr_nos_nr),
id_dd_m30 =
(select id_dd_m30
from t402titu_prm b
where t402titu.cd_emp = b.cd_emp
and t402titu.cd_und = b.cd_und
and t402titu.cd_cli = b.cd_cli
and t402titu.sg_mod = b.sg_mod
and t402titu.nr_ctr = b.nr_ctr
and t402titu.nr_adl = b.nr_adl
and t402titu.nr_nos_nr = b.nr_nos_nr),
tx_prm_m30 =
(select tx_prm_m30
from t402titu_prm b
where t402titu.cd_emp = b.cd_emp
and t402titu.cd_und = b.cd_und
and t402titu.cd_cli = b.cd_cli
and t402titu.sg_mod = b.sg_mod
and t402titu.nr_ctr = b.nr_ctr
and t402titu.nr_adl = b.nr_adl
and t402titu.nr_nos_nr = b.nr_nos_nr),
sg_id_m30 =
(select sg_id_m30
from t402titu_prm b
where t402titu.cd_emp = b.cd_emp
and t402titu.cd_und = b.cd_und
and t402titu.cd_cli = b.cd_cli
and t402titu.sg_mod = b.sg_mod
and t402titu.nr_ctr = b.nr_ctr
and t402titu.nr_adl = b.nr_adl
and t402titu.nr_nos_nr = b.nr_nos_nr),
id_fma_m30 =
(select id_fma_m30
from t402titu_prm b
where t402titu.cd_emp = b.cd_emp
and t402titu.cd_und = b.cd_und
and t402titu.cd_cli = b.cd_cli
and t402titu.sg_mod = b.sg_mod
and t402titu.nr_ctr = b.nr_ctr
and t402titu.nr_adl = b.nr_adl
and t402titu.nr_nos_nr = b.nr_nos_nr),
vr_tx_spr =
(select tx_spr_ope
from t402titu_prm b
where a.cd_emp = b.cd_emp
and a.cd_und = b.cd_und
and a.cd_cli = b.cd_cli
and a.sg_mod = b.sg_mod
and a.nr_ctr = b.nr_ctr
and a.nr_adl = b.nr_adl
and a.nr_nos_nr = b.nr_nos_nr)
where t402titu.id_sit_lqd in ('PA', 'PP')
and t402titu.id_crt_prm = 'C'
and exists (select 1
from t402titu_prm c
where t402titu.cd_emp = c.cd_emp
and t402titu.cd_und = c.cd_und
and t402titu.cd_cli = c.cd_cli
and t402titu.sg_mod = c.sg_mod
and t402titu.nr_ctr = c.nr_ctr
and t402titu.nr_adl = c.nr_adl
and t402titu.nr_nos_nr = c.nr_nos_nr)
update t402tiab
set id_crt_prm = 'T'
where exists (select 1
from t402titu_prm c
where t402tiab.cd_emp = c.cd_emp
and t402tiab.cd_und = c.cd_und
and t402tiab.cd_cli = c.cd_cli
and t402tiab.sg_mod = c.sg_mod
and t402tiab.nr_ctr = c.nr_ctr
and t402tiab.nr_adl = c.nr_adl
and t402tiab.nr_nos_nr = c.nr_nos_nr)
/************************************************************************************/
select * into t402titu_prm from t402entx |
|
Configuração do Critério de Mora: - Acesse o sistema Credimaster, utilizando usuário com privilégios suficientes para execução das alterações nas configurações de Mora:
 - Defina a abrangência desejada.
 - Acesse a barra de ferramentas Documentos, selecionando a opção Operacionais ou, se preferir, clique sobre o botão
 localizado no canto direito da tela inicial do sistema Credimaster.
 - Clique sobre a aba Mora.
 - Localize o critério de mora desejado.
 - Clique sobre o botão alterar.
 - Altere a forma de cobrança dos encargos de mora “Até 30 dias” e “Mais de 30 dias”, conforme figura abaixo.
8. Clique sobre o botão Salvar.
Caso a configuração de mora, apresente opção de Spread contendo a variável Segundo Critério, o usuário deverá alterá-la para variável Critério Único, redefinindo a Taxa Spread conforme as políticas da instituição de Crédito. 
|
|