function VerificarMail(strMail) {
	var patMail = /^(.+)@(.+)$/;
	var patUser = /^[a-zA-Z\d_-]+(\.[a-zA-Z\d_-]+)*$/;
	var patDomainIP = /^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/;
	var patDomain = /^[a-zA-Z\d_-]+(\.[a-zA-Z\d_-]+)+$/;
	var matchArray = strMail.match(patMail);
	if(matchArray == null){return false;}
	var user = new String(matchArray[1]);
	var domain = new String(matchArray[2]); 
	if(user.match(patUser) == null){return false;}
	var IPArray = domain.match(patDomainIP);
	if(IPArray != null){ 
		 for (var i=1;i<=4;i++) {
		  if(IPArray[i]>255){return false;}
		 }
		 return true; 
	}
	var domainArray = domain.match(patDomain);
	if(domainArray == null) {return false;}
	if(domainArray[domainArray.length - 1].length < 3 || domainArray[ domainArray.length - 1].length > 5) { return false;}
	return true;
}
function validarEntero(valor){
	if(valor!=0){
		valor = parseInt(valor);
		if (isNaN(valor)) {
			return "";
		}
	}
	return valor;
}
function set_int(valor){
	valor = '' + valor;
	valor = trim(valor);
	if(valor.length>0){
	  valor = parseInt(valor);
	  if (isNaN(valor)) {
			return 0;
	  }
	}else{
		return 0;
	}
	return valor;
}
function ltrim(valor) {
	valor = '' + valor;
	if(valor.length>0){
		return valor.replace(/^\s+/, "");
	}else{
		return valor;
	}
}
function rtrim(valor) {
	valor = '' + valor;
	if(valor.length>0){
		return valor.replace(/\s+$/, "");
	}else{
		return valor;
	}
}
function trim(valor) {
	valor = '' + valor;
	if(valor.length>0){
		return rtrim(ltrim(valor));
	}else{
		return valor;
	}
}
function str_replace(haystack, needle, replacement) {
	if(haystack.indexOf(needle) != -1) {
		var temp = haystack.split(needle);
		return temp.join(replacement);
	}
	return haystack;
}