function MM_preloadImages() { //v3.0
  var d=document; 
//  alert('Hola');
  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 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_findObj(n, d) { //v4.01
  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);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

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 MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}

function Comprobar_Dato_Fecha(fecha) 
{
   if (fecha.value != "") // Fecha no Nula.
   { 
           // Formación de la Fecha.
	   var err=0;
	   var c = "/";
	   var a=fecha.value;
    var fechac = new Date(); 
    var posicion1=a.indexOf("/");
    // Fecha Completa con "/": 7 posiciones en Pantalla.
	   if ((a.length==7) &&
        (posicion1==2))
       {
              var b=Obtener_Valor(a,0,2,"","");// mes
              var f=Obtener_Valor(a,3,7,"","");// año
 	   }
     else // Fecha con menos de 10 posiciones en Pantalla.
        {
           if (posicion1 == -1)  // Fecha sin "/" o "-".
              {
			     if (a.length > 2)
                 {
                 // Valores de dia,mes y año.
                 var b=Obtener_Valor(a,0,2,2,"0");// mes
                 var f=a.substring(3,a.length); 
			        }
               } 
			  else
              {
              var b=Obtener_Valor(a,0,posicion1,2,"0");// mes
              var f=a.substring(posicion1+1,a.length); //año
              } 
       } 
       f = Obtener_anno(f); // Completar año.
       // Validaciones de la Fecha Formada. 
	      if ( (parseInt(Number(b))!=parseFloat(b)) ||
	         (parseInt(Number(f))!=parseFloat(f)) )
	         {
	            alert("Debe especificar un número entero en la Fecha.");
	            fecha.focus();
	            return false;
	         }
       //errores básicos
	      if (b<1 || b>12) 
	         err = 2;
	      if (f<0 || f>9999)
	         err = 4;
      }
   // Fecha Nula: salimos. 
   else
      {
         return true;
      }
   // Mensajes de Error.
   if (err==1) 
      var merr = "Formato de fecha incorrecto.";
   if (err==2) 
      var merr = "Mes incorrecto en la fecha.";
   if (err==4) 
      var merr = "Año incorrecto en la fecha.";
   if (merr)
   {
      // Fecha Incorrecta.
      fecha.focus();
      alert(merr); 
      return false;
   }
   else
      // Fecha Correcta.
      fecha.value=b+c+f;
   return true;
}

function lpadstr(obj,x,c)
{
var Cadena=obj;
var long=Cadena.length;
if (Cadena!= "")
{
  for (var i=long;i<x;i++)
	 Cadena=c+Cadena;
}
return (Cadena);
}

function Obtener_Valor(v,a,b,c,d) 
{
   var x=lpadstr(v.substring(a,b),c,d);// Variable completada por la izq. unas posiciones.
   return x;
}

function Obtener_anno(anno) 
{
    var fechac = new Date(); 
    var f;       
    if (anno =="") // Año nulo.
    {
       var f=fechac.getYear();// Año.
    }   
    else
    {
       if (anno.length<4)// Año sin rellenzar
       {
          var f=''+fechac.getYear()+'';// Año.
          var annolong=anno.length;
          var longinifecha=4-annolong;
          var inianno = f.substring(0,longinifecha);
          var g=inianno+anno;
          f=g;             
       }
       else
       {
          var f=anno;
       }
    }              
    return f;
}

function DeselT()
{
  this.formulario.pT.checked=false;
return false;
} 

function DeselR()
{
  this.formulario.pD.checked=false;
  this.formulario.pP.checked=false;
  this.formulario.pN.checked=false;
  this.formulario.pA.checked=false;
  this.formulario.pL.checked=false;
return false;
} 

