function html5(){
if (('localStorage' in window) && window.localStorage !== null){
  return 1;
} else {
  return 0;
} 
}

function savevar(v,c){
// if localStorage is present, use that
if (('localStorage' in window) && window.localStorage !== null ){
  //alert("v="+v+" l="+c.length+" c="+c);
  if( c.length>0 ){
   localStorage.setItem(v, c);
   //localStorage[v]=c;
   return 1;
  }
  else
   localStorage.removeItem(v);
  return 0;
} else {
  return 0;
} 
}

function recovervar(v){
// if localStorage is present, use that
if (('localStorage' in window) && window.localStorage !== null){
  //alert("recuperar v="+v);
  return localStorage.getItem(v);
} else {
  return "";
} 
}

function clearvar(){
//alert("clearvar");
if (('localStorage' in window) && window.localStorage !== null){
  localStorage.clear();
  return 1;
} else {
  return 0;
} 
}

var http_request = false;

            function LeerPagina(archivo,parametros) {

                http_request = false;

                if (window.XMLHttpRequest) { // Mozilla, Safari,...
                    http_request = new XMLHttpRequest();
                    if (http_request.overrideMimeType) {
                        http_request.overrideMimeType('text/xml');
                    }
                } else if (window.ActiveXObject) { // IE
                    try {
                        http_request = new ActiveXObject("Msxml2.XMLHTTP");
                    } catch (e) {
                        try {
                        http_request = new ActiveXObject("Microsoft.XMLHTTP");
                        } catch (e) {}
                    }
                }

                if (!http_request) {
                    alert('Giving up :( Cannot create an XMLHTTP instance');
                    return false;
                }
                
                http_request.onreadystatechange = alertaConsulta ;
//alert(archivo+"?"+parametros);
                parametros=parametros+"&leerpagina=1";
                if(window.ActiveXObject)
                http_request.open("POST", archivo, true );
                else
                http_request.open("POST", archivo, true );
                //http_request.setRequestHeader("Content-Type", "text/html");
                //http_request.setRequestHeader('Content-Type', 'text/html; charset=ISO-8859-1;');
                //http_request.setRequestHeader("Content-Type", "application/x-www-form-urlencoded;");
                http_request.setRequestHeader("Content-Type", "application/x-www-form-urlencoded; charset=ISO-8859-1");
                http_request.send(parametros);
            }

            function alertaConsulta() {
                //alert("alertContents");
                if (http_request.readyState == 4) {
                    //alert(http_request.readyState);
                    if (http_request.status == 200) {
                         //alert(http_request.responseText);
                        procesarconsulta(http_request.responseText);
                    } else {
                        alert('Hubo problema con su consulta.');
                    }
                }

            }

function procesarconsulta(sql){
 //alert(informe+"="+md5+"="+sql);
// document.body.innerHTML=sql+"<br><a href='javascript:enviarexcel();'>Enviar a excel</a>";
// document.body.innerHTML=sql+"<br><a href='javascript:recargar();'>Recargar</a>";
//alert(document.body.innerHTML);
 //document.body.innerHTML = sql;
 //document.getElementById("cuerpoinforme").innerHTML=sql;
 //document.body.innerHTML=sql;
 document.body.innerHTML=sql+"<br><a href='javascript:enviarexcel();'>Enviar a excel</a>";
 //alert("ie="+ie);
 if(ie>0)
 sql=quitartildes(sql);
 savevar(md5,sql);
 //else
 //guardarvar(md5,sql);
}

function guardarvar(v,c){
 //alert("v="+v+" c="+c.length);
 k=Math.pow( 2, 13);
 //k=Math.pow( 2, 9);
 //alert("k="+k);
 l=c.length;
 //alert("l="+l);
 p=l / k;
 //alert("p="+p);
 p=Math.ceil(p);
 //alert("p="+p);
 for(i=1;i<=p;i++){
  //alert("i="+i);
  j=(i-1)*k;
  s=c.substring(j,j+k); 
  r=quitartildes(s);
  //s=", hola "+i;
  //alert("i="+i+" r="+r);
  savevar(v+i,r);
  //savevar(v+i,s);
 }
 //alert("guardando v="+v+" p="+p+" l="+l);
 savevar(v,p+"");
}

function recuperarvar(v){
 p=recovervar(v);
 //alert("recuperar "+v+ " p="+p);
 s="";
 if( p!==null ){
 for(i=1;i<=p;i++){
  c=recovervar(v+i);
  //alert("c="+c);
  s=s+c;
 } 
 }
 return s;
}

function quitartildes(c){
 s_="";
 for(i_=0;i_<=c.length;i_++){
  le=c.substring(i_,i_+1);
  let=le.charCodeAt(0);
  if( let>=32 && let<=128 ) s_=s_+le;
  else 
  if( let!=10 && let!=13 && let!=65533){
   //alert(le+"="+let);
   if( let==225) s_=s_+"a";
   if( let==233) s_=s_+"e";
   if( let==237) s_=s_+"i";
   if( let==243) s_=s_+"o";
   if( let==250) s_=s_+"u";
   if( let==241) s_=s_+"n";
   if( let==209) s_=s_+"N";
  }
 }
 return s_;
}