var sTablaS,sCamposTablaS,sTablaB,sCamposTablaB;
var iBulto;
var Arbol,Nodo;
var sReferencia,iExp;

function inicializarEventos(){
	sTablaB=document.getElementById('divBultos').innerHTML.toUpperCase();
	i=sTablaB.indexOf('<TR>')+4;
	j=sTablaB.indexOf('</TR>');
	sCamposTablaB=sTablaB.substring(i,j);
	sCamposTablaB=quitarEspacios(sCamposTablaB); 
	sCamposTablaB=replaceAll(sCamposTablaB,'</TH>','');
	sCamposTablaB=replaceAll(sCamposTablaB,'<TH>',',');
	sTablaS=document.getElementById('divSituaciones').innerHTML.toUpperCase();
	i=sTablaS.indexOf('<TR>')+4;
	j=sTablaS.indexOf('</TR>');
	sCamposTablaS=sTablaS.substring(i,j);
	sCamposTablaS=quitarEspacios(sCamposTablaS); 
	sCamposTablaS=replaceAll(sCamposTablaS,'</TH>','');
	sCamposTablaS=replaceAll(sCamposTablaS,'<TH>',',');
	solicitarLISTAEXPEDICIONESREF();
}

function ponerEnlacesSituacionesBulto(aTabla){
	for(var i=4;i<aTabla.cells.length;i+=4){
	    var lsBulto=aTabla.cells[i].innerHTML;
	    for(var j=0;j<4;j++){
 	       aTabla.cells[i+j].innerHTML='<a style="cursor:pointer" onClick="solicitarLISTASITUACIONESBULTO('+lsBulto+')">'+aTabla.cells[i+j].innerHTML+'</a>';
	    }
  }
}

function replaceAll(asTexto,asOld,asNew){
	while (asTexto.indexOf(asOld) != -1){
		  asTexto=asTexto.replace(asOld,asNew);
	}
	return asTexto;
}

function quitarEspacios(asTexto){
	while (asTexto.indexOf("\r\n") != -1){
		  asTexto=asTexto.replace("\r\n","");
	}
	while (asTexto.indexOf("\n") != -1){
		  asTexto=asTexto.replace("\n","");
	}
	return asTexto;
}

function borrarTabla(aDiv,asTabla,asNombreTabla){
	aDiv.innerHTML=asTabla;
	ltab=document.getElementById(asNombreTabla);
	ltab.className='tabla';
}

function Cargar(asReferencia)
{
	sReferencia=asReferencia;
	document.getElementById('edtReferencia').value=sReferencia;
}

function solicitarLISTAEXPEDICIONESREF(){
  var lPar='&SERVICIO=LISTAEXPEDICIONESREF';
  lPar=lPar+'&ASREFERENCIA='+sReferencia;
  lPar=lPar+'&ESTILO=VALORES';
  peticionAjax('../SOAP/SOAP_PKG_SEGUIMIENTOS_WWW.PHP',lPar,recibirLISTAEXPEDICIONESREF,true);
}

function recibirLISTAEXPEDICIONESREF(){
  if (respuestaAjax()){
     Arbol=resultadoAjax();
     if (getTexto(Arbol,'RESULT')>0){
        Arbol=getXML(Arbol,'ACLISTA')[0];
        Arbol=Arbol.getElementsByTagName('R');
        dibujarArbol();
        iExp=0;
        cargarNodo(0);
     }
  }
}

