function abrir_aplicacion(num)
	{	
		for (s=1;s<13;s++){
			recorrido_capa=document.getElementById("caja_"+s);
			recorrido_capa.style.display="none";
			}

		var abrir = true;
		
		caja_actual=document.getElementById("caja_"+num);
		caja_actual.style.display="inline";

}

 //Comprueba tamanos de campos
  function longitud(parametro,nombre,largo)
   {
   cade=parametro
   if (cade.length>largo)
   errStr = errStr + nombre+" es demasiado largo.\r ";
   }
  
  function longitud_minima(parametro,nombre,largo)
   {
   cade=parametro
   if (cade.length<largo)
   errStr = errStr + nombre+" es demasiado corto.\r ";
   }
  
  function vacio(parametro,nombre)
   {
   nom=new String(parametro);
   if (nom=="")
   errStr = errStr + nombre+" esta vacio.\r ";
   }
  
  function vocal(parametro,nombre)
   {
   nom=new String(parametro);
   nom=nom.toLowerCase()
   if (nom.indexOf("a")<0 && nom.indexOf("e")<0 && nom.indexOf("i")<0 && nom.indexOf("o")<0 && nom.indexOf("u")<0)
   errStr = errStr + nombre+" es incorrecto.\r ";
   }
  
  function numerico(parametro,nombre)
   {
   comprobar=parametro;          
   if (isNaN(comprobar)==true)
    {
    errStr = errStr + nombre+" debe ser numerico. Si necesita utilizar decimales puede utilizar el punto como separador \r";
    }
   }
  
  function es_mail(texto,nombre)
	 {
     // Comprueba que el campo email es valido.
	 var cemail = texto;
	 resul1 = cemail.indexOf("@"); resul2 = cemail.lastIndexOf(".");
	 if (resul1 == -1 || resul2 == -1 || resul2 < resul1) 
	   { 
	   errStr = errStr + nombre+" es incorrecto.\r ";
	   }
    
    n=texto.indexOf("'");
    if (n>=0){errStr = errStr + nombre+" es incorrecto.\r ";}
    
	} 
   
   function quitar_comitas(parametro)
   {
   campo=parametro
   n=campo.indexOf("'");
   while (n>=0)
	 {
	 campo=campo.replace("'",'"');
	 n=campo.indexOf("'");
	 }
   return(campo);
   }