//link("dFilter.js");
/*/document.write("<script type='text/javascript' scr='dFilter.js'></script>");
/*

 name - nombre de la cookie deseada
 devuelve un string conteniendo el valor de la cookie especificada o null si la cookie no existe
*/
function getCookie(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;
}

/*
 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 setCookie(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");
}


/*
 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 delCookie (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";
  }
}

/*
 Desarrollado por J. Ramos 13/03/2006
  Funcion para ejecutar action del form setando antes el cookie de acción.
 PARAMETROS:
 		par_acc		- acción a ser registrada ej. "inserta","modifica" o "elimina"
 			  	  	  para ser usado por archivos de actions
 		par_form	- nombre o id del form de donde se llama a la función
 		par_valida	- true para validar el formulario
*/
function subform(par_acc,par_form,par_valida){
	if (par_valida==undefined){
		setCookie("accion",par_acc);
		//alert(par_form);
		document.all[par_form].submit();
	}else{
		verifvalida=validaform(par_form);
		if (verifvalida){
			setCookie("accion",par_acc);
			document.all[par_form].submit();
		}
	}
}

/* 
 Desarrollado por J. Ramos 14/03/2006
 funcion para validacion de campos totales de la ventana
 PARAMETROS:
		par_form - parametro que identifica el form que contiene los campos
 NOTA: 
 		los campos deben tener el siguiente formato en el nombre e id
		inicio de id o nombre: 	txtn_nombre (NUMERICO)
								txtd_nombre (FECHA / DATE)
								txtc_nombre (CARACTER)
*/

function validaform(par_form){
	//alert(par_form);
	totalcamp=document.all[par_form].length;
	//var varreturn=false;
	var varretvac=true;
	var varreturn=true;
	var z=0;
	while ((z<totalcamp) && (varretvac==true) && (varreturn==true)){
		campo=document.all[par_form].elements[z].name;
		tip_camp=document.all[par_form].elements[z].type;
		//alert(tip_camp);
		tipocampo=campo.substring(0,4);
		campo_req=campo.indexOf("_r",campo.length-2);
		if (campo_req>0){
			
			if (tip_camp.indexOf("select")>0){
				varval=document.all[par_form].elements[z].options[document.all[par_form].elements[z].selectedIndex].value;
				//alert('12345679');
				//varval=document.all[par_form].elements[z].value;
			}else{
				varval=document.all[par_form].elements[z].value;
			}
			if (varval<=0 || varval==""){
				if ( (campo=="txtn_correl_cama_r") && (document.all['lista_tipo_ingreso'].value==6) )
				{	
					varretvac=true;
					//alert("lo consiguió");
				}else{
					if (tip_camp=="select-one"){
						//descampo=document.all[par_form].elements[z].options[document.all[par_form].elements[z].selectedIndex].alt;
						descampo=document.all[par_form].elements[z].options.alt;
						//alert('123456789');
					}else{
						descampo=document.all[par_form].elements[z].alt;
					}
					//alert(tip_camp);
					alert("Debe llenar todos los campos requeridos (" + descampo + ")");
					document.all[par_form].elements[z].focus();
					varretvac=false;
					return false;
					break;
				}
			}
		}
		
		switch (tipocampo){
		  case "txtn":
		  	//alert("es numerico");
			if ( (campo=="txtn_correl_cama_r") && (document.all['lista_tipo_ingreso'].value==6) )
			{	
				varretvac=true;
				//alert("lo consiguió");
			}else{
				verifnum=isNumerico(document.all[par_form].elements[z].value);
				if (verifnum){
					pasa=1;
					varreturn=true;
					break
				}else{
					descampo=document.all[par_form].elements[z].alt;
					alert("Introduzca un numero válido en "+descampo);
					//document.all[par_form].elements[z].value=0;
					document.all[par_form].elements[z].focus();
					document.all[par_form].elements[z].select();
					varreturn=false;
					break
				}
			}
		  case "txtd":
		  	vrfecha=document.all[par_form].elements[z].value;
		  	vrifecha=validarFecha(vrfecha);
			if (vrifecha){
				pasa=1;
				varreturn=true;
				break
			}else{
				descampo=document.all[par_form].elements[z].alt;
				alert("Introduzca una fecha válida en "+descampo);
				document.all[par_form].elements[z].focus();
				document.all[par_form].elements[z].select();
				varreturn=false;
				break
			}
			
		  default:
		  	varreturn=true;
		}
		z++;
	}
	//alert(varreturn && varretvac);
	return (varreturn && varretvac);
}

