Page History

declare
  pi_emisor number;
  pi_emisor_base number;
  pi_grupo_afinidad_base number;
  pi_descripcion VARCHAR2(100);
  pi_ruc_emisor  VARCHAR2(16);
  pi_direccion   VARCHAR2(100);
  pi_telefono    VARCHAR2(100);
  pi_contacto    VARCHAR2(100);
  pi_email_contacto VARCHAR2(100);
  pi_debcta_s_n CHAR(1);
  pi_seguro_vida_s_n CHAR(1);
  pi_calc_impuesto_s_n CHAR(1);
  pi_tasa_int_punit NUMBER;
  pi_cuotas_financi_s_n CHAR(1);
  pi_calculo_interes_s_n CHAR(1);
  pi_decaimeinto_compulsi_s_n CHAR(1);
  pi_apli_comis_mora_s_n CHAR(1);
  pi_apli_comis_combus_s_n CHAR(1);
  pi_apli_comis_super_s_n CHAR(1);
  pi_apli_comis_adelefect_s_n CHAR(1);
  pi_apli_comis_exceso_s_n CHAR(1);
  pi_apli_entrega_extracto_s_n CHAR(1);
  pi_apli_compra_ext_s_n CHAR(1);
  pi_valida_mora_debaut_s_n CHAR(1);
  pi_dias_perm_mora_debaut NUMBER;
  pi_debita_cta_comercio_s_n CHAR(1);
  pi_afinidad number := 0;
  pi_cartera number  := 0;
  pi_tasa_interes_corriente number;
  pi_tasa_plan_normal number;
  pi_tasa_interes_moratorio number;
  pi_tasa_interes_punitorio number;
  pi_comision_ATM NUMBER;
  pi_comision_Ventanilla NUMBER;
  pi_aplica_s_n CHAR(1);
  pi_monto_cargo number;
  pi_cantidad_TRX_ATM NUMBER;
  pi_cantidad number;
  pi_aplica_seguro_fraude_s_n CHAR(1);
  pi_aplica_seguro_vida_s_n CHAR(1);
  pi_aplica_costo_emision NUMBER;
  pi_montocostoemi_titu NUMBER;
  pi_montocostoemi_adic NUMBER;
  pi_cantcuotas_emision number;
  pi_financiar_costorenov_s_n CHAR(1);
  pi_cargo_anual_titular   number;
  pi_cargo_anual_adicional number;
  po_retorno varchar2(512);
  pi_aplica_costo_renovacion NUMBER;--1-AL GENERAR/2-AL ACTIVAR/0-NO APLICA
  pi_montocostorenov_titu number;
  pi_montocostorenov_adic number;
  pi_cant_cuotas_renovacion number;
  pi_financiar_costo_renov_s_n CHAR(1);
  pi_porcentaje_pm number;
  pi_importe_monto_pm number;
  pi_aplica_comision_x_mora CHAR(1);
  pi_aplica_cargo_x_exceso_s_n CHAR(1);
  pi_aplica_cargo_com_exte_s_n CHAR(1);
  pi_monto_cargo_com_exterior number;
  pi_dias_mora_inhabilitar number;
  pi_saldo_mora_inhabilitar number;
  pi_dias_mora_bloq_auto    number;
  pi_saldo_mora_bloq_auto number;
  pi_cargo_mora_inhabilitar number;
  pi_porcen_cargo_excesolc number;
  pi_usuario varchar2(8):= 'CEIBO';
  vc_bandera varchar2(512);
  VC_PROMOTOR varchar2(20);
  VC_BIN VARCHAR2(16);
  VC_BIN_CRIPTO VARCHAR2(16);
  VC_BIN_EMISOR VARCHAR2(20);
  VN_BIN_ID NUMBER(8);
  vc_sftp_entidad varchar2(20);
  vn_id_admin number;
  vn_lc_minima number;
  vn_lc_maximo number;
  vc_linea_unificada char(1);
  vc_descuenta_cuota char(1);
