var ie=document.all
var n=document.layers


function MM_findObj(n, d) { //v3.0
	var p,i,x;  
	if(!d) 
		d=document; 
	if((p=n.indexOf("?"))>0&&parent.frames.length) {
		d=parent.frames[n.substring(p+1)].document; 
		n=n.substring(0,p);
	}
	if(!(x=d[n])&&d.all) 
		x=d.all[n]; 
	for (i=0;!x&&i<d.forms.length;i++) 
		x=d.forms[i][n];
	for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
		x=MM_findObj(n,d.layers[i].document); 
	return x;
}

function MM_showHideLayers() { //v3.0
	var i,p,v,obj,args=MM_showHideLayers.arguments;
	for (i=0; i<(args.length-2); i+=3) {
		if ((obj=MM_findObj(args[i]))!=null) { 
			v=args[i+2];
			if (obj.style) { 
				obj=obj.style; 
				v=(v=='show')?'visible':(v='hide')?'hidden':v; 
			}
			obj.visibility=v; 
		}
	}
}

function BW_reload() {
	window.location.reload();
}

function MM_preloadImages() { //v3.0
	var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

/*function mOvr(src,clrOver) 
{
	if (!src.contains(event.fromElement)) {
		src.style.cursor = 'default';
		src.bgColor = clrOver;
	}
}

function mOut(src,clrIn) {
	if (!src.contains(event.toElement)) {
	 src.style.cursor = 'default';
	 src.bgColor = clrIn;
	}
}*/


function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}


function WindowPopup()
{
	window.open('/click.asp?pbol0405','pagina','width=420,height=200,scrollbars=yes');
}

function WindowPopupInformacionTecnica()
{
	window.open('/click.asp?pbol0501','pagina','width=400,height=400,scrollbars=yes');
}

function WindowPopupHabladas() {
	window.open('/click.asp?pbol0411','pagina','width=520,height=318');
}

function WindowPopupLoginIncorrecto(tipo) {
	url = '/click.asp?pbol0404';
	window.open(url,'pagina','width=400,height=320');
}



function SetCookie(sName, sValue)	
{
	date = new Date();
	document.cookie = sName + "=" + escape(sValue) + "; expires=Fri, 31 Dec 2099 23:59:59 GMT;";
}

function GetCookie(sName)
{
		// cookies are separated by semicolons
		var aCookie = document.cookie.split("; ");
		for (var i=0; i < aCookie.length; i++) {
		  // a name/value pair (a crumb) is separated by an equal sign
		  var aCrumb = aCookie[i].split("=");
		  if (sName == aCrumb[0]) 
		    return unescape(aCrumb[1]);
		}

		// a cookie with the requested name does not exist
		return "";
}

function DelCookie(sName,sValue)
{
	document.cookie = sName + "=" + escape(sValue) + "; expires=Fri, 31 Dec 1800 23:59:59 GMT;";
}




function Delete() {
	DelCookie('Estado','LogonOff');	
	location.href="/click.asp?pbol0407";
}


function GetEnter () {
		if (event.keyCode == 13) {
		// Hemos pulsado la tecla enter, por tanto hacemos el submit del formulario
			frmBusqueda_Buscar();
		}
}
	

/*
'~~ PRIVATE ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'frmBusqueda_Validar()
'--------------------------------------------------------------------------------
'PURPOSE:	Comprueba que se hayan introducido unos criterios minimos de búsqueda.
'			Provincia and (Nombre or Apellido1 or Apellido2)
'--------------------------------------------------------------------------------
'HISTORY:	23/jul/2001		v1.0.0		aecrego		Creación
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Renacimiento ~~
*/
function frmBusqueda_Validar() {
		var frmBusqueda = eval("window.document.frmBusqueda");
		if (frmBusqueda.sec.options[frmBusqueda.sec.selectedIndex].value == '') {	
			alert('Debe seleccionar una Provincia.');
			return false;
		}
		if ((frmBusqueda.no.value == '') && (frmBusqueda.ap1.value == '') && (frmBusqueda.ap2.value == '')) {
			alert('Debe introducir al menos uno de los siguientes datos: Nombre, Primer apellido o Segundo apellido.');
			return false;
		}
		return true;
}

