function ThisEmpty(elem)
{
  var ps1;
  ps1 = elem.value;

  IsEmpty=false;

  if (ps1==null || ps1.length == 0) {IsEmpty=true}
  else
  {
  var RC=0;
  for (var i=0;i<ps1.length;i++)
    {
      if (ps1.substring(i, i+1)!=" ") RC++;
    }
  if (RC==0) {IsEmpty=true}
  }

  return (IsEmpty);
}

function ShowHiddDiv(eln)
{
  var frm=document.forms["form1"]
  if (frm!=null)
   {
    dV=document.all["divV"+eln]
    dH=document.all["divH"+eln]
    if (dV!=null && dH!=null)
    {
//window.alert(dV.name+":"+dV.offsetHeight)
     var PrZ=dV.innerHTML
//dV.style.background="yellow"
//window.alert(dH.innerHTML)
     dV.innerHTML=""
//     dV.style.height=1;
     dV.innerHTML=dH.innerHTML
     dH.innerHTML=""
     dH.style.height=1;
     dH.innerHTML=PrZ
     dV.style.height=1;
//     divVcb0_1.style.height=1
//dV.style.background="red"
//window.alert("^"+dV.innerHTML+"^")
//window.alert(dV.offsetHeight)
    }
   }
}

function ChangeCatWar(frm,el,NoMatsList)
{
var v=el.value
var d=document.all["MatsDiv"]
if (NoMatsList.indexOf(","+v+",")>=0)
  {
   if (frm.mCatTreeIdCB!=null)
    {
       frm.mCatTreeIdCB.value=-1
       frm.mCatTreeIdCB.selected=-1
    }

   if (d!=null) d.style.visibility="hidden"
  }
else
   if (d!=null) d.style.visibility="visible"
}

function callEdit(acid,red)
{
var NDate= new Date();
var TNum=NDate.getTime();
  if (document.layers) var frm=document.forms["Warf_SNP1"];
  else var frm=document.forms["Warf_SNP1"];
  if (frm!=null)
   {
     frm.action=red+acid+"&"+TNum
     frm.submit()
   }
}


function CompareCB(frm,el,elInd)
{
var IndG=frm.Ind.value
var tV=el.value
var Che=el.checked
for (var i=1;i<=IndG;i++)
 {
  if (i!=elInd)
    {
      var ElA=frm.elements["cb"+i]
      if (ElA!=null)
      {
      var ElAv=ElA.value
      if (ElAv==tV)
        {
          ElA.checked=Che
        }
      }
    }
 }
}

function ChCB(frmn,sb,d_eln)
{
var frm=document.forms[frmn]
var d_el=frm.elements[d_eln]
var aDate=d_el.value;
       var DArr=new Array();
       aDate+="."
       DArr=aDate.split(".")

  switch (sb.name) 
   {
     case "D_CB": DArr[0]=sb.value;break;
     case "M_CB": DArr[1]=sb.value;break;
     case "Y_CB": DArr[2]=sb.value;break;
   }

d_el.value=DArr[0]+"."+DArr[1]+"."+DArr[2];

       var testd=new Date();
           testd.setDate(DArr[0])
           testd.setMonth(DArr[1]-1)
           testd.setYear(DArr[2])

var nd=testd.getDate()
var nm=testd.getMonth()+1
var ny=testd.getYear()

d_el.value=nd+"."+nm+"."+ny;
/*
var sbd=frm.elements["D_CB"]
sbd.value=nd  
sbd.selectedIndex=nd  
var sbm=frm.elements["M_CB"]
sbm.value=nm
sbm.selectedIndex=nm
var sby=frm.elements["Y_CB"]
sby.value=ny
sby.selectedIndex=ny*/
  
//window.alert(d_el.value)
}

function PlayState(el,St)
{
var che=false
if (St=="checked") che=true
el.checked=che
}

function GetCena(OC)
{
if (OC==null) OC=0
var res=OC;
res=String(res).replace(",",".")
var D1=parseFloat(OC)*100;
D1=Math.round(D1);
res=String(D1/100);
if (res.indexOf(".")<=0) res+=".00" 
res=res.replace(".","-")
var ol=res.length;
var ip=res.indexOf("-")
var di=ol-ip
if (di==2) res+="0"
window.alert(res)
return (res);
}