begin 
  pi_emisor :=125;
  pi_emisor_base := 119;
  pi_grupo_afinidad_base := 119001;
  VC_PROMOTOR :='COOP. REDUCTO LTDA.';
  VC_BIN      := '604394';
  VC_BIN_EMISOR := 'COOP. REDUCTO LTDA.';
  VN_BIN_ID     := 201;
  vc_sftp_entidad := 'COOP. REDUCTO LTDA.';
  vn_lc_minima := 500000;
  vn_lc_maximo := 50000000;
  vc_linea_unificada :='1';
  vc_descuenta_cuota := '0';
  pi_descripcion:='COOP. REDUCTO LTDA.';
  pi_ruc_emisor:='80018850-0';
  pi_direccion:='AV. LA VICTORIA C/ JUAN PABLO II';
  pi_telefono:='21595000';
  pi_contacto:='MG. ANGELA MARTINEZ';
  pi_email_contacto:='amartinez@coopreducto.coop.py';
  pi_debcta_s_n:='N';
  pi_seguro_vida_s_n:='S';
  pi_calc_impuesto_s_n:='N';
  pi_tasa_int_punit:=30;
  pi_cuotas_financi_s_n:='N';
  pi_calculo_interes_s_n:='S';
  pi_decaimeinto_compulsi_s_n:='N';
  pi_apli_comis_mora_s_n:='S';
  pi_apli_comis_combus_s_n:='N';
  pi_apli_comis_super_s_n:='N';
  pi_apli_comis_adelefect_s_n:='S';
  pi_apli_comis_exceso_s_n:='S';
  pi_apli_entrega_extracto_s_n:='N';
  pi_apli_compra_ext_s_n:='N';
  pi_valida_mora_debaut_s_n:='S';
  pi_dias_perm_mora_debaut:=40;
  pi_debita_cta_comercio_s_n:='N';
  pi_tasa_interes_corriente :=17;
  pi_tasa_plan_normal       :=17;
  pi_tasa_interes_moratorio :=17;
  pi_tasa_interes_punitorio :=5.1;
  pi_comision_ATM           := 6;
  pi_comision_Ventanilla    := 8.5;
  pi_aplica_s_n             :='S';
  pi_monto_cargo            :=0;
  pi_cantidad_TRX_ATM       :=0;
  pi_aplica_seguro_fraude_s_n := 'N';
  pi_aplica_seguro_vida_s_n   :='S';
  pi_montocostoemi_titu :=0;
  pi_montocostoemi_adic :=100000;
  pi_cantcuotas_emision :=2;
  pi_financiar_costorenov_s_n :='S';
  pi_aplica_costo_emision := 2;
  pi_cargo_anual_titular   :=130000;
  pi_cargo_anual_adicional :=130000;
  pi_aplica_costo_renovacion :=2;
  pi_montocostorenov_titu   :=100000;
  pi_montocostorenov_adic   :=100000;
  pi_cant_cuotas_renovacion :=2;
  pi_financiar_costo_renov_s_n :='S';
  pi_porcentaje_pm :=10;
  pi_importe_monto_pm :=50000;
  pi_aplica_comision_x_mora :='S';
  pi_aplica_cargo_x_exceso_s_n := 'S';
  pi_aplica_cargo_com_exte_s_n :='N';
  pi_monto_cargo_com_exterior  :=0;
  pi_dias_mora_inhabilitar     :=10;
  pi_saldo_mora_inhabilitar    :=1;
  pi_dias_mora_bloq_auto       :=30;
  pi_saldo_mora_bloq_auto      :=1;
  pi_cargo_mora_inhabilitar :=15000;
  pi_porcen_cargo_excesolc :=1.5;

  SELECT FC_PAN2CRIPTO@bapy(RPAD(VC_BIN,16,'F')) bin 
    INTO VC_BIN_CRIPTO
    from dual;  
  
  vn_id_admin:=79;

  /*------------------------------------------
  Luego aquí van los pasos expuestos mas abajo
  ------------------------------------------*/

end;

 -- =============== 5. CALENDARIOS CIERRES ================ --
  vc_bandera := '5. CALENDARIOS CIERRES';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';calandarios_cierres;Registrado!');
insert into calendario_cierres
select distinct
       ga.emisor,
       cc.producto,
       cc.cierre,
       cc.periodo,
       ga.grupo_afinidad,
       cc.fecha_cierre,
       cc.fecha_vencimiento
from calendario_cierres cc, grupos_afinidad ga
where cc.emisor = 119pi_emisor_base --EMISOR_BASE
and   ga.emisor = pi_emisor--NUEVO_EMISOR
and   cc.cierre = pi_cierre --CICLO LIQUIDACION 
and   cc.periodo >= 202301;--PERIODO ACTUAL

   -- =============== 8. PRM_CARTERAS ================ --
  vc_bandera := '8. PRM_CARTERAS';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';prm_carteras;Registrado!');

 insert --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=2
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 2, '2');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=3
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 3, '2');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=4
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 4, '1');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=5
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 5, '0');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=6
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 6, '0');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=7
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 7, '9');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=8
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 8, 'A');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=9
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 9, '2');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=10
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 10, 'N');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=11
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 11, '4');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=12
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 12, '4');
  
  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=13
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 13, '4');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=14
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 14, 'N');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=15
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 15, 'S');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=16
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 16, '9');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=31
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 31, '1');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=36
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 36, '2');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=37
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 37, '2');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=38
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 38, '1');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=39
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 39, '9');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=47
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 47, '1');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=48
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 48, '1');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=49
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 49, '9');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=50
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 50, '1');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=54
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 54, vc_descuenta_cuota);

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=55
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 55, vc_linea_unificada);

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=57
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 57, '1');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=58
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 58, '9');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=59
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 59, '1');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=61
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 61, '0');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=63
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 63, '1');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=64
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 64, '1');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=65
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 65, '1');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=66
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 66, '1');

  --COD PRM 2 -> B-Tasa de interes corriente -> select * from creditopy.prm_parametros pp where pp.cod_prm=67
  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 67, 'N');into prm_carteras
	select ga.emisor,
       ga.producto,
       ga.grupo_afinidad,
       ca.cartera,
       pc.cod_prm,
       pc.valor_prm
	from prm_carteras pc, debcredpy.carteras ca, grupos_afinidad ga
	where ca.emisor = pi_emisor --NUEVO EMISOR
	and ga.emisor = ca.emisor
	and pc.emisor = pi_emisor_base --EMISOR BASE
	and pc.grupo_afinidad = pi_grupo_afinidad_base--GRUPO AFINIDAD BASE
	and pc.cartera = 1; --CARTERA

