function ValidarCadena(objTexto,Etiqueta, Min,Max,TipoEvaluar)  {
	var MensajeDeAlerta;
	var Error= true;
	var MensajeObjeto = objTexto.value;  

	if (TipoEvaluar=='Numerico')  {
		ExpresionRelativa = /^[0-9]+$/
	}

	if (TipoEvaluar=='Alfabetico')  {
		ExpresionRelativa = /^([\a-z\A-Z\ñ\Ñ\á\é\í\ó\ú\Á\É\Í\Ó\Ú]+ ?)+[\a-z\A-Z\ñ\Ñ\á\é\í\ó\ú\Á\É\Í\Ó\Ú]+$/
	}
		
	if (TipoEvaluar=='AlfaNumerico')  {
		ExpresionRelativa = /^([\w\ñ\Ñ\á\é\í\ó\ú\Á\É\Í\Ó\Ú]+ ?)+[\w\ñ\Ñ\á\é\í\ó\ú\Á\É\Í\Ó\Ú]+$/
	}		

	if (TipoEvaluar=='SoloAlfaNumerico')  {
		ExpresionRelativa = /^[\w\ñ\Ñ\á\é\í\ó\ú\Á\É\Í\Ó\Ú]+$/
	}

	if (TipoEvaluar=='AlfaNumericoGeneral')  {
		ExpresionRelativa = /^([\w\ñ\Ñ\á\é\í\ó\ú\Á\É\Í\Ó\Ú]+ ?[-_\°ª\".#@()&]? ?)+$/ 
	}
	
	if (TipoEvaluar=='Usuario')  {
		ExpresionRelativa = /^([\w\ñ\Ñ]+[\ñ\Ñ\-\_]?)+$/
	}
	
	if (TipoEvaluar=='Contrasenha')  {
		ExpresionRelativa = /^[\a-z\0-9\_\-\ñ]+$/
	}

	if (TipoEvaluar=='NombreArchivo')  {
		ExpresionRelativa = /^[\a-z\0-9\_\-\ñ]+\.[\a-z\0-9]+$/
	}
	
	if ((MensajeObjeto.length == 0)||(Trim(MensajeObjeto)==' '))	{ 
		MensajeDeAlerta = "\"" + Etiqueta + "\" is not empty.";
		Error = false;	    
	}
	else {
		if (ExpresionRelativa.test(MensajeObjeto)) {
			if ((objTexto.value.length < Min)|| (objTexto.value.length > Max))	{
				MensajeDeAlerta = "\"" + Etiqueta + "\" is between " + Min + "  and " + Max + " characters.";
				Error = false;
			}
		}
		else {
			MensajeDeAlerta = "\"" + Etiqueta + "\"  not format admitted.";
			Error = false;
		}
	}		
	
	if (Error == false) {
		alert('Error in ['+ Etiqueta + ']\n\n' + MensajeDeAlerta);              
		objTexto.select();
		objTexto.focus();
		return (false);
	}

	return (true);
}

function ValidarCadenaMemo(objTexto,Etiqueta, Min,Max)  {
	var MensajeDeAlerta;
	var Error= true;
    var MensajeObjeto = objTexto.value;  
    
	if ((MensajeObjeto.length == 0)||(Trim(MensajeObjeto)==' '))	{ 
		MensajeDeAlerta = "\"" + Etiqueta + "\"  is not empty.";
		Error = false;	    
	}
	else {
		if (Max > 0)	{
			if ((MensajeObjeto.length < Min)||(MensajeObjeto.length > Max))	{
				MensajeDeAlerta = "\"" + Etiqueta + "\" is between " + Min + "  and " + Max + " characters.";
				Error = false;
			}
		}
		else  {
			if (MensajeObjeto.length < Min)	{
				MensajeDeAlerta = "\"" + Etiqueta + "\" minimum " + Min + " characters.";
				Error = false;
			}
		}
		if (InStr(0,MensajeObjeto, "'")!=0)  {
			MensajeDeAlerta = "\"" + Etiqueta + "\" not format admitted.";
			Error = false;
		}
	}	

	if (Error == false) {
		alert('Error in ['+ Etiqueta + ']\n\n' + MensajeDeAlerta);
		objTexto.select();			
		objTexto.focus();
		return (false);
	}

	return (true);
}


function ValidarEmail(objTexto, Etiqueta) {
	var Error;
	var MensajeDeAlerta;
	var Expresion = /^[0-9a-z0-9-][0-9a-z_0-9-\.]+@[0-9a-z_0-9-\.]+\.[a-z]+\.?[a-z]?$/;
	var MensajeObjeto = objTexto.value; 
	
	Error = true;
	
	if ((MensajeObjeto.length == 0)||(Trim(MensajeObjeto)==' ')) {
		MensajeDeAlerta = "" + Etiqueta + " is not empty.";
		Error = false;
	}
	else  {
			if (!Expresion.test(MensajeObjeto)) {
				MensajeDeAlerta = "" + Etiqueta + " not format admitted.";
				Error = false;
			}
	}
	
	if (Error == false) {
		alert('Error in ['+ Etiqueta + ']\n\n' + MensajeDeAlerta);
		objTexto.select();
		objTexto.focus();
		return (false);
	}

	return (true);
}


function ValidarLista(objLista,Etiqueta)  {
	var MensajeDeAlerta;
	var Error = true;

	if (objLista.value == 0) {
		MensajeDeAlerta = "Select option list \"" + Etiqueta + "\"";
		Error= false;
	}
	if (Error == false) {
		alert('Error en ['+ Etiqueta + ']\n\n' + MensajeDeAlerta);
		objLista.focus();
		return (false);
	}

	return (true);
}

function ValidarTelefono(objTexto, Etiqueta, Min, Max) {
	var MensajeDeAlerta;
	var Error= true;
	var MensajeObjeto = objTexto.value; 
	
	Expresion = /^([(]?\d+([ -]?\d+)[)]?[ -]?\d+([ -]?\d+) ?[\/\-]? ?)*\d$/ 

	if ((MensajeObjeto.length == 0)||(Trim(MensajeObjeto)==' '))  {
		MensajeDeAlerta = "\"" + Etiqueta + "\" is not empty.";
		Error = false;
	}
	else  {
		if (Expresion.test(MensajeObjeto)) {
			if ((MensajeObjeto.length < Min) || (MensajeObjeto.length > Max)) {
				MensajeDeAlerta = "\"" + Etiqueta + "\" is between \"" + Min + "\" y \"" + Max + "\" numbers.";
				Error= false;
			}
		}
		else {
			MensajeDeAlerta = "\"" + Etiqueta + "\" not format admitted.";
			Error= false;
		}
	}
	
	if (Error == false) {
		alert('Error in ['+ Etiqueta + ']\n\n' + MensajeDeAlerta);
		objTexto.select();
		objTexto.focus();
		return (false);
	}

	return (true);
}