OBJETIVO

 Imprimir informe de PRESTAMOs por CLIENTE
ENTORNO
 W_CLIENTE_ANT es numerico
 W_PRESTAMO_ANT es numerico
 ACU_MONTO_GEN es numerico
 ACU_MONTO_CLI es numerico
 ACU_MONTO_PRE es numerico
 ACU_INTERES_PRE es numerico
 W_MONTO_INTERES es numerico
 W_MONTO_CUOTA es numerico
 CON_CUOTAS es numerico
 VEC_TASA es tabla(8) numerica
 I es numerico
 W_INTERES_MAX es numerico
 W_PRESTAMO_MAX es numerico
 CON_PAGINA es numerico
 CON_LINEA es numerico
 IMP_CLIENTE es alfanumerico
 IMP_PRESTAMO es alfanumerico
 IMP_TASA es alfanumerico
 archivo PRESTAMO
 registro REG_PRESTAMO
 COD_CLIENTE es numerico
 NRO_PRESTAMO es numerico
 NRO_CUOTA es numerico
 TIPO_PRESTAMO es numerico
 MONTO_CAPITAL es numerico
 FECHA_VENCIM es numerico
 fin_registro
 prefijo PRE
 archivo AUDITORIA
 registro REG_AUDITORIA
 COD_CLIENTE es numerico
 NRO_PRESTAMO es numerico
 CANT_CUOTAS es numerico
 fin_registro
 prefijo AUD












CUERPO PRINCIPAL
inicio
 ejecutar PROCESO_INICIAL
 mientras PRE_COD_CLIENTE <> 0
ejecutar PROCESO_PRINCIPAL
 fin_mientras
 ejecutar PROCESO_FINAL
fin























RUTINAS
PROCESO_INICIAL:
 imprimir “Informe de Préstamos por Cliente”
 ejecutar ABRIR_ARCHIVOS
 ejecutar INICIALIZAR_DATOS_GENERALES
 ejecutar INGRESAR_VECTOR_TASA
 ejecutar LEER_SGTE_PRESTAMO
retorno


PROCESO_PRINCIPAL:
 ejecutar INICIO_CLIENTE
 mientras PRE_COD_CLIENTE = W_CLIENTE_ANT
 ejecutar INICIO_PRESTAMO
 mientras PRE_NRO_PRESTAMO = W_PRESTAMO_ANT
 and PRE_COD_CLIENTE = W_CLIENTE_ANT
 ejecutar PROCESAR_PRESTAMO
 fin_mientras
 ejecutar CORTE_PRESTAMO
 fin_mientras
 ejecutar CORTE_CLIENTE
retorno


PROCESO_FINAL:
 ejecutar IMPRIMIR_TOTALES_GENERALES
 ejecutar CERRAR_ARCHIVOS
 imprimir “** FIN DE PROCESO **”
retorno

ABRIR_ARCHIVOS:
 ejecutar ABRIR_ARCHIVO_PRESTAMO
 ejecutar ABRIR_ARCHIVO_AUDITORIA
retorno

ABRIR_ARCHIVO_PRESTAMO:
 abrir PRESTAMO
retorno
ABRIR_ARCHIVO_AUDITORIA:
 abrir AUDITORIA

retorno
INICIALIZAR_DATOS_GENERALES:
 ACU_MONTO_GEN = 0
 CON_PAGINA = 1 : CON_LINEA = 99
Retorno


INGRESAR_VECTOR_TASA:
 desde I = 1 hasta 8
 imprimir “Ingrese la Tasa ”, I
 ingresar VEC_TASA(I)
 fin_desde
retorno







LEER_SGTE_PRESTAMO:
 si eof(PRESTAMO)
 PRE_COD_CLIENTE = 0
 Sino
 leer REG_PRESTAMO
 fin_si
retorno

INICIO_CLIENTE:
 W_CLIENTE_ANT = PRE_COD_CLIENTE
 ACU_MONTO_CLI = 0
 ACU_MONTO_PRE = 0
 IMP_COD_CLIENTE = PRE_COD_CLIENTE
Retorno

