// JavaScript Document
function calculaHipoteca(){
	var frm=document.getElementById("FHipoteca");
	//compruebo la validez de los campos
	if(validanumeric(frm.Valor.value,0,"Valor","Valor préstamo","es")==false){exit();}
	var auxStrInteres=frm.Interes.value.replace(",",".");
	if(validanumeric(auxStrInteres,0,"Interes","Interés del prestamo","es")==false){exit();}
	if(validanumeric(frm.Anios.value,0,"Anios","Años de amortización","es")==false){exit();}
	//si llega hasta aquí es que se puede realizar el cálculo
	var Valor;var Interes; var Anios;
	Valor=frm.Valor.value;
	Interes=auxStrInteres;
	InteresMensual=(Interes/12)/100;
	Anios=frm.Anios.value;
	Meses=Anios*12;
	var AuxCuota;
	AuxCuota=Valor * ((InteresMensual*(Math.pow((1+InteresMensual),Meses)))/((Math.pow((1+InteresMensual),Meses))-1));
	frm.Resultado.value=Math.round(AuxCuota);
}


function validanumeric(numero,maximo,nomcasilla,nomcampo,idioma){
	 for (var i=0;i<(numero.length-1);i++){
		 if(numero.charAt(i)!='.'){
 	       var auxnumero=parseInt(numero.charAt(i));
		   if (isNaN(auxnumero)){
	          switch(idioma){
			      case 'es':
			            alert("El campo " + nomcampo + " es un dato numérico");
						break;
				  case 'en':
				        alert("Field " + nomcampo + " should be a numeric value");
						break;
			  }
		      //FHipoteca(nomcasilla).focus();
		      return false;
	       }
	     }
	 }  
	 if (numero.length==0){
	    switch(idioma){
			      case 'es':
		               alert("La longitud del campo " + nomcampo + " no puede ser 0 ");
					   break;
				  case 'en':
                       alert("Length of " + nomcampo + " should not be 0 ");				  
				       break;
		}
		//FHipoteca(nomcasilla).focus();
		return false;
	 }
	 return true;
}

function borrarDatos(){
	var frm=document.getElementById("FHipoteca");
	//compruebo la validez de los campos
	frm.Valor.value="";
	frm.Interes.value="";
	frm.Anios.value="";
	frm.Resultado.value="";
}

//Funciones AJAX
var ruta_web_gen="http://www.durendesa.com/rss/";
//Carga de textos
var objEURIBOR;

function carga_de_Euribor(){
  //Crea objeto XML
  var aleat = Math.random() * 10000;
  aleat = Math.round(aleat);  
  //observacions
  strContenido="random="+aleat;
  objEURIBOR=CreaXHR();
  if(objEURIBOR){
	 var aux_url=ruta_web_gen+'NewEuribor.php';
	 //Enviamos la solicitud al servidor		
 	 objEURIBOR.onreadystatechange=ProcesaEuribor_reg;
 	 objEURIBOR.open('POST',aux_url);
     //con las cabeceras apropiadas
	 objEURIBOR.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
	 objEURIBOR.setRequestHeader('Content-Length',strContenido.length);
	 objEURIBOR.send(strContenido);
  }
  else{
	 alert('Objeto XMLHttpRequest no activo.Actualize su navegador');
  } 
}

function ProcesaEuribor_reg(){  	 
  if (objEURIBOR.readyState==4){
      var frm=document.getElementById('FHipoteca');
      var TEXTCo=objEURIBOR.responseText;
	  frm.Interes.value=TEXTCo;
  }
}