SCRIPT - Alta de Entidad Emisora

A continuación, en este documento citaremos los pasos necesarios a llevar a cabo para dar de alta una entidad emisora de tarjetas de crédito.

QUEDA PENDIENTE AGREGAR/VERIFICAR

Verificar el PASO 10, 11, 12, 13, 14 y 15 para saber y documentar en donde impacta

Declaración de cabecera y cierre del script completo

Dentro de la declaración de cabecera se declaran las variables a las cuales se le asignan los valores que se encuentran en el documento xlsx de alta de entidad provisto por los compañeros de entidades u operaciones, el cual menciona los valor a ser utilizados por la entidad para los parámetros de sus tarjetas de crédito.

Declaración de cabecera y cierre

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_compras number;
  pi_tasa_interes_cuotas_pagos number;
  pi_comision_ATM NUMBER;
  pi_comision_Ventanilla NUMBER;
  pi_comision_adm_mora 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 := 'CoopReducto';--NO DEBE TENER ESPACIOS, NI CARACTERES ESPECIALES
  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_comision_adm_mora :=0;
  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 :=0; 
  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;

Paso 1 - Alta del emisor

En este paso, se utiliza el procedimiento almacenado ubicado en el paquete PKG_PARAMETROS llamado SP_ALTA_ENTIDAD y le pasamos los valores de las variables previamente mencionadas, luego se habilita el emisor asignando el valor 'A' en el campo BASE_PAGO_MINIMO de la tabla EMISORES ubicada en el esquema DEBCREDPY.

Alta de Emisor

  -- =============== 1. ALTA EMISOR ================ --
  vc_bandera := '1. ALTA EMISOR';
  pkg_entidades.sp_alta_entidad(pi_emisor,
                                pi_descripcion,
                                pi_ruc_emisor,
                                pi_direccion,
                                pi_telefono,
                                pi_contacto,
                                pi_email_contacto,
                                pi_debcta_s_n,
                                pi_seguro_vida_s_n,
                                pi_calc_impuesto_s_n,
                                pi_tasa_int_punit,
                                pi_cuotas_financi_s_n,
                                pi_calculo_interes_s_n,
                                pi_decaimeinto_compulsi_s_n,
                                pi_apli_comis_mora_s_n,
                                pi_apli_comis_combus_s_n,
                                pi_apli_comis_super_s_n,
                                pi_apli_comis_adelefect_s_n,
                                pi_apli_comis_exceso_s_n,
                                pi_apli_entrega_extracto_s_n,
                                pi_apli_compra_ext_s_n,
                                pi_valida_mora_debaut_s_n,
                                pi_dias_perm_mora_debaut,
                                pi_debita_cta_comercio_s_n,
                                pi_usuario); 
  UPDATE DEBCREDPY.EMISORES E SET E.BASE_PAGO_MINIMO = 'A' WHERE E.EMISOR = 125;

Paso 2 - Insertar un registro en la tabla EMISORES_PRODUCTOS

En esta tabla de encuentran una gran cantidad de parámetros definidos por la entidad para sus tarjetas de crédito, los cuales están definidos también por las variables previamente declaradas por el emisor.

Emisores_productos

-- =============== 2. EMISORES PRODUCTOS ================ --
  vc_bandera := '2. EMISORES PRODUCTOS';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';emisores_productos;Registrado!');

  DECLARE
  pi_emisor                  number(4);
  pi_ep_grupo_afinidad          number(7);
  pi_ep_porc_sobregiro_cont     number(5, 2);
  pi_ep_porc_sobregiro_efec     number(5, 2);
  pi_ep_porc_sobregiro_plan     number(5, 2);
  pi_ep_porc_limite_efectivo    number(5, 2);
  pi_ep_costo_franqueo          number(15, 2);
  pi_ep_carpeta_fraude          number(8);
  pi_ep_porc_refinan            number(5, 2);
  pi_ep_gestion_cobro           varchar2(1);
  pi_ep_min_linea_credito       number(15, 2);
  pi_ep_max_linea_credito       number(15, 2);
  pi_ep_min_linea_cuota         number(15, 2);
  pi_ep_max_linea_cuota         number(15, 2);
  pi_ep_min_cargo_mora          number(15, 2);
  pi_ep_min_cargo_exceso        number(15, 2);
  pi_ep_min_cargo_linea         number(15, 2);
  pi_ep_cobertura_fraude        number(15, 2);
  pi_ep_min_pago_minimo         number(15, 2);
  pi_ep_gastos_admin            number(15, 2);
  pi_ep_forma_pago              varchar2(1);
  pi_ep_ciudad                  number(4);
  pi_ep_codigo_nacionalidad     number(3);
  pi_ep_codigo_ocupacion        number(4);
  pi_ep_cartera                 number(3);
  pi_ep_codigo_captador         varchar2(2);
  pi_ep_codigo_correspondencia  varchar2(1);
  pi_ep_encargado_de_cuenta     number(2);
  pi_ep_duracion_tarjeta        number(3);
  pi_ep_documento_oblig         varchar2(1);
  pi_ep_telefono_oblig          varchar2(1);
  pi_ep_fecha_nac_oblig         varchar2(1);
  pi_ep_estado_civil_oblig      varchar2(1);
  pi_ep_cuenta_bancaria_oblig   varchar2(1);
  pi_ep_numero_interno_oblig    varchar2(1);
  pi_ep_direccion_adic_oblig    varchar2(1);
  pi_ep_documento_adic_oblig    varchar2(1);
  pi_ep_telefono_adic_oblig     varchar2(1);
  pi_ep_fecha_nac_adic_oblig    varchar2(1);
  pi_ep_estado_civil_adic_oblig varchar2(1);
  pi_ep_habil_alta              varchar2(1);
  pi_ep_habil_renovacion        varchar2(1);
  pi_ep_habil_regrabacion       varchar2(1);
  pi_ep_titular_tipo_costo      varchar2(1);
  pi_ep_titular_accion          varchar2(1);
  pi_ep_titular_costo           number(15, 2);
  pi_ep_adicional_tipo_costo    varchar2(1);
  pi_ep_adicional_accion        varchar2(1);
  pi_ep_adicional_costo         number(15, 2);
  pi_ep_gen_cargos_fin_dias     number(5);
  pi_ep_gen_cargos_fin_opcion   varchar2(1);
  pi_ep_titular_cuota_anual     number(15, 2);
  pi_ep_titular_seguro_fraude   number(15, 2);
  pi_ep_adicional_cuota_anual   number(15, 2);
  pi_ep_adicional_seguro_fraude number(15, 2);
  pi_ep_atm_cobra_cargo         varchar2(1);
  pi_ep_atm_importe_cargo       number(15, 2);
  pi_ep_atm_cant_transacc       number(5);
  pi_ep_atm_adelanto_efectivo   varchar2(1);
  pi_ep_atm_consulta_saldos     varchar2(1);

