// JavaScript Document
<!--
	var aNumeros1 = '0123456789';
	var aNumeros2 = '0123456789.,';
	var aMinusculas1 = 'abcdefghijklmnñopqrstuvwxyz';
	var aMayusculas1 = 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ';
	var aEspeciales1 = '-_$&*';

	function esVacio(oCampo, sAviso){
		with(oCampo){
			if (value == null || value == ""){
				if(sAviso != null & sAviso!= "") alert(sAviso);
				return true;
			}
			else return false;
		}
	} 

	function esObligatorio(oCampo, sAviso){
		if(esVacio(oCampo)){
			if(sAviso != null & sAviso!= "") alert(sAviso);	return false;
		}
		else return true
	}
	
	function esNumerico(oCampo, nLongitudMin, sAviso){
		var i, car;
		
		if(oCampo.value.length < nLongitudMin && nLongitudMin > 0){
				alert("El campo " + oCampo.id + " ha de tener como mínimo " + nLongitudMin + " caracteres.");
				return false;
		}
		else{
			for (i = 0; i < oCampo.value.length; i++){
				car = oCampo.value.charAt(i);
				if(aNumeros1.indexOf(car) == -1){
					if(sAviso != null & sAviso!= "") alert(sAviso);
					return false;
				}
			}
		}
		
		return true;
	}
	
	function esCantidad(oCampo, nLongitudMin, sAviso){
		var i, car;
		
		if(oCampo.value.length < nLongitudMin && nLongitudMin > 0){
				alert("El campo " + oCampo.id + " ha de tener como mínimo " + nLongitudMin + " caracteres.");
				return false;
		}
		else{
			for (i = 0; i < oCampo.value.length; i++){
				car = oCampo.value.charAt(i);
				if(aNumeros2.indexOf(car) == -1){
					if(sAviso != null & sAviso!= "") alert(sAviso);
					return false;
				}
			}
		}
		
		return true;
	}
	
	function esClave(oCampo, nLongitudMinClave, sAviso){
		var i, car;
		
		if(!esVacio(oCampo, sAviso)){
			if(oCampo.value.length < nLongitudMinClave && nLongitudMinClave > 0){
				alert("El campo " + oCampo.id + " ha de tener como mínimo " + nLongitudMinClave + " caracteres.");
				return false;
			}
			else{
				for (i = 0; i < oCampo.value.length; i++){
					car = oCampo.value.charAt(i);
					if(aNumeros1.indexOf(car) == -1 && aMinusculas1.indexOf(car) == -1 && aMayusculas1.indexOf(car) == -1 && aEspeciales1.indexOf(car) == -1){
						if(sAviso != null & sAviso!= "") alert(sAviso);
						return false;
					}
				}
			}
		}
		else return false;
		
		return true;
	}
	
	function validar_fecha(oCampo, sAviso){ 
		var sFecha, bFechaCorrecta;
	
		sFecha = oCampo.value;
		bFechaCorrecta = true;
		if ((sFecha.substr(2,1) == '/') && (sFecha.substr(5,1) == '/')){      
			for (i = 0; i < 10; i++){	
				if (((sFecha.substr(i,1) < '0') || (sFecha.substr(i,1) > '9')) && (i != 2) && (i != 5)){
					bFechaCorrecta = false;
					break;
				}  
			}
			if(bFechaCorrecta){ 
				a = sFecha.substr(6,4);
				m = sFecha.substr(3,2);
				d = sFecha.substr(0,2);
				if((a < 1900) || (a > 2050) || (m < 1) || (m > 12) || (d < 1) || (d > 31))
				   bFechaCorrecta = false;
				else{
					if((a%4 != 0) && (m == 2) && (d > 28))	   
					  bFechaCorrecta = false;
					else{
					  if ((((m == 4) || (m == 6) || (m == 9) || (m == 11)) && (d > 30)) || ((m == 2) && (d > 29)))
						 bFechaCorrecta = false;	      				  	 
					}
				}
			}
		}
		else
			bFechaCorrecta = false;
		if(bFechaCorrecta){
			return true;
		}
		else{
			if(sAviso != null & sAviso!= "")
				alert(sAviso);
			return false;
		}
	}
	
	function esMail(oCampo, sAviso){
		var nPosArroba, nPosPunto;
		
		with(oCampo){
			nPosArroba = value.indexOf("@");
			nPosPunto = value.lastIndexOf(".");
			if (nPosArroba < 1 || nPosPunto - nPosArroba < 2){
				if(sAviso != null & sAviso!= "")
					alert(sAviso);
				return false;
			}
			else{
				return true;
			}
		}
	}
	
	function aPos(sValor, aArray){
		var i, bNoEncontrado;
		
		i = 0;
		bNoEncontrado = true;
		while(i < aArray.length && bNoEncontrado){
			if(aArray[i] == sValor){
				bNoEncontrado = false;
			}
			else{
				i++;
			}
		}
		if(bNoEncontrado)
			return -1;
		else
			return i;
	}
	
	function limpiar_cadena(oCampo){
		var sCadena, sCadenaAux, aCaracteres, i;
		
		// Falta eliminar espacios en blanco y comilla doble
		sCadena = oCampo.value;
		sCadenaAux = "";
		aCaracteres = new Array("'","`","´");
		for(i = 0; i < sCadena.length; i++){
			if(aPos(sCadena[i],aCaracteres) != -1 || sCadena[i] == " "){
			}
			else{
				sCadenaAux += sCadena[i];
			}
		}
		return sCadenaAux;
	}
-->