var elem=new Array(6,9,11,12,13,17,19)
var campos=new Array("Importe a financiar","Plazo","Apellidos","Nombre","D.N.I.","E-mail","Teléfono")
//-------------------------------------------------
var datos_hipoteca = new Array(5)
var nomdatos =new Array("Capital inicial","Tipo de interés","Plazo de amortización","Plazo en meses","Mensualidad")
var capitemp=0
var intetemp=0
var plazotemp=0
var mesestemp=0
var mensutemp=0

//-------------------------------------------------
function compruebadatos()
{
	
	// Todo el calculo lo hacemos en euros. Mostramos en pesetas o euros segun queramos
	sigo = true
	if (!(document.hlcForm.c.value == ""))
	{
		document.hlcForm.c.value = Delete_miles(document.hlcForm.c.value);
	}
	if (!(document.hlcForm.m.value == ""))
	{
		document.hlcForm.m.value = Delete_miles(document.hlcForm.m.value);
	}
	var capital;
	capital = document.hlcForm.c.value;
	var mensualidad;
	mensualidad = document.hlcForm.m.value;
	if (capital < mensualidad && !(document.hlcForm.c.value == ""))
	{
		alert ("Die Rate darf nicht mehr als die gewünschte Gesamtsumme betragen!");
		document.hlcForm.m.focus();
		return;
	}
	if (document.hlcForm.i.value < 0)
	{
		alert ("Die Zinsen können nicht negativ sein");
		document.hlcForm.c.value = document.hlcForm.c.value;
		document.hlcForm.i.focus();
		return;
	}
	if (document.hlcForm.p.value < 0)
	{
		alert ("Die Jahreszahl kann nicht negativ sein");
		document.hlcForm.c.value = document.hlcForm.c.value;
		document.hlcForm.p.focus();
		return;
	}
	// Si el año es igual a cero, alerta.
	//if (document.hlcForm.p.value == 0)
	//{
		//alert ("El plazo de amortización no puede ser 0");
		//document.hlcForm.c.value = document.hlcForm.c.value;
		//document.hlcForm.p.focus();
		//return;
	//}
	//Si los meses son igual a cero, alerta
	//{
		//alert ("El plazo de amortización no puede ser 0");
		//document.hlcForm.c.value = document.hlcForm.c.value;
		//document.hlcForm.pm.focus();
		//return;
	//}
	if (document.hlcForm.p.value > 50)
	
	{
		alert("Die Spanische Zentralbank genehmigt keine Tilgungen die über 50 Jahre andauern");
		document.hlcForm.p.value = "";
		document.hlcForm.c.value = document.hlcForm.c.value;
		document.hlcForm.p.focus();
		return;
	}
	if (document.hlcForm.i.value > 20)
	{
		alert("Die Zinsen betragen höchstens 20%!");
		if (!(document.hlcForm.c.value == ""))
		{
			document.hlcForm.c.value = document.hlcForm.c.value;
		}
		if (!(document.hlcForm.m.value == ""))
		{
			document.hlcForm.m.value = document.hlcForm.m.value;
		}  
		document.hlcForm.i.focus();
		return;
	}
	for (i=0;i<4;i++)
	{
		if (isNaN(Delete_miles(document.hlcForm.elements[i].value)))
		{
			sigo=false
			alert("Im Feld "+nomdatos[i]+" wurden keine Ziffern eingegeben");
			if (!(document.hlcForm.c.value == ""))
			{
				document.hlcForm.c.value = Puntos_euros2(document.hlcForm.c.value);
			}
			if (!(document.hlcForm.m.value == ""))
			{
				document.hlcForm.m.value = Puntos_euros2(document.hlcForm.m.value);
			}
			document.hlcForm.elements[i].focus();
			break
		}
	}
	if (sigo)
	{
		if (!(document.hlcForm.p.value == ""))
		{
			document.hlcForm.p.value = document.hlcForm.p.value * 12;
		}
		calculaprestamo()
	}
	if (!(document.hlcForm.c.value == "") && !(document.hlcForm.m.value == ""))
	{
		document.hlcForm.c.value = document.hlcForm.c.value;
		document.hlcForm.m.value = document.hlcForm.m.value;
	}
}
//-------------------------------------------------
function calculaprestamo()
{
	var suma=0
	correcto=true	
	for (i = 0; i < 5; i++)
	{
		if (i == 1)
		{
			datos_hipoteca[i] = Delete_miles(document.hlcForm.elements[i].value);
		}
		else
		{
			datos_hipoteca[i] = document.hlcForm.elements[i].value;
		}
		//alert('Datos[' + i + '] = ' + datos[i]);
		if (datos_hipoteca[i]!="")
		{
			suma+=1
		}
	}
	if (suma==5)
	{
		correcto=false
		document.hlcForm.p.value = document.hlcForm.p.value / 12;
		alert("Sie müssen eins der Felder freilassen");
	}
	else
	{
		if (suma < 4)
		{
			correcto=false
			document.hlcForm.p.value = document.hlcForm.p.value / 12;
			document.hlcForm.p.value = ""; 
			alert("Geben Sie bitte mindestens 3 Daten ein")
			for (h=0;h<4;h++)
			{
				if (!(document.hlcForm.elements[h].value == ""))
				{
					document.hlcForm.elements[h].value = document.hlcForm.elements[h].value;
				}
			}
		}
	}
	if (correcto)
	{
		if (datos_hipoteca[1]=="")
		{			
			/*mtemp=datos[0]/datos[2]
			if (datos[3] < mtemp)
			{
				correcto=false
				alert("Ha introducido una combinación no válida de capital, plazo y mensualidad")
			}
			else
			{
				alert('Datos[0] = ' + datos[0] + '\nDatos[1] = ' + datos[1] + '\Datos[2] = ' + datos[2] + '\nDatos[3]' + datos[3]);
				calculainteres()
			}
			document.hlcForm.m.value = Puntos_euros2(document.hlcForm.m.value);*/
			alert('Die Zinsen müssen eingegeben werden.');
			document.hlcForm.c.value = Puntos_euros2(document.hlcForm.c.value);
			document.hlcForm.m.value = Puntos_euros2(document.hlcForm.m.value);
			document.hlcForm.p.value = parseInt(document.hlcForm.p.value / 12);			
		}
	if (datos_hipoteca[0]=="")
	{
		id=datos_hipoteca[1]/1200
	
		if (plazotemp==datos_hipoteca[2] && intetemp==id && mensutemp==datos_hipoteca[4])
		{
			res=mensutemp/((Math.pow(1+intetemp,plazotemp)*intetemp)/(Math.pow(1+intetemp,plazotemp)-1))
		}
		else
		{
			res=datos_hipoteca[4]/((Math.pow(1+id,datos_hipoteca[2])*id)/(Math.pow(1+id,datos_hipoteca[2])-1))
		}	
		document.hlcForm.c.value=Puntos_euros2(String(res));
		document.hlcForm.m.value = Puntos_euros2(document.hlcForm.m.value);
		document.hlcForm.p.value = document.hlcForm.p.value / 12;
	}
	
	if (datos_hipoteca[2]=="")
	{		
		id = datos_hipoteca[1] / 1200;
		dividendo1 = Math.log(datos_hipoteca[4]);		
		suma1 = (-datos_hipoteca[0] * id);
		suma2=datos_hipoteca[4];
		
		sumando = parseFloat(suma1) + parseFloat(suma2);
		dividendo2 = Math.log(sumando);
		divisor=Math.log(1 + id);
		
		res=(dividendo1 - dividendo2) / divisor;
		res=Math.ceil(res)
		document.hlcForm.p.value = res
		if ((res /12) > 35 || isNaN(res)) 
		{
			alert("Die Spanische Zentralbank genehmigt keine Tilgungen die über 50 Jahre andauern");
			document.hlcForm.p.value = "0";
			document.hlcForm.c.value = Puntos_euros2(String(document.hlcForm.c.value));
			document.hlcForm.p.focus();
			return;
		}
	
		//**********Modificamos el capital inicial******************
		cinicial=datos_hipoteca[4]/((Math.pow(1+id,res)*id)/(Math.pow(1+id,res)-1))
		if (document.hlcForm.c.value!=cinicial)
		{ 
			document.hlcForm.c.value = Puntos_euros2(String(cinicial));
			alert("Das Anfangskapital wurde geändert damit \ndie Raten in ganzen Zahlen errechnet werden können");
		}
		document.hlcForm.p.value = parseInt(document.hlcForm.p.value / 12);
		document.hlcForm.m.value = Puntos_euros2(String(datos_hipoteca[4]))
		}
		if (datos_hipoteca[4]=="")
		{		
			//alert('Datos[4] = ' + datos[4]);

			id = datos_hipoteca[1] / 1200
			res = datos_hipoteca[0] * ((Math.pow(1+id, datos_hipoteca[2]) * id)/(Math.pow(1 + id, datos_hipoteca[2]) - 1))
			intetemp = id
			capinitemp = datos_hipoteca[0]
			plazotemp = datos_hipoteca[2]
			mensutemp = res
			/*dato = res;
			indi = dato.indexOf(".")
			if (dato!=-1)
			{
				deci=dato.substring(indi+1, indi+3)
				if (deci>=50)
				{
					document.hlcForm.m.value=res;
				}
				else
				{
					document.hlcForm.m.value=res;
				}
			}
			else
			{*/
				//res=parseInt(res);
				document.hlcForm.m.value=Puntos_euros2(String(res));
			//}
			document.hlcForm.c.value = Puntos_euros2(String(datos_hipoteca[0]));			
			document.hlcForm.p.value = parseInt(document.hlcForm.p.value / 12);
			}
		}
		// Ahora que hemos acabado miramos si lo tenemosque mostrar en euros o pesetas
		if (document.hlcForm.moneda[1].checked)
		{
			// Pesetas. Quitamos los decimales
			valor = document.hlcForm.m.value;
			coma = valor.indexOf(',');
			if (coma != -1)
			{
				valor = valor.substr(0, coma);
			}
			//alert('Cuota mensual = ' + valor);
			document.hlcForm.m.value = valor;
			
			valor = document.hlcForm.c.value;
			coma = valor.indexOf(',');
			if (coma != -1)
			{
				valor = valor.substr(0, coma);
			}
			//alert('Capital = ' + valor);
			document.hlcForm.c.value = valor;
		}
}