function inicio(){
	/*var nomArchi = "Datos/Peru.xml"
	obj = abrirArchivo(nomArchi);
	tablaDatos(obj,'');*/
	presentacionTabla('');
	construirMapa('');
	
	fs_presentacion("1");
	
}

function abrirArchivo(nomArchi){
	var xmlDoc=new ActiveXObject("Microsoft.XMLDOM");
	xmlDoc.async="false";
	xmlDoc.load(nomArchi);
	return xmlDoc;
}

function presentacionTabla(ubigeo){
	var nomArchi;
	var v_href
	if(ubigeo==''){
		nomArchi = "Datos/Peru.xml";
		v_href = "xls/Peru.xls";
	}else{
		/*if (ubigeo.length==6){
			nomArchi = "Datos/"+ubigeo.substring(0,4)+".xml"
		}else{*/
		
			nomArchi = "Datos/"+ubigeo+".xml";
			v_href = "xls/"+ubigeo+".xls";
		//}
	}
	obj = abrirArchivo(nomArchi);
	tablaDatos(obj,'');
		
	//ini_display();
	
	document.getElementById('mPrincipal').href = v_href;
	getElemento("divLeyenda").style.display="";
	
	getElemento("divSup").style.display='';
	getElemento("divPresentacion").style.display='none';
	getElemento("sPresenta").href="javascript:fs_presentacion('1')";
	getElemento("imgPresenta").src="images/vivienda.gif";
	getElemento("sTit").innerHTML = "Inicio";
	
	
}

function tablaDatos(objXml,ubigeo){
	var dato = objXml.getElementsByTagName("dato");
	//alert(nodoValor(dato,0))
	
	getCampo('divSup').innerHTML=nodoValor(dato,0);
	
}

function ini_display(){
	var toggleMinus = 'images/ico_supri.gif';   //menos
	var togglePlus = 'images/ico_expan.gif';	//mas

	var $subHead = $('#tabDetalle tbody th:first-child');

	$subHead.prepend('<img id="imgDisplay" src="'+ toggleMinus + '" alt="Expandir esta seccion" style="cursor:pointer" />&nbsp;');

	$('img',$subHead).click(function(){					
							var toggleSrc = $(this).attr('src');	
							if( toggleSrc == toggleMinus ){
								$(this).attr('src',togglePlus)
								$(this).attr('alt',"Expandir esta sección")
								.parents('tr').siblings().fadeOut('fast');
							}else{
								$(this).attr('src', toggleMinus )
								$(this).attr('alt',"Contraer esta sección")
								.parents('tr').siblings().fadeIn('fast');
							}
							
						});

	for (var i=0; i<$subHead.length; i++){
		if (i<3)
			$('img',$subHead[i]).click();
		else
			$('img',$subHead[i]).click().click();
	}

}


/****************************************************/
/********************* MAPA ************************/

// ------------------------- Mapa ------------------
function construirMapa(ubigeo){
	var categoria = getValor("txtCategoria"); //1,2,3 {viv,hog,pob}
	getElemento("txtUbigeo").value=ubigeo;
	
	objDat 	 = getDatXmlMapa(ubigeo); //Leyenda
	objCoord = getCoordXml(ubigeo).getElementsByTagName('dato');
	objNav 	 = getDatNav(ubigeo); // Para navegaci�n 
	
	cadCoor="";
	if(ubigeo.length==6){numIni=0;}
	else{numIni=0}
	
	for(i=numIni;i<objDat.length;i++){
		cadCoor+="<area shape='poly' alt='' coords='"+ nodoCadena(objCoord[i],'c') +"' ";
		cadCoor+=" onmouseover=\"javascript:toolTip('"+nodoCadena(objCoord[i],'nom')+"','"+ textoToolTipTot(objDat[i],nodoAtributo(objDat[i],"u")) +"')\" onmouseout=\"javascript:toolTip('')\" ";
		cadCoor+=" onclick=\"clickMapa('"+nodoAtributo(objDat[i],"u")+"')\" onDblClick=\"dbClickMapa('"+nodoAtributo(objDat[i],"u")+"')\" />";		
	}
	
	var cad="";
	if(ubigeo.length==0){
		nomImg = "Mapa/img/Peru.gif";
		idmap="peru";
	}else{
		nomImg ="Mapa/img/"+ubigeo+".gif";
		idmap = ubigeo;
	}
	navegarUbigeo(ubigeo,'',objNav);
	//cad+=tituloMapa(ubigeo,objDat)+"";	
	cad+="<img src='"+nomImg+"'  usemap='#"+idmap+"' style='border-style:none' /> ";
	cad+="<map id='"+idmap+"' name='"+idmap+"'>";
	cad+=cadCoor;
	cad+="</map>";
	cad+=""+leyendaMapa(getCoordXmlMapa(ubigeo),ubigeo);
	//prompt("Prompt",cad);
	getElemento("divMapa").innerHTML = cad;
	
	
	// Parche momentaneo
	if(getElemento("txtModo").value=="tabla"){		
		//construirTabla(ubigeo);
	}else{ // grafico	
		construirGrafico(ubigeo);
	}
}

