// se comprueba que es un nro entero
function EsNumeroEntero(sNumero){
	var iLongitud=sNumero.length, iAscii;
	iAscii=sNumero.charCodeAt(0);
	if (!(((iAscii > 47) && (iAscii < 58)) || (iAscii == 43) || (iAscii == 45))) return false;
	for (i=1;i<iLongitud;i++){
		iAscii=sNumero.charCodeAt(i);
		if (!( ((iAscii > 47) && (iAscii < 58)) )) return false;
	}
	return true;
}

// se comprueba si el argumento es una contraseña
function EsClave(sCadena){
	var filter=/^[a-z0-9_ñ]{6,14}$/i;
	if (filter.test(sCadena)) return true;
	else return false;
}

// se comprueba si el argumento es un valor alfanumérico
function EsAlfanumerico(sCadena){
	var filter=/^[a-z0-9_ñ]+$/i;
	if (filter.test(sCadena)) return true;
	else return false;
}

// se comprueba que el argumento tenga el formato de fecha
function checkeafecha(Campo){
	var EltoCampo = eval('document.principal.'+Campo);
//	window.onerror=null // for all other strange errors
	var err=0
	var psj=0;
	a=EltoCampo.value
	if (a.length != 10) err=1
	d = a.substring(0, 2)// day
	c = a.substring(2, 3)// '/'
	b = a.substring(3, 5)// month
	e = a.substring(5, 6)// '/'
	f = a.substring(6, 10)// year

	//basic error checking
	if (b<1 || b>12) err = 1
	if (c != '/') err = 1
	if (d<1 || d>31) err = 1
	if (e != '/') err = 1
	if (f < 0 || f > 9999) err = 1

	//advanced error checking

	// months with 30 days
	if (b==4 || b==6 || b==9 || b==11){
		if (d==31) err=1
	}

	// february, leap year
	if (b==2){
		// feb
		var g=parseInt(f/4)
		if (isNaN(g)) {
			err=1
		}

		if (d>29) err=1
		if (d==29 && ((f/4)!=parseInt(f/4))) err=1
	}

	if (err==1){
		return 0;
	}
	else{
		return 1;//bien
	}

}

// Indica en el elto argumento la fecha actual
function PonFecha(Campo){
	var EltoCampo = eval('document.principal.'+Campo);
	browser = navigator.appName;
	ie = "Microsoft Internet Explorer";
	hoy = new Date();
	dia=hoy.getDate();
	if (dia<10) dia="0" + dia;
	mes=hoy.getMonth() + 1;
	if (mes<10) mes="0" + mes;
	ano=hoy.getYear();
	if (browser != ie) ano = ano + 1900;//el netscape p.e. necesita sumar 1900
	EltoCampo.value=dia + "/" + mes + "/" + ano;
}

function ValidaEMail(direccion){
	var filter=/^.+@.+\..{2,3}$/
	if (filter.test(direccion)) return true;
	else return false;
}

// se comprueba que el valor del campo arg2 no sea mayor que el arg1
function ControlLongitud(iNumero,cuadro){
	var sValor,sAccion;
	sValor=cuadro.value;
	if (sValor.length > iNumero) {
		sAccion=confirm ("No puede introducir más de " + iNumero + " caracteres, acepte si desea acotar el texto introducido");
		if (sAccion==true){ 
			cuadro.focus();
		}
	}
}

//se prueba que el argumento tenga el formato de una imagen: jpg o gif
function ContrImagen(sImagen){
	var iLongitud=sImagen.length;
	var sExtension=sImagen.substring(iLongitud-4,iLongitud);//coge la extensión
	sExtension=sExtension.toLowerCase();//a minúsculas
	if ((sExtension!=".gif") && (sExtension!=".jpg")) return 1;
	else return 0;
}

//se prueba que el argumento tenga el formato de una imagen jpg
function ContrImagenJPG(sImagen){
	var iLongitud=sImagen.length;
	var sExtension=sImagen.substring(iLongitud-4,iLongitud);//coge la extensión
	sExtension=sExtension.toLowerCase();//a minúsculas
	if (sExtension!=".jpg") return 1;
	else return 0;
}