/*
 Desarrollado por J. Ramos 14/03/2006
  	Funcion que determina si un valor contiene elementos no numericos
 PARAMETROS:
		valor - cadena pasada a ser comprobada si contiene datos num
*/

function isNumerico(valor){ 
	varnums="0123456789.,";
	vartot=valor.length;
	x=0;
	if ( (vartot==0) || (vartot=="") ){
		return true;
	}
	while (x<=vartot){
		varchr=valor.charAt(x);
		niega=varnums.indexOf(varchr);
		if (niega<0) { 
            return false;
			break
		}
		x++;
	}
	return true;
} 

/*
 Desarrollado por J. Ramos 14/03/2006
  	Funcion que determina si un valor contiene elementos numericos
 PARAMETROS:
		valor - cadena pasada a ser comprobada si contiene datos num
*/

function sololetras(valor){ 
	varnums="0123456789#!·$%&/()=?¿^*`+[]¨Çç{}-_:;<>ºª¡|@'/-"+'"';
	vartot=valor.length;
	x=0;
	if (vartot==0){
		return true;
	}
	while (x<=vartot){
		varchr=valor.charAt(x);
		esnum=varnums.indexOf(varchr);
		if (esnum>0) { 
            return false;
			break
		}
		x++;
	}
	return true;
} 


///////

/*** script para validar fechas en una caja de texto.
*@Autor  Luciano Moreno  WebMaster de HTMLWeb  http://www,htmlweb.net
*/

/*** definimos las varables globales que van a contener la fecha completa, cada una de sus partes
**** y los dias correspondientes al mes de febrero segun sea el año bisiesto o no*/
var a, mes, dia, anyo, febrero;
/*** funcion para comprobar si una año es bisiesto
**** argumento anyo > año extraido de la fecha introducida por el usuario*/
function anyoBisiesto(anyo)
{/*** si el año introducido es de dos cifras lo pasamos al periodo de 1900. Ejemplo: 25 > 1925*/
	if (anyo < 100)
	{
		var fin = anyo + 1900;
	}else{
		var fin = anyo ;
		/** primera condicion: si el resto de dividir el año entre 4 no es cero > el año no es bisiesto
		*** es decir, obtenemos año modulo 4, teniendo que cumplirse anyo mod(4)=0 para bisiesto */
		if (fin % 4 != 0)
		{
			return false;
		}else{
			if (fin % 100 == 0)
			{/*** si el año es divisible por 4 y por 100 y divisible por 400 > es bisiesto */
				if (fin % 400 == 0)
				{
					return true;
				}else{ /*** si es divisible por 4 y por 100 pero no lo es por 400 > no es bisiesto*/
					return false;
				}
			}else{/*** si es divisible por 4 y no es divisible por 100 > el año es bisiesto*/
				return true;
			}
		}
	}
}
    
