4. ESPECIFICACIONES DETALLADAS

4.1. Liquidación de Préstamos

Para facilitar el entendimiento de la liquidación de préstamos se hace la explicación utilizando un ejemplo.

Datos de la solicitud:

Valor: 1'000,000.oo

Fecha de desembolso: Enero 1

Tasa de Interes: 2%. La tasa se representará como i

Cuotas Extras: 200,000.oo Junio 30

200,000.oo Diciembre 30

Se cruza un prestamo cuyo saldo a Diciembre 1 era de 100,000.oo

Cálculo del valor de la cuota

  • Para cada cuota extra se calcula el número de meses. En este caso:

Cuota de Junio: 6 meses

Cuota de Diciembre: 12 meses

  • Se calcula el valor presente

Valor presente = valor_prestamo - cuotas extras en valor presente

Valor presente de cuota extra = cuota extra / (1 + i ) ^ periodos

Para el ejemplo el valor presente es:

Valor presente = 1'000,000.oo - 200,000 / (1+0.02)^6 - 200,000.oo / (1+0.02)^12

  • Se calcula el valor de la cuota

Valor cuota = valor presente * ( i *(1+i)^cuotas) / ((1+i)^cuotas - 1)

Cálculo del Valor del Desembolso

  • Si existen prestamos a cruzar se calcula el saldo a la fecha de desembolso

Ej: Saldo a Diciembre 1: 100.000

Saldo a Enero 1: 102.000

  • Se calcula el valor del desembolso

Valor desembolso = Valor prestamo - saldo prestamos cruzados - valor estudio de credito - valor capitalizacion

Valor estudio de crédito: Dato tomado de la solicitud. En algunos fondos de empleados se cobra por el trámite y la papelería relacionados con la solicitud de crédito

Valor capitalización: Dato tomado de la solicitud. En algunos fondos de empleados se obliga a capitalizar un porcentaje del valor del crédito, por ejemplo el 2%.

Para el ejemplo:

Valor desembolso = 1´000,000 - 102,000 - 0 - 0

 

4.2. Desembolso de Créditos

- Cálculo del valor de la cuota (Ver 2.3.1)

- Cálculo del valor del desembolso (ver 2.3.1)

- Pago de préstamos cruzados

Para cada prestamo cruzado:

Se calcula el valor del interes x mora desde la última fecha de pago hasta la fecha de desembolso a la tasa del préstamo cruzado

Se calcula el valor del interes desde la última fecha de pago hasta la fecha de desembolso a la tasa del préstamo cruzado

El valor a cruzar está dado por

valor_a_cruzar = saldo_anterior + valor_interes + valor_interes_mora

Donde el saldo anterior es:

Saldo anterior = saldo capital +interes mora pendiente x cobrar + interes pendiente x cobrar

Si ya se generaron las deducciones y aún no se han aplicado quiere decir que hay una deducción en trámite y se debe tener se tiene en cuenta:

Si cuota_pendiente_aplicar <> 0

Si fecha_cuota_pdte_aplicar < fecha_desembolso

valor_a_cruzar = valor_a_cruzar -

cuota_pendiente_aplicar

Una vez se tenga el valor se aplica el pago utilizando la fecha de desembolso

El algoritmo de aplicación de pagos se especifica en el numeral 4.3

- Actualización de los datos del crédito

Para el crédito a desembolsar se actualizan los siguientes campos:

estado='A'

valor_desembolso de acuerdo con el valor calculado

valor_cuota de acuerdo con la cuota calculada

saldo_capital = valor del prestamo

saldo_sin_interes = valor del prestamo

interes_x_cobrar = 0

interes_mora_x_cobrar = 0

fecha_desembolso se asigna de acuerdo con la fecha del cheque

fecha_ultimo_pago = fecha_de desembolso

fecha_ultima_causacion = fecha_desembolso

cuota_pendiente_aplicar=0 (deducción en trámite)

4.3. Aplicación de Pagos

Antes de explicar en detalle la forma como se calculan los diferentes parámetros del pago, se muestra un ejemplo de varios pagos aplicados a un crédito.

Figura 44. Detalle de la aplicación de pagos

Para el caso de la figura 42 se asume una tasa de interés del 2% y una tasa de interés por mora del 2%. Se muestra que el 30 de julio se paga un valor de 500. Puesto que este valor no alcanza a cubrir el valor de los intereses que son de 200.000 se pagan 500 y quedan unos intereses pendientes por cobrar de 199.500.

El 30 de agosto los 199.500 han causado un interés de mora de 3.990. Como el pago efectuado es de 1.000 no se alcanza a pagar los intereses de mora y menos aún los intereses corrientes. En ese momento se pagan 1.000 de interes por mora y quedan los siguientes saldos: Interes mora x cobrar de 2.990, Interes por cobrar de 399.500 (199.500 del periodo anterior mas 200.000 de intereses causados en este periodo). El total de la deuda esta dado por 10'000.000 de capital mas 399.500 de intereses corrientes mas 2.990 de intereses de mora.

El 30 de septiembre de 2003 los 399.500 causan intereses de mora de 7.990. A ese valor se le agregan los 2.990 pendientes del periodo anterior. Como se pagan 5.000 estos se cargarán al interes x mora, quedando un interes de mora x cobrar de 5980 (7990 +2 990 - 5000). No se pagan intereses corrientes los cuales tendrán un acumulado de 599.500