BEGIN
  pi_emisor := 128;
  pi_ep_grupo_afinidad :=pi_emisor || '001';
  pi_ep_porc_sobregiro_cont :=5;--LINEA 15
  pi_ep_porc_sobregiro_efec :=100;--LINEA 17
  pi_ep_porc_sobregiro_plan :=0;
  pi_ep_porc_limite_efectivo :=100;--LINA 17
  pi_ep_costo_franqueo :=0;
  pi_ep_carpeta_fraude :=pi_emisor || '0000';
  pi_ep_min_linea_credito :=500000;--LINEA 13
  pi_ep_max_linea_credito :=50000000;--LINEA 13
  pi_ep_min_linea_cuota :=0;--LINEA 14
  pi_ep_max_linea_cuota :=0;--LINEA 14
  pi_ep_min_cargo_mora :=15000;--LINEA 32
  pi_ep_cobertura_fraude :=0;
  pi_ep_min_pago_minimo :=50000;--LINEA 16
  pi_ep_gastos_admin :=10000;--LINEA 22
  pi_ep_ciudad :=2307; --Asuncion (select * from debcredpy.ciudades)
  pi_ep_codigo_nacionalidad :=600; --Paraguay (select * from debcredpy.nacionalidades)
  pi_ep_codigo_ocupacion :=102; --Empleado medio (select * from debcredpy.ocupaciones)
  pi_ep_codigo_correspondencia :='D'; --Por defecto 'ENVIAR POR CORREO' pero se pueden ver otras opciones en select * from creditopy.codigos_correspondencia
  pi_ep_duracion_tarjeta :=24;--LINEA ?
  pi_ep_titular_tipo_costo :=2;--LINEA 23
  pi_ep_titular_accion :='N';--LINEA 23
  pi_ep_titular_costo :=0;--LINEA 23
  pi_ep_adicional_tipo_costo :=2;--LINEA 24
  pi_ep_adicional_accion :='S';--LINEA 24
  pi_ep_adicional_costo :=100000;--LINEA 24
  pi_ep_gen_cargos_fin_dias :=40;--LINEA 41
  pi_ep_titular_cuota_anual :=130000;--LINEA 25
  pi_ep_titular_seguro_fraude :=0;--LINEA 29
  pi_ep_adicional_cuota_anual :=130000;--LINEA 26
  pi_ep_adicional_seguro_fraude :=0;--LINEA 30
  pi_ep_atm_cobra_cargo :='N';--LINEA 35
  pi_ep_atm_importe_cargo :=0;--LINEA 35
  pi_ep_atm_cant_transacc :=0;--LINEA 35
  pi_ep_atm_adelanto_efectivo :='N';--LINEA 35
  pi_ep_atm_consulta_saldos :='N';--LINEA 35


  insert into debcredpy.emisores_productos
    (EMISOR,
     PRODUCTO,
     GRUPO_AFINIDAD,
     PROCESADOR,
     SERIE_FACTURA,
     NUMERO_FACTURA,
     GRACIA_VENCIMIENTO,
     PORC_SOBREGIRO_CONT,
     PORC_SOBREGIRO_EFEC,
     PORC_SOBREGIRO_PLAN,
     PORC_LIMITE_EFECTIVO,
     TIPO_MONEDA_PM,
     PISO_PAGO_MINIMO,
     CUOTAS_FINANCIACION,
     TIPO_DE_TASA,
     LAPSO,
     DIAS_LAPSO_TASA,
     COSTO_FRANQUEO,
     ARANCEL,
     FONDO_DE_GARANTIA,
     ARANCEL_POR_RAMO,
     GENERA_NROCTA_P_SUC,
     MODO_ESTADO_CTA,
     PORC_AGROCABAL,
     CORREL_LIQ,
     CARPETA_FRAUDE,
     PORC_REFINAN,
     GESTION_COBRO,
     MIN_LINEA_CREDITO,
     MAX_LINEA_CREDITO,
     MIN_LINEA_CUOTA,
     MAX_LINEA_CUOTA,
     MIN_CARGO_MORA,
     MIN_CARGO_EXCESO,
     MIN_CARGO_LINEA,
     COBERTURA_FRAUDE,
     MIN_PAGO_MINIMO,
     GASTOS_ADMIN,
     FORMA_PAGO,
     CIUDAD,
     CODIGO_NACIONALIDAD,
     CODIGO_OCUPACION,
     CARTERA,
     CODIGO_CAPTADOR,
     CODIGO_CORRESPONDENCIA,
     ENCARGADO_DE_CUENTA,
     DURACION_TARJETA,
     DOCUMENTO_OBLIG,
     TELEFONO_OBLIG,
     FECHA_NAC_OBLIG,
     ESTADO_CIVIL_OBLIG,
     CUENTA_BANCARIA_OBLIG,
     NUMERO_INTERNO_OBLIG,
     DIRECCION_ADIC_OBLIG,
     DOCUMENTO_ADIC_OBLIG,
     TELEFONO_ADIC_OBLIG,
     FECHA_NAC_ADIC_OBLIG,
     ESTADO_CIVIL_ADIC_OBLIG,
     HABIL_ALTA,
     HABIL_RENOVACION,
     HABIL_REGRABACION,
     TITULAR_TIPO_COSTO,
     TITULAR_ACCION,
     TITULAR_COSTO,
     ADICIONAL_TIPO_COSTO,
     ADICIONAL_ACCION,
     ADICIONAL_COSTO,
     GEN_CARGOS_FIN_DIAS,
     GEN_CARGOS_FIN_OPCION,
     TITULAR_CUOTA_ANUAL,
     TITULAR_SEGURO_FRAUDE,
     ADICIONAL_CUOTA_ANUAL,
     ADICIONAL_SEGURO_FRAUDE,
     ATM_COBRA_CARGO,
     ATM_IMPORTE_CARGO,
     ATM_CANT_TRANSACC,
     ATM_ADELANTO_EFECTIVO,
     ATM_CONSULTA_SALDOS)
  values
    (pi_emisor, --Nro de emisor.
     1, --Producto siempre 1. FIJO.
     pi_emisor || '001', --Nro de grupo de afinidad.
     5001, --5001 es el procesador CABAL. FIJO.
     'A', --Es la serie para la generacion de extracto en la tabla RESUMENES. FIJO.
     0, --Es el nro de la serie para la generacion de extract, en el alta usar 0, es un contador. FIJO.
     12, --Siempre valor 12, son los 12 eses del año, es para calculos de tasa de interes. FIJO.
     pi_ep_porc_sobregiro_cont, --15 Porcentaje de sobregiro en la linea contado CRV
     pi_ep_porc_sobregiro_efec, -- Porcentaje de sobregiro en la linea adelanto en efectivo CRV
     pi_ep_porc_sobregiro_plan, -- Porcentaje de sobregiro en la linea de planes CRV
     pi_ep_porc_limite_efectivo, -- Porcentaje sobre el cual se calcula el limite contado, y asi obtener el limite de adelantos de efectivo CRV
     1, --Siempre 1, porque el PM se calcula en moneda local. FIJO.
     0.00, --No se utiliza en py, poner 0. FIJO.
     0, --Siempre 0, se utiliza para el calculo de interes normal. FIJO.
     2, --Permite definir el tipo de tasa a aplicar en el interes 2-NOMINAL ANUAL. FIJO.
     1, --1=ANUAL. FIJO.
     365, --365 para el calculo de interes. FIJO.
     pi_ep_costo_franqueo, --Importe por costo de envio o franqueo CRV
     0, --NO SE USA, FUE PENSADO PARA COMERCIOS. FIJO.
     3.00, --NO SE USA, FUE PENSADO PARA COMERCIOS. FIJO.
     0, --NO SE USA, FUE PENSADO PARA COMERCIOS. FIJO.
     0, --Siempre 0=NO porque no se generan cuentas a nivel de sucursal. FIJO.
     1, --Siempre va 1. FIJO.
     0.00, --Siempre 0, no se utiliza en py. FIJO.
     5, --NO SE USA, FUE PENSADO PARA COMERCIOS obs.: dias de gracia para cambio de estado en las cuenta PRM=36. FIJO.
     pi_ep_carpeta_fraude, --Es un numerador de carpetas para fraudes, se actualiza en los programas de control de fraudes CRV
     100.00, --No permite consumo a las cuentas con refinanciacion(Estado 6X)hasta que pague el % definido aqui del plan de refinanciacion
     'N', --Si la entidad permite o no gestion de cobro S/N
     pi_ep_min_linea_credito, --Es la minima linea de credito, se controla en el momento de las novedades CRVC
     pi_ep_max_linea_credito, --Es la maxima linea de credito, se controla en el momento de las novedades CRVC
     pi_ep_min_linea_cuota, --Es la minima linea de credito para planes, se controla en el momento de las novedades CRV
     pi_ep_max_linea_cuota, --Es la maxima linea de credito para planes, se controla en el momento de las novedades CRV
     pi_ep_min_cargo_mora, --Si el calculado por cargo en mora, esta por debaje de este importe le cobra lo que esta en este lugar CRV
     0.00, --Si el calculado por exceso, esta por debaje de este importe le cobra lo que se indica en este lugar
     0.00, --min_cargo_linea
     pi_ep_cobertura_fraude, --cobertura_fraude CRV
     pi_ep_min_pago_minimo, --min_pago_minimo CRV
     pi_ep_gastos_admin, --gastos_admin CRV
     'V', --forma_pago
     pi_ep_ciudad, --ciudad CRV
     pi_ep_codigo_nacionalidad, --codigo_nacionalidad CRV
     pi_ep_codigo_ocupacion, --codigo_ocupacion CRV
     1, --cartera
     '1', --codigo_captador
     pi_ep_codigo_correspondencia, --codigo_correspondencia CRV
     1, --encargado_de_cuenta
     pi_ep_duracion_tarjeta, --duracion_tarjeta CRV
     'S', --documento_oblig
     'S', --telefono_oblig
     'S', --fecha_nac_oblig
     'S', --estado_civil_oblig
     'N', --cuenta_bancaria_oblig
     'N', --numero_interno_oblig
     'N', --direccion_adic_oblig
     'S', --documento_adic_oblig
     'S', --telefono_adic_oblig
     'S', --fecha_nac_adic_oblig
     'S', --estado_civil_adic_oblig
     'N', --habil_alta
     'N', --habil_renovacion
     'N', --habil_regrabacion
     pi_ep_titular_tipo_costo, --titular_tipo_costo CRV
     pi_ep_titular_accion, --titular_accion CRV
     pi_ep_titular_costo, --titular_costo CRV
     pi_ep_adicional_tipo_costo, --adicional_tipo_costo CRV
     pi_ep_adicional_accion, --adicional_accion CRV
     pi_ep_adicional_costo, --adicional_costo CRV
     pi_ep_gen_cargos_fin_dias, --gen_cargos_fin_dias CRV
     'A', --gen_cargos_fin_opcion
     pi_ep_titular_cuota_anual, --titular_cuota_anual El importe por costo anual de mantenimiento de la cuenta para el titular CRV
     pi_ep_titular_seguro_fraude, --titular_seguro_fraude El importe por costo anual de seguro contra fraude para el titular CRV
     pi_ep_adicional_cuota_anual, --adicional_cuota_anual El importe por costo anual de mantenimiento de la cuenta para el adicional CRV
     pi_ep_adicional_seguro_fraude, --adicional_cuota_fraude El importe por costo anual de seguro contra fraude para el adicional CRV
     pi_ep_atm_cobra_cargo, --atm_cobra_cargo indica si aplica cargo por uso en ATM CRV
     pi_ep_atm_importe_cargo, --atm_importe_cargo importe del cargo a aplicar por transaccion CRV
     pi_ep_atm_cant_transacc, --atm_cant_transacc indica desde que cantidad de tx/consultas aplica el cargo CRV
     pi_ep_atm_adelanto_efectivo, --atm_adelanto_efectivo S cobra por la tx de adelante/ N no cobra por las tx de adelanto CRV
     pi_ep_atm_consulta_saldos); --atm_consultas_saldos S cobra por las consultar / N no cobra por las consultas CRV
     
