var ventanas = [null, null, null, null, null];

function asignarVentanas (indxObj) {
    try {
        var asignar = true;

        for (K = 0; (K < ventanas.length && asignar); K++) {
            if (ventanas [K] == indxObj) {
                ventanas [K] = indxObj;
                asignar = false;
            } else if (ventanas [K] == null) K = ventanas.length;
        }

        if (asignar) ventanas [busIndx()] = indxObj;
    } catch (e) {}

    return indxObj;
}

function busIndx () {
    for (K = 0; K < ventanas.length; K++) if (ventanas [K] == null) return K;
}

function cerrarVentanas () {
    try {
	for (K = 0; K < ventanas.length; K++) if (ventanas [K] != null) eval(ventanas [K]).close();
    } catch (e) { } finally { }
}

function enviar_t (lug) {
        if (lug == 0) window.open('http://www.capitales.com/swf/tour_virtual.swf', 'testimonios', 'toolbar=no,location=no,status=no,menubar=no,resizable=yes,scrollbars=yes,width=700,height=500,fullscreen=no,top=0,left=0');
        else window.location="http://www.capitales.com/costarica/suscripcion/index.php";
}

function quitar (obj) {
        obj.value = obj.value.replace(/\W/gi,"");
        obj.value = obj.value.replace(/á/gi,"a");
        obj.value = obj.value.replace(/é/gi,"e");
        obj.value = obj.value.replace(/í/gi,"i");
        obj.value = obj.value.replace(/ó/gi,"o");
        obj.value = obj.value.replace(/ú/gi,"u");
        obj.value = obj.value.replace(/ñ/gi,"n");
        obj.value = obj.value.toLowerCase();
}

function ver (lug) {
	if (lug == 1) document.form.txbuscar.value = "";
	else document.form.ckbuscar.checked = false;
}

function marcar (lug) {
        if (lug == 1) {
		for (var K = 1; K <= document.form.cck.value; K++) {
	                eval ("document.form.ck"+K+".checked=(document.form.ck.checked==true)?true:false;");
		}
	} else if (lug == 2) {
		document.form.ck.checked = false;
		pass = 0;
                for (var K = 1; K <= document.form.cck.value; K++) {
			if ((eval ("document.form.ck"+K+".checked") !== true) || (pass == 1)) {
				eval ("document.form.ck"+K+".checked=false;");
				pass = 1;
			}
                }

        } else {
                document.form.ck.checked = false;
        }
}

function limpiar (lug,ck) {
	var ant = '';

	for (var K = 0; K < lug.length; K++) {
		if (lug.elements[K].type.search(/hidden|checkbox|radio|submit|button/gi) == -1) { lug[K].value = ""; }
		if ((lug.elements[K].type == 'select-one') && (lug.elements[K].name.search(/fec_venc/gi) == -1)) { lug[K].options[0].selected = true; }
		if ((lug.elements[K].type == 'radio') && (lug.elements[K].name != ant)) {
			lug[K].checked = true;
			ant = lug.elements[K].name;
		}

		if ((lug.elements[K].type == 'checkbox') && (lug.elements[K].name.search(/^ckp/gi) != -1)) {
                        lug[K].checked = false;
                } else if ((lug.elements[K].type == 'checkbox') && (lug.elements[K].name.search(/ckstate|^ck$|^ck\d/gi) == -1)) {
			lug[K].checked = true;
		} else if ((lug.elements[K].type == 'checkbox') && (lug.elements[K].name.search(/^ck$|^ck\d/gi) != -1)) {
                        lug[K].checked = false;
                }
	}

	if ((lug.length > 4) && (ck != 3)) { fecha_vence(1,ck); }
}

