// Librería para la gestión del calendario

// Variables globales
var Fecha;
var Meses=['Ene','Feb','Mar','Abr','May','Jun','Jul','Ago','Sep','Oct','Nov','Dic'];
var DiasPorMes=[31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31];
IE4 = document.all ? 1:0;
NN6IE5 = document.getElementById ? 1:0;
NN4 = document.layers ? 1:0;

//	destino -> objeto del formulario donde se escribirá la fecha
function escribeDestinoFecha(dia, mes, agno, destino, capa) {
    var des=document.getElementById(destino);
    var anterior=des.value;
    if(dia < 10){
      dia = '0' + dia;
    }
    if(mes < 10) {
      mes = '0' + mes;
    }
    agno=parseInt(agno,10);
    if (agno>0){
        if (agno<10){
            agno="000"+agno;
        }else if(agno<100){
            agno="00"+agno;
        }else if(agno<1000){
            agno="0"+agno;
        }
    }
    var valueFecha = dia+"/"+mes+"/"+agno;
    if (compruebaFechaValida(valueFecha)) { 
        des.value=valueFecha;
        if (isIE) {
            var selects=new Array();
            for (var i=0;i<document.forms.length;i++){
                var f=document.forms[i];
                for (var j=0;j<f.elements.length;j++){
                    var o=f.elements[j];
                    if (o.type&&o.type.indexOf("select")!=-1){
                        selects[selects.length]=o;
                    }
                }
            }
            for (var i=0;i<selects.length;i++){
                var o=selects[i];
                o.style.visibility='visible';
            }
        }

        if (NN4) {
            document.layers[capa].visibility='hide';
        } else if (NN6IE5) {
            document.getElementById(capa).style.visibility='hidden';
        } else if (IE4) {
            document.all[capa].style.visibility='hidden';
        }
    } else {
        alert(MSJ_FECHA_FORMATO+": '"+valueFecha+"'");
        des.value='';
    }
    if (anterior!=valueFecha&&des.onchange){
        des.onchange();
    }
}