END;

Paso 3 - Cierres

De acuerdo al ciclo de liquidación(Ciclo 1= 1°viernes Ciclo 2=2° viernes Ciclo 3= 3° viernes Ciclo 4= 4° viernes Ciclo 9= Cualquier fecha) de usuario que solicite el emisor, aquí debemos de cargar el ultimo periodo cerrado de dicho ciclo para que el nuevo emisor inicie con el periodo actual.

Cierres

-- =============== 3. CIERRES ================ --
  vc_bandera := '3. CIERRES';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';cierres;Registrado!');

declare
pi_emisor NUMBER(4);
pi_cierre NUMBER(2);
pi_dia NUMBER(2);
pi_ult_periodo_cerrado NUMBER(6);
begin
  pi_emisor:=128;
  pi_cierre:=4;--LINEA 6
  pi_dia:=24; --select max(cc.fecha_cierre) from creditopy.calendario_cierres cc where cc.cierre=4 and cc.fecha_cierre<=to_date('28112023','ddmmyyyy')
  pi_ult_periodo_cerrado:=202311; --select max(cc.periodo) from creditopy.calendario_cierres cc where cc.cierre=4 and cc.fecha_cierre<=to_date('28112023','ddmmyyyy')
  
  insert into cierres (emisor, PRODUCTO, CIERRE, DIA, ultimo_periodo_cerrado)
  values (pi_emisor, 1, pi_cierre, pi_dia, pi_ult_periodo_cerrado);