function fecha_vence (lug,ck) {
	if ((lug == 5) || (ck == 5)) {
                for (var K = 0; K < document.forms[0].length; K++) {
                        if ((document.forms[0].elements[K].type == 'checkbox') &&
                            (document.forms[0].elements[K+1].type == 'select-one') &&
                            (document.form[K].checked == true)) {
                                document.form[K+1].disabled = true;
                        }
                }
	} else if (lug == 1) {
	        for (var K = 0; K < document.forms[0].length; K++) {
        	        if ((document.forms[0].elements[K].type == 'checkbox') &&
			    (document.forms[0].elements[K+1].type == 'select-one') &&
			    (document.form[K].checked == true)) {
				document.form[K+1].disabled = true;
	                }
        	}
                for (var K = 0; K <= 2; K++) {
                        eval ("document.form.NUM_fec_venc"+K+".disabled=(document.form.ckfecha.checked==true)?true:false;");
			if (ck != 1) {
	                        eval ("document.form.NUM_1fec_venc"+K+".disabled=(document.form.ckfecha1.checked==true)?true:false;");
			}
                }
	} else if (ck.indexOf('ckfecha') == -1) {
		lug.disabled = (eval("document.form."+ck+".checked==true")) ? true : false;
	} else if (ck.indexOf('ckfechacre') != -1) {
                for (var K = 0; K <= 2; K++) {
                        eval ("document.form.NUM_fec_cre"+K+".disabled=(document.form.ckfechacre.checked==true)?true:false;");
                }
	} else {
		for (var K = 0; K <= 2; K++) {
			eval ("document.form.NUM_fec_venc"+K+".disabled=(document.form.ckfecha.checked==true)?true:false;");
			if (ck == 'ckfecha1') {
	                        eval ("document.form.NUM_1fec_venc"+K+".disabled=(document.form.ckfecha1.checked==true)?true:false;");
			}
                }
	}
}

function validar_fecha () {
	for (var K = 0; K <= 2; K++) {
		eval ("document.form.NUM_fec_venc"+K+".disabled=false;");
	}
	document.form.ckfecha.checked = false;

	var f10 = document.form.NUM_fec_venc0.value;
        var f11 = document.form.NUM_fec_venc1.value;
        var f12 = document.form.NUM_fec_venc2.value;

        var f20 = document.form.NUM_1fec_venc0.value;
        var f21 = document.form.NUM_1fec_venc1.value;
        var f22 = document.form.NUM_1fec_venc2.value;

	var fecha1 = f10 + f11 + f12;
	var fecha2 = f20 + f21 + f22;

	if (!(fecha1 < fecha2)) {
		document.form.NUM_fec_venc0.value = document.form.NUM_1fec_venc0.value - 1;
		alert ("La Primera Fecha tiene que ser Menor a la Segunda Fecha");
	}
}

function extra (obj) {
//	var url_str = window.location.href.substr(window.location.href.indexOf('extra=')+1);
	var url_str = window.location.href.replace(/[a-zA-Z0-9\/\.\?&:=_-]+extra=/gi,"");
	if (window.location.href.search(/extra=/gi) == -1) { url_str = "NO"; }
	var dat_str = window.location.href.replace(/\?extra=..|&extra=../gi,"");
	var location_str = "";

	location_str += dat_str;
	location_str += (dat_str.search(/\?/gi) != -1) ? "&" : "?" ;
        if (obj.value == 181) {
                location_str += "extra=SI";
		location.href = location_str;
        } else if (((url_str != "NO") && (url_str.indexOf('=') != -1)) ^ ((url_str == "SI") && (obj.value != 181)) ) {
                location_str += "extra=NO";
		location.href = location_str;
        }

/*
	if (obj.value == 181) {
		location.href = document.location.pathname+"?extra=SI";
	} else if (((url_str != "NO") && (url_str.indexOf('=') != -1)) ^ ((url_str == "SI") && (obj.value != 181))) {
		location.href = document.location.pathname+"?extra=NO";
	}
*/
}

function monto (obj) {
	obj = (typeof obj == 'object') ? obj.value : obj ;
	document.form.NUM_monto1.disabled = (obj == 0) ? false : true ;
}

