// JavaScript Document
function calculacuota() {
	if(document.formulario.casa.value==""){alert("Por favor, introduzca cuota por la hipoteca");document.formulario.casa.focus();return false;}
	if(document.formulario.coche.value=="" && document.formulario.resto_coche.value!="" && document.formulario.resto_coche.value!="0"){alert("Por favor, introduzca cuota por el coche");document.formulario.coche.focus();return false;}
	if(document.formulario.creditos.value=="" && document.formulario.resto_creditos.value!="" && document.formulario.resto_creditos.value!="0"){alert("Por favor, introduzca cuota por creditos");document.formulario.creditos.focus();return false;}
	if(document.formulario.resto_casa.value==""){alert("Por favor, introduzca el importe que resta por pagar de hipoteca");document.formulario.resto_casa.focus();return false;}
	if(document.formulario.resto_coche.value=="" && document.formulario.coche.value!="" && document.formulario.coche.value!="0"){alert("Por favor, introduzca el importe que resta por pagar de coche");document.formulario.resto_coche.focus();return false;}
	if(document.formulario.resto_creditos.value=="" && document.formulario.creditos.value!="" && document.formulario.creditos.value!="0"){alert("Por favor, introduzca que resta por pagar de créditos personales");document.formulario.resto_creditos.focus();return false;}
	if(isNaN(document.formulario.casa.value)){alert("Por favor, la cuota de la hipoteca debe ser un número");document.formulario.casa.focus();return false}
	if(isNaN(document.formulario.coche.value)){alert("Por favor, la cuota por el coche debe ser un número");document.formulario.coche.focus();return false}	
	if(isNaN(document.formulario.creditos.value)){alert("Por favor, la cuota por los créditos debe ser un número");document.formulario.creditos.focus();return false}	
	if(isNaN(document.formulario.resto_casa.value)){alert("Por favor, el importe que resta por pagar de hipoteca debe ser un número");document.formulario.resto_casa.focus();return false}
	if(isNaN(document.formulario.resto_coche.value)){alert("Por favor, el importe que resta por pagar de coche debe ser un número");document.formulario.resto_coche.focus();return false}	
	if(isNaN(document.formulario.resto_creditos.value)){alert("Por favor, el importe que resta por pagar de créditos debe ser un número");document.formulario.resto_creditos.focus();return false}
	
	if(document.formulario.coche.value==""){document.formulario.coche.value=document.formulario.resto_coche.value=0;}
	if(document.formulario.creditos.value==""){document.formulario.creditos.value=document.formulario.resto_creditos.value=0;}
	if(document.formulario.resto_coche.value==""){document.formulario.coche.value=document.formulario.resto_coche.value=0;}
	if(document.formulario.resto_creditos.value==""){document.formulario.creditos.value=document.formulario.resto_creditos.value=0;}
	cuota_actual = parseInt(document.formulario.casa.value) + parseInt(document.formulario.coche.value) + parseInt(document.formulario.creditos.value)
	document.formulario.cuota_actual.value = cuota_actual
	impor = parseInt(document.formulario.resto_casa.value) + parseInt(document.formulario.resto_coche.value) + parseInt(document.formulario.resto_creditos.value)
	imp= impor
	plazo_meses = 30
	tipo_mensual = 3.5
		plazo_meses = plazo_meses * 12.0
	tipo_mensual = tipo_mensual / 1200.0
	cuota = imp * tipo_mensual * Math.pow((tipo_mensual + 1.0),plazo_meses) / ( Math.pow((tipo_mensual + 1.0),plazo_meses) - 1.0 )
	document.formulario.cuota_nueva.value = Math.round(cuota)
	document.formulario.ahorro.value = Math.round(cuota_actual - cuota)

	}

function borrar(elemento){
	elemento.value="";
}