<!--

   var HM_DOM = (document.getElementById) ? true : false;
   var HM_NS4 = (document.layers) ? true : false;
   var HM_IE = (document.all) ? true : false;
   var HM_IE4 = HM_IE && !HM_DOM;
   var HM_Mac = (navigator.appVersion.indexOf("Mac") != -1);
   var HM_IE4M = HM_IE4 && HM_Mac;
   var HM_IsMenu = (HM_DOM || HM_NS4 || (HM_IE && !HM_IE4M));

   if(!HM_IsMenu) event = null;

var zz, zv, d, fTSR;
var gBF=false;
var g_MINY = 1601;
var g_MAXY = 4500;
var g_month = 0;
var g_day = 0;
var g_year = 0;
var g_yLow = 1990;
var g_eC=null;
var g_eCV="";

var rgMC = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
d = new Date();
fTSR=0;
zv = d.getTime();
zz = "&zz="+zv;

var DiasPorMes=[31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31];
ns4 = (document.layers)? true:false
ie4 = (document.all)? true:false
ie5=(ie4 && navigator.userAgent.indexOf('MSIE 5')>0);
var x = 0;
var y = 0;
var trk = 0;
var offsetx=-85;
var offsety=14;
var diaSeleccionado= ""+diaSeleccionado;
var xCalendario="0";
var yCalendario="0";


//if (ns4 || ie4) {
   //if (ns4) over = document.ptsDiv
   //if (ie4) over = ptsDiv.style
   //document.onmousemove = mouseMove
   //if (ns4) document.captureEvents(Event.MOUSEMOVE)
//}

function callayerWrite(txt) {
        if (ns4) {
                var lyr = document.ptsDiv.document
                lyr.write(txt)
                lyr.close()
        }
        else if (ie4) document.all["calendario"].innerHTML = txt
}