function cheq () {
	valor = (document.form.ckval1.checked == true) ? true : false ;
        for (var K = 0; K <= 2; K++) {
       	        eval ("document.form."+document.form.ckval1.value+""+K+".disabled="+valor+";");
        }
	eval ("document.form.NUM_id_users_fact_periodo.disabled="+valor+";");
}

function activar (id,tabla,status) {
	fin = (window.location.href.indexOf('&AC') == -1) ? window.location.href.length : window.location.href.indexOf('&AC') ;
	url = window.location.href.substring(0,fin);
	url += (location.search.length == 0) ? "?" : "" ;
	url += "&AC_tabla="+tabla+"&AC_id="+id+"&AC_status="+status+"&AC_bt=Status";
	document.form.action = url;
	document.form.submit();
}

function permisos (obj, lug) {
	if (lug == 3) {
                var canal = obj.name.replace(/\D/gi,"");
                var estado_canal = obj.checked;
                var topico = eval("document.form.cckptopico"+canal+".value");
                                                                                                                                                                            
                for (K = 0; K < topico; K++) {
                        eval("document.form.ckptopico"+canal+"_"+K+".checked="+estado_canal+";");
                }
	} else if (lug == 2) {
                var canal = obj.name.replace(/[a-z]+|_[0-9]+/gi,"");
                var topico = eval("document.form.cckptopico"+canal+".value");
                var estado = false;
                                                                                                                                                                            
                for (K = 0; K < topico; K++) {
                        if (eval("document.form.ckptopico"+canal+"_"+K+".checked")) {
                                estado = true;
                        }
                }
                                                                                                                                                                            
                eval("document.form.ckpcanal"+canal+".checked="+estado+";");
	} else if (lug == 0) {
		var canal = obj.name.replace(/\D/gi,"");
		var estado_canal = obj.checked;
		var topico = eval("document.form.cckptopico"+canal+".value");
		var grupo = eval("document.form.cckpgrupo"+canal+".value");

		for (K = 0; K < topico; K++) {
			eval("document.form.ckptopico"+canal+"_"+K+".checked="+estado_canal+";");
		}

        	for (K = 0; K < grupo; K++) {
			if (((estado_canal) && (K == 0)) || (estado_canal == false)) {
	                	eval("document.form.ckpgrupo"+canal+"_"+K+".checked="+estado_canal+";");
			}
        	}
	} else {
		var flag = 0;
		var canal = obj.name.replace(/[a-z]+|_[0-9]+/gi,"");
		var estado_canal = eval("document.form.ckpcanal"+canal+".checked;");
                var topico = eval("document.form.cckptopico"+canal+".value");
                var grupo = eval("document.form.cckpgrupo"+canal+".value");
		var estado = false;

	        var solo = (obj.name.search(/grupo/gi) != -1) ? 0 : 1 ;
        	var solo_value = (obj.name.search(/grupo/gi) != -1) ? obj.value : 1 ;
                                                                                                                                                                            
	        if (solo != 1) {
        	        for (K = 0; K < grupo; K++) {
                	        eval("document.form.ckpgrupo"+canal+"_"+K+".checked=false");
	                }
        	        obj.checked = true;
	        }

                for (K = 0; K < grupo; K++) {
                        if (eval("document.form.ckpgrupo"+canal+"_"+K+".checked")) {
                                estado = true;
                        }
                }

		if ((!estado) && (!estado_canal)) {
			eval("document.form.ckpgrupo"+canal+"_0.checked=true;");
		}

                for (K = 0; K < topico; K++) {
                        if (eval("document.form.ckptopico"+canal+"_"+K+".checked")) {
				estado = true;
			} else {
				flag++;
			}
                }

		if ((flag == topico) && !(obj.checked)) {
			estado = false;
	                for (K = 0; K < grupo; K++) {
				eval("document.form.ckpgrupo"+canal+"_"+K+".checked="+estado+";");
	                }
		}

		eval("document.form.ckpcanal"+canal+".checked="+estado+";");
	}
}