function solicitarLISTABULTOS(){
	if (Nodo.getElementsByTagName('BULTOS').length==0) {
	   var lCampos=Nodo.getElementsByTagName('C');
     var lPar='&SERVICIO=LISTABULTOS';
     lPar=lPar+'&ASIDEXPEDICION='+lCampos[0].firstChild.data;
     lPar=lPar+'&AIAGENTE='+lCampos[1].firstChild.data;
     lPar=lPar+'&ESTILO=TABLA';
     lPar=lPar+'&asColumnas='+sCamposTablaB;
     lPar=lPar+'&aid=GRDBULTOS';
     lPar=lPar+'&aiInicio=0';
     lPar=lPar+'&aiFilas=-1';
     peticionAjax('../SOAP/SOAP_PKG_SEGUIMIENTOS_WWW.PHP',lPar,recibirLISTABULTOS,true);
  } else{
  	 getHtml(Nodo,'BULTOS',document.getElementById('divBultos'));
     solicitarLISTASITUACIONES();	 
     ltab=document.getElementById('GRDBULTOS');
	   ltab.className='tabla';
	   ltab.border=1;
	   ponerEnlacesSituacionesBulto(ltab);
  }
}

function recibirLISTABULTOS(){
  if (respuestaAjax()){
     var lXML=resultadoAjax();
     if (getTexto(lXML,'RESULT')>0){
     	  var newel=Nodo.ownerDocument.createElement('BULTOS');
        lXML=getXML(lXML,'ACLISTA'); 
        var newtext=Nodo.ownerDocument.createTextNode(lXML.item(0).firstChild.data);
        newel.appendChild(newtext);              
        Nodo.appendChild(newel); 
        getHtml(Nodo,'BULTOS',document.getElementById('divBultos'));
        solicitarLISTASITUACIONES();     
        ltab=document.getElementById('GRDBULTOS');
	      ltab.className='tabla';
	      ltab.border=1;
	      ponerEnlacesSituacionesBulto(ltab);
     }
  }
}

function solicitarLISTASITUACIONES(){
     	var lCampos=Nodo.getElementsByTagName('C');
     	if (Nodo.getElementsByTagName('SITUACIONES').length==0) {
     		  var lPar='&SERVICIO=LISTASITUACIONES';
          lPar=lPar+'&ASIDEXPEDICION='+lCampos[0].firstChild.data;
          lPar=lPar+'&AIAGENTE='+lCampos[1].firstChild.data;
          lPar=lPar+'&ESTILO=TABLA';
          lPar=lPar+'&asColumnas='+sCamposTablaS;
          lPar=lPar+'&aid=GRDSITUACIONES';
          lPar=lPar+'&aiInicio=0';
          lPar=lPar+'&aiFilas=-1';
          peticionAjax('../SOAP/SOAP_PKG_SEGUIMIENTOS_WWW.PHP',lPar,recibirLISTASITUACIONES,true);
      } else {
          getHtml(Nodo,'SITUACIONES',document.getElementById('divSituaciones'));	
          ltab=document.getElementById('GRDSITUACIONES');
	        ltab.className='tabla';
	        ltab.border=1;
      }
}

function recibirLISTASITUACIONES(){
  if (respuestaAjax()){
     var lXML=resultadoAjax();
     if (getTexto(lXML,'RESULT')>0){
        var newel=Nodo.ownerDocument.createElement('SITUACIONES');
        lXML=getXML(lXML,'ACLISTA'); 
        var newtext=Nodo.ownerDocument.createTextNode(lXML.item(0).firstChild.data);
        newel.appendChild(newtext);      
        Nodo.appendChild(newel);      
        getHtml(Nodo,'SITUACIONES',document.getElementById('divSituaciones'));	
        ltab=document.getElementById('GRDSITUACIONES');
	      ltab.className='tabla';
	      ltab.border=1;
     }
  }
}