-- =============== 9. PRM_CODIGOS_VALORES ================ --
  vc_bandera := '9. PRM_CODIGOS_VALORES';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';prm_codigos_valores;Registrado!');
  
    /*Queries
  select * from creditopy.prm_codigos_valores pcv
  where pcv.emisor=125
  and pcv.cod_prm in (2,3,16,31,36,37,38,39,47,48,49,58,59,65,66) 
  
  select * from creditopy.prm_parametros pp
  where pp.cod_prm in (2,3,16,31,36,37,38,39,47,48,49,58,59,65,66)*/
  
  --B-Tasa de interes corriente
  insert into prm_codigos_valores (EMISOR, COD_PRM, COD_VALOR_PRM, VALOR_PRM)
  values (pi_emisor, 2, '0', pi_tasa_interes_corriente);

  --C-Tasa de interes moratorio
  insert into prm_codigos_valores (EMISOR, COD_PRM, COD_VALOR_PRM, VALOR_PRM)
  values (pi_emisor, 3, '0', pi_tasa_interes_moratorio);
;

  --S-Tasa de interes sobre compras
  insert into prm_codigos_valores (EMISOR, COD_PRM, COD_VALOR_PRM, VALOR_PRM)
  values (pi_emisor, 16, '0', '0');

  --E-Tasa de interes cuotas - PLAN NORMAL
  insert into prm_codigos_valores (EMISOR, COD_PRM, COD_VALOR_PRM, VALOR_PRM)
  values (pi_emisor, 31, '0', pi_tasa_plan_normal);

  --Dias en mora para inhabilitar
  insert into prm_codigos_valores (EMISOR, COD_PRM, COD_VALOR_PRM, VALOR_PRM)
  values (pi_emisor, 36, '0', pi_dias_mora_inhabilitar);

  --Saldo en mora para inhabilitar
  insert into prm_codigos_valores (EMISOR, COD_PRM, COD_VALOR_PRM, VALOR_PRM)
  values (pi_emisor, 37, '0', pi_saldo_mora_inhabilitar);

  --Costo por inhabilitación
  insert into prm_codigos_valores (EMISOR, COD_PRM, COD_VALOR_PRM, VALOR_PRM)
  values (pi_emisor, 38, '0',  pi_cargo_mora_inhabilitar);

  --Base del saldo financ. para int.s/compras
  insert into prm_codigos_valores (EMISOR, COD_PRM, COD_VALOR_PRM, VALOR_PRM)
  values (pi_emisor, 39, '0',  '0');

  --Dias en mora para bloqueo Automatico
  insert into prm_codigos_valores (EMISOR, COD_PRM, COD_VALOR_PRM, VALOR_PRM)
  values (pi_emisor, 47, '0', pi_dias_mora_bloq_auto);

  --Saldo en Mora para bloqueo Automat.
  insert into prm_codigos_valores (EMISOR, COD_PRM, COD_VALOR_PRM, VALOR_PRM)
  values (pi_emisor, 48, '0', pi_saldo_mora_bloq_auto);

  --Costo por Bloqueo Automatico
  insert into prm_codigos_valores (EMISOR, COD_PRM, COD_VALOR_PRM, VALOR_PRM)
  values (pi_emisor, 49, '0', '0');

  --Tasa de interes cuotas - PLAN PAGOS (cuota sin int)
  insert into prm_codigos_valores (EMISOR, COD_PRM, COD_VALOR_PRM, VALOR_PRM)
  values (pi_emisor, 58, '0', '16'); --CREAR VARIABLE

  --Tasa interes cuotas - PLAN 1RA. CUOTA A PLAZOS
  insert into prm_codigos_valores (EMISOR, COD_PRM, COD_VALOR_PRM, VALOR_PRM)
  values (pi_emisor, 59, '0', pi_tasa_plan_normal);
  
  --Costo de Renovacion Titular
  insert into prm_codigos_valores (EMISOR, COD_PRM, COD_VALOR_PRM, VALOR_PRM)
  values (pi_emisor, 65, '0', pi_montocostorenov_titu);

  --Costo de Renovacion Adicional
  insert into prm_codigos_valores (EMISOR, COD_PRM, COD_VALOR_PRM, VALOR_PRM)
  values (pi_emisor, 66, '0', pi_montocostorenov_adic);