function AJAX_MM_findObj(n, d) 
{
	var p,i,x;
	if(!d) d=document;
	if((p=n.indexOf("?"))>0&&window.parent.frames.length) 
	{
		d=window.parent.frames[n.substring(p+1)].document; n=n.substring(0,p);
	}
	if(!(x=d[n])&&d.all)
		x=d.all[n];
	for (i=0;!x&&i<d.forms.length;i++)
		x=d.forms[i][n];
	for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
		x=AJAX_MM_findObj(n,d.layers[i].document);
	if(!x && d.getElementById) 
		x=d.getElementById(n);
	return x;
}
function WAJAX_validar(e) {
    tecla = (document.all) ? e.keyCode : e.which;
    if (tecla==8 || tecla==0) return true; //Tecla de retroceso (para poder borrar)
    patron = /\d|\./; //ver nota
    te = String.fromCharCode(tecla);
    return patron.test(te); 
} 
function WAJAX_revalid(obj)
{
	var cad="";
	for(i=0;i<obj.value.length;i++)
	{
		te=obj.value.substr(i,1).charCodeAt(0);
		if(te>=48 && te<=58)
			cad+=obj.value.substr(i,1);
		else if(obj.value.substr(i,1)=='.')
			cad+=obj.value.substr(i,1);
	}
	obj.value=cad;
}
function WAJAX_validareur(e) {
    tecla = (document.all) ? e.keyCode : e.which;
    if (tecla==8 || tecla==0) return true; //Tecla de retroceso (para poder borrar)
    patron = /\d|\,/; //ver nota
    te = String.fromCharCode(tecla);
    return patron.test(te); 
} 
function WAJAX_revalideur(obj)
{
	var cad="";
	for(i=0;i<obj.value.length;i++)
	{
		te=obj.value.substr(i,1).charCodeAt(0);
		if(te>=48 && te<=58)
			cad+=obj.value.substr(i,1);
		else if(obj.value.substr(i,1)==',')
			cad+=obj.value.substr(i,1);
	}
	obj.value=cad;
}
function ClearList(List){obj=AJAX_MM_findObj(List);if(!obj){return;}obj.innerHTML="";}function Makeajax(){var req=false;if(window.XMLHttpRequest && !(window.ActiveXObject)){try{req=new XMLHttpRequest();}catch(e){/*Error*/}}else if(window.ActiveXObject){  	try{req=new ActiveXObject("Msxml2.XMLHTTP");}catch(e){try{req=new ActiveXObject("Microsoft.XMLHTTP");}catch(e){/*Error*/}}}return req;}function AddEvent(variable,functionname,evento){var obj=variable;if(window.addEventListener){eval('obj.addEventListener("'+evento+'",'+functionname+',false);');}else{eval('obj.detachEvent("'+evento+'",'+functionname+',false);');}return obj;}function ShowHidediv(div,show){var obj=AJAX_MM_findObj(div);if(obj){if(show){obj.style.width="auto";obj.style.height="auto";obj.style.visibility="visible";}else{obj.style.height="1px";obj.style.width="1px";if(obj.style.overflow){obj.style.overflow="scroll";}obj.style.visibility="hidden";}}}function Hidediv(){ShowHidediv("divload",false);}function WAJAX(name){this.name=name;this.url="";this.apdiv=true;this.type="POST";this.divload="";this.dato="";this.async=true;this.username="";this.password="";this.xmlhttp=false;this.headers=new Array();this.headers['Header']=new Array();this.headers['Value']=new Array();this.error="";this.shDiv=function(Show){if(this.divload!="")ShowHidediv(this.divload,Show);};this.setHeader=function(Header,Value){if(this.xmlhttp){this.xmlhttp.setRequestHeader(Header,Value);}};this.send=function(){if(this.xmlhttp){if(this.dato!=""){this.xmlhttp.send(this.dato);}else{this.xmlhttp.send();}}};this.onOpen=function(){return;};this.onSend=function(){return;};this.onRecive=function(){return;};this.onError=function(){return;};this.onLoad=function(){return;};this.progress=function(){return;};this.Hnd=function(){if(this.xmlhttp){this.progress();	switch (this.xmlhttp.readyState){case 1:this.onOpen();break;case 2:this.onSend();break;case 3:this.onRecive();break;case 4:this.error="";if(this.apdiv==false){this.shDiv(false);}if(this.xmlhttp.status>207){switch(this.xmlhttp.status){case 404: this.error="Ups! no existe dirección";break;case 500: this.error="Ups! error en el servidor";break;default: this.error="Ups! error de procesamiento de página"+this.xmlhttp.status;}this.onError();}else{this.onLoad();}if(this.apdiv==true){this.shDiv(false);}this.xmlhttp.abort();break;}}};this.getText=function(){if(this.xmlhttp){return this.xmlhttp.responseText;}return "";};this.getXml=function(){if(this.xmlhttp){if(this.xmlhttp.responseXML){return this.xmlhttp.responseXML;}else{return false;}}return false;};this.open=function(type){if(this.username!=""){this.xmlhttp.open(type, this.url,this.async,this.username,this.password);}else{this.xmlhttp.open(type, this.url,this.async);}};this.sendGet=function(){if(this.xmlhttp){this.shDiv(true);this.open("GET");this.xmlhttp.send();}};this.sendPost=function(){if (this.xmlhttp){this.shDiv(true);this.open("POST");this.setHeader('Content-Type','application/x-www-form-urlencoded');this.send();}};this.openSend=function(){var i=0;if(this.xmlhttp){this.shDiv(true);this.open(this.type);for(i=0;i<this.headers['Header'].length;i++){this.setHeader(this.headers['Header'][i],this.headers['Value']);}this.send();}};this.arrayValuesxml=function(ftext,fvalue,err){if(!this.xmlhttp){return false;}xml=this.getXml();if(!xml){return false;}if(xml.getElementsByTagName(err).length>0){if(xml.getElementsByTagName(err)[0].textContent){alert(xml.getElementsByTagName(err)[0].textContent);}return false;}var info=new Array();for(i=0;i<xml.getElementsByTagName(fvalue).length;i++){text="";if(xml.getElementsByTagName(ftext)[i]){if(xml.getElementsByTagName(ftext)[i].textContent){text=xml.getElementsByTagName(ftext)[i].textContent;}else if(xml.getElementsByTagName(ftext)[i].firstChild){if(xml.getElementsByTagName(ftext)[i].firstChild.data){text=xml.getElementsByTagName(ftext)[i].firstChild.data;}}}value="";if(xml.getElementsByTagName(fvalue)[i]){if(xml.getElementsByTagName(fvalue)[i].textContent){value=xml.getElementsByTagName(fvalue)[i].textContent;}else if(xml.getElementsByTagName(fvalue)[i].firstChild){if(xml.getElementsByTagName(fvalue)[i].firstChild.data){value=xml.getElementsByTagName(fvalue)[i].firstChild.data;}}}	info[i]=new Array();info[i]['Value']=value;info[i]['Text']=text;}return info;};this.Loadlist=function(obj,ftext,fvalue,err){if(obj!="" && obj!="undefined"){if(this.xmlhttp){var xml=this.getXml();if(xml){if(xml.getElementsByTagName(err).length<=0){var s=AJAX_MM_findObj(obj);if(s){s.innerHTML="";for(i=0;i<xml.getElementsByTagName(ftext).length;i++){text="";if(xml.getElementsByTagName(ftext)[i]){if(xml.getElementsByTagName(ftext)[i].textContent){text=xml.getElementsByTagName(ftext)[i].textContent;}else if(xml.getElementsByTagName(ftext)[i].firstChild){if(xml.getElementsByTagName(ftext)[i].firstChild.data){text=xml.getElementsByTagName(ftext)[i].firstChild.data;}}}value="";if(xml.getElementsByTagName(fvalue)[i]){if(xml.getElementsByTagName(fvalue)[i].textContent){value=xml.getElementsByTagName(fvalue)[i].textContent;}else if(xml.getElementsByTagName(fvalue)[i].firstChild){if(xml.getElementsByTagName(fvalue)[i].firstChild.data){value=xml.getElementsByTagName(fvalue)[i].firstChild.data;}}}if(s.options){s.options[i]=new Option(" " + text + " ",value,false,false);}}}}}}}};this.close=function(){clearInterval(this.timer);};this.xmlhttp=Makeajax();if (!window.WAJAX){window.WAJAX=new Array();window.WAJAX.Version="1.0";window.WAJAX.Author="Rodrigo José Prado Mendoza";}window.WAJAX[this.name]=this;if(window.WAJAX[this.name]){this.timer=setInterval("window.WAJAX['" + this.name + "'].Hnd()",4);}}