<!--

   function buid(o){ o.className='ii'; if (o.value=='') { o.className='iie'; o.focus(); alert('El campo no puede ser vacio.'); return true; } return false; }
   function preu(o){ var p=/^([0-9])+[,.']([0-9]){1,2}$/; o.className='ii'; if (!(p.test(o.value))) { o.className='iie'; o.focus(); alert('El campo no es un precio en euros.'); return false; } return true; }
   function num(o){ var p=/^([0-9])*$/; o.className='ii'; if (!(p.test(o.value))) { o.className='iie'; o.focus(); alert('El campo no es un número.'); return false; } return true; }
   function es_num(o){ var p=/^([0-9])*$/; o.className='ii'; return p.test(o.value); }
   function arregla(o) { o.value=o.value+'.00'; }
   function nif(o) { var p=/^[0-9]{8}(\s|-|)[a-zA-Z]$/; o.className='ii'; if (!(p.test(o.value))) { o.className='iie'; o.focus(); alert('El campo no es un N.I.F.'); return false; }
      var n=o.value.substring(0,8)%23; var l=o.value.toUpperCase().charAt(o.value.toUpperCase().length-1);
      switch (n){ case 0:ll='T'; break; case 1: ll='R'; break; case 2: ll='W'; break; case 3: ll='A'; break; case 4: ll='G'; break;
      case 5: ll='M'; break; case 6: ll='Y'; break; case 7: ll='F'; break; case 8: ll='P'; break; case 9: ll='D'; break; case 10: ll='X'; break;
      case 11: ll='B'; break; case 12: ll='N'; break; case 13: ll='J'; break; case 14: ll='Z'; break; case 15: ll='S'; break; case 16: ll='Q'; break;
      case 17: ll='V'; break; case 18: ll='H'; break; case 19: ll='L'; break; case 20: ll='C'; break; case 21: ll='K'; break; case 22: ll='E'; break; case 23: ll='T'; }
      if (ll==l) return true;
      o.className='iie'; o.focus(); alert('El campo no es un N.I.F. válido.'); return false;
   }
   function len(o,n) { o.className='ii'; if (String(o.value).length!=n) { o.className='iie'; o.focus(); alert('El campo no es de longitud '+n+'.'); return false; } return true; }


   function c(i,b){ i.disabled=b; if (b) i.className='iio'; else i.className='ii'; }
   function canvi(f,b){c(f['paren'],b);c(f['enom'],b);c(f['eadr'],b);c(f['eloc'],b);c(f['eprov'],b);c(f['ecp'],b);c(f['etelf'],b);c(f['nac'],b);c(f['edad'],b);c(f['estat'],b);}

   var mmm=false;
   function tsoci(f){ var m=getObject('malalt'); var bm1=getObject('bmalalt1'); var bm2=getObject('bmalalt2'); if (f['tipus'].item(f['tipus'].selectedIndex).value=='f') { canvi(f,false); mmm=true; } else { canvi(f,true); mmm=false; } }

   function envia_alta(f){
      if (buid(f['nom'])) return false;
      if (buid(f['cuota'])) return false;
      if (es_num(f['cuota'])) arregla(f['cuota']);
      if (!(preu(f['cuota']))) return false;
      if ((buid(f['nif']))||(!(nif(f['nif'])))) return false;
      if ((buid(f['adr']))||(buid(f['prov']))||(buid(f['loc']))||(buid(f['cp']))||(!len(f['cp'],5))||(!(num(f['cp'])))||(buid(f['telf']))) return false;
      if ((buid(f['ent']))||(!num(f['ent']))||(!len(f['ent'],4))||(buid(f['suc']))||(!num(f['suc']))||(!len(f['suc'],4))||(buid(f['dc']))||(!num(f['dc']))||(!len(f['dc'],2))||(buid(f['cnt']))||(!num(f['cnt']))||(!len(f['cnt'],10))) return false;
      if ((buid(f['titular']))||(buid(f['banc']))||(buid(f['badr']))||(buid(f['bloc']))||(buid(f['bcp']))||(!len(f['bcp'],5))||(!(num(f['bcp'])))) return false;
      if ((mmm)&&((buid(f['paren']))||(buid(f['enom']))||(buid(f['eadr']))||(buid(f['eloc']))||(buid(f['eprov']))||(buid(f['ecp']))||(!len(f['ecp'],5))||(!(num(f['ecp'])))||(buid(f['etelf']))||(buid(f['nac']))||(buid(f['edad']))||(!num(f['edad'])))) return false;
      if (confirm('Esta a punto de enviar los datos ¿Quiere continuar?')) f.submit();
      return true;
   }


-->