function checkMail(obj) {
	var cadena = obj.value;
        plant =/(^[\w\.-]+)(@{1})([\w\.-]+[\.{1}][\w]+$)/i
       	if (plant.test(cadena)) {
               	return;
        } else {
       	        alert("["+cadena+"] no es un correo valido.");
		obj.focus();
        }
}

function emisor(obj,obj1) {
	total = obj.cemisor.value;
	if (obj1.checked == true) {
		index = 1;
	} else {
		index = 0;
	}

	for (K = 0; K <= total; K++) {
		eval("obj.NUM_emisor"+K+".options["+index+"].selected=true");
		activar_fec ("NUM_emisor"+K);
	}
}

function activar_fec (lug) {
	var estado = (eval("document.form."+lug+".value") == "0") ? true : false ;
	for (Z = 0; Z < 3; Z++) {
		eval("document.form."+lug+"_ven"+Z+".disabled="+estado+";");
	}
}

function verif () {
        var len_emisores = document.form.cemisor.value;
        var mayor = 0;
        var fecha = 0;
        var fecha_val = "";

	eval ("var emisores = new Array ("+len_emisores+");");

	for(var j = 0; j < emisores.length; j++) {
	    if (emisores[j] != "F") {
                fecha_val = "";
                for (A = 0; A <= 2; A++) { fecha_val += eval ("document.form.NUM_emisor"+emisores[j]+"_ven"+A+".value;"); }
                if (fecha < fecha_val) {
                        fecha = fecha_val;
                        document.form.ckfecha.checked = false;
                        for (B = 0; B <= 2; B++) {
                                eval ("document.form.NUM_fec_venc"+B+".disabled=false;");
                                eval ("document.form.NUM_fec_venc"+B+".value=document.form.NUM_emisor"+emisores[j]+"_ven"+B+".value;");
                        }
                }
	    }
	}
}

function activar_fechas () {
	var len = document.form.cemisor.value;
        eval ("var emisores = new Array ("+len+");");
        for(var j = 0; j < emisores.length; j++) {
		if (emisores[j] != "F") {
			if (eval("document.form.NUM_emisor"+emisores[j]+".value") == 1) {
				for (A = 0; A <= 2; A++) { eval ("document.form.NUM_emisor"+emisores[j]+"_ven"+A+".disabled=false;"); }
			}
		}
	}
}

function borrar_his (obj, state) {
	obj.checked = (document.form.rbemail[0].checked == true) ? true : state;
}

function transportar (pais, pais_actual, todos) {
	
	var partes = window.location.href.split ("/");
	var bool = true;
	var str = "";

	for (var K = 0; K < partes.length; K++) {
		if (K > 0) str += "/";
		if (partes[K] == pais_actual && bool) {
			str += pais;
			bool = !bool;
		} else if (K == partes.length-1 && todos) {
			param = partes[K].split ("?");
			str += "suscripcion_todos.php";
			if (param.length == 2) str += "?"+param[1];
		} else {
			if (partes[K].search(/suscripcion_todos.php/gi) != -1) {
				param = partes[K].split ("?");
				str += "suscripcion.php";
				if (param.length == 2) str += "?"+param[1];
			} else str += partes[K];
		}
	}

	window.location.href = str;
}

function validar_sus (obj, lug) {
	estado = true;
	for (var K = 0; K < document.forms[0].length; K++) {
	    if (document.form[K].type.search(/checkbox/gi) != -1) {
		if (lug == 0) document.form[K].checked = true;
		else if (lug == 1 && document.form[K].checked == false) estado = false;
	    }		
	}
	document.form.pais.checked = estado;
}

function navegar_limpiar ($principal, $tag) {
    var size = document.getElementById ($principal).getElementsByTagName ($tag).length
    for (var K = 0; K < size; K++)
        document.getElementById ($principal).getElementsByTagName ($tag)[K].style.display = "none";
}
function navegar_mostrar (lug) {
    var estado = document.getElementById (lug).style.display;
    var cambio = (estado == "block") ?  "none" : "block" ;
    document.getElementById (lug).style.display = cambio;
}
function navegar_out (lug) { document.getElementById (lug).style.display = "none"; }
function navegar_over (lug) { document.getElementById (lug).style.display = "block"; }

