/* Desarrollo realizado por Asesores Bancarios y Financieros Prohibida la reproducción total o parcial de dicha aplicación sin la autorización escrita de Asesores Bancarios y Financieros. Tel. 034 965 106 380
Fichero vinculado ce0bcaa.php
*/
<!--
function calculos(form)
{
// controles iniciales
if(form.importe.value=="" || esNumero(form.importe.value)=="false"){alert("Debe introducir el importe del leasing.");return(false);}
if(form.plazo.value==""||form.plazo.value<2){alert("Revise el plazo del leasing, \nel plazo ha de ser mayor de 2 años");return(false);}
if(form.frecuencia.value==0){alert("Revise la frecuencia de pago.");return(false);}
if(form.interes.value=="" || esNumero(form.interes.value)=="false"){alert("Revise el tipo de interés del leasing.");return(false);}
if(form.clineal.value=="" || esNumero(form.interes.value)=="false"){alert("Revise el Coeficiente Máximo Lineal, \n Recuede que se introducirá en tanto por cien, \nutilizando . en lugar de , para la parte decimal");return(false);}
if(form.timpositivo.value==0){alert("Revise el tipo impositivo seleccionado");return(false);}

var plazo,importe,frecuencia,interes,clineal,timpositivo,moneda,coeficiente,ejeciciosl,restol,duracion;

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

importe=form.importe.value*1;
plazo=form.plazo.value*form.frecuencia.value;
interes=form.interes.value/(form.frecuencia.value*100);
plazo=plazo+1;

cuotalea = cleasing(importe,interes,plazo);
form.cuota.value=formatodec(cuotalea,moneda);

// cálculo ejercicios amortización
timpositivo=form.timpositivo.value;
if(timpositivo==0.35){coeficiente=2;}else{coeficiente=3;}

// ejercicios base
clineal=form.clineal.value/100;
ejerciciosl=Math.floor(1/(clineal*coeficiente));
restol=1/(clineal*coeficiente)-ejerciciosl;

//Cálculo e introducción de la identificación de los ejercicios
var ejercicios=new Array(10);
var dotacion=new Array(10);
duracion=form.plazo.value;

	for (i=0; i<=10; i++)
	{
		
		if (i<duracion)
		{z=1+i; ejercicios [i] = "Ej. "+z;}
		else	
		{ejercicios [i] = "--";}
	}

	for (i=0; i<=10; i++)
	{
		
		if (i<ejerciciosl)
		{dotacion [i] =importe*clineal*coeficiente;}
		else	
		{dotacion[i]=0;}	

	}


if (restol>0){dotacion[ejerciciosl]=importe-(dotacion[0]*ejerciciosl);}

// cálculo del capital amortizado del la primera cuota
var amortizacion;
var intereses;
intereses=(importe-cuotaleasing)*interes;
amortizacion=cuotaleasing-intereses;
var dotreal = new Array(10)
var ahorro = new Array(10)
frecuencia=form.frecuencia.value;
var z;

	for (i=0; i<=10; i++)
	{
		if (i<=duracion)
		{
			z=1+i;
			amortizado=pagado(amortizacion,interes,z*frecuencia)
			dotreal [i] = amortizado-pagado(amortizacion,interes,i*frecuencia);
		}
		else	
		{
			dotreal [i] = 0;
		}
		ahorro[i]=dotreal[i]*timpositivo;
	}

// Totales
var tdotacion=0;
var tahorro=0;

for (i=0; i<=10; i++)
{
	tdotacion = tdotacion + dotreal[i];
	tahorro = tahorro + ahorro[i];
}

// Introducción de datos
form.ejercicio0.value=ejercicios[0];
form.ejercicio1.value=ejercicios[1];
form.ejercicio2.value=ejercicios[2];
form.ejercicio3.value=ejercicios[3];
form.ejercicio4.value=ejercicios[4];
form.ejercicio5.value=ejercicios[5];
form.ejercicio6.value=ejercicios[6];
form.ejercicio7.value=ejercicios[7];
form.ejercicio8.value=ejercicios[8];
form.ejercicio9.value=ejercicios[9];
form.ejercicio10.value=ejercicios[10];

form.vontable0.value=formatodec(dotacion[0],moneda);
form.vontable1.value=formatodec(dotacion[1],moneda);
form.vontable2.value=formatodec(dotacion[2],moneda);
form.vontable3.value=formatodec(dotacion[3],moneda);
form.vontable4.value=formatodec(dotacion[4],moneda);
form.vontable5.value=formatodec(dotacion[5],moneda);
form.vontable6.value=formatodec(dotacion[6],moneda);
form.vontable7.value=formatodec(dotacion[7],moneda);
form.vontable8.value=formatodec(dotacion[8],moneda);
form.vontable9.value=formatodec(dotacion[9],moneda);
form.vontable10.value=formatodec(dotacion[10],moneda);

form.dotacion0.value=formatodec(dotreal[0],moneda);
form.dotacion1.value=formatodec(dotreal[1],moneda);
form.dotacion2.value=formatodec(dotreal[2],moneda);
form.dotacion3.value=formatodec(dotreal[3],moneda);
form.dotacion4.value=formatodec(dotreal[4],moneda);
form.dotacion5.value=formatodec(dotreal[5],moneda);
form.dotacion6.value=formatodec(dotreal[6],moneda);
form.dotacion7.value=formatodec(dotreal[7],moneda);
form.dotacion8.value=formatodec(dotreal[8],moneda);
form.dotacion9.value=formatodec(dotreal[9],moneda);
form.dotacion10.value=formatodec(dotreal[10],moneda);

form.ahorro0.value=formatodec(ahorro[0],moneda);
form.ahorro1.value=formatodec(ahorro[1],moneda);
form.ahorro2.value=formatodec(ahorro[2],moneda);
form.ahorro3.value=formatodec(ahorro[3],moneda);
form.ahorro4.value=formatodec(ahorro[4],moneda);
form.ahorro5.value=formatodec(ahorro[5],moneda);
form.ahorro6.value=formatodec(ahorro[6],moneda);
form.ahorro7.value=formatodec(ahorro[7],moneda);
form.ahorro8.value=formatodec(ahorro[8],moneda);
form.ahorro9.value=formatodec(ahorro[9],moneda);
form.ahorro10.value=formatodec(ahorro[10],moneda);

form.tdotreal.value=formatodec(tdotacion,moneda);
form.tahorro.value=formatodec(tahorro,moneda);

// Publicidad refresca la publicidad en el caso de que se trate de abanfin.
if (top.location.href == "http://www.abanfin.com/modules.php?name=Simuladores&fid=ce0bcaa")
{
parent.publicidad.location.href="http://www.abanfin.com/publicidad/abanfin_general728.php"
}

}