/*** funcion principal de validacion de la fecha
**** argumento fecha > cadena de texto de la fecha introducida por el usuario*/
function validarFecha(par_fecha)
{// obtenemos la fecha introducida y la separamos en dia, mes y año

	a=par_fecha;
	vararry=a.split("/");
	dia=vararry[0];
	mes=vararry[1];
	anyo=vararry[2];

	var vartrue = true;
	
	/*if( (isNaN(dia)==true) || (isNaN(mes)==true) || (isNaN(anyo)==true) )
    {
		alert("La fecha introducida debe estar formada sólo por números");
		//return;
	}*/
	
	/*if(anyoBisiesto(anyo))
	{
		febrero=29;
	}else{*/
		febrero=29;
		//** si el mes introducido es negativo, 0 o mayor que 12 > alertamos y detenemos ejecucion
		if ((mes<1) || (mes>12))
		{
			alert("El mes introducido no es valido. Por favor, introduzca un mes correcto");
			vartrue=false;
			return false;
		}
		//** si el mes introducido es febrero y el dia es mayor que el correspondiente 
		//** al año introducido > alertamos y detenemos ejecucion 
		if (  (mes==2) && ( (dia<1) || (dia>febrero) )  )
		{
			alert("El dia introducido no es valido. Por favor, introduzca un dia correcto");
			vartrue=false;
			return false;
		}
		//** si el mes introducido es de 31 dias y el dia introducido es mayor de 31 > alertamos y detenemos ejecucion
		if (((mes==1) || (mes==3) || (mes==5) || (mes==7) || (mes==8) || (mes==10) || (mes==12)) && ((dia<1) || (dia>31)))
		{
			alert("El dia introducido no es valido. Por favor, introduzca un dia correcto");
			vartrue=false;
			return false;
		}
		//** si el mes introducido es de 30 dias y el dia introducido es mayor de 301 > alertamos y detenemos ejecucion
		if (((mes==4) || (mes==6) || (mes==9) || (mes==11)) && ((dia<1) || (dia>30)))
		{
			alert("El dia introducido no es valido. Por favor, introduzca un dia correcto");
			vartrue=false;
			return false;
		}
		//** si el mes año introducido es menor que 1900 o mayor que 2010 > alertamos y detenemos ejecucion
		//** NOTA: estos valores son a eleccion vuestra, y no constituyen por si solos fecha erronea
		if ((anyo<1900) || (anyo>2010))
		{
			alert("El año introducido no es valido. Por favor, introduzca un año entre 1900 y 2010");
			vartrue=false;
			return false;
		}
		else
			return vartrue;
   // }
}

/*
 Desarrollado por J. Ramos 15/03/2006
  Funcion que colorea el menu de acuerdo al seleccionado
 PARAMETROS:
		nmensel - numero del menu seleccionado
		nmen 	- numero total de items en el menu
 NOTA:
		Los nombres de las celdas que contienen el menu deben ser
		de la siguiente forma:   celmen1,celmen2,celmen3... celmen999

		Los nombres de los accesos director deben ser de la sigueinte
		forma:					 men1,men2,men3 ... men9999

		donde la el numero final de celda y debe coincidir con el numero
		final del vinculo que contiene (celmen1 - men1,celmen2 - men2,etc.)
*/

function seteamenu(nmensel,nmen)
	{
		for(i=1;i<=nmen;i++){
			varcel = 'celmen' + i;
			varmen = 'men' + i;

			if (i==nmensel){
				document.all[varcel].style.backgroundColor='#006666';
				document.all[varmen].style.backgroundColor='#006666';
			}else{
				document.all[varcel].style.backgroundColor='#FFA50D';
				document.all[varmen].style.backgroundColor='#FFA50D';
			}
		}
	}
	
/**************
**************/

function startclock(prmcampotexto)
{
	var thetime=new Date();

	var nhours=thetime.getHours();
	var nmins=thetime.getMinutes();
	var nsecn=thetime.getSeconds();
	var AorP=" ";

	if (nhours>=12){
		AorP="p.m.";
	}else{
		AorP="a.m.";
	}
	if (nhours>=13)
	 nhours-=12;
	
	if (nhours==0)
	 nhours=12;
	
	if (nsecn<10)
	 nsecn="0"+nsecn;
	
	if (nmins<10)
	 nmins="0"+nmins;
	document.all[prmcampotexto].value=nhours+":"+nmins+":"+nsecn+" "+AorP;
	setTimeout('startclock("'+prmcampotexto+'")',1000);
} 

