Venta de unidades de inversión

Función general

Esta rutina realiza la venta de unidades de inversión para pólizas de vida que manejan fondos (p.ej.: Unit Linked). Se usa en todos los procesos que impliquen venta de unidades de la póliza, con el fin de obtener efectivo que permita pagar algún cargo o para comprar unidades de otro fondo (como en la transacción de "Cambio de Fondos" o "Switches").

Por ejemplo, los costos del seguro se pagan vendido unidades disponibles de la cuenta de la póliza. La rutina recibe como parámetro el monto que es necesario pagar, con esta información la rutina se encarga de vender unidades para conseguir el efectivo necesario. Si el dinero representado en las unidades de inversión no es suficiente para pagar el cargo (monto pasado como parámetro) se retorna un número de error.
 

La rutina se encarga de registrar los movimientos de entrada y salida de unidades en la cuenta de la empresa y la póliza respectivamente, así como actualizar el saldo de las cuentas involucradas. Si el producto tiene definido costos por venta de unidades, esta rutina se encarga de registrarlos en la cuenta corriente.

 
Como se mencionó al inicio, la rutina se usa normalmente para complementar una operación de débito previamente registrada. Por ejemplo, en la transacción de retiros de cuenta corriente, si hay algún cargo definido, este se registra en la cuenta corriente de la póliza antes de la invocación de esta rutina, la cual se encarga convertir a efectivo el número de unidades necesarias para satisfacer el monto del débito.

Al culiminar cada venta de unidades, se invoca a la rutina que actualiza los saldos individuales de los movimientos de "Compra de Unidades". De esta forma, la rutina es capaz de actualizar los inventarios correspondientes, y aplicar el método de descargue de unidades según el método Fifo (First-in; First-out).

Información técnica

Parámetros de entrada

P_nAmount:         Monto del cargo.

P_nCurrency:       Moneda en la cual se expresa el monto del cargo.

P_nBranch:          Código del ramo asociado a la cuenta que vende las unidades.

P_nProduct:         Código del producto asociado a la póliza que vende las unidades

P_nPolicy:            Número de póliza que vende las unidades.

P_nCertif:             Número del certificado dentro del colectivo.

P_dEffecdate:       Fecha de la venta.

P_sCertype:         Tipo de registro

P_nConsec_ref:   Número de registro que origina la venta de unidades

Proceso

• Se asigna a la variable W_COST el monto del costo obtenido del parámetro P_nAmount

 
• Se lee la tabla de Orden de Uso de las cuentas origen (TAB_ORD_ORIGIN) tomando en cuenta el ramo y producto pasados como parámetros, ordenado por el campo "nOrder"

 
• Por cada cuenta orígen

 
• Si W_COST <= 0 entonces

 
•     Se termina con el ciclo
• Sino

 
• Se calcula el valor efectivo de la póliza/certificado para la fecha P_dEffecdate  y se guarda el resultado en W_balance. Para ello, se invoca a la rutina general Ins_cal_pol_acc_balance().

 
• Si W_COST > SALDO_CUENTA entonces

 
• W_AMOUNT = SALDO_CUENTA

 
• W_COST = W_COST - AMOUNT
• Sino

 
• W_AMOUNT = W_COST

 
• W_COST = 0
 
• Por cada fondo asociado a la póliza
 
• Se obtiene el precio de la unidad (Función general Ins_get_unit_price(P_dEffecdate) )  y se almacena en W_unit_price

 
• Se convierte el valor de unidades disponibles, en unidades a efectivo y se almacena el resultado en  W_fund_balance.

 
• Se calcula el peso o porcentaje de participación de este  fondo, con respecto al saldo total

 
• W_apportionment = W_fund_balance / W_balance

 
• Se calcula la fracción de W_Amount (monto del cargo) que será pagado con unidades del fondo en tratamiento:

 
• W_shared_amount = W_Amount *  W_apportionment

 
• Si el código de la moneda pasada como parámetro, es diferente a la moneda en la cual se expresa el valor de la unidad del fondo, se convierte el monto del cargo (W_shared_amount) a la moneda del fondo, y se almacena en la variable W_shared_amount_currency.

 
• En caso de que sean iguales, se asigna a W_shared_amount_currency el valor de W_shared_amount.

 
• Se determina el número de unidades a vender para satisfacer el monto obtenido en el paso anterior.

 
• W_units = W_shared_amount_currency / W_unit_price.

 
• Se acredita en la cuenta corriente de la póliza/certificado (ul_move_acc_pol), la fracción del monto a pagar que sufraga este fondo (W_shared_amount), tipo de movimiento = 707 -"Venta de Unidades".

 
• Se actualizan los campos nBalance y nCredit del maestro de cuenta corriente de la póliza/certificado (ul_curr_acc_pol). Esto se hace para reflejar que se ha vendido unidades.

 
• Se registra en el inventario de fondos de la empresa (fund_stock), la entrada de unidades de inversión y se actualiza el saldo de unidades disponibles para este fondo (Fond_inv).

 
• Se registra el movimiento de salida de unidades de la cuenta de unidades de la póliza (move_fund) y se disminuye la cantidad de unidades disponibles actualizando el campo correspondiente en Fund_pol

 
• Se invoca a la rutina de actualización de saldos individuales (AVP_Upd_own_stock), con lo cual se descargan las unidades utilizadas para pagar las unidades, según el método FIFO.

 
• Se procede a registrar el costo por venta de unidades, para ello:

 
• Se obtiene el nuevo valor en efectivo de la póliza (después del cargo anterior).

 
• Se lee de la tabla de fondos del producto (Funds), el porcentaje a cobrar por venta de unidades "nSell_cost", y se almacena en la variable W_sell_cost

 
• Se calcula el costo de venta, el cual es igual a:

 
• W_sell_cost = W_shared_amount * W_sell_cost/100

 
• Si el valor en efectivo de la póliza es mayor al costo de venta y el costo de venta es mayor a cero, entonces:

 
• Se registra un débito en la cuenta corriente de la póliza por el costo de la venta de unidades, tipo de movimiento = "Costo por venta de unidades".

 
• Se determina el número de unidades a vender para satisfacer el costo del seguro obtenido en el paso anterior.

 
• W_units = W_sell_cost / W_unit_price.

 
• Se acredita en la cuenta corriente de la póliza (ul_move_acc_pol), un monto igual al costo del seguro, tipo de movimiento = 707 -"Venta de Unidades". Se actualizan los campos nBalance y nCredit del maestro de cuenta corriente de la póliza (ul_curr_acc_pol). Esto se hace para reflejar que se ha vendido unidades.

 
• Se registra en el inventario de fondos de la empresa (fund_stock), la entrada de unidades de inversión y se actualiza el saldo de unidades disponibles para este fondo (Fund_inv).

 
• Se registra el movimiento de salida de unidades de la cuenta de unidades de la póliza (move_fund) y se disminuye la cantidad de unidades disponibles actualizando el campo correspondiente en Funds_pol (para la cuenta orgien 1), haciendo

 
• Funds_pol.nQUAN_AVAIL  = Funds_pol.nQUAN_AVAIL - W_Units

 
• En caso de que el valor en efectivo sea menor al costo de venta, se asigna a la variable W_error, el número 70084 y se termina la ejecución del precedimiento /*Saldo de la cuenta no es suficiente para pagar el cargo */

 
Se continua con el siguiente fondo de la póliza

Parámetros de salida

W_result ( Boolean): Indica resultado de la venta

W_error: Número de error, en caso que W_result es "False".