APV_Upd_Own_Stock()

Función general

Esta rutina actualiza (disminuye) el saldo de unidades que se almacena por cada movimiento de compra de unidades, cada vez que se venden unidades para pagar algún cargo o rescate. Esto permite reflejar la aplicación del método FIFO en el descargo de unidades compradas.

Información técnica

Parámetros de entrada

• P_sCertype: Tipo de registro (Solicitud, cotización, póliza).
• P_nBranch: Código del ramo.


P_nProducto: Código del producto.

P_nPolicy: Código de la póliza.

P_nCertif: Número del certificado dentro del colectivo.

• P_nOigen: Código de la cuenta origen.


P_nUnits_Amount:  Cantidad de unidades a actualizar.

P_nFunds: Código del fondo asociado a las unidades a actualizar.

Proceso

Se selecciona de la cuenta corriente de unidades de la póliza (move_fund), los movimientos de "Compra de Unidades", para el ramo, producto, póliza, certificado, origen y  fondo indicado en los parámetros, ordenado por fecha de origen (antigüedad) en orden DESCENDENTE.
Por cada registro encontrado
Si el campo MOVE_FUND.nUnit_Balance es mayor o igual a P_nUnits_Amount, se actualiza el campo nUnit_Balance, haciendo:
MOVE_FUND.nUnit_Balance = MOVE_FUND.nUnit_Balance - P_nUnits_Amount

Se termina con el ciclo de lectura (Exit)

Sino
Se actualiza el campo nUnit_balance, haciendo
• W_Difference = P_nUnits_Amount - MOVE_FUND.nUnit_Balance


MOVE_FUND.nUnit_Balance = 0

P_nUnits_Amount = P_nUnits_Amount  - W_Difference

• Si no hay ningún error, se asigna a la variable W_Result, el valor "Verdader"

• Sino, se asigna el valor "False"

Parámetros de salida

W_Result: Boolean.