function navegarUbigeo(ubigeo,dato,objNav){
	var cad="<table cellpadding=0 cellspacing=1 border=0 width=100% id=tNavMapa>";
	cad+="<tr><th>País</th><th>Departamento</th><th>Provincia</th><th>Distrito</th></tr>";
	cad+="<tr bgcolor=#FFFFFF><td><a href=javascript:clickMapaNav('') title='Doble click en el mapa para seleccionar Departamentos' >Perú</a></td>";
	
	if(ubigeo.length==0){
		cad+="<td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td>";
	}
	else if(ubigeo.length==2){
		cad+="<td><a href=javascript:clickMapaNav('"+ubigeo.substring(0,2)+"') title='Doble click en el mapa para seleccionar Provincias'>"+ ubigeo.substring(0,2) + " " + nodoAtributo(objNav[0].getElementsByTagName("dpto")[0],"nom")+"</a></td>";
		cad+="<td>&nbsp;</td>";
		cad+="<td>&nbsp;</td>";
	}
	else if(ubigeo.length==4){
		cad+="<td><a href=javascript:clickMapaNav('"+ubigeo.substring(0,2)+"') title='Doble click en el mapa para seleccionar Provincias'>"+ubigeo.substring(0,2) + " " + nodoAtributo(objNav[0].getElementsByTagName("dpto")[0] ,"nom")+"</a></td>";		
		cad+="<td><a href=javascript:clickMapaNav('"+ubigeo.substring(0,4)+"') title='Doble click en el mapa para seleccionar Distritos'>"+ ubigeo.substring(2,4) + " " + nodoAtributo(objNav[0].getElementsByTagName("prov")[0],"nom")+"</a></td>";
		cad+="<td>&nbsp;</td>";
	}
	else if(ubigeo.length==6){
		cad+="<td><a href=javascript:clickMapaNav('"+ubigeo.substring(0,2)+"') title='Doble click en el mapa para seleccionar Provincias'>"+ubigeo.substring(0,2) + " " + nodoAtributo(objNav[0].getElementsByTagName("dpto")[0],"nom")+"</a></td>";
		cad+="<td><a href=javascript:clickMapaNav('"+ubigeo.substring(0,4)+"') title='Doble click en el mapa para seleccionar Distritos'>"+ubigeo.substring(2,4) + " " +nodoAtributo(objNav[0].getElementsByTagName("prov")[0],"nom")+"</a></td>";
		cad+="<td><a style='color=#0000ff'>"+ubigeo.substring(4,6) + " " +getNomUbigeo(ubigeo)+"</a></td>"; // Parche para distrito
	}
	
	cad+="</tr>";
	cad+="</table>";
	getElemento("divNavMapa").innerHTML = cad;
	
	
}

function getCoord(objXml,ubigeo,ubigeoSup){
	dato = objXml.getElementsByTagName('datos/dato[@u="'+ubigeo+'"]');
	if(dato==null){return "";}
	if(ubigeoSup.length==6){
		return nodoCadena(dato[0],"cs"); // coordenada solo del distrito (todo)		
	}else{
		return nodoCadena(dato[0],"c"); // elemento del todo
	}	
}

function getCoordNomUbigeo(objXml,ubigeo){
	dato = objXml.getElementsByTagName('datos/dato[@u="'+ubigeo+'"]');
	if(dato==null){return "";}{	
		return nodoCadena(dato[0],"nom"); // elemento del todo
	}	
}

function getCoordXml(ubigeo){
	nomArchi = getNomArchivo("Mapa/Coord/",ubigeo);	
	objXml = abrirArchivo(nomArchi);
	return objXml;
}

function getNomArchivo(prefijo,ubigeo){
	var nomArchi=prefijo; // por ejemplo: Mapa/, DatEdad/Edad	
	switch(ubigeo.length){
		case 0: nomArchi += "peru.xml"; break;
		case 2: nomArchi += ubigeo + ".xml"; break;
		case 4: nomArchi += ubigeo + ".xml"; break;
		case 6: nomArchi += ubigeo.substring(0,4) + ".xml"; break;
		default: nomArchi += "peru.xml";
	}
	return nomArchi;
}