end;

Paso 4 - Cierres Habilitados

Cierres Habilitados

-- =============== 4. CIERRES_HABILITADOS ================ --
  vc_bandera := '4. CIERRES_HABILITADOS';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';cierres_habilitados;Registrado!');
  insert into cierres_habilitados (EMISOR, PRODUCTO, CIERRE, CLASE_TARJETA, GRUPO_AFINIDAD)
  values (pi_emisor, 1, pi_cierre, 1, pi_emisor||'001');

Paso 5 - Calendario Cierres

Para esta sección, tomamos un emisor base que ya tenga parametrizado su calendario cierre, el emisor base elegido debe ser del mismo ciclo solicitado por la nueva entidad emisora.

Calendario Cierres

 -- =============== 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 = pi_emisor_base --EMISOR_BASE
and   ga.emisor = pi_emisor--NUEVO_EMISOR
and   cc.cierre = pi_cierre --CICLO LIQUIDACION 
and   cc.periodo >= 202301;--PERIODO ACTUAL

Paso 6 - Variables de Entorno - CREDITOPY.VARIABLES_ENTORNO

Variables de entorno

-- =============== 6. VARIABLES ENTORNOS ================ -- --############################################################################################
  vc_bandera := '6. VARIABLES ENTORNOS';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';variables_entorno;Registrado!');
  /*Query consulta para extraer los datos
select *
  from creditopy.calendario_cierres cc
 where cc.cierre = 4--ciclo cierre
   and cc.periodo='202311'--periodo actual
   and cc.emisor=119 union--emisor base
select *
  from creditopy.calendario_cierres cc
 where cc.cierre = 4--ciclo cierre
   and cc.periodo='202310'--periodo anterior
   and cc.emisor=119;--emisor base*/