function ChangeCost1(frm, el1, el2N, NDSC)
{
NDSC=NDSC.replace(",",".")
NDSC=NDSC.replace("-",".")
NDSC=parseFloat(NDSC)
if (isNaN(NDSC) || parseFloat(NDSC)<=0) NDSC=1
var el2=frm.elements[el2N]
var v1=el1.value
v1=v1.replace(",",".")
v1=v1.replace("-",".")
v1=parseFloat(v1)
if (isNaN(v1)) v1=0
var v2=parseFloat(v1)/parseFloat(NDSC)
v1=GetCena(v1)
v2=GetCena(v2)
el1.value=v1
el2.value=v2
}

function ChangeCost2(frm, el2, el1N, NDSC)
{
NDSC=NDSC.replace(",",".")
NDSC=NDSC.replace("-",".")
NDSC=parseFloat(NDSC)
if (isNaN(NDSC) || NDSC<=0) NDSC=1
var el1=frm.elements[el1N]
var v2=el2.value
v2=v2.replace(",",".")
v2=v2.replace("-",".")
v2=parseFloat(v2)
if (isNaN(v2)) v2=0
var v1=parseFloat(v2)*NDSC
v1=GetCena(v1)
v2=GetCena(v2)
el1.value=v1
el2.value=v2
}

function ModifyDataForm(frm)
{
var res=false;
var aFN=frm.FN.value;
if (aFN==null) aFN="";

if (aFN=="")
 {
  frm.action=frm.fr1.value
 }
else
 {  
  var fFN="";
  if (aFN.indexOf("\\")<0) {fFN=aFN;}
  else
   {
     for (var i=aFN.lastIndexOf("\\")+1;i<aFN.length;i++)
       {
         var TC=aFN.substring(i,i+1);
 	 if (TC==".") {break;}
         fFN+=TC;
       }
   }
  frm.action+="FN="+frm.IP.value+fFN+"&"+frm.fr.value;
 }
res=true;
frm.submit();

return (res)
}

function GetClearStr( ps1)
{
var result=ps1;
var NewStr="";
var OneChar="";
var i=0; 
  for (i=0; i< ps1.length; i++)
     { 
       OneChar=ps1.substring( i, i+1);
       if (OneChar!=" ")
         {
         var NewChar=OneChar;
         NewStr= NewStr+NewChar;
         }
     }
result=NewStr;     
return (result)
}

function HasDangerHTML(elem) 
{
if (elem!=null)
{
  var ps1=elem.value;
   
  if (ps1!=null || ps1.length!= 0)
  {
    ps1=ps1.toUpperCase();
    var ExHtml=ps1.indexOf("OBJECT");
    if (ExHtml>=0)
      ps1=GetClearStr( ps1);
    ExHtml=String(ps1).indexOf("<OBJECT");
    if (ExHtml>=0)
      {
         alert("А зачем Вам нужен этот тег?");
         elem.focus();
         return true;
      }    
    else return false;
  }
  else return false;
}
else return (true)
}

function CheckEmail(e_mail)
{
if (!ThisEmpty(e_mail))
{
   var ET=e_mail.value
   var LE=e_mail.value.length
   var P_S=ET.indexOf('@', 0)
   var P_T=ET.indexOf('.', 0)
   var P_Tl=ET.lastIndexOf('.')
   if ( P_T == -1 || P_S == -1 || P_Tl<P_S || P_T ==(LE-1) || P_S ==(LE-1) || (P_S-P_T==-1))

   {
     alert("Необходимо ввести корректный Email")
     e_mail.focus();
     return false;
   }	
  else
  {
    if (!HasDangerHTML(e_mail)) return (true)
    else return (false)
  }
}
else return (true)
}

function CheckRequired(elem, mes)
{
  var ps1;
 
  ps1 = elem.value;
  if (ps1.length == 0 || ThisEmpty(elem))   //tnv
  {
    if (mes.length == 0) mes = "Необходимо ввести значение поля"; //tnv
    alert(mes);
    elem.focus();
    return false;
  }
  else
  {
    if (!HasDangerHTML(elem)) return (true)
    else return (false)
  }
}

function SortBy(SortName)
{
  if (document.layers) var frm=document.forms["F"];
  else var frm=document.forms["F"];
  if (document.layers) var afrm=document.forms["Find_This_Here"];
  else var afrm=document.forms["Find_This_Here"];
  if (frm!=null)
   {
//     frm.SqlNoChange.value="T"
     frm.OB.value=SortName
     var OAD=frm.aASC_DESC.value
     NOAD="ASC"
     if (OAD=="" || OAD=="ASC") var NOAD="DESC"
     frm.aASC_DESC.value=NOAD
     frm.RepQ.value="T"
     
     frm.submit()
   }
}
function SortByW(SortName)
{
  var frm=document.forms["Warf_SNP1"];
  if (frm!=null)
   {
     frm.OB.value=SortName
     var OAD=frm.aASC_DESC.value
     NOAD="ASC"
     if (OAD=="" || OAD=="ASC") var NOAD="DESC"
     frm.aASC_DESC.value=NOAD
     frm.submit()
   }
}

