// JavaScript Remote Document
var XMLLinea;
var XMLPtroLinea;
var XMLDefLinea;
var XMLSerLinea;
var XMLLineaEnt;
var XMLDefLineaEnt;
var XMLPosAccion;

function XMLDepenBegin(){
    XMLLinea=new Array();
    XMLPtroLinea=-1;
    XMLPosAccion=0;
    XMLDefLinea=new Array();
    XMLSerLinea=new Array();
    XMLLineaEnt=new Array();
    XMLDefLineaEnt=new Array();
}

function InsertDepen(Objeto, Tipo, busqueda, ObjEntrada, ObjTipo){
    XMLPtroLinea++;    
    XMLLinea[XMLPtroLinea]=Objeto;
    XMLDefLinea[XMLPtroLinea]=Tipo;
    XMLSerLinea[XMLPtroLinea]=busqueda;    
    XMLLineaEnt[XMLPtroLinea]=ObjEntrada;
    XMLDefLineaEnt[XMLPtroLinea]=ObjTipo;
}

function getURL(Linea){    
    var retorno="";
    var TAsig;
    var XParam=XMLSerLinea[Linea].split("|") //split using blank space as delimiter    
    for (i=0; i<XParam.length; i++)
       if (i==0){
            retorno=XParam[0];
        }else{
            TAsig=getValue(XMLLinea[i-1],XMLDefLinea[i-1],1);
            retorno+=XParam[i]+"="+TAsig+"&";
        }
    retorno=retorno.substring(0,retorno.length-1);  	
    return retorno;
}

function Extraer(Linea){        
	var url=getURL(Linea);        
    XMLPosAccion=Linea;
   	if (window.XMLHttpRequest) {
            req = new XMLHttpRequest();
   	} else if (window.ActiveXObject) {
            req = new ActiveXObject("Microsoft.XMLHTTP");
   	}
        req.open("GET", url, true);   	
	req.onreadystatechange = callback;
        req.send(null);
}

function callback() {
    if (req.readyState == 4) {
        if (req.status == 200) {           
            if (XMLPtroLinea>=XMLPosAccion){
				if (XMLDefLineaEnt[XMLPosAccion]=="combo"){
                    ClearCombos(XMLLineaEnt[XMLPosAccion]);
                    CargarDatos(XMLLineaEnt[XMLPosAccion],XMLDefLineaEnt[XMLPosAccion],XMLPosAccion);
                }                    
            }
        }
    }
}
function CargarDatos(Tipo,Modo,Pos){
	var MiXML = req.responseXML.getElementsByTagName("Lista")[0];
	var Error= MiXML.getAttribute("Items");
	var Itemx;
	var Contenido;
	if (Error=="0"){		
		alert(MiXML.childNodes[0].getAttribute("abrev"));
		return false;
	}
	var Bucle= MiXML.childNodes;
	if (Modo=="combo"){
		for (i=0;i<Bucle.length;i++){		
			Itemx = document.createElement('option');			
            Itemx.value = Bucle[i].getAttribute("id");
            Itemx.selected=false;
            Contenido=document.createTextNode(Bucle[i].getAttribute("abrev"));	
            Itemx.appendChild( Contenido );
            Tipo.appendChild(Itemx);			
		}                
		if (Pos<XMLPtroLinea){
        	   Extraer(Pos+1);				
		}
	}
	if (Modo=="texto"){
		for (i=0;i<Bucle.length;i++){			
			Contenido=Bucle[i].firstChild.nodeValue;
		}
		InsertData(window.document, "span",Tipo, Contenido);
	}	
}