insert into CREDITOPY.variables_entorno
  (EMISOR,
   PRODUCTO,
   CIERRE,
   GRUPO_AFINIDAD,
   FECHA_CIERRE,
   FECHA_VENCIMIENTO,
   FECHA_CIERRE_ANT,
   FECHA_VENCIMIENTO_ANT,
   PERIODO_CIERRE,
   PERIODO_CIERRE_ANT)
values
  (pi_emisor,
   1,
   pi_cierre,
   pi_emisor || '001',
   to_date('25-08-2023', 'dd-mm-yyyy'),
   to_date('08-09-2023', 'dd-mm-yyyy'),
   to_date('03-08-2023', 'dd-mm-yyyy'),
   to_date('11-08-2023', 'dd-mm-yyyy'),
   202308,
   202307);

Paso 7 - Variables de Entorno - CREDITOPY.PRM_CARTERAS

Variables de entorno

 -- =============== 7. VARIABLES ENTORNOS ================ --
  vc_bandera := '7. VARIABLES ENTORNOS';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';variables_entorno;Registrado!');
  --COD PRM 1 -> A-Calculo de pago minimo -> select * from creditopy.prm_parametros pp where pp.cod_prm=1

  insert into prm_carteras (EMISOR, PRODUCTO, GRUPO_AFINIDAD, CARTERA, COD_PRM, VALOR_PRM)
  values (pi_emisor, 1, pi_emisor||'001', 1, 1, 'C');

Paso 8 - PRM Carteras

PRM Carteras

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

 insert 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

Paso 9 - PRM Codigos Valores

PRM Codigos valores

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

Paso 10 - Emisores Planes AM

Emisores planes AM

 -- =============== 10. EMISORES_PLANES_AM ================ --
  vc_bandera := '10. EMISORES_PLANES_AM';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';emisores_planes_am;Registrado!');
  insert into emisores_planes_am (EMISOR, PRODUCTO, PLAN_AMORTIZABLE, DESCRIPCION, METODO_DE_FINAN, FREC_1ER_CUOTA_DEF, FRECUENCIA, TASA_VARIABLE, CODIGO_FECHA_HASTA)
  values (pi_emisor, 1, 3, 'PLAN CABAL', 2, 1, 30, 0, 2);

  insert into emisores_planes_am (EMISOR, PRODUCTO, PLAN_AMORTIZABLE, DESCRIPCION, METODO_DE_FINAN, FREC_1ER_CUOTA_DEF, FRECUENCIA, TASA_VARIABLE, CODIGO_FECHA_HASTA)
  values (pi_emisor, 1, 7, 'PLAN PAGOS CABAL', 2, 1, 30, 0, 2);

  insert into emisores_planes_am (EMISOR, PRODUCTO, PLAN_AMORTIZABLE, DESCRIPCION, METODO_DE_FINAN, FREC_1ER_CUOTA_DEF, FRECUENCIA, TASA_VARIABLE, CODIGO_FECHA_HASTA)
  values (pi_emisor, 1, 8, '1ra CUOTA A PLAZOS', 2, 1, 30, 0, 2);

Paso 11 - Emisores Prods Fin

