var SaibMDVersion="SaibMD.0009 15May08 General Purpose";SaibVCStore(SaibMDVersion);function SaibMDvalueMoveUp(){var Sz=arguments.length;if(Sz<1)return;var Arr=new Array();var i,j;j=0;for(i=0;i<Sz;i++){if(arguments[i].value!=null&&arguments[i].value!=""){Arr[j]=arguments[i].value;arguments[i].value="";j++;}}for(i=0;i<j;i++){arguments[i].value=Arr[i];}return;}function SaibMDarrayMake(){var i=arguments.length;var Out=new Array();if(i<1)return Out;var j;for(j=0;j<i;j++){Out[j]=arguments[j];}return Out;}function SaibMDGetWords(Istr,Xstr){var Raw=new Array();var Coo=new Array();var Ostr=Istr;var i,j,s;if(arguments.length>1&&Xstr.length>0&&Ostr.length>0){for(i=0;i<Xstr.length;i++)Ostr=""+Etrim(""+Ostr,Xstr.substring(i,i+1),Xstr.substring(i,i+1));}Raw=Ostr.split(" ");s=Raw.length;if(s<1)return Raw;j=0;for(i=0;i<s;i++){Raw[i]=""+Ltrim(Raw[i]);Raw[i]=""+Rtrim(Raw[i]);Raw[i]=""+Etrim(Raw[i]," ");if(Raw[i].length!=0){Coo[j]=""+Raw[i];j++;}}return Coo;}function SaibMDPadZero(Dat,Sze){var WKSTR=Dat+"=";var j=WKSTR.length;i=Sze-(j-1);while(i>0){WKSTR="0"+WKSTR;i--;}WKSTR=WKSTR.substring(0,Sze);return WKSTR;}function Ltrim(Istr){return Istr.replace(/^\s+/,"");}function Rtrim(Istr){return Istr.replace(/\s+$/,"");}function Etrim(Istr,Tstr){var Xstr=" ";if(arguments.length>1)Xstr=Tstr;if(Xstr.length<1)Xstr=" ";var i;for(i=0;i<Xstr.length;i++){var Fstr=""+Xstr.substring(i,i+1)+Xstr.substring(i,i+1);while(Istr.indexOf(Fstr)!=-1){Istr=""+Istr.substring(0,Istr.indexOf(Fstr))+Istr.substring(Istr.indexOf(Fstr)+1,Istr.length);}}return Istr;}function Ftrim(Istr){return Ltrim(Rtrim(Etrim(Istr)));}function SaibMDTrim(Istr){var Ostr=Istr;var Iprv=32;var Icur=31;var Iuse=true;var Isze=Istr.length;var Ichr="";var j=0;var Isze=Istr.length;var k=Isze-1;if(Isze<1)return Ostr;while(k>=1){if(Istr.charCodeAt(k)==32){Isze--;k--;}else break;}Ostr="";for(j==0;j<Isze;j++){Ichr=Istr.charAt(j);Icur=Ichr.charCodeAt(0);if(Icur==9){Ichr=" ";Icur=32;}Iuse=true;if(Icur==32&&Iprv==32)Iuse=false;if(Iuse==true){Ostr=Ostr+Ichr;Iprv=Icur;}}return Ostr;}function SaibMDValueOf(Istr){var Ostr="";var i=Istr.length;if(i<1)return Ostr;var j=0;var HadDig=false;var HadDec=false;for(j==0;j<i;j++){var Ch=Istr.charAt(j);if(HadDig==false){if(Ch>="0"&&Ch<="9"){HadDig=true;Ostr=Ostr+Ch;}}else{if((Ch>="0"&&Ch<="9")||(Ch=="."&&HadDec==false)){Ostr=Ostr+Ch;if(Ch==".")HadDec=true;}else break;}}return Ostr;}function SaibMDOnBlurTrim(TagObject,TagOpt){__BSN();var i=arguments.length;var OPACT=false;var Prm=" ";var Opt="";if(i>1)Opt=TagOpt.toUpperCase();if(Opt.indexOf("FTRIM")>=0){TagObject.value=Ftrim(TagObject.value);OPACT=true;}if(Opt.indexOf("LTRIM")>=0){TagObject.value=Ltrim(TagObject.value);OPACT=true;}if(Opt.indexOf("RTRIM")>=0){TagObject.value=Rtrim(TagObject.value);OPACT=true;}var j=Opt.indexOf("ETRIM(");if(j>=0){var k=TagOpt.substring(j);var m=k.indexOf(")");if(m>=0)Prm=k.substring(6,m);TagObject.value=Etrim(TagObject.value,Prm);OPACT=true;}else if(Opt.indexOf("ETRIM")>=0){TagObject.value=Etrim(TagObject.value,Prm);OPACT=true;}if(OPACT==false)TagObject.value=SaibMDTrim(TagObject.value);}function SaibMDOnBlurValueOf(TagObject){__BSN();TagObject.value=SaibMDValueOf(TagObject.value);}