fecha
nombre
direccion
ocupacion
cedula
telefono
celular
nacionalidad
email
lugartrabajo
teltrabajo
recomendadopor
telrecomendado
garantia
valorgarant
strImagen1

fechapago
debito
credito
txttasainteres
anios
meses
semanas
dias
RadioISR
txtcantcuota
txtvlorcuota
txtcapitalpago
txtinterespago
txttotgral
txttotinteres

nota


------------------------------------------
------------------------------------------
------------------------------------------

INVERATIVE CHANCE ANIO
----------------------
thisform.txtmes.Value = thisform.txtanos.value * 12
thisform.txtdias.Value = thisform.txtmes.value * 30
thisform.txtsemanas.Value = thisform.txtmes.Value * 4


INVERATIVE CHANCE MES
----------------------
thisform.txtanos.Value = thisform.txtmes.value/12
thisform.txtdias.Value = thisform.txtmes.value*30
thisform.txtsemanas.Value = thisform.txtmes.Value * 4


INVERATIVE CHANCE SEMANAS
-------------------------
thisform.txtmes.Value = thisform.txtdias.Value/30
thisform.txtanos.Value = thisform.txtmes.value/12


INVERATIVE CHANCE DIAS
----------------------
thisform.txtmes.Value = thisform.txtdias.Value/30
thisform.txtanos.Value = thisform.txtmes.value/12
thisform.txtsemanas.Value = thisform.txtmes.Value * 4

=============================================================
==============================================================
================================================================


txtvalorcargo = thisform.txtvalorcargo.Value + thisform.txtgastocierre.Value 
v1 = 0
v2 = 0
v1 = (txtvalorcargo * thisform.txttasainteres.Value)/100
v2 = v1*thisform.txtmes.Value 
thisform.txttotinteres.Value = v2

IF thisform.optformapago.Value = 1
	v2 = v1*thisform.txtmes.Value 

	thisform.txtcantcuota.Value  = thisform.txtmes.Value 
	thisform.txttotgral.Value    = txtvalorcargo + thisform.txttotinteres.Value 
	thisform.txtinterespago.Value = thisform.txttotinteres.Value / thisform.txtcantcuota.Value 
ENDIF 

IF thisform.optformapago.Value = 2
	thisform.txtcantcuota.Value  = thisform.txtmes.Value*2
	thisform.txttotgral.Value    = txtvalorcargo + thisform.txttotinteres.Value 	
	thisform.txtinterespago.Value = thisform.txttotinteres.Value / thisform.txtcantcuota.Value 	
ENDIF 

IF thisform.optformapago.Value = 3
	thisform.txtcantcuota.Value  = thisform.txtmes.Value*4
	thisform.txttotgral.Value    = txtvalorcargo + thisform.txttotinteres.Value 
	thisform.txtinterespago.Value = thisform.txttotinteres.Value / thisform.txtcantcuota.Value 		
ENDIF 

IF thisform.optformapago.Value = 4
	thisform.txtcantcuota.Value  = thisform.txtdias.Value 
	thisform.txttotgral.Value    = txtvalorcargo + thisform.txttotinteres.Value 	
	thisform.txtinterespago.Value = thisform.txttotinteres.Value / thisform.txtcantcuota.Value 	
ENDIF 

IF thisform.txttasainteres.Value > 0
	thisform.txtvlorcuota.Value  = thisform.txttotgral.Value / thisform.txtcantcuota.Value 
	thisform.txtcapitalpago.Value = thisform.txtvlorcuota.Value - thisform.txtinterespago.Value 
ENDIF 
IF thisform.txttasainteres.Value = 0
	thisform.txtvlorcuota.Value  = thisform.txttotgral.Value / thisform.txtcantcuota.Value 
	thisform.txtcapitalpago.Value = thisform.txtvlorcuota.Value - thisform.txtinterespago.Value 
ENDIF