function SortBy_adm(SortName)
{
  if (document.layers) var frm=document.forms["SNP_adm"];
  else var frm=document.forms["SNP_adm"];
  if (frm!=null)
   {
     frm.OB.value=SortName
     var OAD=frm.aASC_DESC.value
     NOAD="ASC"
     if (OAD=="" || OAD=="ASC") var NOAD="DESC"
     frm.aASC_DESC.value=NOAD
     
     frm.submit()
   }
}

function DetCl(PL,aPath,aPathJN)
{
  ZForm.action="wardet.asp?PL="+PL;
  ZForm.Path.value=aPath;
  ZForm.PathJN.value=aPathJN;

  ZForm.submit();
}

function CheckOnEmpty(elem, mes)
{
  var ps1;
  ps1 = elem.value;

  IsEmpty=false;

  if (ps1.length == 0) {IsEmpty=true}
  else
  {
  var RC=0;
  for (var i=0;i<ps1.length;i++)
    {
      if (ps1.substring(i, i+1)!=" ") RC++;
    }
  if (RC==0) {IsEmpty=true}
  }

  if (IsEmpty)
  {
    if (mes.length == 0) mes = "Значение поля обязательно";
    alert(mes);
    elem.focus();
    return false;
  }
  else
  {
    return true;
  }
}

function HasAphostr(elem)
{
 
  var ps1;
  ps1 = elem.value;

  if (ps1.length!=0 && ps1.indexOf("'")>=0) return true
  else return false
}

function IsFloat(data, mes)
{
 var i=parseFloat(data);
 if (i==null)
 {
   if (mes.length == 0) mes = "Тип поля должен быть дробный";
   alert(mes);
   return false;
 }
 else return true;
}

function IsInteger(data, mes)
{
 var i=parseInt(data);
 if (i==null)
 {
   if (mes.length == 0) mes = "Тип поля должен быть целый";
   alert(mes);
   return false;
 }
 else return true;
}

function IsString(data, mes)
{
 if (typeof(data) != "string")
 {
   if (mes.length == 0) mes = "Тип поля должен быть строковый";
   alert(mes);
   return false;
 }
 else return true;
}

function IsBoolean(data, mes)
{
 if ((data != "true")&&(data != "false"))
 {
   if (mes.length == 0) mes = "Тип поля должен быть логический";
   alert(mes);
   return false;
 }
 else return true;
}

function CheckType(type, elem, mes)
{
  var ps1, result=false;
  ps1 = elem.value;
  if (ps1.length == 0) return true;
  switch (type) {
    case "string":
      result = IsString(ps1, mes); break;
    case "integer":
      result = IsInteger(ps1, mes); break;
    case "float":
      result = IsFloat(ps1, mes); break;
    case "boolean":
      result = IsBoolean(ps1, mes);break;
    default: mes = "Неизвестный тип данных"; alert(mes);
  } 
  if (!result) elem.focus();
  return result;
  
}

function SetNeedValues(frm)
{
  if (document.layers) var afrm=document.divf.document.forms["ZForm"]
  else var afrm=document.forms["ZForm"];
  frm.WaresNums.value=afrm.WaresNums.value;
  frm.Sh1.value=afrm.Sh1.value;
  frm.Sh2.value=afrm.Sh2.value;
  frm.submit();
}

function SetNeedValues2(frm)
{
  if (document.layers) var afrm=document.divf.document.forms["ZForm"]
  else var afrm=document.forms["ZForm"];
  frm.WaresNums.value=afrm.WaresNums.value;
  frm.Sh1.value=afrm.Sh1.value;
  frm.Sh2.value=afrm.Sh2.value;
  frm.submit();
}