Emisores prods fin

 -- =============== 11. EMISORES_PRODS_FIN ================ --
  vc_bandera := '11. EMISORES_PRODS_FIN';
  DBMS_OUTPUT.put_line(pi_emisor||';'||'11. EMISORES_PRODS_FIN'||';creditopy.emisores_prods_fin;Registrado!');
  
  insert into creditopy.emisores_prods_fin (EMISOR, PRODUCTO, CODIGO_PROD_FINAN, RUBRO, PROD_FINAN_ML, PROD_FINAN_MR, IMPTE_MIN_ML, IMPTE_MIN_MR)
  values (pi_emisor, 1, 44, 2650, 0.0000, 0.0000, 0.00, 0.00);

  insert into creditopy.emisores_prods_fin (EMISOR, PRODUCTO, CODIGO_PROD_FINAN, RUBRO, PROD_FINAN_ML, PROD_FINAN_MR, IMPTE_MIN_ML, IMPTE_MIN_MR)
  values (pi_emisor, 1, 45, 2660, pi_comision_adm_mora, 0.0000, 0.00, 0.00);  

  insert into creditopy.emisores_prods_fin (EMISOR, PRODUCTO, CODIGO_PROD_FINAN, RUBRO, PROD_FINAN_ML, PROD_FINAN_MR, IMPTE_MIN_ML, IMPTE_MIN_MR)
  values (pi_emisor, 1, 50, 2690, 0.0000, 0.0000, 0.00, 0.00);
  
  insert into creditopy.emisores_prods_fin (EMISOR, PRODUCTO, CODIGO_PROD_FINAN, RUBRO, PROD_FINAN_ML, PROD_FINAN_MR, IMPTE_MIN_ML, IMPTE_MIN_MR)
  values (pi_emisor, 1, 67, 2691, 0.0000, 0.0000, 0.00, 0.00);

  insert into creditopy.emisores_prods_fin (EMISOR, PRODUCTO, CODIGO_PROD_FINAN, RUBRO, PROD_FINAN_ML, PROD_FINAN_MR, IMPTE_MIN_ML, IMPTE_MIN_MR)
  values (pi_emisor, 1, 12, 3300, pi_comision_ATM, 0.0000, 0.00, 0.00);

  insert into creditopy.emisores_prods_fin (EMISOR, PRODUCTO, CODIGO_PROD_FINAN, RUBRO, PROD_FINAN_ML, PROD_FINAN_MR, IMPTE_MIN_ML, IMPTE_MIN_MR)
  values (pi_emisor, 1, 12, 3310, pi_comision_Ventanilla, 0.0000, 0.00, 0.00);

  insert into creditopy.emisores_prods_fin (EMISOR, PRODUCTO, CODIGO_PROD_FINAN, RUBRO, PROD_FINAN_ML, PROD_FINAN_MR, IMPTE_MIN_ML, IMPTE_MIN_MR)
  values (pi_emisor, 1, 11, 3400, pi_tasa_plan_normal, 0.0000, 0.00, 0.00);

  insert into creditopy.emisores_prods_fin (EMISOR, PRODUCTO, CODIGO_PROD_FINAN, RUBRO, PROD_FINAN_ML, PROD_FINAN_MR, IMPTE_MIN_ML, IMPTE_MIN_MR)
  values (pi_emisor, 1, 64, 3402, pi_tasa_plan_normal, 0.0000, 0.00, 0.00);

Paso 12 - Emisores Aranceles

Emisores aranceles

 -- =============== 12. EMISORES_ARANCELES ================ --
  vc_bandera := '12. EMISORES_ARANCELES';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';emisores_aranceles;Registrado!');
  insert into debcredpy.emisores_aranceles (EMISOR, ARANCEL, FONDO_DE_GARANTIA)
  values (pi_emisor, 0, 3.00);

Paso 13 - Impuestos Rubros

Impuestos rubros

 -- =============== 13. IMPUESTOS_RUBROS ================ --
  vc_bandera := '13. IMPUESTOS_RUBROS';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';impuestos_rubros;Registrado!');
  insert into impuestos_rubros (EMISOR, PRODUCTO, RUBRO, CODIGO_IMPUESTO, MODO_IMPRESION_IMPUESTO)
  values (pi_emisor, 1, 2690, 1, 3);

  insert into impuestos_rubros (EMISOR, PRODUCTO, RUBRO, CODIGO_IMPUESTO, MODO_IMPRESION_IMPUESTO)
  values (pi_emisor, 1, 2691, 1, 3);

  insert into impuestos_rubros (EMISOR, PRODUCTO, RUBRO, CODIGO_IMPUESTO, MODO_IMPRESION_IMPUESTO)
  values (pi_emisor, 1, 9071, 1, 3);

Paso 14 - Rubros Comp PM

Rubros comp pm

-- =============== 14. RUBROS_COMP_PM ================ --
  vc_bandera := '14. RUBROS_COMP_PM';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';rubros_comp_pm;Registrado!');

  insert into rubros_comp_pm 
  select * from rubros_comp_pm where emisor IN ( pi_emisor )
  and rownum =  0
  union all
  select pi_emisor emisor, producto, rubro, mas_menos from rubros_comp_pm where emisor IN ( pi_emisor_base );

Paso 15 - Rubrador

Rubrador

-- =============== 15. RUBRADOR ================ --
  vc_bandera := '15. RUBRADOR';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';rubrador;Registrado!');
  insert into rubrador
  select *
    from rubrador
   where emisor IN ( pi_emisor )
     and rownum = 0
  union all
  select pi_emisor emisor,
       producto,
       modulo,
       tipo_de_rubro,
       subtipo_rubro,
       tipo_de_dato,
       dato,
       rubro
    from rubrador
   where emisor IN ( pi_emisor_base );

Paso 16 - Bines Emisores

Bines emisores

