function ToFmt(bz){this.bz=bz;this.fmt00=fmt00;this.fmtF=fmtF;this.fmtE=fmtE;this.fmtI=fmtI;this.io=" ";this.setSpacer=setSpacer;};function fmt00(){if(parseInt(this.bz)<0)var qu=true;if(Math.abs(parseInt(this.bz))<10){this.bz="0"+Math.abs(this.bz);};if(qu)this.bz="-"+this.bz;return this.bz;};function fmtF(pv,lu){var bm=pv,fc=lu,qe=false,md=this.bz.toString().length,kl,aa="";if(bm<(fc+2)){window.alert("Illegal format specified : w = "+lu+" w = "+lu+"\nUsage: [ToFmt].fmtF(w,d)"+"\nWidth (w) of field must be greater or equal to the number "+"\nof digits to the right of the decimal point (d) + 2");kl=filljunk(bm);return kl;};var ds=Math.abs(this.bz);if((ds<1)&&(ds>0)){qe=true;ds+=10;};var gl=ds.toString().indexOf(".");if(gl==-1){aa+=ds;aa+=".";for(var c=0;c<fc;c++){aa+=0;};}else{aa=Math.round(ds*Math.pow(10,fc));aa=aa.toString();if(aa.length==Math.round(Math.floor(ds*Math.pow(10,fc))).toString().length){aa=aa.substring(0,gl)+"."+aa.substring(gl,aa.length);}else{gl++;aa=aa.substring(0,gl)+"."+aa.substring(gl,aa.length);};if(qe){aa=aa.substring(1,aa.length);};};if(this.bz<0)aa="-"+aa;if(aa.length>bm){aa=filljunk(bm);}else if(aa.length<bm){var fk="";for(var c=0;c<(bm-aa.length);c++){fk+=this.io;};aa=fk+aa;};return aa;};function fmtE(pv,lu){var bm=pv,fc=lu,hz="E+",md=this.bz.toString().length,fv,gy,kl,aa="";if(bm<(fc+5)){window.alert("Illegal format specified : w = "+lu+" w = "+lu+"\nUsage: [ToFmt].fmtE(w,d)"+"\nWidth (w) of field must be greater or equal to the number "+"\nof digits to the right of the decimal point (d) + 6");kl=filljunk(pv);return kl;};var ds=Math.abs(this.bz),gl=ds.toString().indexOf(".");if(ds==0){aa+="0.";for(var c=0;c<fc;c++){aa+="0";};aa+="E+00";}else if(ds>=1.0){fv=1;gy=ds;while(gy>=1.){fv++;gy/=10;};aa=Math.round(gy*Math.pow(10,fc));aa=aa.toString();if(aa.length==Math.round(Math.floor(gy*Math.pow(10,fc))).toString().length){fv--;};aa="0."+aa.substring(0,fc)+hz+(new ToFmt(fv)).fmt00();}else if(ds<1.0){fv=1;gy=ds;while(gy<1.){fv--;gy*=10;};aa=Math.round(gy/10*Math.pow(10,fc));aa=aa.toString();if(aa.length!=Math.round(Math.floor(gy/10*Math.pow(10,fc))).toString().length){fv++;};if(fv<0)hz="E-";aa="0."+aa.substring(0,fc)+hz+(new ToFmt(Math.abs(fv))).fmt00();};if(this.bz<0)aa="-"+aa;if(aa.length>bm){aa=filljunk(bm);}else if(aa.length<bm){var fk="";for(var c=0;c<(bm-aa.length);c++){fk+=this.io;};aa=fk+aa;};return aa;};function fmtI(pv){var bm=pv,qd=false,md=this.bz.toString().length,kl,aa="",ds=Math.abs(this.bz);if(parseInt(this.bz)<0){qd=true;};aa=Math.round(Math.floor((ds))).toString();if(qd){aa="-"+aa;};if(aa.length>bm){aa=filljunk(bm);}else if(aa.length<bm){var fk="";for(var c=0;c<(bm-aa.length);c++){fk+=this.io;};aa=fk+aa;};return aa;};function filljunk(qj){var r="";for(var c=0;c<qj;c++){r+="*";};return r;};function setSpacer(qc){var qc;this.io=qc;return this.io;};function LTrim(r){var es=new String(" \t\n\r"),ke=new String(r);if(es.indexOf(ke.charAt(0))!=-1){var mx=0,c=ke.length;while(mx<c&&es.indexOf(ke.charAt(mx))!=-1)mx++;ke=ke.substring(mx,c);};return ke;};function RTrim(r){var es=new String(" \t\n\r"),ke=new String(r);if(es.indexOf(ke.charAt(ke.length-1))!=-1){var c=ke.length-1;while(c>=0&&es.indexOf(ke.charAt(c))!=-1)c--;ke=ke.substring(0,c+1);};return ke;};function Trim(r){return RTrim(LTrim(r));};function AcceptNumericOnly(fj){var r,ky="0123456789",ba,bl=true,db="",md,c,er,cb,ao=false,ck,ak=false,jk;im=Trim(fj.value);md=im.length;if(!md)bl=false;for(c=md-1;c>=0&&bl;c--){ba=im.charAt(c);bl=false;r=" NONE ";if((ba==".")||(ba==",")){if(!(ao||ak)){if(ba=="."){jk=",";}else{jk=".";};if(((md-c)-4==0)&&!(im.indexOf(jk)>-1)){ak=true;ck=ba;ao=true;cb=c+4;bl=true;r=" 1000Sep(1) ";}else{ao=true;er=ba;cb=c;bl=true;r=" DecimalSep ";db="."+db;};};};if(ao&&!ak&&((cb-c)-4==0)){if(((ba==",")||(ba=="."))){if(ba!=er){ak=true;ck=ba;bl=true;r=" 1000Sep(2) ";};};};if(ky.indexOf(ba)>-1){bl=true;db=ba+db;r=" ValidChar ";};if(ao&&ak&&((cb-c)%4==0)){if(ba==ck){bl=true;r=" 1000sep ";}else{bl=false;r=" 1000sep fail ";};};if(c==0&&(ba=="+"||ba=="-")){bl=true;db=ba+db;r=" +- ";};};if(bl){if((Math.round(db*100)/100)==Math.round(db)){var nx=new ToFmt(db);fj.value=Trim(nx.fmtI(10));}else{var nx=new ToFmt(db);fj.value=Trim(nx.fmtF(10,2));};}else{fj.value='';};};function AcceptIntegerOnly(fj){var pp=parseInt(fj.value,10);if(isNaN(pp))fj.value="";else fj.value=pp;};