/*Desarrollo realizado por Asesores Bancarios y Financieros www.abanfinc.com
Prohibida la reproducción total o parcial por cualquier medio salvo autorización expresa de Asesores Bancarios y Financieros*/
/*simulador vinculado cf0bcak*/

function leyendas(form)
{

if(form.modalidad[0].checked)
	{
	form.leyendainteres.value="Tipo de interés vigente:";
	//form.leyendafrecuencia.value="Frecuencia de los pagos:";
	form.interes.disabled=false;
	//form.frecuencia.disabled=false;
	form.leyendaresultado.value="Nuevo plazo del préstamo:";
	}
	
if(form.modalidad[1].checked)
	{
	form.leyendainteres.value="Campo no utilizado";
	//form.leyendafrecuencia.value="Campo no utilizado";
	form.interes.value="";
	//form.frecuencia.value=0;
	form.interes.disabled=true;
	//form.frecuencia.disabled=true;
	form.leyendaresultado.value="Nueva cuota del préstamo:";
	}
}



function calculos(form)
{

// Verificación de datos comunes
if(form.modalidad[0].checked==0 && form.modalidad[1].checked==0)
	{
	alert("Debe seleccionar una modalidad de cálculo. \nRecálculo de cuota ó\nRecálculo de plazo");
	return(false);
	}

if(form.capital.value=="" || esNumero(form.capital.value)=="false")
	{
	alert("Debe introducir el capital pendiente en el momento de la simulación. \nDebe de tratarse de un valor numérico");
	return(false);
	}	
if(form.amortizado.value=="" || esNumero(form.amortizado.value)=="false" )
	{
	alert("Debe introducir el importe de la amortización extraordinaria.\nDebe de tratarse de un valor numérico");
	return(false);
	}
if(form.cuota.value=="" || esNumero(form.cuota.value)=="false" )
	{
	alert("Debe introducir la cuota actual del préstamo.\nDebe tratarse de un valor numérico");
	return(false);
	}


// Obtención de datos
var moneda,cpendiente,amortizacion,cuotainicial;

if(form.moneda[0].checked){moneda=0;}
if(form.moneda[1].checked){moneda=1;}

cpendiente = form.capital.value*1;
amortizacion = form.amortizado.value*1;
cuotainicial = form.cuota.value*1;

//Cálculo de la variación de cuota
if(form.modalidad[1].checked)
{
	factor=amortizacion/cpendiente;
	factor=1-factor;
	cuotafinal=cuotainicial*factor;
	form.resultado.value=formatodec(cuotafinal,moneda);
	// Una vez que se realiza el cálculo sale de la aplicación
	return(false);
}


// Cálculo de la reducción de plazo
// Comprobaciones
if(form.interes.value=="" || esNumero(form.interes.value)=="false" )
	{
	alert("Debe introducir el interés nominal de su préstamo.\nDebe tratarse de un valor numérico");
	return(false);
	}
/*if(form.frecuencia.value == 0 )
	{
	alert("Debe seleccionar la frecuencia de pago de la cuota.");
	return(false);
	}
*/
var interes,frecuencia,capital2,nplazo,mplazo,aplazo;
interes = form.interes.value/1200;
capital2 = cpendiente-amortizacion;

factor1 = 1+interes;
factor1 = Math.log(factor1);
factor2 = (capital2*interes)/cuotainicial;
factor2 = 1-factor2;
factor2 = Math.log(factor2);

nplazo = - 1*(factor2/factor1)/12;
aplazo = Math.round(nplazo);
if (aplazo>nplazo)
{aplazo=aplazo-1;mplazo = nplazo-aplazo;}
else
{mplazo = nplazo-aplazo;}

mplazo = Math.round(mplazo*12);
if (mplazo>1){form.resultado.value=aplazo+" Años y "+mplazo+" Meses";}
else{form.resultado.value=aplazo+" Años y "+mplazo+" Mes";}


}