function DeselS(cat, sub) 
{
var i;
for(i = 0; i < this.formulario.S.length; i++) 
if(sub.substring(0,2)=="##") {
  if((cat.substring(0,2)==this.formulario.S[i].value.substring(0,2)) && (this.formulario.S[i].value.substring(3,5)!="##")) {
     this.formulario.S[i].checked = false;
	  } 
	} 
else {
  if((cat.substring(0,2)==this.formulario.S[i].value.substring(0,2)) && (this.formulario.S[i].value.substring(3,5)=="##")) {
     this.formulario.S[i].checked = false;
	  } 
	} 
return false;
} 
// SCRIPT Movimiento de Imagenes
var mySlideList1 = ['/img_fgpweb/fotos_cab/foto_cab1p.jpg','/img_fgpweb/fotos_cab/foto_cab3.jpg', '/img_fgpweb/fotos_cab/foto_cab18.jpg', '/img_fgpweb/fotos_cab/foto_cab13.jpg', '/img_fgpweb/fotos_cab/foto_cab7.jpg', '/img_fgpweb/fotos_cab/foto_cab23.jpg', '/img_fgpweb/fotos_cab/foto_cab26.jpg', '/img_fgpweb/fotos_cab/foto_cab29.jpg', '/img_fgpweb/fotos_cab/foto_cab32.jpg', '/img_fgpweb/fotos_cab/foto_cab8.jpg', '/img_fgpweb/fotos_cab/foto_cab5.jpg', '/img_fgpweb/fotos_cab/foto_cab12.jpg'];
var mySlideShow1 = new SlideShow(mySlideList1, 'slide1', 6000, "mySlideShow1");
var mySlideList2 = ['/img_fgpweb/fotos_cab/foto_cab2p.jpg','/img_fgpweb/fotos_cab/foto_cab1.jpg', '/img_fgpweb/fotos_cab/foto_cab10.jpg', '/img_fgpweb/fotos_cab/foto_cab14.jpg', '/img_fgpweb/fotos_cab/foto_cab22.jpg', '/img_fgpweb/fotos_cab/foto_cab24.jpg', '/img_fgpweb/fotos_cab/foto_cab27.jpg', '/img_fgpweb/fotos_cab/foto_cab30.jpg', '/img_fgpweb/fotos_cab/foto_cab33.jpg', '/img_fgpweb/fotos_cab/foto_cab17.jpg', '/img_fgpweb/fotos_cab/foto_cab11.jpg', '/img_fgpweb/fotos_cab/foto_cab16.jpg'];
var mySlideShow2 = new SlideShow(mySlideList2, 'slide2', 8000, "mySlideShow2");
var mySlideList3 = ['/img_fgpweb/fotos_cab/foto_cab3p.jpg','/img_fgpweb/fotos_cab/foto_cab2.jpg', '/img_fgpweb/fotos_cab/foto_cab21.jpg', '/img_fgpweb/fotos_cab/foto_cab4.jpg', '/img_fgpweb/fotos_cab/foto_cab19.jpg', '/img_fgpweb/fotos_cab/foto_cab25.jpg', '/img_fgpweb/fotos_cab/foto_cab28.jpg', '/img_fgpweb/fotos_cab/foto_cab31.jpg', '/img_fgpweb/fotos_cab/foto_cab34.jpg', '/img_fgpweb/fotos_cab/foto_cab20.jpg', '/img_fgpweb/fotos_cab/foto_cab6.jpg', '/img_fgpweb/fotos_cab/foto_cab9.jpg'];
var mySlideShow3 = new SlideShow(mySlideList3, 'slide3', 10000, "mySlideShow3");

function switchImage(imgName, imgSrc) 
{
  if (document.images)
  {
    if (imgSrc != "none")
    {
      document.images[imgName].src = imgSrc;
    }
  }
}
function SlideShow(slideList, image, speed, name)          
{
  this.slideList = slideList;
  this.image = image;
  this.speed = speed;
  this.name = name;
  this.current = 0;
  this.timer = 0;
}
SlideShow.prototype.play = SlideShow_play;  
function SlideShow_play()       
{
  with(this)
  {
    if(current++ == slideList.length-1) current = 0;
    switchImage(image, slideList[current]);
    clearTimeout(timer);
    timer = setTimeout(name+'.play()', speed);
  }
}

