function requerido(Forma) {
   for(i=1; i<requerido.arguments.length; i++)
        if(Forma.elements[requerido.arguments[i]].value==""){
            alert("Por favor llene todos los campos");
            Forma.elements[requerido.arguments[i]].focus();
            return false;
        }
   return true;
}



function ValidarMail(Forma){
   for(var j=1; j<ValidarMail.arguments.length; j++)
   {
    s= Forma.elements[ValidarMail.arguments[j]].value;
     if (s.indexOf("@") == -1)
	 {
            alert("Mail invalido: no se encontro arroba");
            Forma.elements[ValidarMail.arguments[j]].focus();
            return false;
     }
     else
	 {
			ch = s.substring(s.indexOf("@")-1,s.indexOf("@"));
			if(ch=="")
			{
				alert("Mail invalido: debe existir al menos un caracter antes de la arroba");
			    Forma.elements[ValidarMail.arguments[j]].focus();
	            return false;
			}

	 		ch = s.substring(s.indexOf("@")+1,s.indexOf("@")+2);
			if(ch=="" || ch==".")
			{
				alert("Mail invalido: debe existir al menos un caracter despues de la arroba");
			    Forma.elements[ValidarMail.arguments[j]].focus();
	            return false;
			}
	 }


	 if (s.indexOf(".") == -1)
	 {
            alert("Mail invalido: no se econtro punto despues de la arroba");
            Forma.elements[ValidarMail.arguments[j]].focus();
            return false;
     }

	at=false;
    dot=false;
    for (var i = 0; i < s.length; i++) {
        ch = s.substring(i, i + 1);

        if ((ch >= "A" && ch <= "Z") || (ch >= "a" && ch <= "z")
                || (ch == "@") || (ch == ".") || (ch == "_")
                || (ch == "-") || (ch >= "0" && ch <= "9")) {
                if (ch == "@"){

				  if (at)  {
            				alert("Mail invalido: no puede contener mas de 1 arroba");
				            Forma.elements[ValidarMail.arguments[j]].focus();
				            return false;
				         }
                  else at=true;
                }
                if ((ch==".") && at)
                   {
				   dot=true;
				   }
        }
        else
		 {
            alert("Mail invalido");
            Forma.elements[ValidarMail.arguments[j]].focus();
            return false;
         }
    }

   }
   return true;
}
function entero(forma){
   for(var i=1; i<entero.arguments.length; i++){

		s = forma.elements[entero.arguments[i]].value;

		for (var y = 0; y < s.length; y++) {

		ch = s.substring(y, y + 1);

		if (!(ch >= "0" && ch <= "9"))
		{
            alert("El tipo de dato del campo debe ser un numero entero");
            forma.elements[entero.arguments[i]].focus();
			return false;
        }

	}

}
return true;
}

function ValidarCadena(theForm){
   for(var j=1; j<ValidarCadena.arguments.length; j++)
   {
	s= theForm.elements[ValidarCadena.arguments[j]].value;
    for (var i = 0; i < s.length; i++) {
        ch = s.substring(i, i + 1)
        if (!((ch >= "A" && ch <= "Z") || (ch >= "0" && ch <= "9") || ch=="." || ch==" " || ch=="," || ch=="~"))
		{
         	alert("Todo texto se ingresa con mayusculas");
            theForm.elements[ValidarCadena.arguments[j]].focus();
            return false;
        }
		}
   return true;

   }
}