function buscatext(totcel,totlin,txtbusca){
	//alert(idlin+"  "+totlin);
	//idlin_ant="";
	varfinal='No encontrado!';
	z=0;
	while (z<totlin){
		window.status="Buscando " + txtbusca + " en linea " + z;
		x=0;
		while (x < (totcel-1) ){
			if (z==0){
				nid="ID["+x+"]";
			}else{
				nid="ID"+z+"["+x+"]";
			}
			varcontceld=document.all[nid].innerHTML;
			if (x==0){
				varvalclave=varcontceld;
			}
			varposletra=varcontceld.indexOf(txtbusca.charAt(0),0)
			//alert(txtbusca.charAt(0) + " " + varcontceld + " Pos Letra " + varposletra);
			if (varposletra>=0){
				varlentxtbus=txtbusca.length;
				var_pal_enc=varcontceld.substring(varposletra,varposletra+varlentxtbus);
				//alert("consiguió " + varcontceld + " Posición " + varposletra + " Palabra encontrada " + var_pal_enc);
				if (var_pal_enc==txtbusca){
					//alert("consiguió " + varcontceld);
					document.all[nid].className ="menuactivo";
					//window.status='Conseguido en linea '+z;
					document.all['itemsel'][z].checked = true;
					//alert(document.all['itemsel'][z].onclick);
					varfinal='Conseguido en linea '+z;
					/*if (z==0){
						idlin="LIN";
					}else{
						idlin="LIN"+z;
					}
					/*alert(document.all[idlin].onmouseover);
					eval(document.all[idlin].onmouseover);
					/*if (idlin_ant==""){
						idlin_ant=idlin;
						document.all[idlin].className ="menuactivo";
					}else{
						document.all[idlin_ant].className ="";
						document.all[idlin].className ="menuactivo";
						idlin_ant=idlin;
					}*/
				}
				break;
			}
			x++;
		}
		z++;
	}
	window.status=varfinal;
}


function resetea(idcel,totcel,totlin){
	//alert(idcel);
	if (idcel= undefined){
		idcel=0;
	}
	z=0;
	while (z<totlin){
		varcelsel = document.all['txtcelsel'].value;
		//alert("z = "+z+" txtcelsel = "+document.all['txtcelsel'].value);
		if (z==varcelsel){
			//alert("iguales");
			x=0;
			while (x<totcel){
				if (z==0){
					nid="ID["+x+"]";
				}else{
					nid="ID"+z+"["+x+"]";
				}
				//alert(nid);
				document.all[nid].className ="menuover";
				//alert(document.all[nid].innerHTML);
				x++;
			}
		}else{
			x=0;
			while (x<totcel){
				if (z==0){
					nid="ID["+x+"]";
				}else{
					nid="ID"+z+"["+x+"]";
				}
				//alert(nid);
				document.all[nid].className ="texto";
				x++;
			}
		}
		z++;
	}
}

function retornavalor(namform,nomradio){ 
    var i 
	//i=1;
	//return(eval("document." + namform + "." + nomradio + "[" + i + "].value"));
    for (i=0;i<eval("document." + namform + "." + nomradio + ".length");i++){ 
       if ( eval ("document." + namform + "." + nomradio + "[" + i + "].checked")){
          break; 
	   }
    } 
    return eval("document." + namform + "." + nomradio + "[" + i + "].value");
}

function validalen(campo,maxlen){
	texto=document.all[campo].value
	numeroCaracteres = texto.length;
	/*primerBlanco = /^ /
	ultimoBlanco = / $/
	variosBlancos = /[ ]+/g
	texto = texto.replace (primerBlanco,"");
	texto = texto.replace (ultimoBlanco,"");
	texto = texto.replace (variosBlancos," ");
	textoTroceado = texto.split (texto, " ");
	numeroPalabras = textoTroceado.length;*/
	numeroPalabras = texto.length;
	if (numeroPalabras>maxlen){
		return false;
		//document.all[campo].value=""
	}else{
		return true;
	}
}

function textCounter(field,countfield,maxlimit) {
if (field.value.length > maxlimit) // if too long...trim it!
	field.value = field.value.substring(0, maxlimit);
// otherwise, update 'characters left' counter
else 
	a =1
	countfield.value = maxlimit - field.value.length;
}