//jdr 11/11/2003 Tomo estas funciones de letra-q para validar fechas en Grupos de trabajo
function Comprobar_Fecha(fecha) 
{   
   if (fecha.value != '') // Fecha no Nula.
   { 
           // Formación de la Fecha.
	   var err=0;
	   var c = "/";
	   var a=fecha.value;
           var fechac = new Date(); 

   	   var posicion1=a.indexOf("/");
           var posicion2=a.substring(posicion1+1,a.length).indexOf("/");
   	   var posicion3=a.indexOf("-");
           var posicion4=a.substring(posicion3+1,a.length).indexOf("-");
           var posicion5=a.substring(posicion3+1,a.length).indexOf("/");
           var posicion6=a.substring(posicion1+1,a.length).indexOf("-");

           // Fecha Completa con 2 "-" y/o "/": 10 posiciones en Pantalla.
	   if ((a.length==10) &&
               ((posicion1==2 && posicion2==2) ||
	        (posicion3==2 && posicion4==2) ||
                (posicion3==2 && posicion5==2) ||
                (posicion1==2 && posicion6==2)))
           {
              var d=Obtener_Valor(a,0,2,"","");// dia
              var b=Obtener_Valor(a,3,5,"","");// mes
              var f=Obtener_Valor(a,6,10,"","");// año
 	   }
           else // Fecha no completa con 2 "-" y/o "/": menos de 10 posiciones en Pantalla.
           {
                if ((posicion1 > -1 && posicion2 > -1) || // Orden: "/" "/"
	            (posicion3 > -1 && posicion4 > -1) || // Orden: "_" "_"
                    (posicion3 > -1 && posicion5 > -1) || // Orden: "_" "/"
                    (posicion1 > -1 && posicion6 > -1))   // Orden: "/" "_"
                {

                   // Obtengo las posiciones de "/" y/o "-".
                   var possal=Obtener_Posiciones(posicion1,posicion2,posicion3,posicion4,posicion5,posicion6);
                   var posiciona=Number(possal.substring(0, 1));
                   var posicionb=Number(possal.substring(2, 3));

                   // Recupero y Estructuro los valores de dia,mes y año.
                   var d=Obtener_Valor(a.substring(0, posiciona),0,2,2,"0");// dia
                   var b=Obtener_Valor(a.substring(posiciona+1, posiciona+posicionb+1),0,2,2,"0");// mes
                   var f=Obtener_Valor(a.substring(posiciona+posicionb+2, a.length),0,4,4,"0");// año

                   b = Obtener_Mes_Actual(b);// mes
              }
              else // Fecha con un "/" o "-".
              {
                   if ((posicion1 > -1) || (posicion3 > -1))
                   {

                      if (posicion1 > -1)
                      {
                         var posicionc=posicion1;
                      }
                      else
                      {
                         var posicionc=posicion3;
                      }

                      if (posicionc > 2)
                      {
                         // Valores de dia,mes y año.
                         var d=Obtener_Valor(a,0,2,2,"0");// dia
                         var b=Obtener_Valor(a,2,posicionc,2,"0");// mes
                         var f=Obtener_Valor(a,posicionc+1,a.length,4,"0");// año
                      } 
                      else
                      {
                         // Valores de dia,mes y año.
                         var d=Obtener_Valor(a,0,posicionc,2,"0");// dia
                         var b=Obtener_Valor(a,posicionc+1,posicionc+3,2,"0");// mes
                         var f=Obtener_Valor(a,posicionc+3,a.length,4,"0");// año
                      }  

                      b = Obtener_Mes_Actual(b);// mes  
                   } 
                   else // Fecha sin "/" ni "-". (Sólo números).
                   {
                      if ((posicion1 == -1) && (posicion3 == -1)) // Fecha sin "/" o "-".
                      {
			 if (a.length > 2)
                         {
                            // Valores de dia,mes y año.
                            var d=Obtener_Valor(a,0,2,2,"0");// dia
                            var b=Obtener_Valor(a,2,4,2,"0");// mes
		            if (a.length > 4)
                            {
                               var f=Obtener_Valor(a,4,a.length,4,"0");// año
			    }
			    else
                            {
                               var f=""; 
			    }
			 }
			 else
			 {
                            // Valores de dia,mes y año.
                            var d=Obtener_Valor(a,0,2,2,"0");// dia
                            var b="";
                            b=Obtener_Mes_Actual(b);// Cuando Mes Nulo.  
                            var f="";
			 }
                      }                
                   }
              }
           } 


           f = Obtener_anno2(f); // Completar año.


           // Validaciones de la Fecha Formada. 
	   if ( (parseInt(Number(d))!=parseFloat(d)) ||
	      (parseInt(Number(b))!=parseFloat(b)) ||
	      (parseInt(Number(f))!=parseFloat(f)) )
	   {
	      alert("Debe especificar un número entero en la Fecha.");
	      fecha.focus();
	      return false;
	   }


  	   //errores básicos
	   if (b<1 || b>12) 
	      err = 2;

	   if (d<1 || d>31)
	      err = 3;

	   if (f<0 || f>9999)
	      err = 4;
	
  	   // menos de 30 dias
	   if (b==4 || b==6 || b==9 || b==11)
	   {
	      if (d==31)
		 err=3;
	   }

	   // febrero
           if (b == 2 && 
               (d > 29 || 
                (d == 29 && 
                 ((f % 400 != 0) && 
                  ((f % 4 != 0) || 
                   (f % 100 == 0)))
                )
               )
              )  
              err=3;


   }
   // Fecha Nula: salimos. 
   else
   {
      return true;
   }


   // Mensajes de Error.
   if (err==1) 
      var merr = "Formato de fecha incorrecto.";

   if (err==2) 
      var merr = "Mes incorrecto en la fecha.";

   if (err==3) 
      var merr = "Día incorrecto en la fecha.";

   if (err==4) 
      var merr = "Año incorrecto en la fecha.";



   if (merr)
   {
      // Fecha Incorrecta.
      fecha.focus();
      alert(merr); 
      return false;
   }
   else
      // Fecha Correcta.
      fecha.value=d+c+b+c+f;
      return true;

}

