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_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 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 MM_showHideLayers() { //v6.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; }
}
//<a href="../celare.htm" onMouseOut="MM_nbGroup('out');" onMouseOver="MM_nbGroup('over','index_r4_c2','../images/index_r4_c2_f2.gif','../images/index_r4_c2_f4.gif',1)" onClick="MM_nbGroup('down','navbar1','index_r4_c2','../images/index_r4_c2_f3.gif',1)"><img name="index_r4_c2" src="../images/index_r4_c2.gif" width="153" height="44" border="0" alt=""></a>
function MM_nbGroup(event, grpName) { //v6.0
var i,img,nbArr,args=MM_nbGroup.arguments;
  if (event == "init" && args.length > 2) {
    if ((img = MM_findObj(args[2])) != null && !img.MM_init) {
      img.MM_init = true; img.MM_up = args[3]; img.MM_dn = img.src;
      if ((nbArr = document[grpName]) == null) nbArr = document[grpName] = new Array();
      nbArr[nbArr.length] = img;
      for (i=4; i < args.length-1; i+=2) if ((img = MM_findObj(args[i])) != null) {
        if (!img.MM_up) img.MM_up = img.src;
        img.src = img.MM_dn = args[i+1];
        nbArr[nbArr.length] = img;
    } }
  } else if (event == "over") {
    document.MM_nbOver = nbArr = new Array();
    for (i=1; i < args.length-1; i+=3) if ((img = MM_findObj(args[i])) != null) {
      if (!img.MM_up) img.MM_up = img.src;
      img.src = (img.MM_dn && args[i+2]) ? args[i+2] : ((args[i+1])?args[i+1] : img.MM_up);
      nbArr[nbArr.length] = img;
    }
  } else if (event == "out" ) {
    for (i=0; i < document.MM_nbOver.length; i++) { img = document.MM_nbOver[i]; img.src = (img.MM_dn) ? img.MM_dn : img.MM_up; }
  } else if (event == "down") {
    nbArr = document[grpName];
    if (nbArr) for (i=0; i < nbArr.length; i++) { img=nbArr[i]; img.src = img.MM_up; img.MM_dn = 0; }
    document[grpName] = nbArr = new Array();
    for (i=2; i < args.length-1; i+=2) if ((img = MM_findObj(args[i])) != null) {
      if (!img.MM_up) img.MM_up = img.src;
      img.src = img.MM_dn = (args[i+1])? args[i+1] : img.MM_up;
      nbArr[nbArr.length] = img;
  } }
}

function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
      } else if (test!='R') {
        if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (val<min || max<val) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
  } if (errors) alert('The following error(s) occurred:\n'+errors);
  document.MM_returnValue = (errors == '');
}

function MM_callJS(jsStr) { //v2.0
  return eval(jsStr)
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  x = window.open(theURL,winName,features);
  x.focus();
}

function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}


function abrir_popup (r,w,h) {
	scw = window.open(r,'popup_window','toolbar=no,location=no,directories=no,status=yes,menubar=no,scrollbars=yes,resizable=yes,width=' + w + ',height=' + h);
	scw.focus();
}


