function IsText(field) {
	var valid = "ABCDEFGHIJKLMNOPQRSTUVWXYZÑÁÉÍÓÚ ,."
	var ok = "yes";
	var temp;
	if (field.value == "") return false; 
	for (var i=0; i<field.value.length; i++) {
		temp = "" + field.value.substring(i, i+1).toUpperCase();
		if (valid.indexOf(temp) == "-1") ok = "no";
	}
	if (ok == "no") {
		return false;
	} else {
		return true;
	}
}

function IsNumber(field) {
	var valid = "0123456789.,%-"
	var ok = "yes";
	var temp;
	if (field.value == "") return false; 
	for (var i=0; i<field.value.length; i++) {
		temp = "" + field.value.substring(i, i+1);
		if (valid.indexOf(temp) == "-1") ok = "no";
	}
	if (ok == "no") {
		return false;
	} else {
		return true;
	}
}

/*
function IsEmail(field) {
	if ((field.value == "") || 
(field.value.indexOf('@') == -1) || 
(field.value.indexOf('.') == -1)) {
		return false;
	} else {
		return true;
	}
} */

function IsEmail (emailStr) {
	var emailPat=/^(.+)@(.+)$/
	var specialChars="\\(\\)<>@,;:\\\\\\\"\\.\\[\\]"
	var validChars="\[^\\s" + specialChars + "\]"
	var quotedUser="(\"[^\"]*\")"
	var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/
	var atom=validChars + '+'
	var word="(" + atom + "|" + quotedUser + ")"
	var userPat=new RegExp("^" + word + "(\\." + word + ")*$")
	var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$")


	var matchArray=emailStr.match(emailPat)
	if (matchArray==null) {
		alert("El email ingresado es incorrecto. Verifíquelo.")
		return false
	}
	var user=matchArray[1]
	var domain=matchArray[2]

	if (user.match(userPat)==null) {
		alert("El texto a la izquierda del @ no parece ser válido. Verifíquelo.")
		return false
	}

	var IPArray=domain.match(ipDomainPat)
	if (IPArray!=null) {
		  for (var i=1;i<=4;i++) {
			if (IPArray[i]>255) {
				alert("La IP destino es inválida.")
			return false
			}
		}
		return true
	}

	var domainArray=domain.match(domainPat)
	if (domainArray==null) {
		alert("El dominio no parece ser válido. Verifíquelo.")
		return false
	}

	var atomPat=new RegExp(atom,"g")
	var domArr=domain.match(atomPat)
	var len=domArr.length
	if (domArr[domArr.length-1].length<2 || 
		domArr[domArr.length-1].length>3) {
	   alert("La dirección debe finalizar con tres letras del dominio o dos letras del país.")
	   return false
	}

	if (len<2) {
	   var errStr="Este email carece de dominio."
	   alert(errStr)
	   return false
	}

	return true;
}

function IsSelected(field)  {
	var myindex=field.selectedIndex;
	if (myindex == -1 ) {
			return false;	
	} else {
		if (field.options(myindex).value =="") {
			return false;	
		} else {
			return true;
		}
	}
}

function IsValidDate(intYear, intMonth, intDay, required) {
	if (isNaN(intYear)  || isNaN(intMonth) || isNaN(intDay)) {
		return false;
	}	
	if (intYear=="" && intMonth=="" && intDay=="" && required==0) {
		return true;
	}	
	if (intYear< 1900 || intDay< 1) {
		return false;
	}
	if (intMonth< 1 || intMonth > 12) {
		return false;
	}
	if ((intYear=="" || intMonth=="" || intDay=="") && ((intYear+intMonth+intDay!="") || required==1)) {
		return false;
	}	
	if ((intMonth == 1 || intMonth == 3 || intMonth == 5 || intMonth == 7 || intMonth == 8 || intMonth == 10 || intMonth == 12) && (intDay > 31)) {
		return false;
	}
	if ((intMonth == 4 || intMonth == 6 || intMonth == 9 || intMonth == 11) && (intDay > 30)) {
		return false;
	}
	if (intMonth == 2) {
		if (LeapYear(intYear) == true) {
			if (intDay > 29) {
				return false;
			}
		} else {
			if (intDay > 28) {
				return false;
			}
		}
	}
	return true;
}

function LeapYear(intYear) {
	if (intYear % 100 == 0) {
		if (intYear % 400 == 0) { return true; }
	} else {
		if ((intYear % 4) == 0) { return true; }
	}
	return false;
}
function Trim(Text) {
	var Text2;
	Text2 = Text;
	Text2 = RTrim(LTrim(Text2));
	return Text2;	
}
function LTrim(Text) {
	var Text2;
	Text2 = Text;
	while(''+Text2.charAt(0)==' ')Text2=Text2.substring(1,Text2.length);
	return Text2;
}

function RTrim(Text) {
	var Text2;
	Text2 = Text;
	while(''+Text.charAt(Text2.length-1)==' ')Text2=Text2.substring(0,Text2.length-1);
	return Text2;
}
	
function alerta(mensaje,titulo,icono,boton,form,campo)
{
	var ur,propiedades,largo,ancho;
	
	alto=110;
	ancho=(mensaje.length)*10;

	if(!titulo)
		titulo="";
	if(!boton)
		boton=0;
	if(!form)
		form=document.forms[0].name;
	if(!icono)
		icono="/npkplus/image/info.gif";
	ur="/npkplus/mensaje.php?mensaje=" + mensaje;
	ur+="&titulo="+titulo;
	ur+="&boton=" + boton;
	ur+="&icono=" + icono;
	ur+="&campo=" + campo;
	ur+="&form=" + form;

	propiedades="toolbar=0,location=0,status=0,menubar=0,";
	propiedades+="scrollbars=0,resizable=0,";
	propiedades+="width=" + ancho;
	propiedades+=",height=" + alto;
	propiedades+=",top=" + self.screen.height/2.5;
	propiedades+=",left=" + self.screen.width/2.5;
	window.open(ur,'',propiedades);
}

function formatXML(cadena)
{
    cadena=cadena.toString();
    cadena=cadena.replace("&", "&amp;"); 
    cadena=cadena.replace("<", "&lt;"); 
    cadena=cadena.replace(">", "&gt;"); 
    //cadena+=cadena.replace("""", "&quot;");
    cadena=cadena.replace("´", "&apos;"); 
    cadena=cadena.replace("'", "&apos;");
    cadena=cadena.replace("á", "&#225;"); 
    cadena=cadena.replace("é", "&#233;"); 
    cadena=cadena.replace("í", "&#237;"); 
    cadena=cadena.replace("ó", "&#243;"); 
    cadena=cadena.replace("ú", "&#250;"); 
    cadena=cadena.replace("ñ", "&#241;"); 
    cadena=cadena.replace("Á", "&#193;"); 
    cadena=cadena.replace("É", "&#201;"); 
    cadena=cadena.replace("Í", "&#205;"); 
    cadena=cadena.replace("Ó", "&#211;"); 
    cadena=cadena.replace("Ú", "&#218;"); 
    cadena=cadena.replace("Ñ", "&#209;"); 
    cadena=cadena.replace("ø", "&#248;"); 
    return cadena;
}