/*function abrew( parventana , parnombrevent , parametros){
		window.open( parventana , parnombrevent , parametros );
}*/

/* 
 Desarrollado por J. Ramos 14/03/2006
 funcion para validacion de campos totales de la ventana
 PARAMETROS:
		par_form - parametro que identifica el form que contiene los campos
 NOTA: 
 		los campos deben tener el siguiente formato en el nombre e id
		inicio de id o nombre: 	txtn_nombre (NUMERICO)
								txtd_nombre (FECHA / DATE)
								txtc_nombre (CARACTER)
*/

function validacamp(id_control,len_camp){
	if ( (len_camp == undefined) || (len_camp == "") || (len_camp == 0) ){
		len_camp=2000;
	}
	var varretvac=true;
	var varreturn=true;
	campo=document.all[id_control].id;
	tipocampo=campo.substring(0,4);
	campo_req=campo.indexOf("_r",campo.length-2);
	if (campo_req>0){
		varval=document.all[id_control].id;
		if (varval<=0 || varval==""){
			if (tipocampo=="list"){
				descampo=document.all[id_control].title;
			}else{
				descampo=document.all[id_control].alt;
			}
			alert("Debe llenar todos los campos requeridos (" + descampo + ")");
			document.all[id_control].focus();
			return false;
		}
	}
		
	switch (tipocampo){
	  case "txtc":
		verifnum=sololetras(document.all[id_control].value);
		if (verifnum){
			pasa=1;
			varreturn=true;
			break;
		}else{
			descampo=document.all[id_control].alt;
			alert("Introduzca solo caractéres válidos en "+descampo);
			document.all[id_control].focus();
			document.all[id_control].select();
			//varreturn=false;
			return false;
			break;
		}
		
	  case "txtn":
		verifnum=isNumerico(eval(document.all[id_control].value));
		//alert(verifnum);
		if (verifnum){
			pasa=1;
			varreturn=true;
			break;
		}else{
			descampo=document.all[id_control].alt;
			alert("Introduzca un numero válido en "+descampo);
			//document.all[par_form].elements[z].value=0;
			document.all[id_control].focus();
			document.all[id_control].select();
			//varreturn=false;
			return false;
			break;
		}
	  case "txtd":
		vrfecha=document.all[id_control].value;
		//alert(vrfecha);
		vrifecha=validarFecha(vrfecha);
		if (vrifecha){
			pasa=1;
			varreturn=true;
			break;
		}else{
			descampo=document.all[id_control].alt;
			//alert("Introduzca una fecha válida en "+descampo);
			document.all[id_control].focus();
			document.all[id_control].select();
			//varreturn=false;
			return false;
			break;
		}
	}
	
	if (!validalen(id_control,len_camp)){
		descampo=document.all[id_control].alt;
		alert("El campo "+descampo+" excede el límite de caractéres");
		document.all[id_control].focus();
		document.all[id_control].select();
		//varreturn=false;
		return false;
	}
	
	//alert(varreturn && varretvac);
	return (varreturn && varretvac);
}

function teclapulsa(){
	if ( window.event != null)				//IE4+
	  tecla = window.event.keyCode;
	else if ( e != null ) 				//N4+ o W3C compatibles
		tecla = e.which;
	  else
		return;
	if (tecla == 13) { 					//se pulso enter
	  //alert ("");
	  return  false;
	}
}

var par_x=200;
var par_y=80;
var rezi='NO';


function abre_wind(par_link,par_ancho,par_alto,par_x,par_y,rezi){

	//varitemsel=document.all['itemsel'].value;
	//alert(varitemsel);
	//varventana = "../include-source/admision_evolucion.php?itemsel=" + varitemsel + "&readonly=READONLY&accion=Consulta";
	parametros = "width=" + par_ancho + ",height=" + par_alto + ",top=" + par_x + ",left=" + par_y ;
	parametros += ",scrollbars=YES,status=YES,resizable="+rezi;
	//alert(par_link);
	ventana = window.open( par_link , "consulta" , parametros );
	ventana.focus();
	
}