/*** Funciones Genericas ***/
function trim (texto) {
    return texto.replace(/^\s+|\s+$/g,'');
}
function rellena_izq (cadena, caracter, largo) {
    for (i=cadena.length; i<largo; i++) { cadena=caracter+cadena; }
    return cadena;
}
function esMail (email) {
    var re = /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/;
    if (!re.test(email)) {
        re = /^.+\@(\[?)[a-zA-Z0-9_\-\.]+\.([a-zA-Z]{2,5}|[0-9]{1,3})(\]?)$/;
        return re.test(email);
    } else {
        return false;
    }
}
function esNumNatural (valor) {
    var re = /^[0-9]+$/;
    return re.test(valor);
}
function esDigVer (valor) {
    var re = /^[0-9kK]+$/;
    return re.test(valor);
}
function esFecha (valor) {
    var re = /^[0-9]{1,2}-[0-9]{1,2}-[0-9]{4,4}$/;
    if(re.test(valor)) {
        var fa = valor.split("-");
        fa[1]--;
        var fd = new Date(fa[2], fa[1], fa[0]);
        return fd.getDate()==fa[0] && fd.getMonth()==fa[1] && fd.getFullYear()==fa[2];
    } else {
        return false;
    }
}
function formatearFecha (valor) {
    if (esFecha(valor)) {
        var fa = valor.split("-");
        d = '0' + fa[0];
        i = d.length - 2;
        d = d.substr(i,2);  
        m = '0' + fa[1];
        i = m.length - 2;
        m = m.substr(i,2);
        return d + "-" + m + "-" + fa[2];
    } else {
        return '';
    }
}
function esHora (valor) {
    var re = /^[0-9]{1,2}:[0-9]{2,2}$/;
    if(re.test(valor)) {
        var ha = valor.split(":");
        return ha[0]<=23 && ha[1]<=59;
    } else {
        return false;
    }
}
function getDv (rut) {
    var re = /^[0-9]+$/;
    if (re.test(rut)) {
        dvr    = 0;
        suma = 0;
        mul    = 2;
        for (i=rut.length-1; i>=0; i--) {
            suma = suma + rut.charAt(i) * mul;
            if (mul==7) {
                mul = 2;
            } else {
                mul++;
            }
        }
        res = suma % 11;
        if (res==1) {
            dvr = 'k';
        } else if (res==0) {
            dvr = 0;
        } else {
            dvr = 11 - res;
        }
    } else {
         dvr = '';
    }
    return dvr;
}
function rutValido (rut, dv) {
    if (esNumNatural(rut) && esDigVer(dv)) {
        return (getDv(rut) == dv.toLowerCase());
    } else {
        return false;
    }
}
/*** Manejo de objetos de formulario ***/
function getSelectedValue (objeto) {
    if (objeto.selectedIndex==-1) {
        return '';
    } else {
        return objeto.options(objeto.selectedIndex).value;
    }
}
function setSelectedValue (objeto, valor) {
    for (var i=0; i<objeto.options.length; i++) {
        if (objeto.options[i].value==valor) {
            objeto.selectedIndex = i;
            return;
        }
    }
    objeto.selectedIndex = -1;
}
function getSelectedText (objeto) {
    if (objeto.selectedIndex==-1) {
        return '';
    } else {
        return objeto.options(objeto.selectedIndex).text;
    }
}
function setSelectedText (objeto, valor) {
    for (var i=0; i<objeto.options.length; i++) {
        if (objeto.options[i].text==valor) {
            objeto.selectedIndex = i;
            return;
        }
    }
    objeto.selectedIndex = -1;
}
function setMultiSelectValues(objeto, lista) {  //selecciona las opciones del objeto SELECT con propiedad value igual en la lista (separdos por comas)
    lista = ',' + lista + ','
    for (var i=0; i<objeto.length; i++) {
        valor = ',' + objeto.options[i].value + ','
        if (lista.search(valor)==-1) {
            objeto.options[i].selected = false;
        } else {
            objeto.options[i].selected = true;
        }
    }
}
function hayAlgunoChecked (objeto) {
    for (i=0; i<objeto.length; i++) {
        if (objeto[i].checked) {
            return true;
        }
    }
    return false;
}
function getCheckedValue (objeto) {
    for (i=0; i<objeto.length; i++) {
        if (objeto[i].checked) {
            return objeto[i].value;
        }
    }
    return '';
}
function setCheckedValue (objeto, valor) {
    for (var i=0; i<objeto.length; i++) {
        if (objeto[i].value==valor) {
            objeto[i].checked = true;
        } else {
            objeto[i].checked = false;
        }
    }
}
function cambiarCheck (objeto) {
    if (objeto.type=='checkbox') {
        if (objeto.checked) { objeto.checked = false; }
        else { objeto.checked = true; }
    }
}
/***Validacion de caracteres del teclado***/
function keyCode_igual(k) {  //uso:  onKeyPress="return keyCode_igual(48);"
    var tecla = event.keyCode;
    if (tecla == k)
        return true;
    else
        return false;
}
function keyCode_entre(kmin, kmax) {  //uso:  onKeyPress="return keyCode_entre(48,58);"
    var tecla = event.keyCode;
    if ((tecla >= kmin) && (kmax >=tecla))
        return true;
    else
        return false;
}
function keyCode_lista(klista) {  //uso:  onKeyPress="return keyCode_lista('48,49,50');"
    var tecla = event.keyCode;
    klista = ','+klista+',';
    if (klista.search(','+tecla+',')>-1)
        return true;
    else
        return false;
}
function ingresandoFecha(objeto) {  //uso:  onkeyPress="return ingresandoFecha(this);"
    var s = objeto.value;
    if (s.length==2 || s.length==5)
        return keyCode_igual(45);
    else
        return keyCode_entre(48,58);
}
function largoMaximo(objeto,largo) {  //uso:  onkeyPress="return largoMaximo(this,200);"
    var s = objeto.value;
    if (s.length<largo)
        return true;
    else
        return false;
}
//Numeros: return keyCode_entre(48,57); 
//Hora (numeros y :): return keyCode_entre(47,58);
//Fechas (numeros y /): return keyCode_entre(47,57);
//Fechas (numeros y -): return keyCode_entre(47,58) || keyCode_igual(45);
//Numeros (numeros y .): return keyCode_entre(47,58) || keyCode_igual(46);
//Dig Ver (numeros, k y K) return keyCode_entre(48,57) || keyCode_igual(75) || keyCode_igual(107);
//Sin la comilla('): return !keyCode_igual(39);
function solo_numeros() {
    var tecla;
    tecla = event.keyCode;
    if ((tecla >= 48) && (58 >=tecla))
        return true;
    else
        return false;

}
// onkeypress="return solo_numeros();"

MM_reloadPage(true);