function sacar_seccion(list) {
    var padre = (list.options[list.selectedIndex].parentNode.label);
    document.getElementById('id_seccion').innerHTML=padre;
}

function redlacionados_administracion (confirmar, url, target, title, width, height, recargar, modal) {
    var windowW = width;
    var windowH = height;
    var screenL = screen.width;
    var screenT = screen.height;

    if (screenL > windowW && screenT > windowH) {
        screenL -= windowW;
        screenT -= windowH+70;
        screenL /= 2;
        screenT /= 2;
    }

    var IE = document.all;
    var Navegador = navigator.userAgent;
    if (!modal) modal = (!IE);
    if (Navegador.search(/Chrome/gi) != -1) modal = false;

    if (confirm(confirmar)) { 
	try {
	    if (modal) ventanaModal (url, target, width, height, recargar);
	    else asignarVentanas (window.open(url, target, 'toolbar=no,location=no,status=no,menubar=no,resizable=yes,scrollbars=yes,width='+windowW+',height='+windowH+',top='+screenT+',left='+screenL+',fullscreen=no'));
	} catch (e) {
	    window.open(url, target, 'toolbar=no,location=no,status=no,menubar=no,resizable=yes,scrollbars=yes,width='+windowW+',height='+windowH+',top='+screenT+',left='+screenL+',fullscreen=no');
	}
    }
}
function redlacionados_modal_open (url, target, width, height, recargar, modal) {
    var open = arguments[6];

    var windowW = width;
    var windowH = height;
    var screenL = screen.width;
    var screenT = screen.height;

    if (screenL > windowW && screenT > windowH) {
        screenL -= windowW;
        screenT -= windowH+70;
        screenL /= 2;
        screenT /= 2;
    }

    if (open) modal = false;
    else {
	var IE = document.all;
	var Navegador = navigator.userAgent;
	if (!modal) modal = (!IE);
	if (Navegador.search(/Chrome/gi) != -1) modal = false;
    }

    if (url.search(/pdf$/gi) > -1) {
	url = "http://www.capitales.com/cgi-php/down.php?a="+url;
    }

    if (modal) modal = (window.showModalDialog);

    try {
	if (modal) ventanaModal (url, target, width, height, recargar);
	else asignarVentanas (window.open(url, target, 'toolbar=no,location=no,status=no,menubar=no,resizable=yes,scrollbars=yes,width='+windowW+',height='+windowH+',top='+screenT+',left='+screenL+',fullscreen=no'));
    } catch (e) {
	window.open(url, target, 'toolbar=no,location=no,status=no,menubar=no,resizable=yes,scrollbars=yes,width='+windowW+',height='+windowH+',top='+screenT+',left='+screenL+',fullscreen=no');
    }
}

function redlacionados_redirect (url) { window.location = "http://www.capitales.com/redlacionados/"+url; }

function M_click (img, div, all) {
    var imgs = document.getElementById (all).getElementsByTagName ("IMG");
    for (var K = 0; K < imgs.length; K++)
        if (imgs[K].id.length)
            imgs[K].src = "http://www.capitales.com/grafico/redlacionado_flecha_izquierda.gif";

    if (document.getElementById (div).style.display == "none") {
        block = "block";
        url = "http://www.capitales.com/grafico/redlacionado_flecha_abajo.gif";
    } else {
        block = "none";
        url = "http://www.capitales.com/grafico/redlacionado_flecha_izquierda.gif";
    }

    var divs = document.getElementById (all).getElementsByTagName ("DIV");
    for (var K = 0; K < divs.length; K++) divs[K].style.display = "none";

    document.images[img].src = url;
    document.getElementById (div).style.display = block;
}