El 30 de octubre de 2003 los 599.500 causan intereses de mora de 11.990. A ese valor se le agregan los 5980 pendientes del periodo anterior. Como se paga 1'500.000 estos se distribuirán de la siguiente manera: 19.970 de interés por mora, 799.500 de intereses corrientes (599.500 pendientes mas 200.000 del presente periodo) y el valor restante, es decir 682.530 se abonarán al capital.

Luego de ver el ejemplo se muestran los pasos para la aplicación de un pago.

- Se seleccionan los campos del crédito o descuento por aportes/ahorros correspondiente:

saldo_sin_interes

saldo_capital

interes_x_cobrar

interes_mora_x_cobrar

linea de credito

estado_anterior

fecha_causacion_anterior

fecha_pago_anterior

saldo_sin_interes_ant

saldo_capital_ant

interes_x_cobrar_ant

interes_mora_x_cobrar_ant

cuota_pendiente_aplicar

ind_prestamo_cruzado

- El item del pago se incrementa en 1

- Se calcula el año, periodo y subperiodo de pago con base en la fecha de pago

Para calcular el subperiodo:

if dia <= 15

subperiodo=1;

else

subperiodo=2;

End

- Para los préstamos se efectúan las siguientes operaciones

Se calcula el valor del interes desde la última fecha de pago hasta la actual teniendo como base el saldo del capital

Se calcula el valor del interes por mora desde la última fecha de pago hasta la actual. Para ello se toma como base el saldo del interés por cobrar

Para los préstamos cruzados:

valor_interes = 0;

valor_interes_mora = 0;

En la variable valor restante se van descontando los valores pagados

Existen varios casos:

El valor a pagar solo cubre parte del interés por mora (el pendiente, mas el causado en el momento de pagar)

El valor a pagar solo cubre el interes por mora y parte de los intereses corrientes

El valor a pagar cubre interes x mora, intereses corrientes y parte del capital.

valor_restante = valor_a_pagar

if valor_restante > valor_interes_mora + interes_mora_x_cobrar)

valor_mora_pagado = valor_interes_mora + interes_mora_x_cobrar ;

valor_restante = valor_restante - valor_mora_pagado;

else

valor_mora_pagado = valor_restante;

valor_restante = 0;

End

if valor_restante > valor_interes + interes_x_cobrar

valor_interes_pagado = valor_interes + interes_x_cobrar;

valor_restante = valor_restante - valor_interes_pagado;

else

valor_interes_pagado = valor_restante;

valor_restante = 0;

End

valor_capital_pagado = valor_restante ;

Se calculan el interes de mora x cobrar, y el interes x cobrar

interes_mora_x_cobrar = interes_mora_x_cobrar + valor_interes_mora -

valor_mora_pagado;

interes_x_cobrar = interes_x_cobrar + valor_interes - valor_interes_pagado;

Se calculan el saldo sin interés y el saldo de capital

saldo_sin_interes = saldo_sin_interes - valor_capital;

saldo_total = saldo_sin_interes + interes_mora_x_cobrar +

interes_x_cobrar;

Se asignan algunos valores por defecto:

valor_interes_causado = 0;

concepto='';

fecha_cuota_extra='null';

fecha_ultima_causacion=$fecha;

estado='A';

if tipo_pago =='CR'

ind_prestamo_cruzado = 'S';

else

ind_prestamo_cruzado = 'N';

end

if tipo_pago <>'CR'

cuota_pendiente_aplicar = 0;

if saldo_capital < 1

estado='C';

- Para los descuentos por aportes/ahorros se efectúan las siguientes operaciones

valor_interes = 0;

valor_interes_mora = 0;

valor_mora_pagado = 0;

valor_interes_pagado = 0;

valor_capital = valor_a_pagar ;

interes_mora_x_cobrar = 0;

interes_x_cobrar = 0;

saldo_sin_interes = saldo_sin_interes + valor_capital;

saldo_capital = saldo_capital + valor_capital;

valor_interes_causado = 0;

concepto='';

fecha_cuota_extra='null';

fecha_ultima_causacion=$fecha;

ind_prestamo_cruzado='N';

cuota_pendiente_aplicar=0;

estado='A';

- Se inserta un registro en la tabla pago

- Se actualiza la tabla prestamo en los siguientes campos:

fecha_ultimo_pago

saldo_sin_interes

saldo_capital

interes_x_cobrar

interes_mora_x_cobrar

fecha_ultima_causacion

estado

ind_prestamo_cruzado

cuota_pendiente_aplicar

 

4.4. Generación de Deducciones

- Se identifica si el proceso es para uno o todos los asociados:

If proceso para todos los asociados

Asociado_i = ' '

Asociado_f='zz '

Else

Asociado_i=cedula

Asociado_f=cedula

End

- Se efectúa el ciclo para las asociados que cumplan la siguiente condición:

Select * from asociado where cedula between cedula_i and 'cedula_f and estado_fondo='A'

Si deducciones normales o todas

Hacer ciclo para:

Leer prestamo where cedula=cedula_ciclo

Insertar en movimiento la deduccion tomando como valor el campo

valor_cuota del prestamo

Actualizar cuota pendiente de aplicar en prestamo

Fin ciclo

Si deducciones extras o todas

Hacer ciclo para

Leer cuota_extra where cedula = cedula_ciclo and fecha <=

fecha_deducciones

Insertar en movimiento

Actualizar cuota pendiente de aplicar en prestamo

Fin ciclo

Fin ciclo de asociados

DocumentaciónAnterior