/*
'~~ PRIVATE ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'frmBusqueda_Buscar()
'--------------------------------------------------------------------------------
'PURPOSE:	Se llama al pinchar el boton (imagen) Buscar.
'			Valida el formularo y hace submit.
'--------------------------------------------------------------------------------
'HISTORY:	23/jul/2001		v1.0.0		aecrego		Creación
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Renacimiento ~~
*/	
function frmBusqueda_Buscar() {	
		var frmBusqueda = eval("window.document.frmBusqueda");
				
		SetCookie ('ProvSearch',frmBusqueda.sec.options[frmBusqueda.sec.selectedIndex].value);
		if ( frmBusqueda_Validar() ) {	
			frmBusqueda.submit();
		}
}

/*
'~~ PRIVATE ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'verProvincia()
'--------------------------------------------------------------------------------
'PURPOSE:	Mira la anterior provincia en la que se ha buscado
'--------------------------------------------------------------------------------
'HISTORY:	25/oct/2001		v1.0.0		pescribano		Creación
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Renacimiento ~~
*/	
function verProvincia () {
	var frmBusqueda = eval("window.document.frmBusqueda");
	var estado = GetCookie('Estado');
	var i;

	if (estado == 'Logon') {
	// Si esta logado miro la provincia de la anterior busqueda
		var provId = GetCookie ('ProvSearch');
		for (i = 0; i < frmBusqueda.sec.options.length; i++) {
			if (frmBusqueda.sec.options[i].value == provId) {
				frmBusqueda.sec.options[i].selected = true;
			}
		}
	}
}

/*
'~~ PRIVATE ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'frmBusqueda_Borrar()
'--------------------------------------------------------------------------------
'PURPOSE:	Se llama al pinchar el boton (imagen) Borrar.
'			Hace un reset del formulario, borrando todos los campos.
'--------------------------------------------------------------------------------
'HISTORY:	23/jul/2001		v1.0.0		aecrego		Creación
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Renacimiento ~~
*/		
function frmBusqueda_Borrar() {	
	var frmBusqueda = eval("window.top.document.frmBusqueda");
	frmBusqueda.reset();
	// Se borra el campo nombre del formulario porque la función reset
	// del formulario no funciona correctamente.
	frmBusqueda.no.value="";
}
			
/*
'~~ PRIVATE ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'frmBusqueda_Provincia( id )
'--------------------------------------------------------------------------------
'RETURN	:	Devuelve el objeto option de la provincia correspondiente al id.
'--------------------------------------------------------------------------------
'
'--------------------------------------------------------------------------------
'HISTORY:	27/jul/2001		v1.0.0		aecrego		Creación
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Renacimiento ~~
*/		
function frmBusqueda_Provincia( id ) {
	var frmBusqueda = eval("window.document.frmBusqueda");
	var i;
	frmBusqueda.sec.focus();
	for( i = 0; i < frmBusqueda.sec.options.length; i++) {
		if( frmBusqueda.sec.options[i].value == id ) break;
	}
	if( i >= frmBusqueda.sec.options.length ){	
		i = 0;
	}
	frmBusqueda.sec.selectedIndex = i;
	frmBusqueda.sec.options[i].selected = true;
	return frmBusqueda.sec.options[i];
}


function submitform () {
	document.form1.submit ();
}

function ValidateValues (pFrm)  {
	if (pFrm.txtUsuario.value.length < 6 || pFrm.txtUsuario.value.length > 12) {
		alert("Introduzca de 6 a 12 caracteres para el usuario");
		return false;
	}
	if (pFrm.txtpassword.value.length == 0) {
		alert("Introduzca la contraseña correctamente");
		return false;
	}
	if (pFrm.txtpassword.value.length < 6 || pFrm.txtpassword.value.length > 12) {
		alert("Introduzca de 6 a 12 caracteres para la contraseña");
		return false;
	}	
	return true ;
}

function ponProvincia() {
  var p = GetCookie("PBOLSEC");
  var x = GetCookie("TPIUSERID");
  var c = document.forms['frmBusqueda'].sec;
  
  if (p != "") {
    if (x != "") {
      for (var i=0;i<c.length;i++) {
        if (c[i].value == p) {
          document.forms['frmBusqueda'].sec.selectedIndex = i;
        }
      }
    }
  }
}


function AbrEnlace(URL,titulo)
{

	window.open(URL,titulo,'width=400,height=400,scrollbars=yes');
}