-- =============== 16. BINES_EMISORES_CR@olpy ================ --
  vc_bandera := '16. BINES_EMISORES_CR@olpy';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';BINES_EMISORES_CR@olpy;Registrado!');
  insert into BINES_EMISORES_CR@olpy (BIN, EMISOR, EXTRANJERA, PAIS, LONGITUD, DESCEMI, BIN_ID, MASCARA_PRODUCTO, SA)
  values (VC_BIN, pi_emisor, 'N', 1, LENGTH(VC_BIN), VC_BIN_EMISOR, VN_BIN_ID, 0, 'CABAL');
  
  SELECT count(1)
    INTO pi_cantidad
    FROM BINES_EMISORES_CR@olpy A
    WHERE 0=(SELECT COUNT(*)
             FROM BIN_EMISORES@bapy B
             WHERE A.BIN_ID=B.BIN_ID
            );
  IF pi_cantidad = 1 THEN
    DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';BINES_EMISORES_CR@olpy;Verficado!');
    --commit;
   -- =============== 16.1 BIN_EMISORES ================ --
    vc_bandera := '16.1 BIN_EMISORES';
    DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';BIN_EMISORES;Registrado!');
    insert into CREDITOPY.BIN_EMISORES (BIN, EMISOR, EXTRANJERA, PAIS, LONGITUD, DESCEMI, BIN_ID, MASCARA_PRODUCTO, SA)
    values (VC_BIN_CRIPTO, pi_emisor, 'N', 1, 6, VC_BIN_EMISOR, VN_BIN_ID, '0', 'CABAL');
    -- =============== 16.2 BIN_EMISORES ================ --
    vc_bandera := '16.2 BIN_EMISORES';
    DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';BIN_EMISORES;Replicar!');
    BEGIN SYS.DBMS_SNAPSHOT.REFRESH@olpy('CREDITOPY.BIN_EMISORES'); END;
    
    -- =============== 16.3 DEBCREDPY.PROCESADORES_PRODS ================ --
    vc_bandera := '16.3 DEBCREDPY.PROCESADORES_PRODS';
    DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';DEBCREDPY.PROCESADORES_PRODS;Registrado');
    insert into debcredpy.procesadores_prods (PROCESADOR, PRODUCTO, EMISOR, CORRELATIVO_DE_TARJETA, PROCCORRTD, TOPE, BIN_ID)
    values (5001, 1, pi_emisor, 0, 0, 999999999, VN_BIN_ID);
    
    -- =============== 16.4 AUTORIZADOR_CR.ACTU_BIN_EMISORES@OLPY ================ --
    vc_bandera := '16.4 AUTORIZADOR_CR.ACTU_BIN_EMISORES@OLPY';
   BEGIN 
     BEGIN AUTORIZADOR_CR.ACTU_BIN_EMISORES@OLPY; END;
     DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';AUTORIZADOR_CR.ACTU_BIN_EMISORES@OLPY;Actualizado!');
   EXCEPTION
     WHEN OTHERS THEN 
       DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';AUTORIZADOR_CR.ACTU_BIN_EMISORES@OLPY;No Actualizado. Reintente!');
   END;
    
  ELSE
    DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';BINES_EMISORES_CR@olpy;Error!');
    RAISE_APPLICATION_ERROR(-20001,'No se pudo dar de alta el bin '||vc_bin);
  END IF;

Paso 17 - Emisor Numero Cuenta/Tarjeta

Emisor numero cuenta/tarjeta

-- =============== 17. EMISOR_NROCTA_TARJ ================ --
  vc_bandera := '17. EMISOR_NROCTA_TARJ';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';EMISOR_NROCTA_TARJ;Registrado!');
  insert into EMISOR_NROCTA_TARJ (EMISOR, SUCURSAL_EMISOR, PRODUCTO, NUMERO_CUENTA)
  values (pi_emisor, 1, 1, pi_emisor||'000000000');

Paso 18 - Codigos Correspondencia

Codigos correspondencia

 -- =============== 18. CODIGOS_CORRESPONDENCIA ================ --
  vc_bandera := '18. CODIGOS_CORRESPONDENCIA';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';CODIGOS_CORRESPONDENCIA;Registrado!');
  insert into codigos_correspondencia (EMISOR, CODIGO, DESCRIPCION)
  values (pi_emisor, 'D', 'ENVIAR POR CORREO');

  insert into codigos_correspondencia (EMISOR, CODIGO, DESCRIPCION)
  values (pi_emisor, 'I', 'ENVIO POR E-MAIL');

  insert into codigos_correspondencia (EMISOR, CODIGO, DESCRIPCION)
  values (pi_emisor, 'R', 'RETENER EN DPTO.TARJETAS');

Paso 19 - Promotores

Promotores

 -- =============== 19. PROMOTORES ================ --
  vc_bandera := '19. PROMOTORES';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';PROMOTORES;Registrado!');
  insert into promotores (EMISOR_PROCESADOR, PROMOTOR_ID, NOMBRE)
  values (805, pi_emisor, VC_PROMOTOR);

Paso 20 - Tarjetas Boletin

Tarjetas boletin

 -- =============== 20. TARJETAS_BOLETIN ================ --
  vc_bandera := '20. TARJETAS_BOLETIN';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';TARJETAS_BOLETIN;Registrado!');
  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 10, 3, 1, 1, 0, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 14, 6, 1, 1, 0, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 15, 6, 1, 1, 0, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 17, 3, 1, 1, 0, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 18, 3, 1, 1, 0, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 50, 3, 1, 1, 0, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 51, 3, 1, 1, 0, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 52, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 53, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 54, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 55, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 56, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 57, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 58, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 59, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 60, 3, 1, 1, 0, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 61, 3, 1, 1, 0, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 62, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 63, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 64, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 65, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 66, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 67, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 68, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 69, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 70, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 71, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 72, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 73, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 74, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 75, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 76, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 77, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 78, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 79, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 80, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 81, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 82, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 83, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 84, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 85, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 86, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 87, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 88, 3, 1, 1, 1, 0);

  insert into tarjetas_boletin (EMISOR, PRODUCTO, ESTADO, MESES_EN_BOLETIN, RETENER_TARJETA, CONDICIONAL, SALDO_AL_PAGO_MINIMO, SIN_INTERESES)
  values (pi_emisor, 1, 89, 3, 1, 1, 1, 0);

Paso 21 - Mensajes Emisor Productos

Mensajes emisor productos