function getNomImgMapa(ubigeo){
	var categoria = getValor("txtCategoria");
	var nomArchi;
	var nomImg;
	if(ubigeo==""){
		nomImg = "Peru.gif";
	}else{
		nomImg = ubigeo+".gif";
	}
	if(categoria==1){
		nomArchi = "Mapa/Viv/"+nomImg;
	}else if(categoria==2){
		nomArchi = "Mapa/Hog/"+nomImg;
	}else if(categoria==3){
		nomArchi = "Mapa/Pob/"+nomImg;
	}
	return nomArchi;
}

function getDatXmlMapa(ubigeo){
	//var categoria = getValor("txtCategoria");
	var nomArchi;
	/*
	if(categoria==1){
		nomArchi = getNomArchivo("Mapa/VivLey/",ubigeo);
	}else if(categoria==2){
		nomArchi = getNomArchivo("Mapa/HogLey/",ubigeo);
	}else if(categoria==3){
		nomArchi = getNomArchivo("Mapa/PobLey/",ubigeo);
	}
	*/
	//agrega carlos
	//nomArchi = getNomArchivo("Mapa/Coord/",ubigeo);	
	nomArchi = getNomArchivo("Mapa/PobLey/",ubigeo);
	
	///////////////
	objXml = abrirArchivo(nomArchi);
	if(ubigeo.length==6){
		return objXml.getElementsByTagName('datos/dato[@u="'+ubigeo+'"]');
	}else{
		return objXml.getElementsByTagName('datos/dato');
	}
}

function getCoordXmlMapa(ubigeo){
	var categoria = getValor("txtCategoria");
	var nomArchi;
	if(categoria==1){
		nomArchi = getNomArchivo("Mapa/VivLey/",ubigeo);
	}else if(categoria==2){
		nomArchi = getNomArchivo("Mapa/HogLey/",ubigeo);
	}else if(categoria==3){
		nomArchi = getNomArchivo("Mapa/PobLey/",ubigeo);
	}
	objXml = abrirArchivo(nomArchi);	
	return objXml.getElementsByTagName('datos/l');
}

function getDatNav(ubigeo){
	nomArchi = getNomArchivo("DatEdadTot/Edad",ubigeo);
	objXml = abrirArchivo(nomArchi);
	return objXml.getElementsByTagName('datos/usup');
}

function getNomUbigeo(ubigeo){
	var nomArchi = getNomArchivo("DatEdadTot/Edad",ubigeo);
	var objXml = abrirArchivo(nomArchi);	
	try{
		return nodoCadena(objXml.getElementsByTagName('datos/dato[@u="'+ubigeo+'"]')[0],"nom");
	}catch(e){
		return "";
	}
	
}

function textoToolTipTot(nodo,ubigeo){
	var categoria = getValor("txtCategoria");
	var col2 = "";
	if(categoria==1){ col2="Vivienda";}
	else if(categoria==2){ col2="Hogar";}
	else if(categoria==3){ col2="Pob. Censada";}
	cad = "<table width=100% cellpadding=0 cellspacing=1 border=0 id=tToolTip><tr><th>Area</th><th>"+col2+"</th></tr>";	
	try{
		urb=nodoCadena(nodo,"u");
		rur=nodoCadena(nodo,"r");
		tot=nodoCadena(nodo,"t");
		cad += "<tr><td>Total</td><td align=right>"+formatoFloat(tot)+"</td></tr>";
		cad += "<tr><td>Urbano</td><td align=right class=cab>"+formatoFloat(urb)+"</td></tr>";
		cad += "<tr><td>Rural</td><td align=right>"+formatoFloat(rur)+"</td></tr>";		
	}catch(e){}
	cad+="</table>";
	return cad;
}

function tituloMapa(ubigeo,dato){
	var cad="";
	var categoria = getValor("txtCategoria");
	var col2 = "";
	if(categoria==1){ cad+="<center class=titTabla>VIVIENDAS CENSADAS POR AREA URBANA Y RURAL<br>" +"</center>";}
	else if(categoria==2){ cad+="<center class=titTabla>HOGARES CENSADOS POR AREA URBANA Y RURAL<br>" +"</center>";}
	else if(categoria==3){ cad+="<center class=titTabla>POBLACION CENSADA POR AREA URBANA Y RURAL<br>" +"</center>";}	
	globalTitulo=cad;
	return cad;
}

