function el(n){
  return document.getElementById(n);
}
function fObj(o,e){
  if(o.nodeType==1 || o.nodeType==11){
    if(o.tagName.toLowerCase()==e) tobj=o;
    for(var i=o.firstChild;i;i=i.nextSibling) fObj(i,e);
  }
}
function pleft(obj){
  var l=0;
  if(obj.offsetParent){
    while(obj.offsetParent){
      l+=obj.offsetLeft;
      obj=obj.offsetParent;
    }
  }else if(obj.x) l+=obj.x;
  return l;
}
function ptop(obj){
  var t=0;
  if(obj.offsetParent){
    while(obj.offsetParent){
      t+=obj.offsetTop;
      obj=obj.offsetParent;
    }
  }else if(obj.y) t+=obj.y;
  return t;
}

function cClick(src){
  tobj=null;
  fObj(src,"a");
  if(!tobj) return;
  try{
    tobj.click();
  }catch(e){
    try{
      window.location=tobj.href;
    }catch(e){}
  }
}
function mOver(obj){
  obj.className="mnu1";
  tobj=null;
  fObj(obj,"a");
  if(tobj) tobj.className="mnulnk1";
}
function mOut(obj){
  obj.className="mnu0";
  tobj=null;
  fObj(obj,"a");
  if(tobj) tobj.className="mnulnk0";
}
function hOver(src){
  src.className="hdr1";
}
function hOut(src){
  src.className="hdr";
}
function rOver(src){
  var a=rOver.arguments;
  if(a.length==1) src.className="lrow1";
  else src.style.background=a[1];
}
function rOut(src){
  var a=rOut.arguments;
  if(a.length==1) src.className="lrow0";
  else src.style.background=a[1];
}
function bAction(o,a){
  if(typeof o=="string") o=el(o);
  if(a==-1) o.className="b-disb";
  if(a==0) o.className="b-norm";
  if(o.className=="b-disb") return;
  s=o.className.indexOf("-selt");
  if(a==1) o.className=(s==-1)?"b-norm":"b-selt";
  if(a==2) o.className="b-over"+((s==-1)?"":"-selt");
  if(a==3) o.className="b-down"+((s==-1)?"":"-selt");
  if(a==4) o.className="b-selt";
  if(a==5) return true;
}
function bFile(o,n){
  d=el("DELETE_"+n);
  d.value^=1;
  o.className=(d.value==1)?"b-selt":"b-norm";
  el(n).disabled=(d.value==1);
}

function oFade(m,v,i,e,p){
  var o=el(m);
  v=Math.min(100,Math.max(0,v));
  v+=i;
  o.style.opacity=v/100;
  if(p==undefined) p="";
  if((i>0 && v<e) || (i<0 && v>e)) setTimeout("oFade('"+m+"',"+v+","+i+","+e+",'"+p+"')",10);
  else{
    if(p!="") eval(unescape(p));
  }
 }
function showImgLoad(n){
  if(el(n).complete) oFade(n,0,10,100);
  else setTimeout("showImgLoad('"+n+"')",300);
}
function fadeO(o,a){
  if(a==0) oFade(o.id,40,5,100,"");
  if(a==1) oFade(o.id,100,-5,40,"");
}
function scrCntShow(p,d,t,n,f,s,v,b1,b2){
  window[v]=0;
  el(b1).style.visibility=(p)?"":"hidden";
  el(b2).style.visibility=(p<t)?"":"hidden";
  for(i=0;i<n;i++){
    o=el("dci_"+(i+d));
    if(o==null || o.style.visibility=="") continue;
    o.style.opacity=0/100;
    o.style.visibility="";
    o.src="/images/imgs/"+f+o.name.substring(8)+s+"."+o.name.substring(4,7);
    setTimeout("showImgLoad('dci_"+(i+d)+"')",300);
  }
}
function scrCntChange(o,c,m,i,t,vt,p,v,mx1,mx2,mx3,mx4,f){
  if(window[vt]) clearTimeout(window[vt]);
  if(m<0) window[p]=Math.max(0,window[p]-i);
  if(m>0) window[p]=Math.min(t,window[p]+i);
  if(window[v]==0) scrCntMove(o,p,c,v,f,mx1,mx2,mx3,mx4);
}        
function scrCntMove(o,p,c,v,f,mx1,mx2,mx3,mx4){
  window[v]=1;
  x=(c==0)?el(o).scrollLeft:el(o).scrollTop;
  s=window[p];
  var y=(Math.abs(x-s)>mx1)?mx2:mx3;
  if(x>s) x-=y; else if(x<s) x+=y;
  if(x-y<0) x=0;
  if(Math.abs(x-s)<=mx4) x=s;
  if(c==0) el(o).scrollLeft=x;else el(o).scrollTop=x;
  if(x!=s) setTimeout("scrCntMove('"+o+"','"+p+"','"+c+"','"+v+"','"+f+"',"+mx1+","+mx2+","+mx3+","+mx4+")",10);
  else eval(f+";");
}