-- =============== 21. MENS_EMISOR_PRODS ================ --
  vc_bandera := '21. MENS_EMISOR_PRODS';
  insert into mens_emisor_prods (EMISOR, PRODUCTO, CORRELATIVO, GRUPO_AFINIDAD, MENSAJE, FECHA_HASTA)
  values (pi_emisor, 1, 2, pi_emisor||'001', '"SOCIO(A) USUARIO(A): DESDE EL 01/01/19 RIGE EL REGLAMENTO DE CRÉDITO SOBRE DESCUENTO AUTOMÁTICO DE APORTES Y SOLIDARIDAD EN ', to_date('31-12-2020', 'dd-mm-yyyy'));

  insert into mens_emisor_prods (EMISOR, PRODUCTO, CORRELATIVO, GRUPO_AFINIDAD, MENSAJE, FECHA_HASTA)
  values (pi_emisor, 1, 3, pi_emisor||'001', 'SU T.D.CR"', to_date('31-12-2020', 'dd-mm-yyyy'));

  insert into mens_emisor_prods (EMISOR, PRODUCTO, CORRELATIVO, GRUPO_AFINIDAD, MENSAJE, FECHA_HASTA)
  values (pi_emisor, 1, 50, pi_emisor||'001', ' ', to_date('31-12-2099', 'dd-mm-yyyy'));

  insert into mens_emisor_prods (EMISOR, PRODUCTO, CORRELATIVO, GRUPO_AFINIDAD, MENSAJE, FECHA_HASTA)
  values (pi_emisor, 1, 51, pi_emisor||'001', 'CARGOS PENDIENTES A APLICAR X_IMPORTE', to_date('31-12-2099', 'dd-mm-yyyy'));

  insert into mens_emisor_prods (EMISOR, PRODUCTO, CORRELATIVO, GRUPO_AFINIDAD, MENSAJE, FECHA_HASTA)
  values (pi_emisor, 1, 1, pi_emisor||'001', ' ', to_date('31-12-2020', 'dd-mm-yyyy'));
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';MENS_EMISOR_PRODS;Registrado!');

Paso 22 - Codigos Py

Codigos py

 -- =============== 22. CODIGOS_PY ================ --
  vc_bandera := '22. CODIGOS_PY';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';CODIGOS_PY;Registrado!');
  insert into codigos_py (TIPO_CODIGO, CODIGO, DESCRIPCION, VALOR, INDICADOR)
  values (29, pi_emisor, '805', '1', '5001');

Paso 23 - Acquirers Emisores

Acquirers emisores

 -- =============== 23. ACQUIRERS_EMISORES@OLPY ================ --
  vc_bandera := '23. ACQUIRERS_EMISORES@OLPY';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';ACQUIRERS_EMISORES@OLPY;Registrado!');
  insert into acquirers_emisores@olpy (EMISOR, PLAN, TIPO_MEDIO, ACQUIRER, DESCRIPCION)
  values (pi_emisor, 6, 'ARCHIVO', 10000000013, 'NR');

Paso 24 - SFTP Parameters

SFTP Parameters

-- =============== 24. DEBCREDPY.SFTP_PARAMETERS@OLPY ================ --
  vc_bandera := '24. DEBCREDPY.SFTP_PARAMETERS@OLPY';
  DBMS_OUTPUT.put_line(pi_emisor||';'||vc_bandera||';DEBCREDPY.SFTP_PARAMETERS@OLPY;Registrado!');
  insert into DEBCREDPY.SFTP_PARAMETERS@olpy (ISSUER, TYPE_PATH, PATH, HOST, APPLICATION, OPERATION, ISENCRYPT, REG_USER, REG_DATE, SUCURSAL)
  values (pi_emisor, 1, '/'||vc_sftp_entidad||'/upload', '10.5.1.4', 'AccesoCabal', 'UP', 0, 'CREDITOPY', sysdate, 1);

  insert into DEBCREDPY.SFTP_PARAMETERS@olpy (ISSUER, TYPE_PATH, PATH, HOST, APPLICATION, OPERATION, ISENCRYPT, REG_USER, REG_DATE, SUCURSAL)
  values (pi_emisor, 2, '/'||vc_sftp_entidad||'/download', '10.5.1.4', 'AccesoCabal', 'DOWN', 0, 'CREDITOPY',sysdate, 1);

  insert into DEBCREDPY.SFTP_PARAMETERS@olpy (ISSUER, TYPE_PATH, PATH, HOST, APPLICATION, OPERATION, ISENCRYPT, REG_USER, REG_DATE, SUCURSAL)
  values (pi_emisor, 3, '/historico/'||vc_sftp_entidad||'/download', '10.5.1.4', 'AccesoCabal', 'HIST', 0, 'CREDITOPY', sysdate, 1);

  insert into DEBCREDPY.SFTP_PARAMETERS@olpy (ISSUER, TYPE_PATH, PATH, HOST, APPLICATION, OPERATION, ISENCRYPT, REG_USER, REG_DATE, SUCURSAL)
  values (pi_emisor, 4, '/upload', '10.5.1.4', 'AccesoCabal', 'UP', 0, 'CREDITOPY',sysdate, 1);

  insert into DEBCREDPY.SFTP_PARAMETERS@olpy (ISSUER, TYPE_PATH, PATH, HOST, APPLICATION, OPERATION, ISENCRYPT, REG_USER, REG_DATE, SUCURSAL)
  values (pi_emisor, 5, '/download', '10.5.1.4', 'AccesoCabal', 'DOWN', 0, 'CREDITOPY', sysdate, 1);

Paso 25 - Codigos Py