function ValidateRegForm(frm)
{
  if (document.layers) var afrm=document.divf.document.forms["ZForm"]
  else var afrm=document.forms["ZForm"];
  frm.WaresNums.value=afrm.WaresNums.value;
  frm.Sh1.value=afrm.Sh1.value;
  frm.Sh2.value=afrm.Sh2.value;
var result=true;
var A1=HasAphostr(frm.FIO);
var A2=HasAphostr(frm.Pass);
var A3=HasAphostr(frm.Email);
var A4=HasAphostr(frm.Phone);

if (A1 || A2 || A3 || A4) {window.alert("недопустимый символ '");result=false;}
var C1E=ThisEmpty(frm.Pass);
var C2E=ThisEmpty(frm.Email);
if (C1E) {window.alert("Пароль не может быть пустой строкой.");result=false;}
if (C2E) {window.alert("Email не может быть пустой строкой.");result=false;}
if (result) {frm.submit();}
else return false;
}

function ValidateFBF(frm)
{
 if (!HasDangerHTML(frm.WhatFind))
 { 
     var NDate= new Date();var TNum=NDate.getTime();
     
     if (frm.FindCode.value==2 || frm.FindCode.value==7 || frm.FindCode.value==8 || frm.FindCode.value==9)
      frm.action="fab.asp?"+TNum;
     if (
			frm.AtResults==true
			&& (frm.OldFindCode.value==2 || frm.OldFindCode.value==7 || frm.OldFindCode.value==8 || frm.OldFindCode.value==9 || frm.FF.value==1)
		 )  frm.action="fab.asp?"+TNum;
     frm.submit()
 }
}

function ValidateForm1(frm)
{
  if (document.layers) var afrm=document.divf.document.forms["ZForm"]
  else var afrm=document.forms["ZForm"];
  frm.WaresNums.value=afrm.WaresNums.value;

frm.TestI.value=document.forms[0].TestI.value;
var result=true;
var C1E=ThisEmpty(frm.CostIf1);
var C2E=ThisEmpty(frm.CostIf2);
if (!C1E && !CheckType("float", frm.CostIf1, "")) result=false;
if (!C2E && !CheckType("float", frm.CostIf2, "")) result=false;


var WF=ThisEmpty(frm.WhatFind);
if (!WF)
  {
    var FindThis=frm.WhatFind.value;
    
    FindThis=FindThis.toUpperCase();
    var MassWords=new Array();
    MassWords[0]=0;
    var MWC=0;
	var FW="";
        var ORs="ИЛИ";
	var ANDs="И";
    	var StErr="";
	for (var i=0; i< FindThis.length; i++)
	{
		var ThisChar= FindThis.substring(i, i+1);
                if (ThisChar=="'" || ThisChar==",")
                  {
		    result=false;
             	    StErr+="Недопустимый при описании запроса символ "+ThisChar+".\n";
		  }    
		var Sw=false;
		if (ThisChar==" " || ThisChar==")" || ThisChar=="(") Sw=true;
		if (!Sw) {FW+=ThisChar;}
		if ((Sw || i==(FindThis.length-1)) && FW!="")
		{ 
			MWC++;
			MassWords[MWC]=FW;
			FW="";
		}
		if (ThisChar==")" || ThisChar=="(")
		{ 
			MWC++;
			MassWords[MWC]=ThisChar;
			FW="";
		}
	}
    if (MWC>0)
      {
        if (MassWords[1]==")" || MassWords[1]==ORs || MassWords[1]==ANDs) 
          {  result=false;
             StErr+=MassWords[1]+" не может быть первым в запросе.\n";
          }
        if (MassWords[MWC]=="(" || MassWords[MWC]==ORs || MassWords[MWC]==ANDs) 
          {
             result=false;
 	     StErr+=MassWords[MWC]+" не может быть последним в запросе.\n";
          }
        var res=0;
	var LC=0;
	var RC=0;
        for (k=1;k<=MWC;k++)
          {
            var S=MassWords[k];
            if (S=="(") {LC++;res++;}
            if (S==")") {RC++;res--;}
            if (res<0) 
              {
		result=false;
		StErr+="Несоответствие использования '(' и ')'.\n";
	      }
	  }
	if (LC!=RC) {result=false;StErr+="Неравное количество '(' и ')'.\n";}
/*	var SC=0;
        var NeedC=false;	
        for (k=1;k<=MWC;k++)
          {
            var S=MassWords[k];
            if (S=="(") {NeedC=true;}
            if (S==")") 
             {
              NeedC=false;
              if (SC==0) 
                {
		  result=false;
		  StErr+="В выражении в скобках отсутствует союз.\n";
                }
              SC=0;
	     }
	    if (NeedC)    	
              {if (S==ORs || S==ANDs) SC++;}
	  }*/
	var LS="";
	var RS="";
        MassWords[MWC+1]=""; 
        for (k=1;k<=MWC;k++)
          {
            RS=MassWords[k+1];
            var S=MassWords[k];
	    if (S==")" && RS!=ORs && RS!=ANDs && RS!="")
              {
		result=false;
		StErr+="После ')' должен идти союз.\n";
	      }  
	    if (S=="(" && LS!=ORs && LS!=ANDs && LS!="")
              {
		result=false;
		StErr+="До '(' должен идти союз.\n";
	      }  
            if (S==")")
              {if (LS==ANDs || LS==ORs || LS=="(") 
                {
		  result=false;
		  StErr+="После "+LS+" не может быть ')'.\n";
                }
              }
            if (S=="(")
              {if (LS==")") 
		{
		  result=false;
		  StErr+="После "+LS+" не может быть '('.\n";
	        }
   	      }
            if (S==ORs || S==ANDs)
              {if (LS=="(" || LS==ORs || LS==ANDs) 
		{
		  result=false;
		  StErr+="После "+LS+" не может быть "+S+".\n";
                }
	      }	
            if (LS==")" && RS=="(" && S!=ORs && S!=ANDs) 
		{
		  result=false;
		  StErr+="Между ')' и '(' должен быть союз.\n";
		}
            if (LS=="(" && RS==")" && (S==ORs || S==ANDs)) 
		{
		  result=false;
		  StErr+="Между '(' и ')' неопределено выражение.\n";
		}
            LS=S;
	  }
      }
   
    if (!result)
      {
        frm.WFArr.value="";
        frm.WFArrC.value="0";
        window.alert("Синтаксические ошибки в описании запроса:\n"+StErr);
	frm.WhatFind.focus();
      }
    else 
      {	
	var NewS="";
        var LastArr=new Array();
	var LAC=-1;
	var RS="";
        for (k=1;k<=MWC;k++)
          {
            var S=MassWords[k];
            var RS=MassWords[k+1];
            if (S==")" || S=="(" || S==ORs || S==ANDs)
              {
                if (NewS!="")
		  {
		    LAC++;
		    LastArr[LAC]=NewS;
                  }
		LAC++;
		LastArr[LAC]=S;
                NewS="";
 	      } 
	    else
	      {
                if (RS="" || RS==")" || RS=="(" || RS==ORs || RS==ANDs) {NewS+=S;}
                else {NewS+=S+" ";}
	      }	
            if (k==MWC && NewS!="") 
		  {
		    LAC++;
		    LastArr[LAC]=NewS;
                  }
	  }
        var NSt="";  
        for (e=0;e<LAC;e++) 
          NSt+=LastArr[e]+","; 
	frm.WFArr.value=LastArr;
//	frm.WFArr.value=NSt;
	frm.WFArrC.value=LAC;
      }
  }

if (result) {frm.submit();}
else return false
}