function getCookie(nme){
  var cnme=nme+"=";
  if((cini=document.cookie.indexOf(cnme))==-1) return null;
  var cend=document.cookie.indexOf(";",cini+cnme.length);
  if(cend==-1) cend=document.cookie.length;
  return unescape(document.cookie.substring(cini+cnme.length,cend));
}
function sAjax(url){
  var p;
  if(window.XMLHttpRequest) p=new XMLHttpRequest();
  else if(window.ActiveXObject){
    try{
      p=new ActiveXObject("Msxml2.XMLHTTP");
    }catch(e){
      try{
	p=new ActiveXObject("Microsoft.XMLHTTP");
      }catch(e){
      }
    }
  }
  if(typeof p=="undefined") return;
  p.open("GET",url,false);
  p.send(null);
  if(p.status==200) return p.responseText;
}
function openWin(url,t,w,h){
  window.open(url,t,"top="+(screen.height-h)/2+",left="+(screen.width-w)/2+",width="+w+",height="+h+",toolbar=no,menubar=no,scrollbars=yes,resizable=yes, location=no,directories=no,status=no personalbar=no");
}
function TCode(id){
  openWin("text.html?id="+id,"text",700,450);
}
var wdbdlgmodl=wdbdlgargs=wdbdlgretn=null;
function showDlg(u,a,i){
  if(typeof i=="undefined") i=window;
  var arg=showDlg.arguments;
  w=(arg.length>3)?arg[3]:100;
  h=(arg.length>4)?arg[4]:100;
  var dlg=window.open(u,"ha_dlg","top="+(screen.height-h)/2+",left="+(screen.width-w)/2+",width="+w+",height="+h+",location=no,status=no,toolbar=no,menubar=no,personalbar=no,width=10,height=10,scrollbars=no,resizable=no");
  wdbdlgmodl=dlg;
  wdbdlgargs=i;
  p=function(ev){
    if(wdbdlgmodl && !wdbdlgmodl.closed){
      wdbdlgmodl.focus();
      ev.preventDefault();
      ev.stopPropagation();
    }
  };
  function capwin(w){
    w.addEventListener("click",p,true);
    w.addEventListener("mousedown",p,true);
    w.addEventListener("focus",p,true);
  };
  function relwin(w){
    w.removeEventListener("focus",p,true);
    w.removeEventListener("mousedown",p,true);
    w.removeEventListener("click",p,true);
  };
  capwin(window);
  for(var j=0;j<window.frames.length;capwin(window.frames[j++]));
  wdbdlgretn=function(val){
    if(val && a) a(val);
    relwin(window);
    for(var j=0;j<window.frames.length;
    relwin(window.frames[j++]));
    wdbdlgmodl=null;
  };
}
function cWin(txt,url){
  if(confirm(txt)) window.location=url;
}
function listCustom(u,r) {
  openWin(u,"lcustom",500,300);
}
function setClr(tclr,clr) {
  if(el(tclr).value!=clr) el(tclr).value=clr;
  o=el("HR_"+tclr);
  i=el("IMG_"+tclr);
  if(checkRGB(clr)){
    o.style.background=clr;
    o.style.visibility="visible";
    if(i) i.className="b-norm";
  }else{
    o.style.visibility="hidden";
    if(i) i.className="b-disb";
  }
}
function selectClr(tclr) {
  showDlg("/admin//texts.html?action=hacolor",function(clr){if(clr) setClr(tclr,"#"+clr)},el(tclr).value,220,158);
}
function checkToggle(frm,obj,pref){
  f=el(frm);
  for(i=0;i<f.elements.length;i++){
    e=f.elements[i];
    if(e.type=="checkbox") e.checked=obj.checked;
  }
  if(pref!="") return checkActive(frm,pref)
}
function checkActive(frm,pref){
  c=h=sc=sh=0;
  f=el(frm);
  for(i=0;i<f.elements.length;i++){
    e=f.elements[i];
    if(e.type=="checkbox" && e.name.substr(0,pref.length)==pref){
      c++;
      if(e.checked) sc++;
    }
    if(e.type=="hidden" && e.name.substr(0,pref.length)==pref){
      h++;
      if(e.value) sh++;
    }
  }
  a=el("all");
  if(a){
    a.disabled=(!c);
    a.checked=(c>0 && c==sc);
  }
  sc+=sh;
  window.status=sc+" seleccionado(s)";
  return sc;
}
var selChk1=0,selChk;
function checkActiveSel(frm,pref,chk,n){
  if(document.all && event.shiftKey && selChk1!=0){
    selChk2=n;
    v1=Math.min(selChk1,selChk2);
    v2=Math.max(selChk1,selChk2);
    f=el(frm);
    for(i=0;i<f.elements.length;i++){
      e=f.elements[i];
      if(e.type=="hidden" && e.id.substring(0,6)=="_csel_" && (n=e.id.substring(6)) && n>=v1 && n<=v2) el(e.value).checked=selChk;
    }
    selChk1=0;
  }else{
    selChk1=n;
    selChk=chk.checked;
  }
  return checkActive(frm,pref);
}
function frmAction(frm,pref,conf,t,a){
  i=1;
  if(pref!=""){
    i=checkActive(frm,pref);
    if(!i){
      alert("No hay selección");
      return;
    }
  }
  if(conf && t!="" && !confirm(t+((i==1)?"":"\nseleccionado(s): "+i))) return;
  el("action").value=a;
  el(frm).submit();
}
function frmPage(frm,v){
  el("action").value="page_change";
  el("visual").value=v;
  el(frm).submit();
}
function frmGoTo(s,p,ps,url,frm,rpp,ord){
  if(s.value==-1){
    v=parseInt(prompt("Ir a (1 - "+ps+"):",p));
    if(!v || v<1 || v>ps){
      if(p<=500) s.selectedIndex=(p-1);
      return;
    }
  }else v=s.value;
  if(frm=="") window.location=url+rpp+v+ord;
  else frmPage(frm,rpp+v+ord);
}