/*
  Función para fade de imagenes (desvanecimiento)
*/

   nereidFadeObjects = new Object();
   nereidFadeTimers = new Object();
function nereidFade(object, destOp, rate, delta){
   if (!document.all)   return
   if (object != "[object]"){ 
      setTimeout("nereidFade("+object+","+destOp+","+
      rate+","+delta+")",0);
      return;
   }

   clearTimeout(nereidFadeTimers[object.sourceIndex]);
   
   diff = destOp-object.filters.alpha.opacity;
   direction = 1;
   if (object.filters.alpha.opacity > destOp){
      direction = -1;
   }
   delta=Math.min(direction*diff,delta);
   object.filters.alpha.opacity+=direction*delta;
    if (object.filters.alpha.opacity != destOp){
      nereidFadeObjects[object.sourceIndex]=object;
      nereidFadeTimers[object.sourceIndex]=
      setTimeout("nereidFade(nereidFadeObjects["+object.sourceIndex+"],"
         +destOp+","+rate+","+delta+")",rate);
   }
}

function in_array(valorbusca, arrydbusca){
	encuentros=0;
	i=0;
	posicion=0;
	totarry=arrydbusca.length-1;
	
	while (i<=totarry)
	{
		//alert(typeof(arrydbusca[i]));
		if (valorbusca==arrydbusca[i]){
			encuentros++;
			posicion=i;
		}
		i++;
	}
	if (encuentros>0){
		//return true;
		return posicion;
	}else{
		//return false;
		return 999;
	}
}


/*
	Funcion de manejo de peticiones en tiempo real (AJAX)
*/
//var http_request = false;
function makeRequest(url, id_x) {
	if (navigator.appName!="Microsoft Internet Explorer"){
		$es_ie = 0;
	}else{
		$es_ie = 1;
	}
	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('Falla !!! No es posible crear una instancia XMLHTTP');
		return false;
	}
	/*
		Crear ventana de progreso...
	*/
	/*obj_prg = document.createElement('div');
	var_txt = obj_prg.appendChild(document.createElement('span'));
	var_txt.innerHTML = "Procesando XXXXXXXX";
	obj_prg.style.display="block"
	*/
	//alert('----desdelib');
	
	if ( ( id_x.indexOf(".",0) ) > 0 ){
		arr_id=id_x.split(".");
		loc_id = arr_id[0] + "." + arr_id[1] + ".innerHTML=http_request.responseText;";
	}else{
		id_div 	= document.getElementById(id_x);
		loc_id 	= "id_div.innerHTML = http_request.responseText";
	}
	punto = ".";
	http_request.onreadystatechange = function (){
			if (http_request.readyState == 4) {
				//if (http_request.status == 200) {
					eval(loc_id);
				/*}else{
					alert("Hubo problemas con la peticion, intente en unos instantes");
				}
			/*}else{
				punto += ".";
				id_div.innerHTML = "Procesando"+punto;*/
			}
		};
	fec_act=new Date();
	http_request.open('GET', url);
	http_request.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
	http_request.setRequestHeader('Expires', 'Mon, 26 Jul 1997 05:00:00 GMT');
	http_request.setRequestHeader('Last-Modified', fec_act.toGMTString());
	http_request.setRequestHeader('Cache-Control', 'no-cache, must-revalidate');
	http_request.setRequestHeader('Pragma', 'no-cache');
	http_request.send(null);
}


function imp_resul_ajax(loc_id){
	if (http_request.readystate == 4) {
		//if (http_request.status == 200) {
			eval(loc_id);
			//top.bar.hideBar();
		/*} else {
			alert('Hubo problemas con la peticion.');
		}*/
	}
}