function MM_SIR() { //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_PI() { 
    var d=document; 
    if(d.images){ 
      if(!d.MM_p) d.MM_p=new Array();
      var i,j=d.MM_p.length,a=MM_PI.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_FO(n, d) { 
    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_FO(n,d.layers[i].document); return x;
}

function MM_SI() { 
    var i,j=0,x,a=MM_SI.arguments; 
    document.MM_sr=new Array; 
    for(i=0;i<(a.length-2);i+=3)
    if ((x=MM_FO(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function vacio()
{
}

esletra        = " ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789.-桍摋薃𠻝賽邲竦&";
esnumero       = "0123456789";

function es_numero(cadena,lg)
{
   if (lg != cadena.length)  {return 1;}
   for (i=0;i<cadena.length;i++)
   if (esnumero.indexOf(cadena.charAt(i))==-1){return 1;}
   return 0;
}

function es_letra (cadena)
{
   lg = cadena.length;
   if (lg == 0) {return 1};
   for (i=0;i<cadena.length;i++)
   if (esletra.indexOf(cadena.charAt(i))==-1){return 1;}
   return 0;
}

function initForm() {
  if (navigator.userAgent.indexOf('Gecko') != -1) {
  document.frmMeteoro.D_Day_sel.selectedIndex = 0;
  document.frmMeteoro.R_Day_sel.selectedIndex = 0;
  document.frmMeteoro.D_Month_sel.selectedIndex = 0;
  document.frmMeteoro.R_Month_sel.selectedIndex = 0;
  }
}


function openwindow(direccion, name, cadena)  
{  
  var winf = window.open(direccion,name,cadena);  
  winf.focus();  
} 

function abrirventana(varHttp, lenX, lenY, bScroll) {
    var winf = open(varHttp, null, "width=" + lenX + ",height=" + lenY + ",status=no,menubar=no,scrollbars=" + bScroll + ",resizable=no");
    winf.focus();  
}

function GoToAuxWin(n, page){
numero = n;
page = "/pl/" + page;
listin = open(page, "", "toolbar=no,location=no,directories=no,status=yes,menubar=no,scrollbars=yes,resizable=yes,copyhistory=no,width=320,height=300");
if(navigator.appName == "Netscape")
listin.focus();
}

function Calendario(tipo,pais_an,x ,y){


         if (x!=null)
         {
           xCalendario=x;
           yCalendario=y;
         }else
         {
           xCalendario="510";
           yCalendario="230";

         }
	tipoFecha=tipo;
	pais=pais_an;

	if (calendario.style.visibility=="visible")
	{
     	   cerrarCalendario();
  	   return;
	}
	abrirCalendario(tipo);
}

function showObject(obj) {
if (ns4) obj.visibility = "show"
else if (ie4) obj.visibility = "visible"
}

function hideObject(obj) {
if (ns4) obj.visibility = "hide"
else if (ie4) obj.visibility = "hidden"
}

function abrirCalendario(tipoFecha){
  var text_cal="";
  fecha_real =new Date();
  anio_real = fecha_real.getFullYear();
  mes_real = fecha_real.getMonth();
  dia_real = fecha_real.getDate();


  if (tipoFecha=='I')
  {
         fechaInputSeleccionada=document.frmMeteoro.fechaI.value.substring(document.frmMeteoro.fechaI.value.indexOf("/"),document.frmMeteoro.fechaI.value.length);
         diaYaSeleccionado=1*document.frmMeteoro.fechaI.value.substring(0,document.frmMeteoro.fechaI.value.indexOf('/'));
  }
  else if(tipoFecha=='V')
  {
         fechaInputSeleccionada=document.frmMeteoro.fechaV.value.substring(document.frmMeteoro.fechaV.value.indexOf("/"),document.frmMeteoro.fechaV.value.length);
         diaYaSeleccionado=1*document.frmMeteoro.fechaV.value.substring(0,document.frmMeteoro.fechaV.value.indexOf('/'));

  }else   if (tipoFecha=='CI')
  {
         fechaInputSeleccionada=document.frmMeteoro.fechaI.value.substring(document.FormRicerca.calendarioI.value.indexOf("/"),document.FormRicerca.calendarioI.value.length);
         diaYaSeleccionado=1*document.FormRicerca.calendarioI.value.substring(0,document.FormRicerca.calendarioI.value.indexOf('/'));
  }
  else if (tipoFecha=='CV')
  {
         fechaInputSeleccionada=document.FormRicerca.calendarioV.value.substring(document.FormRicerca.calendarioV.value.indexOf("/"),document.frmMeteoro.fechaV.value.length);
         diaYaSeleccionado=1*document.FormRicerca.calendarioV.value.substring(0,document.FormRicerca.calendarioV.value.indexOf('/'));

  }

  ano = "" +Hoy.getYear();
  mes = (Hoy.getMonth()+1);
  mes = (mes<10?"0":"")+mes;
  fechaSeleccionada="/"+mes+"/"+ano.substring(2,4);


  var Anyo=Hoy.getYear(); // Si el a隳 es anterior a 2000 debe sumarse 1900 a la cantidad obtenida
   // Observacion: El anyo se contabiliza a partir de 1900
   var EsteDia=Hoy.getDate();

  // Actualizacion del mes de Febrero (por los anyos bisiestos)
  if (((Anyo % 4 == 0) && (Anyo % 100 != 0)) || (Anyo % 400 == 0))
    DiasPorMes[1] = 29;
  // Numero de dias del mes actual
  NDias =DiasPorMes[Hoy.getMonth()];

  // Calculo que dia de la semana es el primero del mes
  PrimerDia=Hoy;
  PrimerDia.setDate(1);
 // Observacion: Obtengo el dia de hoy (p.e, 10-11-1999) y calculo que dia de la semana
 // es el dia 1 del mismo mes y anyo (p.e, 1-11-1999)

  Comienzo=PrimerDia.getDay();

  if (Comienzo==0) Comienzo=6;
    else Comienzo=PrimerDia.getDay()-1;

 // Escritura en la pantalla de la tabla correspondiente al mes actual 

   text_cal="<div id='calendario' style='position:absolute; VISIBILITY: hidden;z-index=28;left:"+xCalendario+";top:"+yCalendario+"'>"
   text_cal=text_cal+"<CENTER>"
   text_cal=text_cal+"<TABLE BORDER=0 cellspacing=0 cellpadding=1 bgcolor=000000>"
   text_cal=text_cal+"<tr><td>"
   text_cal=text_cal+"<TABLE BORDER=0 cellspacing=0 cellpadding=0 bgcolor=FFFFFF>"
   text_cal=text_cal+"<TR bgcolor=9AC3DB class=B>"

   // Escribo en nombre del mes en la cabecera de la tabla

	// Esta condicion permite mostrar solo a partir del mes actual
   //if ( Hoy.getMonth() == mes_real && Hoy.getFullYear() == anio_real )
     //text_cal=text_cal+"<TD align=left width=20>&nbsp;"
   //else
     text_cal=text_cal+"<TD align=center width='20'><a href='Javascript:void(null)' onClick='mesAtras(&quot;"+tipoFecha+"&quot;)'><img src='Archivos/pic012.gif' border=0 ></a>"
     text_cal=text_cal+"</TD>"

 text_cal=text_cal+'<td COLSPAN=5 align=center>'+Meses[Hoy.getMonth()*1]

   // Observacion: Los meses se numeran desde 0 hasta 11

   text_cal=text_cal+" "
   text_cal=text_cal+Anyo
     text_cal=text_cal+"<TD align=center width='20'><a href='Javascript:void(null)' onClick='mesAdelante(&quot;"+tipoFecha+"&quot;)'><img src='Archivos/pic013.gif' border=0 ></a>"
  text_cal=text_cal+"</TD></TR>"
   text_cal=text_cal+"<tr><td colspan=7 bgcolor=000000><img src='Archivos/t.gif' height=1 border=0></td></tr>"
   text_cal=text_cal+"<TR class=B bgcolor=FFFFFF><td align=center>L<td align=center>M<td align=center>X<td align=center>J<td align=center>V<td align=center>S<td align=center>D</TR>"

   text_cal=text_cal+"<tr><td colspan=7 bgcolor=000000><img src='Archivos/t.gif' height=1 border=0></td></tr>"

 // Escritura de los espacios en blanco de la tabla

 text_cal=text_cal+"<TR>"
   columna=0;

   for (i=0; i<Comienzo; i++)
      {
        text_cal=text_cal+"<TD>"
        columna++;
        text_cal=text_cal+"</TD>"
      }

   // Escritura de los dias del mes

 for (i=1; i<=NDias; i++)
      {
      text_cal=text_cal+"<TD class=B width='20'>"
        if ((i == diaYaSeleccionado)&&(fechaInputSeleccionada == fechaSeleccionada))
             estilo="class='azul'";
        else if (columna == 6)
             estilo="class='rojo'";
        else 
             estilo="class='normal'";
		// Esta condicion muestra en gris los dias transcurridos del mes actual
   //if ( Hoy.getMonth() == mes_real && Hoy.getFullYear() == anio_real && i < dia_real)
   //     text_cal=text_cal+"<center><font color='#CCCCCC'>"+i+"</font></center>"
   //else
        text_cal=text_cal+"<center><div id="+i+" style='cursor:hand' onclick='javascript:diaSeleccionado="+i+";verDiaSeleccionado(&quot;"+tipoFecha+"&quot;)'><a href='Javascript:void(null)' "+estilo+">"+i+"</a></div></center>"

        if (i == EsteDia || columna == 6)
             text_cal=text_cal
        else if (columna == 0)
             text_cal=text_cal
        text_cal=text_cal+"</TD>"
columna++;
        if (columna == 7)
          { text_cal=text_cal+"</TR><TR>"; // Comienza una nueva fila
            columna=0;
          }
    }//fin del for

  text_cal=text_cal+"</TR>"
  text_cal=text_cal+"<TR>"

  text_cal=text_cal+"<TD colspan=5></td><td colspan=2 align=right><a href='Javascript:void(null)' onClick='cerrarCalendario()'><img src='Archivos/pic014.gif' border=0 ></a>"
  text_cal=text_cal+"</TD>"
  text_cal=text_cal+"</TR>"
text_cal=text_cal+"</TABLE>"
  text_cal=text_cal+"</TD>"
  text_cal=text_cal+"</TR>"
text_cal=text_cal+"</TABLE>"
text_cal=text_cal+"</CENTER>"
  text_cal=text_cal+"</div>"

//var text="hola mariquita";
//text_cal=    "<TABLE WIDTH=80 BORDER=0 CELLPADDING=1 CELLSPACING=0 BGCOLOR=#044064><TR><TD><TABLE WIDTH=100% BORDER=0 CELLPADDING=1 CELLSPACING=0><TR><TD nowrap class=pts>&nbsp;"+text+"&nbsp;</TD></TR></TABLE></TD></TR></TABLE>";
//alert(text_cal);
//callayerWrite(text_cal);

calendario.outerHTML=text_cal;
calendario.style.visibility="visible";

}//finn de abrir calendario

function cerrarCalendario(){
     calendario.style.visibility="hidden";
}


function verDiaSeleccionado(tipoFecha){
mesActual=Hoy.getMonth()+1;
anoActual=Hoy.getYear();
anoActual=""+anoActual;
mesActual= ""+mesActual;
mesActual = mesActual.length==2 ? mesActual : "0"+mesActual;
diaSeleccionado= ""+diaSeleccionado;
diaSeleccionado = diaSeleccionado.length==2 ? diaSeleccionado : "0"+diaSeleccionado;
//inserta el valor de la fecha seleccionada en el input
if (tipoFecha=="I") {document.frmMeteoro.fechaI.value=diaSeleccionado+"/"+mesActual+"/"+anoActual.substring(2,4);}
else if (tipoFecha=="V"){document.frmMeteoro.fechaV.value=diaSeleccionado+"/"+mesActual+"/"+anoActual.substring(2,4);}
else if (tipoFecha=="CI") {document.FormRicerca.calendarioI.value=diaSeleccionado+"/"+mesActual+"/"+anoActual.substring(2,4);}
else if (tipoFecha=="CV"){document.FormRicerca.calendarioV.value=diaSeleccionado+"/"+mesActual+"/"+anoActual.substring(2,4);}

calendario.style.visibility="hidden";
    //Hoy=new Date(2002,0,28); //a隳,mes,dia
//control_fecha();
   }//fin verDiaSeleccionado

function mesAtras(tipoFecha){
   if (Hoy.getMonth()==0){
  mesActual=11;
  anoActual=Hoy.getYear()-1;
  }
  else{
  mesActual=Hoy.getMonth()-1;
  anoActual=Hoy.getYear();
  }
//     Hoy=new Date(anoActual,mesActual,28); //a隳,mes,dia
      Hoy=new Date(anoActual,mesActual,1); //a隳,mes,dia
      abrirCalendario(tipoFecha);
}//fin mesAtras

function mesAdelante(tipoFecha){
  if (Hoy.getMonth()==11){
  	mesActual=0;
  	anoActual=Hoy.getYear()+1;
  }
  else{
  mesActual=Hoy.getMonth()+1;
  anoActual=Hoy.getYear();
  }
      Hoy=new Date(anoActual,mesActual,1); //a隳,mes,dia
//      Hoy=new Date(anoActual,mesActual,28); //a隳,mes,dia
      abrirCalendario(tipoFecha);
}//fin mesAdelante

function GetInputDate(t) {
var l = t.length;
if(0 == l) return false;
var cSp = '\0';
var sSp1 = "";
var sSp2 = "";
for(var i=0; i<t.length; i++){
var c=t.charAt(i);
if(c==' ' || isdigit(c)) continue;
else if(cSp == '\0' && (c == '/' || c == '-' || c == '.')) {
cSp = c;
sSp1 = t.substring(i+1,l);
} else if(c==cSp) sSp2 = t.substring(i+1,l);
else if(c != cSp) return false;
}
if(0 == sSp1.length) return false;
var m=atoi(sSp1);
var d=atoi(t);
var y; 
if(0 != sSp2.length) y = atoi(sSp2);
else y = DefYr(m,d);
if(y < 100){
y = 1900+y;
while(y < g_yLow) y = y+100;
}
if(y < g_MINY || y > g_MAXY || m < 1 || m > 12) return false;
if(d < 1 || d > GetMonthCount(m,y)) return false;
g_month = m;
g_day = d;
g_year = y;
return true;
}

function DefYr(m,d){
var dt = new Date();
var yCur = (dt.getYear() < 1000) ? 1900+dt.getYear() : dt.getYear();
if(m-1 < dt.getMonth() || (m-1 == dt.getMonth() && d < dt.getDate())) return 1+yCur;
else return yCur;
}

function atoi(s){
var t=0;
for(var i=0; i<s.length; i++){
var c=s.charAt(i);
if(!isdigit(c)) return t;
else t = t*10 + (c-'0');
}
return t;
}

function isdigit(c) {
return(c >= '0' && c <= '9');
}

function GetMonthCount(m,y){
var c = rgMC[m-1];
if((2 == m) && IsLeapYear(y)) c++;
return c;
}

function IsLeapYear(y){
if(0 == y % 4 && ((y % 100 != 0) || (y % 400 == 0))) return true;
else return false;
}

//-->