function trim(s){
  while(s.substring(0,1)==" ") s=s.substring(1,s.length);
  while(s.substring(s.length-1,s.length)==" ") s=s.substring(0,s.length-1);
  return s;
}
function setHTML(o,t){
  el("TXT_"+o).innerHTML=t;
}
function checkRE(o,r){
  var regex=new RegExp(r,"i");
  if(typeof o=="string") return regex.test(o);
  bAction(el("IMG_"+o.name),(regex.test(o.value))?0:-1);
}
function checkEMail(o){
  return checkRE(o,"^[-_\.0-9a-z]+@([-_0-9a-z]+\.)+\.(com|net|org|gov|mil|edu|int|biz|info|name|pro|aero|coop|museum|jobs|cat|mobi|asia|xxx|travel|tel|[a-z]{2})$");
}
function checkURL(o){
  return checkRE(o,"^http(s)*://(www\.)*([-0-9a-z_\.]+)([\.]{1})(com|net|org|gov|mil|edu|int|biz|info|name|pro|aero|coop|museum|jobs|cat|mobi|asia|xxx|travel|tel|[a-z]{2})($|\/([#%&+\-\.\/0-9:;=?@a-z_]+)*$)");
}
function checkIPv4(o){
  return checkRE(o,"^([0-9]{1,3})([\.]{1})([0-9]{1,3})([\.]{1})([0-9]{1,3})([\.]{1})([0-9]{1,3})$");
}
function checkRGB(o){
  return checkRE(o,"^#([a-f0-9]{6})$");
}
function checkCCC(o,e){
  if(checkKey(e)<32) return;
  a=o.name.substring(5);
  n=parseInt(o.name.substring(3,4));
  if(n==1 && o.value.length!=o.maxLength) el("TXT_"+a).innerHTML="<br />";
  if(n<4 && o.value.length>=o.maxLength){
    el("CCC"+(n+1)+"_"+a).focus();
    if(n==1) el("IFR_"+a).src="/file/banks/"+a+"/"+o.value;
  }
}
function checkFind(s){
  o=el("id");
  if(trim(o.value)==""){
    alert("Debe completar");
    o.focus();
    return false;
  }
  el("findfrm").value=o.value;
  if(s) el("frmfind").submit();
}
function checkForm(fields,efields){
  if(typeof fields=="object"){
    var flds="",c=0,f1;
    for(i in fields){
      if(trim(el(i).value)==""){
	flds+="\n· "+fields[i];
	c++;
	if(!f1) f1=i;
      }
    }
    if(c){
      alert("Debe completar:"+flds);
      el(f1).focus();
      return false;
    }
  }
  if(typeof efields=="object"){
    var efls="",e=0,e1;
    for(i in efields){
      v=el(i).value;
      if(v!="" && !checkEMail(v)){
	efls+="\n· "+efields[i];e++;
	if(!e1) e1=i;
      }
    }
    if(e){
      alert("No es una dirección válida de correo electrónico:"+efls);
      el(e1).focus();
      return false;
    }
  }
  return true;
}
function checkKey(e){
  return e.which;
}
function checkChar(e,t){
  switch(t){
    case 'num':
      var o=/[\-0-9]/;
      break;
    case 'uns':
      var o=/[0-9]/;
      break;
    case 'dec':
      var o=/[\-\.\,0-9]/;
      break;
    case 'dcu':
      var o=/[\.\,0-9]/;
      break;
    case 'dte':
      var o=/[\-\/0-9]/;
      break;
    case 'eml':
      var o=/[\.\-0-9\@a-zA-Z\_]/;
      break;
    case 'url':
      var o=/[\#\%\&\+\-\.\/0-9\:\;\=\?\@a-zA-Z\_]/;
      break;
    case 'ip4':
      var o=/[\.0-9]/;
      break;
    case 'rgb':
      var o=/[\#0-9a-fA-F]/;
      break;
  }
  k=checkKey(e);
  return k<32 || o.test(String.fromCharCode(k))
}

function emptyOptions(s){
  o=el(s);
  for(i=o.options.length-1;i>=0;i--) o.options[i]=null;
}
function emptyOptionsSel(s){
  o=el(s);
  for(i=o.options.length-1;i>=0;i--){
    if(o.options[i].selected) o.options[i]=null;
  }
}
function addOptions(s,d,f,n){
  o=el(s);
  if(d=="" && o.selectedIndex!=-1) d=o.options[o.selectedIndex].value;
  emptyOptions(s);
  k=0;
  for(i=0;i<n;i++){
    for(j in f[i]){
      o.options[k++]=new Option(f[i][j],j,false,false);
      if(j==d) o.selectedIndex=k-1;
    }
  }
}
function storeCaret(o){
  if(o.createTextRange) o.caretPos=document.selection.createRange().duplicate();
}
function setText(o,t){
  var o=el(o);
  o.focus();
  var l=o.textLength;
  var s=o.selectionStart;
  var e=o.selectionEnd;
  if(e==1 || e==2) e=l;
  var s1=(o.value).substring(0,s);
  var s2=(o.value).substring(s,e);
  var s3=(o.value).substring(e,l);
  o.value=s1+""+s2+t+s3;
}
function setCountryF(s,y,z,c,v){
  if(v==1) el("FLAG_"+s).src="/images/flags/"+c+".gif";
  el("FLAG_"+s).style.visibility=(v==0)?"hidden":"visible";
  if(z!="0") el("IFR_"+s).src="/file/zones/"+c+"/"+y+"/"+z;
}
function setCountry(o,y,z,v,c,f){
  el("IFR_"+o.id).src="/file/"+((f==1)?"flag/"+o.name+"/"+y+"/"+z+"/"+o.value:"zones/"+o.value+"/0/"+z);
  if(v!="") setVATID(v,o.id,c);
}
function setZone(o,y){
  el("IFR_"+o.id).src="/file/cities/"+y+"/"+o.value;
}
function setVATID(v,cou,org) {
  if(v=="" || cou=="") return;
  c=el(cou).value;
  isc=false;
  if(org){
    if(el(org).type=="text") isc=(el(org).value!="");
    else isc=el(org).checked;
  }
  n="VATID";
  if(c=="es") n=(isc)?"CIF":"NIF/NIE";
  if(c=="be") n="BTW nr.";
  if(c=="dk") n="SE nr.";
  if(c=="de") n="USt IdNr.";
  if(c=="fi") n="ALV nro";
  if(c=="fr") n="Keine";
  if(c=="gr") n="&Alpha;.&Phi;.&Mu;";
  if(c=="uk") n="VatRegNo";
  if(c=="ie") n="VAT No";
  if(c=="it") n="P.IVA";
  if(c=="lu") n="ID.TVA";
  if(c=="nl") n="OBnummer";
  if(c=="at") n="UID";
  if(c=="pt") n="NIPC";
  if(c=="se") n="Moms Nr.";
  el("VITXT_"+v).innerHTML=n;
}

function copyText(txt){
  if(document.all) window.clipboardData.setData("Text",txt);
  else{
    try{
      netscape.security.PrivilegeManager.enablePrivilege('UniversalXPConnect');
    }catch(e){
      alert("El navegador tiene desactivada esta opción por motivos de seguridad, para activarla se debe incluir mediante New-\>Boolean la siguiente lí­nea, con valor true, en la ventana de configuración a la que se accede indicando la dirección: about:config\n\nsigned.applets.codebase_principal_support;");
    }
    var c=Components.classes['@mozilla.org/widget/clipboard;1'].createInstance(Components.interfaces.nsIClipboard);
    if(!c) return;
    var t=Components.classes['@mozilla.org/widget/transferable;1'].createInstance(Components.interfaces.nsITransferable);
    if(!t) return;
    t.addDataFlavor('text/unicode');
    var s=new Object(),len=new Object();
    var s=Components.classes["@mozilla.org/supports-string;1"].createInstance(Components.interfaces.nsISupportsString);
    s.data=txt;
    t.setTransferData("text/unicode",s,txt.length*2);
    var cid=Components.interfaces.nsIClipboard;
    if(!c) return false;
    c.setData(t,null,cid.kGlobalClipboard);
  }
}

function clClick(d){
  f="mm/dd/yyyy".toLowerCase();
  m=parseInt(caldm)+1;
  y=caldy;
  v="";
  for(i=0;i<f.length;i++){
    c=f.substring(i,i+1);
    if(c=="d"){
      if(d) c=d;
      d=0;
    }
    if(c=="m"){
      if(m) c=m;
      m=0;
    }
    if(c=="y"){
      if(y) c=y;
      y=0;
    }
    if(!/d|m|y/.test(c)) v+=c;
  }
  el(wdbcfld).value=v;
  hideCal();
}
function clOver(src){
  src.className=src.className.substr(0,6)+"hov";
}
function clOut(src){
  src.className=src.className.substr(0,6);
}
function calOver(obj){
  if(wdbtc){
    clearTimeout(wdbtc);
    wdbtc=false;
  }
}
function calOut(){
  wdbtc=setTimeout("hideCal()",5000);
}
function calAD(v){
  caldm=el("wdbcalm").selectedIndex+v;
  caldy=2060-el("wdbcaly").selectedIndex;
  if(caldm>=el("wdbcalm").options.length){
    caldm=0;
    if(caldy<2060) caldy++;
  }if(caldm<0){
    caldm=el("wdbcalm").options.length-1;
    if(caldy>1920) caldy--;
  }
  calBuild();
}
var wdbcfld="",wdbtc=false,caldy=0,caldm=0,caldd=0;
function selDate(obj,f){
  if(el("wdbcal").style.display==""){
    hideCal();
    return;
  }
  wdbcfld=f;
  cdate=el(f).value;
  if(!isNaN(obj) && cdate=="") return;
  cdp=cdate.split("/");
  if(cdp.length!=3) cdp=cdate.split("-");
  if(cdp.length==3){
    caldy=parseInt(cdp[2]);
    caldm=parseInt(cdp[1])-1;
    caldd=parseInt(cdp[0]);
    if(caldy>=0 && caldy<=60) caldy+=2000;
    if(caldy<1900) caldy+=1900;
  }
  cdp=new Date(caldy, caldm, caldd);
  if(isNaN(caldy) || isNaN(caldm) || isNaN(caldd) || caldy<1920 || caldy>2060 || caldm<0 || caldm>11 || caldd<1 || caldd>31 || isNaN(cdp) || cdp.getFullYear()!=caldy || cdp.getMonth()!=caldm || cdp.getDate()!=caldd){
    cdp=new Date();
    caldy=cdp.getFullYear();
    caldm=cdp.getMonth();
    caldd=cdp.getDate();
  }if(!isNaN(obj)){
    el(wdbcfld).value=caldd+"/"+parseInt(caldm+1)+"/"+caldy;
    return;
  }
  calBuild();
  showCal(obj);
}
function calBuild(){
  var strdays="Domingo Lunes Martes Miércoles Jueves Viernes Sábado".split(" ");
  cdatei=new Date(caldy,caldm,1);
  cdatef=new Date(caldy,caldm,27);
  for(mf=27;mf<=31;mf++){
    cdatef.setDate(mf+1);
    if(caldm!=cdatef.getMonth()) break;
  }
  cdatef=new Date(caldy,caldm,mf);
  str='<table width="100%" height="100%" border="0" cellspacing="1" cellpadding="1"><tr>';
  j=0;
  for(i=0;i<7;i++){
    str+='<td width="23" align="center" nowrap class="cl-hwd">'+strdays[j].substr(0,3)+"</td>";
    if((++j)>=strdays.length) j=0;
  }
  str+="</tr><tr>";
  if((j=0+cdatei.getDay())>6) j-=7;
  for(i=0;i<j;i++) str+='<td class="cl-hxt">&nbsp;</td>';
  for(i=1;i<=mf;i++){
    if(j>6){
      j=0;
      str+="</tr><tr>";
    }
    c="cl-hnd";
    if((k=j+0)>6) k-=7;
    if(k==0 || k==6) c="cl-hwe";
    if(i==caldd) c="cl-hdy";
    str+='<td align="right" onmouseover="clOver(this)" onmouseout="clOut(this)" onclick="clClick('+i+')" class="'+c+'">'+i+'</td>';
    j++;
  }
  for(i=j;i<7;i++) str+='<td class="cl-hxt">&nbsp;</td>';
  if(j>0) str+="</tr>";
  str+='<tr height="100%" class="cl-htp"><td colspan="7" align="right" valign="bottom"><b onclick="hideCal()" style="cursor: pointer; font-size: 10px; color: #FF0000">x</b></td></tr></table>';
  el("cmdays").innerHTML=str;
  el("wdbcalm").selectedIndex=caldm;
  el("wdbcaly").selectedIndex=2060-caldy;
}
function showCal(obj){
  n=173;
  el("wdbcal").style.left=(pleft(el("SELD_"+wdbcfld))-n)+"px";
  el("wdbcal").style.top=(ptop(el("SELD_"+wdbcfld))+16)+"px";
  el("wdbcal").style.display="";
}
function hideCal(){
   caldy=0;
   el("wdbcal").style.display="none";
}

function pop_onclose(){
  if(!document.all) opener.wdbdlgretn(null);
}
function pop_init(){
  window.dialogArguments=opener.wdbdlgargs;
  window.sizeToContent();
  window.sizeToContent();
  window.addEventListener("unload",pop_onclose,true);
  document.body.onkeypress=function(){if(checkKey(event)==27) window.close();};
}
function pop_close(v){
  if(document.all) window.returnValue=v;
  else opener.wdbdlgretn(v);
  window.close();
}