//jdr 11/11/2003 Tomo estas funciones de letra-q para validar fechas en Grupos de trabajo
//jjms 03/11/2003 Incluyo una función para Obtener posiciones de "/" y/o "-".
function Obtener_Posiciones(posicion1,posicion2,posicion3,posicion4,posicion5,posicion6) 
{
   if ((posicion1 > - 1) && (posicion1 < 3)) // 1º Va "/"
   {
      var posiciona=posicion1; 

      if (posicion2 > -1) // 2º Va "/ "
      {
         var posicionb=posicion2;
      }
      else // 2º Va "- "
      {
         var posicionb=posicion6;
      }
   }
   else // 1º Va "-"
   {
      var posiciona=posicion3; 

      if (posicion4 > -1) // 2º Va "- "
      {
          var posicionb=posicion4;
      }
      else // 2º Va "/ "
      {
          var posicionb=posicion5;
      }
   }

   var possal=posiciona+";"+posicionb;

   return possal;
}

//jdr 11/11/2003 Tomo estas funciones de letra-q para validar fechas en Grupos de trabajo
//jjms 03/11/2003 Incluyo una función para rellenar el Mes.
function Obtener_Mes_Actual(mes) 
{

    var fechac = new Date(); 

    if (mes=="")   
    { 
       var m = fechac.getMonth()+1;// mes

       if (m < 10) 
       {
          m="0"+m;// mes  
       }
    }
    else
    {
       var m = mes;
    }

    return m;

}

//jdr 11/11/2003 Tomo estas funciones de letra-q para validar fechas en Grupos de trabajo
//jjms 03/11/2003 Incluyo una función para rellenar el Año.
function Obtener_anno2(anno) 
{
    var fechac = new Date(); 
    var f;       

    if (anno =="") // Año nulo.
    {
       var f=fechac.getYear();// Año.
    }   
    else
    {
       if (anno.substring(0,1)=="0" )// Año 0*.
       {
          var g=lpadstr(anno.substring(1,4),4,"2");
          f=g;             
       }
       else
       {
          var f=anno;
       }
    }              

    return f;

}
//fin jdr 11/11/2003 Tomo estas funciones de letra-q para validar fechas en Grupos de trabajo