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:
| Expand |
|---|
| | Code Block |
|---|
| /************************************************************************************/
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')
and c.id_fma_a30 <> 'O';
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),
where a.id_sit_lqd in ('PA', 'PP')
and a.idvr_crttx_prmspr =
'C'
and exists (select 1tx_spr_ope
from t402titu_prm cb
where a.cd_emp = cb.cd_emp
and a.cd_und = cb.cd_und
and a.cd_cli = cb.cd_cli
and a.sg_mod = cb.sg_mod
and a.nr_ctr = cb.nr_ctr
and a.nr_adl = cb.nr_adl
and a.nr_nos_nr = cb.nr_nos_nr);
commit; where a.id_sit_lqd in ('PA', 'PP')
update t402tiab a
set aand a.id_crt_prm = 'TC'
where 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;
/************************************************************************************/
create table t402entx_res4558
as
select * from t402entx;
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; |
|
| Expand |
|---|
| | Code Block |
|---|
| /************************************************************************************/
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 |
| | Expand |
|---|
| | Code Block |
|---|
| /************************************************************************************/
select a.cd_emp,
a.cd_und,
a.cd_cli,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 = ac.nrsg_ctr,ecg
and a.nr_adl,
id_sit_lqd in ('PA', 'PP')
and a.sg_mod,
id_crt_prm = 'C'
and a.nr_nos_nr,
dt_ems <= '20170831'
and c.id_crt_ope,fma_a30 <> 'O'
update t402titu
c.id_fma_a30set id_crt_prm = 'T',
c.id_dd_a30,
crt_ope =
(select c.txid_prmcrt_a30,ope
c.sg_mon_a30,
from t402titu_prm b
c.sg_mon_m30,
where ct402titu.id_fma_m30,
c.id_dd_m30,cd_emp = b.cd_emp
c.tx_prm_m30,
and ct402titu.tx_spr_opecd_und = b.cd_und
into t402titu_prm
from t402titu a, t402moda b, t402entx c
where a.sg_modand t402titu.cd_cli = b.sgcd_modcli
and a.sg_lin_ope = b.sg_lin_ope
and bt402titu.sg_ecgmod = cb.sg_ecgmod
and a.id_sit_lqd in ('PA', 'PP')
and at402titu.idnr_crt_prmctr = 'C'b.nr_ctr
and a.dt_ems <= '20170831'
and ct402titu.id_fma_a30 <> 'O'
nr_adl = b.nr_adl
update t402titu
setand idt402titu.nr_crtnos_prmnr = 'T'b.nr_nos_nr),
id_crtdd_opea30 =
(select id_crtdd_opea30
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),
idtx_ddprm_a30 =
(select idtx_ddprm_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),
txsg_prmid_a30 =
(select txsg_prmid_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),
sgid_idfma_a30 =
(select sgid_idfma_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_fmadd_a30m30 =
(select id_fmadd_a30m30
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),
idtx_ddprm_m30 =
(select idtx_ddprm_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),
txsg_prmid_m30 =
(select txsg_prmid_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),
sgid_idfma_m30 =
(select sgid_idfma_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),
idvr_fmatx_m30spr =
(select idtx_fmaspr_m30ope
from t402titu_prm b
where t402titua.cd_emp = b.cd_emp
and t402titua.cd_und = b.cd_und
and t402titua.cd_cli = b.cd_cli
and t402titua.sg_mod = b.sg_mod
and t402titua.nr_ctr = b.nr_ctr
and t402titua.nr_adl = b.nr_adl
and t402titua.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.
| Warning |
|---|
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. 
|
|
