var _ajax=TAjax();

solicitarLISTA_ACCESO_PAG();
/*document._getElementById = document.getElementById;   
document.getElementById = function(id) { 
 return document._getElementById(id.toUpperCase());	
}*/

function solicitarLISTA_ACCESO_PAG(){
	var lPar='&SERVICIO=LISTA_ACCESO_PAG';
	lPar=lPar+'&URL='+window.location.href;
	peticionAjax('../SOAP/SOAP_PKG_SEGURIDAD_WWW.PHP',lPar,recibirLISTA_ACCESO_PAG,true);
}

function recibirLISTA_ACCESO_PAG(){
  if (respuestaAjax()){
     var lXML=resultadoAjax();
     if (getTexto(lXML,'RESULT')>0){
				 getJs(lXML,'ACLIMITACIONES');
     }
  }
}

function TAjax() { 
  try { 
    TAjax = new ActiveXObject("Msxml2.XMLHTTP"); 
  } catch (e) { 
     try { 
        TAjax= new ActiveXObject("Microsoft.XMLHTTP"); 
     } catch (E) { 
        TAjax= false; 
       } 
    } 
  if (!TAjax && typeof XMLHttpRequest!='undefined') { 
       TAjax = new XMLHttpRequest(); 
  } 
  return TAjax; 
} 

function addEvent(aElemento,asEvento,aFuncion,abCaptura){
  if (aElemento.attachEvent)
  {
    aElemento.attachEvent('on'+asEvento,aFuncion);
    return true;
  } else {
    if (aElemento.addEventListener)
    {
      aElemento.addEventListener(asEvento,aFuncion,abCaptura);
      return true;
    } else {
      return false;
    }
  }
}

function peticionAjax(asURL,asValores,aFuncion,abConcurrente){
 _ajax.open("POST",asURL+'?',abConcurrente); 
 _ajax.setRequestHeader('Content-Type','application/x-www-form-urlencoded'); 
 _ajax.send(encodeURI(asValores)); 
 _ajax.onreadystatechange=aFuncion;
}

function respuestaAjax(){
	if (_ajax.readyState==4) {
      if(_ajax.status==200) {
      	 return true;
      } else {
 							alert(_ajax.status);
						}
  }
  return false;  
}

function resultadoAjax(){
	return _ajax.responseXML;
}

function getXML(aXML,asTag){
	return aXML.getElementsByTagName(asTag);
}

function getTexto(aXML,asTag){
	lXML=getXML(aXML,asTag); 
	ls=lXML.item(0).firstChild.data;
	i1=ls.indexOf('<![CDATA[');	
	if(i1==-1){
		 return ls; 
	} else {
		 i1=i1+9; 
	   i2=ls.indexOf(']]>',i1);  
	   if(i2==-1){
	   	 i2=ls.length();
	   } 
	   return ls.substr(i1,i2);
	}
}

function getHtml(aXML,asTag,aCapa){
	aCapa.innerHTML=getTexto(aXML,asTag);
}

function getJs(aXML,asTag){
	eval(getTexto(aXML,asTag));
}