// Validaciones generales de valores
// (c) 2001, Fernando Sengáriz
// Dpto. Diseño
// Mundivía, S.A.
// 27-11-2001

function Cadena_Numerica (num) {
 var cont = 0;
 for (var i = 0; i < num.length; i++) {
	if (num.charAt(i) < "0" || num.charAt(i) > "9") {
		if (num.charAt(i) == ".")
			if (cont == 1) return false;	
				  else cont=1;
		else return false;
	}
 }
 if (num == "." || num == "") return false;
 return true;
}

function valida_numero (num, len) {
 if (Cadena_Numerica(num) && num.length == len) return true;
 return false;
}

function letra_nif (dni) {
 var cadena = 'TRWAGMYFPDXBNJZSQVHLCKET';
 var posicion = dni % 23;
 return(cadena.charAt(posicion));
}

function valida_nif (nif) {
 num = nif.substr(0,nif.length-1);
 letra = nif.substr(nif.length-1,1);
 if (nif.length != 9) return false;
 if (!Cadena_Numerica(num)) return false;
 if (letra.toUpperCase() == letra_nif(num)) return true;
 return false;
}

function valida_email (email) {
 if (email.indexOf("@")!=-1 && email.indexOf(".")!=-1) return true;
 return false;
}

function valida_fecha (fecha) {
 if (fecha.length == 10 && fecha.substr(2,1)=="/" && fecha.substr(5,1)=="/" && Cadena_Numerica(fecha.substr(0,2)) && Cadena_Numerica(fecha.substr(3,2)) && Cadena_Numerica(fecha.substr(6,4))) return true;
 return false;
}

function valida_telefono (tlfno) {
 if (valida_numero(tlfno,9)) return true;
 return false;
}

function valida_cp (cp) {
 if (valida_numero(cp,5)) return true;
 return false;
}

function valida_cuenta (e,s,d,c) {
 if (!valida_numero(e,4)) return false;
 if (!valida_numero(s,4)) return false;
 if (!valida_numero(d,2)) return false;
 if (!valida_numero(c,10)) return false;
 return true;
}