<!--

// PONER si no se incluye antes el de fechas errores= new Array();
  
   numeros="0123456789";
   puntodecimal=".,";
   signos="+-";
   error= new creaerror();  
   errores= new Array();
  
   errores[1]="Campo vacio no contiene ningún valor ";
   errores[2]="Carácter ilegal en un número";
   errores[3]="Carácter ilegal ";
   errores[4]="Sólo ha insertado un signo";
   errores[5]="Parte decimal vacia";
  
   // Crea un objeto que guarda un indice a la posición y al mensaje de error
   function creaerror()
   {
   this.valor=0;
   this.posicion=0;
   return this
   }
  
   // Determina si un caracter es un número
   function numero(car)
   {
   return (numeros.indexOf(car)>=0)
   }

   // Determina si un carácter es un signo positivo o negativo
   function signo(car)
   {
   return (signos.indexOf(car)>=0)
   }

    
   // Comprueba si el contenido es un número es natural incluido el 0
   function compruebanatural(contenido)
   {
		if (contenido.length == 0) return true;
		for (var i=0; i<contenido.length;i++)
		{
			if (!numero(contenido.charAt(i))) return false;
		}
		return true;
   }

   // Comprueba si un signo se encuetra en la posición correcta 
	function signocorrecto(contenido)
	{
		if (contenido.length == 0) return true;
		else 
		{
    	  if (!numero(contenido.charAt(0))&&!signo(contenido.charAt(0))) return false;
    	  else return true;
		}
   	}

   // Comprueba si el contenido es un número es entero
   function compruebaentero(contenido)
   { 
	if (!signocorrecto(contenido)) return false;    
	else
	{
		if (numero(contenido.charAt(0))) return(compruebanatural(contenido)) // No tiene signo.
		else return(compruebanatural(contenido.substring(1,contenido.length))) // tiene signo
	}
   }

   // Comprueba si el contenido es un número es real
   function compruebareal(contenido)
   { 
   valor=0;
   posicion=0;
   var aux=Rcompruebaentero(contenido);
   var posicionpunto=posicion-1;
   if (!aux && valor==2 &&
      puntodecimal.indexOf(contenido.charAt(posicionpunto))>=0) 
      {
      var aux=Rcompruebanatural(contenido.substring(posicion,contenido.length)); 
	  numdecimales = contenido.length-posicion
      if (!aux && valor==1)
         {
         valor=5;
         }
      if (!aux)
         posicion+=posicionpunto+1;
      }
   return aux;
   }
  


//-->