// name - nombre de la cookie deseada
// devuelve un string conteniendo el valor de la cookie especificada o null si la cookie no existe
function Get_Cookie(name){
  var cname = name + "=";               
  var dc = document.cookie;             
  if (dc.length > 0) {              
    begin = dc.indexOf(cname);       
    if (begin != -1) {           
      begin += cname.length;       
      end = dc.indexOf(";", begin);
      if (end == -1) end = dc.length;
        return unescape(dc.substring(begin, end));
    } 
  }
  return null;
}


// Esta es una adaptación de la función de Dorcht para colar una cookie
// name - nombre de la cookie
// value - valor de la cookie
// [expires] - fecha de caducidad de la cookie (por defecto, el final de la sesión)
// [path] - camino para el cual la cookie es válida (por defecto, el camino del documento que hace la llamada)
// [domain] - dominio para el cual la cookie es válida (por defecto, el dominio del documento que hace la llamada)
// [secure] - valor booleano que indica si la trasnmisión de la cookie requiere una transmisión segura
// al especificar el valor null, el argumento tomará su valor por defecto
function Set_Cookie(name, value, expires, path, domain, secure) {
  document.cookie = name + "=" + escape(value) + 
  ((expires == null) ? "" : "; expires=" + expires.toGMTString()) +
  ((path == null) ? "" : "; path=" + path) +
  ((domain == null) ? "" : "; domain=" + domain) +
  ((secure == null) ? "" : "; secure");
}

// Esta es una adaptación de la función de Dorcht para borrar una cookie
// name - nombre de la cookie
// [path] - camino de la cookie (debe ser el mismo camino que el especificado al crear la cookie)
// [domain] - dominio de la cookie (debe ser el mismo dominio que el especificado al crear la cookie)
// se considera el camino y dominio por defecto si se especifica null o no se proporcionan argumentos
function Delete_Cookie(name,path,domain) {
  if (getCookie(name)) {
    document.cookie = name + "=" +
    ((path == null) ? "" : "; path=" + path) +
    ((domain == null) ? "" : "; domain=" + domain) +
    "; expires=Thu, 01-Jan-70 00:00:01 GMT";
  }
}

var today = new Date(); 
var zero_date = new Date(0,0,0); 
today.setTime(today.getTime() - zero_date.getTime()); 
var cookie_expire_date = new Date(today.getTime() + (8 * 7 * 86400000)); 

function setUserID(valor) { 
//   if (Get_Cookie('UserID')) { 
//       var UserID = Get_Cookie('UserID'); 
//   }else{ 
       var expDays = 365; // dias para que expire
       var expDate = new Date();
       expDate.setTime(expDate.getTime() + (24 * 60 * 60 * 1000 * expDays));
       Set_Cookie('UserID',valor,expDate);
//   } 
} 

function setUser(valor) { 
//   if (Get_Cookie('User')) { 
//       var User = Get_Cookie('User'); 
//   }else{ 
       var expDays = 365; // dias para que expire
       var expDate = new Date();
       expDate.setTime(expDate.getTime() + (24 * 60 * 60 * 1000 * expDays));
       Set_Cookie('User',valor,expDate);
//   }
} 

var loaded_script = true;

function screenConfig() {
window.onerror=null;
// sw = screen width
// sh = screen height
// smw = screen max width
// smh = screen max height
// scb = screen color bits
// sc = screen color
var sw = window.screen.width;
var sh = window.screen.height;
var smw = window.screen.availWidth;
var smh = window.screen.availHeight;
var scb = window.screen.colorDepth;
var sc = Math.pow (2, window.screen.colorDepth);
if(sw == 800) { document.getElementById("tabla1").width = 778; }
else if(sw == 1024 || sw > 1024) { document.getElementById("tabla1").width = 1003; }; }

function getScreenWidth() {
var sw = window.screen.width;
return sw; }

function getScreenHeight() {
var sh = window.screen.height;
return sh; }

function randomize(min,max) {
intPosibles = max - min;
intAlea = Math.random() * intPosibles;
intAlea = Math.round(intAlea);
return intAlea; }

function open_window(name,width,height,resize,scroll,left,top) {
propietats="left=" + left + ",top=" + top + ",fullscreen=0,toolbar=0,titlebar=0,z-lock=0,directories=0,menubar=0,status=0,location=0,resizable=0,scrollbars=0,width="+width+",height="+height+",resizable="+resize+",scrollbars="+scroll;
result = window.open(name,"",propietats); }

function substituir(frase,carac1,carac2) {
var apostrofe=frase.indexOf(carac1);
var inicio=-1;
var nuevaf='';
while(apostrofe != -1) {
nuevaf=nuevaf+frase.substr(0,apostrofe);
nuevaf=nuevaf+carac2;
inicio=apostrofe;
frase=frase.substr(inicio+1,frase.length-inicio);
apostrofe=frase.indexOf(carac1); }
nuevaf=nuevaf+frase;
return nuevaf; }

//A la siguiente funcion se le pasan los parametros obligados: array1, array2, cmbNom, valor, blanco y width (ej. 120pt).
//El action será del tipo: 'onChange=\"reload();\"'
//El parametro blanco puede ser 1 o 0, 1 habrá la opción de poder elegir blanco, 0 no abrá esa opción.
function print_combos(array1,array2,cmbNom,width,action,valor,blanco) {
var j=0;
var cadena = '<select name=\"' + cmbNom + '\" size=\"1\" style=\"width:' + width + '\" class=\"txtP\"';
if(action) { cadena = cadena + ' ' + action; }
cadena = cadena + '>\n';
if(blanco==1) { cadena = cadena + '<option value=\"0\"></option>\n'; }
if(blanco==2) { cadena = cadena + '<option value=\"\"></option>\n'; }
while(j<array2.length) {
if(array2[j]==valor) { cadena = cadena + '<option value=\"' + array2[j] + '\" selected>' + array1[j] + '</option>\n'; }
else { cadena = cadena + '<option value=\"' + array2[j] + '\">' + array1[j] + '</option>\n'; } j++; }
cadena = cadena + '</select>\n';
document.write(cadena); }

//Nos retorna el nombre de un fichero a partir de la ruta de este
function fName(n) {
var p = n.indexOf('\\');
while(p != -1) {
n = n.substr(p+1,n.length);
p = n.indexOf('\\'); }
return(n); }

//Retrasa un evento determinados segundos
function retardar(s) { 
setTimeout("cerrar()", s*1000); }

function cerrar() {
window.parent.close(); }