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_tasa_interes_sobre_punitoriocompras number;
pi_tasa_interes_cuotas_pagos 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_costo_por_bloqueo_aut 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_tasa_interes_sobre_compras :=0;
pi_tasa_interes_cuotas_pagos :=0;
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_costo_por_bloqueo_aut :=10;
 
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;

-- =============== 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'pi_tasa_interes_sobre_compras);

  --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'pi_costo_por_bloqueo_aut);

  --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 VARIABLEpi_tasa_interes_cuotas_pagos); 

  --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);