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 = "El campo \"" + Etiqueta + "\" no puede quedar vacio.";
		Error = false;	    
	}
	else {
		if (ExpresionRelativa.test(MensajeObjeto)) {
			if ((objTexto.value.length < Min)|| (objTexto.value.length > Max))	{
				MensajeDeAlerta = "El campo \"" + Etiqueta + "\" debe estar comprendido entre " + Min + "  y " + Max + " caracter(es).";
				Error = false;
			}
		}
		else {
			MensajeDeAlerta = "En el campo \"" + Etiqueta + "\" ocurrio un mal ingreso de datos.";
			Error = false;
		}
	}		
	
	if (Error == false) {
		alert('Error en ['+ 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 = "El campo \"" + Etiqueta + "\" no puede quedar vacio.";
		Error = false;	    
	}
	else {
		if (Max > 0)	{
			if ((MensajeObjeto.length < Min)||(MensajeObjeto.length > Max))	{
				MensajeDeAlerta = "El campo \"" + Etiqueta + "\" debe estar comprendido entre " + Min + "  y " + Max + " caracter(es).";
				Error = false;
			}
		}
		else  {
			if (MensajeObjeto.length < Min)	{
				MensajeDeAlerta = "El campo \"" + Etiqueta + "\" debe estar comprendido como mínimo de " + Min + " caracteres.";
				Error = false;
			}
		}
		if (InStr(0,MensajeObjeto, "'")!=0)  {
			MensajeDeAlerta = "En el campo \"" + Etiqueta + "\" ocurrio un mal ingreso de datos.";
			Error = false;
		}
	}	

	if (Error == false) {
		alert('Error en ['+ 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 = "El campo " + Etiqueta + " no puede quedar vacio.";
		Error = false;
	}
	else  {
			if (!Expresion.test(MensajeObjeto)) {
				MensajeDeAlerta = "El campo " + Etiqueta + " no esta correctamente ingresado.";
				Error = false;
			}
	}
	
	if (Error == false) {
		alert('Error en ['+ Etiqueta + ']\n\n' + MensajeDeAlerta);
		objTexto.select();
		objTexto.focus();
		return (false);
	}

	return (true);
}