/*
  Funcion para para devolver el valor de un radiobutton
*/
/*
function valor_radio(id_rad,id_form){ 
	pasa = false;
    var i ;
    for (i=0;i<document.all[id_rad].length;i++){ 
		if ( eval("document."+id_form+"."+id_rad+"["+i+"].checked") ){ 
	   		varval=eval("document."+id_form+"."+id_rad+"["+i+"].value");
			pasa=true;
			return varval;
          	break; 
	   }
    } 
	if (!pasa){
		return 0;
	}
}*/ 
nam_frame = "";
function valor_radio(id_rad,nam_frame){ 
	pasa = false;
    var i ;
	if (nam_frame){
		//alert("document.frames['"+nam_frame+"'].document.getElementById('"+id_rad+"')");
		//obj_rad = document.frames[nam_frame].document.getElementById(id_rad);
		eval("obj_rad = document.frames['"+nam_frame+"'].document.getElementById('"+id_rad+"');");
	}else{
		//alert("document.getElementById("+id_rad+")");
		obj_rad = document.getElementById(id_rad);
	}
	alert(obj_rad.length);
    for (i=0;i<obj_rad.length;i++){ 
		if ( obj_rad.checked ){ 
	   		varval=obj_rad[i].value;
			pasa=true;
			return varval;
          	break; 
	   }
    } 
	if (!pasa){
		return 0;
	}
}


/*
  Agregar eventos a onload
*/

function addEvent(obj, evType, fn){
	if (obj.addEventListener){
			obj.addEventListener(evType, fn, false);
			return true;
		} else if (obj.attachEvent){
			var r = obj.attachEvent('on'+evType, fn);
			return r;
	} else {
		return false;
	}
}


if ( typeof(seguridad) != "undefined" ){
	addEvent(window, 'load', seguridad);
/*
}else{
	if ( typeof(seguridad2) != "undefined" ){
		addEvent(window, 'load', seguridad2);
	}else{
		alert('No se puede aplicar seguridad, función no definida.');
	}
*/
}
//a= document.all['txt123']

//addEvent(window, ‘load’, bar);

btnagr = document.getElementById('btnagregar');
btnmod = document.getElementById('btnmodificar');
btneli = document.getElementById('btneliminar');

//if (document.all['btnagregar']){
if (btnagr){
	if (document.getElementById('agrega').value==0 &&  document.getElementById('btnagregar') ){
		//document.all['btnagregar'].disabled = true;
		btnagr.disabled = true;
	}
}

//if (document.all['btnmodificar']){
if (btnmod){
	if ( document.getElementById('modifica').value==0 && document.getElementById('btnmodificar') ){
		//document.all['btnmodificar'].disabled = true;
		btnmod.disabled = true;
	}
}

//if (document.all['btneliminar']){
if (btneli){
	//if (document.getElementById('elimina').value==0 && document.all['btneliminar']){
	if ( document.getElementById('elimina').value==0 && document.getElementById('btneliminar') ){
		//document.all['btneliminar'].disabled = true;
		btneli.disabled = true;
	}
}


/*
	captura de eventos 
*/
/*document.onkeydown = checkKeycode;
function checkKeycode() {
	var keycode;
	if (window.event){
		keycode = window.event.keyCode;
	}/*else if (e){
		keycode = e.which;
	}*/
/*	if (keycode == 13){
		void(0);
	}
}*/

//document.onkeydown = checkKeycode
function checkKeycode(e) {
var keycode;
if (window.event) keycode = window.event.keyCode;
else if (e) keycode = e.which;
//alert("keycode: " + keycode);
	if (keycode==13){
		//alert('');
		return false;
	}
}

/*
	Rutina que devuelve array con valores 
	marcados en un select con la opción de multiple
	
	Parametros:
		ob = objeto  [ ej: document.getElementById('lista_xyz') ]
		
	Valor Devuelto:
		Array con valores
*/
function valores_sel(ob){
	sel = new Array();
	for (var i = 0; i < ob.options.length; i++){
		if (ob.options[ i ].selected){
			sel.push(ob.options[ i ].value);
		}
	}
	return sel;
}

//document.domain = 'corporacionsybven.com';
//document.onkeydown = teclapulsa;			//asigna el evento pulsacion tecla a la funcion
//if (document.captureEvents)					//netscape es especial: requiere activar la captura del evento
//document.captureEvents(Event.KEYDOWN)