function solicitarLISTASITUACIONESBULTO(i){
	iBulto=i;
	var lCampos=Nodo.getElementsByTagName('C');
     	if (Nodo.getElementsByTagName('SITUACIONESBULTO'+iBulto).length==0) {
			  var lPar='&SERVICIO=LISTASITUACIONESBULTO';
			  lPar=lPar+'&ASIDEXPEDICION='+lCampos[0].firstChild.data;
        lPar=lPar+'&AIAGENTE='+lCampos[1].firstChild.data;
        lPar=lPar+'&ASIDBULTO='+iBulto;
        lPar=lPar+'&ESTILO=TABLA';
        lPar=lPar+'&asColumnas='+sCamposTablaS;
        lPar=lPar+'&aid=GRDSITUACIONES';
        lPar=lPar+'&aiInicio=0';
        lPar=lPar+'&aiFilas=-1';
			  peticionAjax('../SOAP/SOAP_PKG_SEGUIMIENTOS_WWW.PHP',lPar,recibirLISTASITUACIONESBULTO,true);
			} else {
          getHtml(Nodo,'SITUACIONESBULTO'+iBulto,document.getElementById('divSituaciones'));	
          ltab=document.getElementById('GRDSITUACIONES');
	        ltab.className='tabla';
	        ltab.border=1;
	        ltab.cells[1].innerHTML='SIT. BULTO '+iBulto;
      }
}

function recibirLISTASITUACIONESBULTO(){
  if (respuestaAjax()){
     var lXML=resultadoAjax();
     if (getTexto(lXML,'RESULT')>0){
     	  borrarTabla(document.getElementById('divSituaciones'),sTablaS,'GRDSITUACIONES');
     	  var newel=Nodo.ownerDocument.createElement('SITUACIONESBULTO'+iBulto);
        lXML=getXML(lXML,'ACLISTA'); 
        var newtext=Nodo.ownerDocument.createTextNode(lXML.item(0).firstChild.data);
        newel.appendChild(newtext);      
        Nodo.appendChild(newel);      
        getHtml(Nodo,'SITUACIONESBULTO'+iBulto,document.getElementById('divSituaciones'));	
        ltab=document.getElementById('GRDSITUACIONES');
	      ltab.className='tabla';
	      ltab.border=1;
	      ltab.cells[1].innerHTML='SIT. BULTO '+iBulto;
     }
  }
}
  
function cargarNodo(aiExp){
	lref=document.getElementById('R'+iExp);
	if (lref!=null) {
			lref.className='noseleccion';
			limg=document.getElementById('I'+iExp);
			limg.setAttribute('src','../Imagenes/paquete.gif');
			Nodo=Arbol[aiExp];
			borrarTabla(document.getElementById('divBultos'),sTablaB,'GRDBULTOS');
			borrarTabla(document.getElementById('divSituaciones'),sTablaS,'GRDSITUACIONES');
			solicitarLISTABULTOS();
			lref=document.getElementById('R'+aiExp);
			lref.className='seleccion';
			limg=document.getElementById('I'+aiExp);
			limg.setAttribute('src','../Imagenes/paquete2.gif');
			iExp=aiExp;
  }
}

function dibujarArbol(){
	var ls='<table><tr><td><img src="../Imagenes/paquete2.gif"></td><td>'+sReferencia+'</td></tr></table><table>';
	for(i=0;i<Arbol.length;i++){
	    lCampos=Arbol[i].getElementsByTagName('C');
	    ls=ls+'<tr><td>&nbsp;&nbsp;&nbsp;&nbsp;<img id="I'+i+'"src="../Imagenes/paquete.gif"></td>';
	    ls=ls+'<td><a style="cursor:pointer" id="R'+i+'" onClick="cargarNodo('+i+');">';
	    if(lCampos[5].hasChildNodes()) {ls=ls+lCampos[5].firstChild.data+' ';}
	    if(lCampos[4].hasChildNodes()) {ls=ls+lCampos[4].firstChild.data+' ';}
	    if(lCampos[3].hasChildNodes()) {ls=ls+lCampos[3].firstChild.data+' ';}
	    if(lCampos[6].hasChildNodes()) {ls=ls+lCampos[6].firstChild.data+' ';}
	    ls=ls+'<br/>';
	    if(lCampos[0].hasChildNodes()) {ls=ls+lCampos[0].firstChild.data+' ';}
	    if(lCampos[2].hasChildNodes()) {ls=ls+lCampos[2].firstChild.data+' ';}
	    ls=ls+'</a></td></tr>';	
	}
	ls=ls+'</table>'
	document.getElementById('divReferencias').innerHTML=ls; 
}