function ValidateForm(frm)
{
frm.TestI.value=document.forms[0].TestI.value;
var result=true;
var C1E=ThisEmpty(frm.CostIf1);
var C2E=ThisEmpty(frm.CostIf2);
if (!C1E && !CheckType("float", frm.CostIf1, "")) result=false;
if (!C2E && !CheckType("float", frm.CostIf2, "")) result=false;


var WF=ThisEmpty(frm.WhatFind);
if (!WF)
  {
    var FindThis=frm.WhatFind.value;
    
    FindThis=FindThis.toUpperCase();
    var MassWords=new Array();
    MassWords[0]=0;
    var MWC=0;
	var FW="";
        var ORs="ИЛИ";
	var ANDs="И";
    	var StErr="";
	for (var i=0; i< FindThis.length; i++)
	{
		var ThisChar= FindThis.substring(i, i+1);
                if (ThisChar=="'" || ThisChar==",")
                  {
		    result=false;
             	    StErr+="Недопустимый при описании запроса символ "+ThisChar+".\n";
		  }    
		var Sw=false;
		if (ThisChar==" " || ThisChar==")" || ThisChar=="(") Sw=true;
		if (!Sw) {FW+=ThisChar;}
		if ((Sw || i==(FindThis.length-1)) && FW!="")
		{ 
			MWC++;
			MassWords[MWC]=FW;
			FW="";
		}
		if (ThisChar==")" || ThisChar=="(")
		{ 
			MWC++;
			MassWords[MWC]=ThisChar;
			FW="";
		}
	}
    if (MWC>0)
      {
        if (MassWords[1]==")" || MassWords[1]==ORs || MassWords[1]==ANDs) 
          {  result=false;
             StErr+=MassWords[1]+" не может быть первым в запросе.\n";
          }
        if (MassWords[MWC]=="(" || MassWords[MWC]==ORs || MassWords[MWC]==ANDs) 
          {
             result=false;
 	     StErr+=MassWords[MWC]+" не может быть последним в запросе.\n";
          }
        var res=0;
	var LC=0;
	var RC=0;
        for (k=1;k<=MWC;k++)
          {
            var S=MassWords[k];
            if (S=="(") {LC++;res++;}
            if (S==")") {RC++;res--;}
            if (res<0) 
              {
		result=false;
		StErr+="Несоответствие использования '(' и ')'.\n";
	      }
	  }
	if (LC!=RC) {result=false;StErr+="Неравное количество '(' и ')'.\n";}
/*	var SC=0;
        var NeedC=false;	
        for (k=1;k<=MWC;k++)
          {
            var S=MassWords[k];
            if (S=="(") {NeedC=true;}
            if (S==")") 
             {
              NeedC=false;
              if (SC==0) 
                {
		  result=false;
		  StErr+="В выражении в скобках отсутствует союз.\n";
                }
              SC=0;
	     }
	    if (NeedC)    	
              {if (S==ORs || S==ANDs) SC++;}
	  }*/
	var LS="";
	var RS="";
        MassWords[MWC+1]=""; 
        for (k=1;k<=MWC;k++)
          {
            RS=MassWords[k+1];
            var S=MassWords[k];
	    if (S==")" && RS!=ORs && RS!=ANDs && RS!="")
              {
		result=false;
		StErr+="После ')' должен идти союз.\n";
	      }  
	    if (S=="(" && LS!=ORs && LS!=ANDs && LS!="")
              {
		result=false;
		StErr+="До '(' должен идти союз.\n";
	      }  
            if (S==")")
              {if (LS==ANDs || LS==ORs || LS=="(") 
                {
		  result=false;
		  StErr+="После "+LS+" не может быть ')'.\n";
                }
              }
            if (S=="(")
              {if (LS==")") 
		{
		  result=false;
		  StErr+="После "+LS+" не может быть '('.\n";
	        }
   	      }
            if (S==ORs || S==ANDs)
              {if (LS=="(" || LS==ORs || LS==ANDs) 
		{
		  result=false;
		  StErr+="После "+LS+" не может быть "+S+".\n";
                }
	      }	
            if (LS==")" && RS=="(" && S!=ORs && S!=ANDs) 
		{
		  result=false;
		  StErr+="Между ')' и '(' должен быть союз.\n";
		}
            if (LS=="(" && RS==")" && (S==ORs || S==ANDs)) 
		{
		  result=false;
		  StErr+="Между '(' и ')' неопределено выражение.\n";
		}
            LS=S;
	  }
      }
   
    if (!result)
      {
        frm.WFArr.value="";
        frm.WFArrC.value="0";
        window.alert("Синтаксические ошибки в описании запроса:\n"+StErr);
	frm.WhatFind.focus();
      }
    else 
      {	
	var NewS="";
        var LastArr=new Array();
	var LAC=-1;
	var RS="";
        for (k=1;k<=MWC;k++)
          {
            var S=MassWords[k];
            var RS=MassWords[k+1];
            if (S==")" || S=="(" || S==ORs || S==ANDs)
              {
                if (NewS!="")
		  {
		    LAC++;
		    LastArr[LAC]=NewS;
                  }
		LAC++;
		LastArr[LAC]=S;
                NewS="";
 	      } 
	    else
	      {
                if (RS="" || RS==")" || RS=="(" || RS==ORs || RS==ANDs) {NewS+=S;}
                else {NewS+=S+" ";}
	      }	
            if (k==MWC && NewS!="") 
		  {
		    LAC++;
		    LastArr[LAC]=NewS;
                  }
	  }
        var NSt="";  
        for (e=0;e<LAC;e++) 
          NSt+=LastArr[e]+","; 
	frm.WFArr.value=LastArr;
//	frm.WFArr.value=NSt;
	frm.WFArrC.value=LAC;
      }
  }

if (result) {frm.submit();}
else return false
}

function mb_ValidateForm1(frm)
{
var WF=ThisEmpty(frm.WhatFind);
if (!WF)
  {
    var FindThis=frm.WhatFind.value;
    FindThis=FindThis.toUpperCase();
  } 
var result= true;
if (result) {frm.submit();}
else return false
}