function leyendaMapa(leyXml,ubigeo){
	var cad="<center>";
	var categoria = getValor("txtCategoria");
	if(categoria==1){ cad+="Rango de Viviendas";}
	else if(categoria==2){ cad+="Rango de Hogares";}
	else if(categoria==3){ cad+="Rango de Población";}
	cad+="<br>";
	cad+="<table cellpadding=0 cellspacing=1 id=tLeyenda>";
	var i;
	for(i=0;i<leyXml.length;i++){
		if(i%2==0){cad+="<tr>"}
		cad+="<td bgcolor=#"+nodoCadena(leyXml[i],"c")+">&nbsp;&nbsp;&nbsp;</td><td align=left>"+nodoCadena(leyXml[i],"t")+"</td>";
		if(i%2==1){cad+="</tr>";}else{cad+="<td>&nbsp;&nbsp;&nbsp;</td>";}
	}
	if((i-1)%2!=1){cad+="</tr>";}
	cad+="</table><center>";
	return cad;
}

function clickMapa(ubigeo){
		
	presentacionTabla(ubigeo);
	
	
}

function dbClickMapa(ubigeo){
	construirMapa(ubigeo);
	toolTip('');
}

function clickMapaNav(ubigeo){
	presentacionTabla(ubigeo);
	construirMapa(ubigeo);
	verBuscar('0');
}

function fs_presentacion(num){
	
	if(num=='1'){
		getElemento("divSup").style.display='none';
		getElemento("divLeyenda").style.display='none';
		
		getElemento("divPresentacion").style.display='';
		getElemento("sPresenta").href="javascript:fs_presentacion('2')";
		//getElemento("divPresentacion").innerHTML="<div align=\"justify\" style=\"font-family:Verdana, Arial, Helvetica, sans-serif; font-size:12px; color:#15428B; padding:0px 50px 80px 10px; \"><br /><br />La presentación del Sistema de Cuadros Estadísticos: <br /><br />El Instituto Nacional de Estadística e Informática (INEI), pone a disposición de la colectividad, <br />cuadros estadísticos de los resultados de los Censos Nacionales 2007: XI de Población y VI de Vivienda, <br />cuyo empadronamiento se realizó el 21 de octubre del 2007.  Este producto complementa la entrega que <br />realizó el INEI en agosto de este año, al hacer pública la base de datos de los resultados del <br />Censo de Población y Vivienda. <br /><br />El \"Sistema de Consulta de Cuadros Estadísticos\" permite al usuario disponer de 152 cuadros estadístico <br />predefinidos sobre características generales y composición de la vivienda, hogar y población en todos<br />los departamentos, provincias y distritos del país, por área de residencia (urbana y rural). <br /><br />La característica principal del sistema es que permite la consulta y recuperación de los cuadros estadísticos<br />en forma rápida y sencilla a través de un índice temático de Viviendas, Hogares, Población, Educación,<br />Actividad y Salud. Los resultados de las consultas se muestran en cuadros, gráficos y mapas; además dispone<br />de la opción para exportar los resultados en formato Excel(xls).</div>";	
		//getElemento("divPresentacion").innerHTML="<div align=\"justify\" style=\"font-family:Verdana, Arial, Helvetica, sans-serif; font-size:12px; color:#15428B; padding:20px 40px 10px 40px; \"><br /><br /><p align=\"justify\">El Instituto Nacional de Estadística e Informática (INEI), pone a disposición de los usuarios, los principales indicadores demográficos, sociales y económicos de los resultados de los Censos Nacionales 2007: XI de Población y VI de Vivienda, cuyo empadronamiento se realizó el 21 de octubre del 2007.</p><p align=\"justify\">El \"Sistema de Consulta de Principales Indicadores\" permite al usuario obtener información rápida en indicadores sobre la magnitud, distribución y composición de la población, así como las características de estado civil, fecundidad, migración, educación, salud, discapacidad, etnia, identidad, religion, de la vivienda y los hogares a nivel de todos los ámbitos geográficos del país: Nacional, departamento, provincia y distrito.</p><p align=\"justify\">La característica principal del sistema es que permite la consulta y recuperación de los indicadores en forma rápida y sencilla a través de un índice temático basado en el mapa político. El resultado de la consulta se muestran en forma de cuadro; además dispone de la opción para exportar el resultado en formato Excel(xls).</p></div>";	
		getElemento("imgPresenta").src="images/ico_tabla.gif";
		getElemento("imgPresenta").alt="Ver Tabla";
		getElemento("sTit").innerHTML = "Ver tabla"
		
		
	}else{
		getElemento("divSup").style.display="";
		getElemento("divLeyenda").style.display="";
		
		getElemento("divPresentacion").style.display='none';
		getElemento("sPresenta").href="javascript:fs_presentacion('1')";
		getElemento("imgPresenta").src="images/vivienda.gif";
		getElemento("imgPresenta").alt="Ver Presentación";
		getElemento("sTit").innerHTML = "Inicio"
	}
	
}