// capa -> capa destino donde se escribirá el calendario
function escribeCalendarioCapa(dia,mes,agno,diaSel,mesSel,agnoSel,destino,capa) {
    var cal = String();
    
    var fechaSel;
    if (diaSel!='' && mesSel!='' && agnoSel!=''){
        fechaSel=new Date();
        fechaSel.setDate(diaSel);
        fechaSel.setMonth(mesSel);
        fechaSel.setFullYear("" + parseInt(agnoSel,10));
    }
    // Inicializamos la fecha
    var fechaCalendario = new Date();
    fechaCalendario.setDate(1);
    fechaCalendario.setMonth(mes);
    fechaCalendario.setFullYear("" + parseInt(agno,10))
    // Calculamos si estamos en un año bisiesto y actualizamos los dias por mes
    var EsteAgno = parseInt(fechaCalendario.getFullYear(),10);
    if (((EsteAgno % 4 == 0) && (EsteAgno % 100 != 0)) || (EsteAgno % 400 == 0)){
        DiasPorMes[1] = 29;
    }else{
        DiasPorMes[1] = 28;
    }
    // Calculamos el día de la semana
    primerDia = fechaCalendario.getDay();
    
    if (primerDia == 0) primerDia = 6;	// Para nosotros el domingo será el último
    else primerDia = primerDia -1;
    
    // Calculamos el número de días que tiene el mes
    EsteMes = fechaCalendario.getMonth();
    numeroDias = DiasPorMes[EsteMes];
    
    // variables para el mes y año anterior y posterior
    var mesanterior = fechaCalendario.getMonth();
    var agnoanterior = parseInt(agno,10);
    mesanterior--;
    if (mesanterior==-1) {
        mesanterior=11;
        agnoanterior--;
    } 
    var messiguiente = fechaCalendario.getMonth();
    var agnosiguiente = agno;
    messiguiente++;
    if (messiguiente==12) {
        messiguiente = 0;
        agnosiguiente++;
    }
    var agnomasuno=parseInt(agno,10)+1;
    var agnomenosuno=parseInt(agno,10)-1;
    var hayagnoanterior=true;
    if(agnomenosuno==0){hayagnoanterior=false;}
    var mesactual=fechaCalendario.getMonth();
    var haymesanterior=true;
    if(!hayagnoanterior&&mesactual==0){haymesanterior=false;}
    cal = "<table width=\"150\" bordercolor=\"#666666\" border=\"1\" cellspacing=\"0\" cellpadding=\"1\" bgcolor=\"#FFFFFF\"><tr><td>";
    cal = cal + "<table width='150' class='dias' cellpadding='1' cellspacing='0'>";
    // Cabecera mes y año
    cal = cal + "<tr>";
    
    cal = cal + "<td>";
    if(haymesanterior){
        cal = cal + "<a href='#BTN_" + destino +"' title='Mes anterior' style='border: none;' onkeypress='this.onclick' onclick='escribeCalendarioCapa(\""+dia+"\",\""+mesanterior+"\",\""+agnoanterior+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;' onkeypress='escribeCalendarioCapa(\""+dia+"\",\""+mesanterior+"\",\""+agnoanterior+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;'>";
        cal = cal + "<img border='0' src='" + CONTEXTO + "/imagenes_publicas/agenda-menos.gif' alt='Mes anterior' />";
        cal = cal + "</a>";
    }else{
        cal = cal + "&nbsp;";
    }
    cal = cal + "</td>";

    cal = cal + "<td colspan='5'>";
    cal = cal + "&nbsp;";
    cal = cal + "<div class='titulo' align='center'>" + Meses[fechaCalendario.getMonth()] + "</div>";
    cal = cal + "&nbsp;";
    cal = cal + "</td>";

    cal = cal + "<td>";
    cal = cal + "<a href='#BTN_" + destino + "' title='Mes posterior' style='border: none;' onkeypress='this.onclick' onclick='escribeCalendarioCapa(\""+dia+"\",\""+messiguiente+"\",\""+agnosiguiente+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;' onkeypress='escribeCalendarioCapa(\""+dia+"\",\""+messiguiente+"\",\""+agnosiguiente+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;'>";
    cal = cal + "<img border='0' src='" + CONTEXTO + "/imagenes_publicas/agenda-mas.gif' alt='Mes posterior' />";
    cal = cal  + "</a>";
    cal = cal + "</td>";
    
    
    cal = cal + "</tr>";

    cal = cal + "<tr>";

    cal = cal + "<td>";
    if(haymesanterior){
        cal = cal + "<a href='#BTN_" + destino +"' title='Mes anterior' style='border: none;' onkeypress='this.onclick' onclick='escribeCalendarioCapa(\""+dia+"\",\""+mesanterior+"\",\""+agnoanterior+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;' onkeypress='escribeCalendarioCapa(\""+dia+"\",\""+mesanterior+"\",\""+agnoanterior+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;'>";
        cal = cal + "<img border='0' src='" + CONTEXTO + "/imagenes_publicas/agenda-menos.gif' alt='Mes anterior' />";
        cal = cal + "</a>";
    }else{
        cal = cal + "&nbsp;";
    }
    cal = cal + "</td>";

    cal = cal + "<td colspan='5'>";
    cal = cal + "&nbsp;";
    cal = cal + "<div class='titulo' align='center'>" + parseInt(fechaCalendario.getFullYear(),10) + "</div>";
    cal = cal + "&nbsp;";
    cal = cal + "</td>";

    cal = cal + "<td>";
    cal = cal + "<a href='#BTN_" + destino +"' title='Año posterior' style='border: none;' onkeypress='this.onclick' onclick='escribeCalendarioCapa(\""+dia+"\",\""+mesactual+"\",\""+agnomasuno+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;' onkeypress='escribeCalendarioCapa(\""+dia+"\",\""+mesactual+"\",\""+agnomasuno+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;'>";
    cal = cal + "<img border='0' src='" + CONTEXTO + "/imagenes_publicas/agenda-mas.gif' alt='Año posterior' />";
    cal = cal + "</a>";
    cal = cal + "</td>";


    /* cal = cal + "<td colspan='7'><div class='titulo' align='center'>";
    if(haymesanterior){
        cal = cal + "<a href='#BTN_" + destino +"' title='Mes anterior' style='border: none;' onkeypress='this.onclick' onclick='escribeCalendarioCapa(\""+dia+"\",\""+mesanterior+"\",\""+agnoanterior+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;' onkeypress='escribeCalendarioCapa(\""+dia+"\",\""+mesanterior+"\",\""+agnoanterior+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;'>";
        cal = cal + "<img border='0' src='" + CONTEXTO + "/imagenes_publicas/agenda-menos.gif' alt='Mes anterior' />";
        cal = cal + "</a>";        
    }else{
        cal = cal + "&nbsp;";
    }
    cal = cal + "&nbsp;";
    cal = cal + Meses[fechaCalendario.getMonth()];
    cal = cal + "&nbsp;";

    cal = cal + "<a href='#BTN_" + destino + "' title='Mes posterior' style='border: none;' onkeypress='this.onclick' onclick='escribeCalendarioCapa(\""+dia+"\",\""+messiguiente+"\",\""+agnosiguiente+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;' onkeypress='escribeCalendarioCapa(\""+dia+"\",\""+messiguiente+"\",\""+agnosiguiente+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;'>";
    cal = cal + "<img border='0' src='" + CONTEXTO + "/imagenes_publicas/agenda-mas.gif' alt='Mes posterior' />";
    cal = cal  + "</a>&nbsp;&nbsp;";
    
   
    if (hayagnoanterior){

        cal = cal + "<a href='#BTN_" + destino + "' title='Año anterior' style='border: none;' onkeypress='this.onclick' onclick='escribeCalendarioCapa(\""+dia+"\",\""+mesactual+"\",\""+agnomenosuno+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;' onkeypress='escribeCalendarioCapa(\""+dia+"\",\""+mesactual+"\",\""+agnomenosuno+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;'>";
        cal = cal + "<img border='0' src='" + CONTEXTO + "/imagenes_publicas/agenda-menos.gif' alt='Año anterior' />";

        cal = cal + "</a>";
    }else{
        cal = cal + "&nbsp;";
    }
    cal = cal + "&nbsp;";
    cal = cal + parseInt(fechaCalendario.getFullYear(),10);
    cal = cal + "&nbsp;";
    cal = cal + "<a href='#BTN_" + destino +"' title='Año posterior' style='border: none;' onkeypress='this.onclick' onclick='escribeCalendarioCapa(\""+dia+"\",\""+mesactual+"\",\""+agnomasuno+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;' onkeypress='escribeCalendarioCapa(\""+dia+"\",\""+mesactual+"\",\""+agnomasuno+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;'>";
    cal = cal + "<img border='0' src='" + CONTEXTO + "/imagenes_publicas/agenda-mas.gif' alt='Año posterior' />";
    cal = cal + "</a>";
    cal = cal + "</div></td>"*/
    cal = cal + "</tr>"


    // Cabecera días de la semana
    cal = cal + "<tr class='semana'>";
    cal = cal + "<td><div align=\"center\"><b>L</b></div></td>";
    cal = cal + "<td><div align=\"center\"><b>M</b></div></td>";
    cal = cal + "<td><div align=\"center\"><b>X</b></div></td>";
    cal = cal + "<td><div align=\"center\"><b>J</b></div></td>";
    cal = cal + "<td><div align=\"center\"><b>V</b></div></td>";
    cal = cal + "<td><div align=\"center\"><b>S</b></div></td>";
    cal = cal + "<td><div align=\"center\"><b>D</b></div></td>";						
    cal = cal + "</tr>";
    // Escribimos los espacios en blanco en la primera fila
    cal = cal + "<tr class='dias'>"
    columna = 0;
    for (i=0; i<primerDia; i++){
        cal = cal + "<td>&nbsp;</td>";
        columna++;
    }
    // Escribimos los días
    for (i=1; i<=numeroDias; i++) {
        var fechaHoy=new Date();
        fechaHoy.setDate(i);
        fechaHoy.setMonth(mes);
        fechaHoy.setFullYear("" + agno);
        var estilo="dias";
        if (fechaSel && fechaSel != null && fechaHoy.getFullYear()==fechaSel.getFullYear() && fechaHoy.getMonth()==fechaSel.getMonth() && fechaHoy.getDate()==fechaSel.getDate()){
            estilo="diasSelected";
        }

        cal = cal + "<a href='#BTN_" + destino + "' class='gris' title='Ver día' onkeypress='this.onclick' onclick='escribeDestinoFecha(" + i + "," + (EsteMes+1) + "," + EsteAgno + ",\"" + destino + "\",\"" + capa + "\");return false;' onkeypress='escribeDestinoFecha(" + i + "," + (EsteMes+1) + "," + EsteAgno + ",\"" + destino + "\",\"" + capa + "\");return false;'>";
        cal = cal + '' + i;
        cal = cal + "</a>";

        columna++;
        if (columna==7 && i!=numeroDias){
            columna=0;
            cal = cal + "</tr><tr class='dias'>";
        }
    }
    while(columna<7) {
        cal = cal + "<td>&nbsp;</td>";
        columna++;
    }

    cal = cal + "<div class='calendario_cerrar' >[<a id='botonCerrar' href='#BTN_" + destino + "' onkeypress='this.onclick' onclick='cerrarCalendario(\""+capa+"\");return false;' onkeypress='cerrarCalendario(\""+capa+"\");return false;'>Cerrar</a>]</div>";
    

    // Mostramos la capa
    if(NN4){
        document.layers[capa].document.open();
        document.layers[capa].document.write(cal);
        document.layers[capa].document.close();
        document.layers[capa].visibility = "show";
    }else if(NN6IE5){
        document.getElementById(capa).innerHTML=cal;
        document.getElementById(capa).style.visibility="visible";
    }else if(IE4){
        document.all[capa].innerHTML=cal;
        document.all[capa].style.visibility="visible";
    }
}

function cerrarCalendario(capa) {
    if (isIE) {
        var selects=new Array();
        for (var i=0;i<document.forms.length;i++){
            var f=document.forms[i];
            for (var j=0;j<f.elements.length;j++){
                var o=f.elements[j];
                if (o.type&&o.type.indexOf("select")!=-1){
                    selects[selects.length]=o;
                }
            }
        }
        for (var i=0;i<selects.length;i++){
            var o=selects[i];
            o.style.visibility='visible';
        }
    }
    
    if (NN4) {
        document.layers[capa].visibility='hide';
    }else if (NN6IE5) {
        document.getElementById(capa).style.visibility='hidden';
    } else if (IE4) {
        document.all[capa].style.visibility='hidden';
    }
}

function calendario(destino,capa,dga) {
    var fec = new Date();
    var d=document.getElementById(destino);
    var selected=false;
    if(d.value!="" && d.value.length==10 && d.value != "DD/MM/AAAA"){
        var trozos=d.value.split("/");
        if (trozos.length==3) {
            if (trozos[0].length==2 && trozos[0].charAt(0)=='0') {
                trozos[0] = trozos[0].substring(1);
            }
            if (trozos[1].length==2 && trozos[1].charAt(0)=='0') {
                trozos[1] = trozos[1].substring(1);
            }
            fec.setDate(parseInt(trozos[0]));
            fec.setMonth(parseInt(trozos[1]) - 1);
            fec.setFullYear(parseInt(trozos[2],10));
            selected=true;
        }
    }
    var dia = fec.getDate();
    var mes = fec.getMonth();
    var ano = fec.getFullYear();
    if (selected){
        if(dga != null) {
          var str = escribeCalendarioCapaDGA(dia,mes,ano,dia,mes,ano,destino,capa);
        } else {
          var str = escribeCalendarioCapa(dia,mes,ano,dia,mes,ano,destino,capa);
        }
    }else{
        if(dga != null) {
          var str = escribeCalendarioCapaDGA(dia,mes,ano,'','','',destino,capa);
        } else {
          var str = escribeCalendarioCapa(dia,mes,ano,'','','',destino,capa);
        }
    }
    findObj('botonCerrar').focus();
}

function verCalendario(campo, capa,dga) {
    var divs=document.getElementsByTagName("div");
    for (var i=0;i<divs.length;i++){
        var name=divs[i].id;
        if(name.indexOf("__cal__")>=0){
            var visible=false;
            if (NN4&&divs[i].style.visibility=="show"){visible=true;}
            else if(NN6IE5&&divs[i].style.visibility=="visible"){visible=true;}
            else if(IE4&&divs[i].style.visibility=="visible"){visible=true;}
            if (visible){
                cerrarCalendario(name);
            }
        }
    }
    if (isIE) {
        var selects=new Array();
        for (var i=0;i<document.forms.length;i++){
            var f=document.forms[i];
            for (var j=0;j<f.elements.length;j++){
                var o=f.elements[j];
                if (o.type&&o.type.indexOf("select")!=-1){
                    selects[selects.length]=o;
                }
            }
        }
        for (var i=0;i<selects.length;i++){
            var o=selects[i];
            o.style.visibility='hidden';
        }
    }
    calendario(campo, capa,dga);
}

// Función para validar fechas



// Valida número coma flotante
function isFloat(s){
    var i;
    var seenDecimalPoint=false;

    if (isEmpty(s)) 
       if (isFloat.arguments.length == 1) return true;
       else return (isFloat.arguments[1] == true);

    if (s == '.') return false;

    // Search through string's characters one by one
    // until we find a non-numeric character.
    // When we do, return false; if we don't, return true.

    for (i = 0; i < s.length; i++){   
        // Check that current character is number.
        var c = s.charAt(i);

        if ((c == '.') && !seenDecimalPoint) seenDecimalPoint = true;
        else if (!isDigit(c)) return false;
    }

    // All characters are numbers.
    return true;
}

function isEmpty(s){return s==null||s.length == 0}
function isDigit(c){return c>="0"&&c<="9"}


// capa -> capa destino donde se escribirá el calendario
function escribeCalendarioCapaDGA(dia,mes,agno,diaSel,mesSel,agnoSel,destino,capa) {
    var cal = String();
    
    var fechaSel;
    if (diaSel!='' && mesSel!='' && agnoSel!=''){
        fechaSel=new Date();
        fechaSel.setDate(diaSel);
        fechaSel.setMonth(mesSel);
        fechaSel.setFullYear("" + agnoSel);
    }
    // Inicializamos la fecha
    var fechaCalendario = new Date();
    fechaCalendario.setDate(1);
    fechaCalendario.setMonth(mes);
    fechaCalendario.setFullYear("" + agno)
    // Calculamos si estamos en un año bisiesto y actualizamos los dias por mes
    var EsteAgno = fechaCalendario.getFullYear();
    if (((EsteAgno % 4 == 0) && (EsteAgno % 100 != 0)) || (EsteAgno % 400 == 0)){DiasPorMes[1] = 29;}
    else{DiasPorMes[1] = 28;}
    
    // Calculamos el día de la semana
    primerDia = fechaCalendario.getDay();
    
    if (primerDia == 0) primerDia = 6;	// Para nosotros el domingo será el último
    else primerDia = primerDia -1;
    
    // Calculamos el número de días que tiene el mes
    EsteMes = fechaCalendario.getMonth();
    numeroDias = DiasPorMes[EsteMes];
    
    // variables para el mes y año anterior y posterior
    var mesanterior = fechaCalendario.getMonth();
    var agnoanterior = agno;
    mesanterior--;
    if (mesanterior==-1) {
        mesanterior=11;
        agnoanterior--;
    } 
    var messiguiente = fechaCalendario.getMonth();
    var agnosiguiente = agno;
    messiguiente++;
    if (messiguiente==12) {
        messiguiente = 0;
        agnosiguiente++;
    }
    var agnomasuno=parseInt(agno)+1;
    var agnomenosuno=parseInt(agno)-1;
    var hayagnoanterior=true;
    if(agnomenosuno==0){hayagnoanterior=false;}
    var mesactual=fechaCalendario.getMonth();
    var haymesanterior=true;
    var filas = 1;
    if(!hayagnoanterior&&mesactual==0){haymesanterior=false;}

    // Cabecera mes y año
    //cal = cal + "<div class=\"fila_agenda_top\">";
    cal = cal + "<div class=\"seemTr\">";
    cal = cal + "<div class=\"seemTr\">";
    cal = cal + "<div class=\"seemTd40AlignIzq centrado padding3Sup\">";
    if(haymesanterior){
        cal = cal + "<a href='#BTN_" + destino +"' title='Mes anterior' onclick='escribeCalendarioCapaDGA(\""+dia+"\",\""+mesanterior+"\",\""+agnoanterior+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;' onkeypress='escribeCalendarioCapaDGA(\""+dia+"\",\""+mesanterior+"\",\""+agnoanterior+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;'>";
        cal = cal + "<img border='0' src='" + CONTEXTO + "/imagenes_publicas/agenda-menos.gif' alt='Mes anterior' />";
        cal = cal + "</a>";        
    }else{
        cal = cal + "&nbsp;";
    }
    cal = cal + "</div>";
    cal = cal + "<div class=\"seemTd20AlignIzq centrado fondoApl3 textoApl3\">";
    cal = cal + Meses[fechaCalendario.getMonth()];
    cal = cal + "</div>";
    cal = cal + "<div class=\"seemTd40AlignIzq centrado padding3Sup\">";
    cal = cal + "<a href='#BTN_" + destino + "' title='Mes posterior' onclick='escribeCalendarioCapaDGA(\""+dia+"\",\""+messiguiente+"\",\""+agnosiguiente+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;' onkeypress='escribeCalendarioCapaDGA(\""+dia+"\",\""+messiguiente+"\",\""+agnosiguiente+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;'>";
    cal = cal + "<img border='0' src='" + CONTEXTO + "/imagenes_publicas/agenda-mas.gif' alt='Mes posterior' />";
    cal = cal  + "</a>";
    cal = cal + "</div>";
    cal = cal + "</div>";
    cal = cal + "<div class=\"seemTr\">";
    cal = cal + "<div class=\"seemTd40AlignIzq centrado padding3Sup\">";
    if (hayagnoanterior){
        cal = cal + "<a href='#BTN_" + destino + "' title='Año anterior' onclick='escribeCalendarioCapaDGA(\""+dia+"\",\""+mesactual+"\",\""+agnomenosuno+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;' onkeypress='escribeCalendarioCapaDGA(\""+dia+"\",\""+mesactual+"\",\""+agnomenosuno+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;'>";
        cal = cal + "<img border='0' src='" + CONTEXTO + "/imagenes_publicas/agenda-menos.gif' alt='Año anterior' />";
        cal = cal + "</a>";
    }else{
        cal = cal + "&nbsp;";
    }
    cal = cal + "</div>";
    cal = cal + "<div class=\"seemTd20AlignIzq centrado fondoApl3 textoApl3\">";
    cal = cal + parseInt(fechaCalendario.getFullYear(),10);
    cal = cal + "</div>";
    cal = cal + "<div class=\"seemTd40AlignIzq centrado padding3Sup\">";
    cal = cal + "<a href='#BTN_" + destino +"' title='Año posterior' onclick='escribeCalendarioCapaDGA(\""+dia+"\",\""+mesactual+"\",\""+agnomasuno+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;' onkeypress='escribeCalendarioCapa(\""+dia+"\",\""+mesactual+"\",\""+agnomasuno+"\",\""+diaSel+"\",\""+mesSel+"\",\""+parseInt(agnoSel,10)+"\",\"" + destino+ "\",\"" + capa +"\");return false;'>";
    cal = cal + "<img border='0' src='" + CONTEXTO + "/imagenes_publicas/agenda-mas.gif' alt='Año posterior' />";
    cal = cal + "</a>";
    cal = cal + "</div>";
    cal = cal + "</div>";    
    // Cabecera días de la semana
    cal = cal + "<div class=\"seemTr centrado\">";
    cal = cal + "<span class=\"centrado fondoApl3 textoApl3\" style=\"width:2em;float:left;\">L</span>";
    cal = cal + "<span class=\"centrado fondoApl3 textoApl3\" style=\"width:2em;float:left;\">M</span>";
    cal = cal + "<span class=\"centrado fondoApl3 textoApl3\" style=\"width:2em;float:left;\">X</span>";
    cal = cal + "<span class=\"centrado fondoApl3 textoApl3\" style=\"width:2em;float:left;\">J</span>";
    cal = cal + "<span class=\"centrado fondoApl3 textoApl3\" style=\"width:2em;float:left;\">V</span>";
    cal = cal + "<span class=\"centrado fondoApl3 textoApl3\" style=\"width:2em;float:left;\">S</span>";
    cal = cal + "<span class=\"centrado fondoApl3 textoApl3\" style=\"width:2em;float:left;\">D</span>";
    cal = cal + "</div>";
    
    // Escribimos los espacios en blanco en la primera fila
    cal = cal + "<div class=\"seemTr centrado\">";
    columna = 0;
    for (i=0; i<primerDia; i++){
        cal = cal + "<span class=\"centrado\" style=\"width:2em;float:left;\">&nbsp;</span>";
        columna++;
    }
    
    // Escribimos los días
    for (i=1; i<=numeroDias; i++) {
        var fechaHoy=new Date();
        fechaHoy.setDate(i);
        fechaHoy.setMonth(mes);
        fechaHoy.setFullYear("" + agno);
        var estilo="dias";
        if (fechaSel && fechaSel != null && fechaHoy.getFullYear()==fechaSel.getFullYear() && fechaHoy.getMonth()==fechaSel.getMonth() && fechaHoy.getDate()==fechaSel.getDate()){
            estilo="diasSelected";
        }
        cal = cal + "<span class=\"centrado\" style=\"width:2em;float:left;\">";
        cal = cal + "<a href='#BTN_" + destino + "' class='gris' title='Ver día' onclick='escribeDestinoFecha(" + i + "," + (EsteMes+1) + "," + EsteAgno + ",\"" + destino + "\",\"" + capa + "\");return false;' onkeypress='escribeDestinoFecha(" + i + "," + (EsteMes+1) + "," + EsteAgno + ",\"" + destino + "\",\"" + capa + "\");return false;'>";
        cal = cal + '' + i;
        cal = cal + "</a>";
        cal = cal + "</span>";
        columna++;
        if (columna==7 && i!=numeroDias){
            columna=0;
            filas++;
        }
    }
    cal = cal + "</div>";    
    for(j=0; j <= filas; j++){
        cal = cal + "</div>";
    }
    cal = cal + "<div class=\"seemTr centrado gris\" >[<a id='botonCerrar' class='gris' href='#BTN_" + destino + "' onclick='cerrarCalendario(\""+capa+"\");return false;' onkeypress='cerrarCalendario(\""+capa+"\");return false;'>Cerrar</a>]</div>";
    
    // Mostramos la capa
    if (NN4) {
        document.layers[capa].document.open();
        document.layers[capa].document.write(cal);
        document.layers[capa].document.close();
        document.layers[capa].visibility = "show";
        document.layers[capa].display = "block";
    }else if (NN6IE5) {
        document.getElementById(capa).innerHTML=cal;
        document.getElementById(capa).style.visibility = "visible";
         document.getElementById(capa).style.display = "block";
    } else if (IE4) {
        document.all[capa].innerHTML = cal;
        document.all[capa].style.visibility = "visible";
        document.all[capa].style.visibility = "block";
    }
}