INICIO_PRESTAMO:
 W_PRESTAMO_ANT = PRE_NRO_PRESTAMO
 ACU_INTERES_PRE = 0
 CON_CUOTAS = 0
 IMP_NRO_PRESTAMO = PRE_NRO_PRESTAMO
 IMP_TASA = VEC_TASA(PRE_TIPO_PRESTAMO)
Retorno

PROCESAR_PRESTAMO:
 W_MONTO_INTERES = PRE_MONTO_CAPITAL * VEC_TASA(PRE_TIPO_PRESTAMO)
 W_MONTO_CUOTA = (PRE_MONTO_CAPITAL + W_MONTO_INTERES)
 ejecutar IMPRIMIR_DETALLE
 ACU_MONTO_PRE = ACU_MONTO_PRE + W_MONTO_CUOTA
 ACU_INTERES_PRE = ACU_INTERES_PRE + W_MONTO_INTERES
 CON_CUOTAS = CON_CUOTAS + 1
Retorno


IMPRIMIR_DETALLE:
 ejecutar CONTROLAR_TITULOS
 imprimir IMP_COD_CLIENTE, IMP_NRO_PRESTAMO, IMP_TASA, PRE_NRO_CUOTA,…
 PRE_MONTO_CAPITAL, W_MONTO_INTERES, W_MONTO_CUOTA
 IMP_COD_CLIENTE = “”: IMP_NRO_PRESTAMO = “”, IMP_TASA = “”
Retorno


CORTE_PRESTAMO:
 ejecutar CONTROLAR_TITULOS
 imprimir “TOTAL PRESTAMO”, W_PRESTAMO_ANT, ACU_MONTO_PRE
 ACU_MONTO_CLI = ACU_MONTO_CLI + ACU_MONTO_PRE
 si CON_CUOTAS > 12
 ejecutar GRABAR_AUDITORIA
 fin_si
 si ACU_INTERES_PRE > W_INTERES_MAX
 W_INTERES_MAX = ACU_INTERES_PRE
 W_PRESTAMO_MAX = W_PRESTAMO_ANT
 fin_si
 ejecutar LEER_SGTE_PRESTAMO
retorno


CORTE_CLIENTE:
 ejecutar CONTROLAR_TITULOS
imprimir “TOTAL CLIENTE”, PRE_CLIENTE, ACU_MONTO_CLI
 ACU_MONTO_GEN = ACU_MONTO_GEN + ACU_MONTO_CLI
retorno

GRABAR_AUDITORIA:
 ejecutar LEER_AUDITORIA
AUD_COD_CLIENTE = PRE_COD_CLIENTE
 AUD_CANT_CUOTAS = CON_CUOTAS
AUD_NRO_PRESTAMO = PRE_NRO_PRESTAMO

 si existe(AUDITORIA)
 regrabar REG_AUDITORIA
 sino
grabar REG_AUDITORIA
 fin_si
retorno


LEER_AUDITORIA:
 AUD_COD_CLIENTE = PRE_COD_CLIENTE
 AUD_NRO_PRESTAMO = 0
 clave AUD_COD_CLIENTE + PRE_NRO_PRESTAMO
 leer REG_AUDITORIA
retorno



IMPRIMIR_TOTALES_GENERALES:
 ejecutar CONTROLAR_TITULOS
 imprimir “TOTALES GENERALES:”, ACU_MONTO_GEN
 imprimir “Nro. Préstamo con mayor monto de Interés”, W_PRESTAMO_MAX
retorno



CONTROLAR_TITULOS:
 si CON_LINEA > 70
 imprimir “INFORME DE PRESTAMO POR CLIENTE PAG:”, CON_PAGINA
 imprimir “Código Nro. Tasa de …”
 imprimir “Cliente Prestamo Interes …”
 imprimir “---------------------------“
 CON_LINEA = 6: CON_PAGINA = CON_PAGINA + 1
 sino
 CON_LINEA = CON_LINEA + 1
 fin_si
retorno



CERRAR_ARCHIVOS:
 ejecutar CERRAR_ARCHIVO_PRESTAMO
 ejecutar CERRAR_ARCHIVO_AUDITORIA
retorno


CERRAR_ARCHIVO_PRESTAMO:
 cerrar PRESTAMO
retorno


CERRAR_ARCHIVO_AUDITORIA:
 cerrar AUDITORIA
retorno