function FrmLoud(frmName)
{
    if (typeof(window.clientInformation) != "undefined")
    {
	if (! window.clientInformation.cookieEnabled)
	{
	  alert("הגדרות המחשב לא מאפשרות ניהול שליפת/שמירת נתונים.");
	  return false;
	}
    }
	var st = CookieGet1(frmName);
	if (Len(st)==0)
	 {alert("אין דוח שמור"); return false;}

	if (! confirm("?האם לשלוף את נתוני הדוח השמור")) {return false};
	FrmStrSet(frmName, st);
	return true;
}
function FrmSave(frmName)
{
    if (typeof(window.clientInformation) != "undefined")
    {
	if (! window.clientInformation.cookieEnabled)
	{
	  alert("הגדרות המחשב לא מאפשרות את שמירתו של הדו'ח.");
	  return false;
	}
    }
	var st = CookieGet1(frmName);
	if (Len(st)==0)
	 {if (! confirm("?האם לשמור את הדוח במחשב שלך")) {return false};}
	else
	 {if (! confirm("?קיים כבר דוח שמור, האם לשמור נתונים אלו במקומו")) {return false};}

	CookieDel(frmName);
	CookieSet(frmName, FrmStrGet(frmName), 888);
	alert("נתוני הדוח נשמרו בהצלחה");
	return true;	
}

function FrmCleen(frmName, ConList2NotCleen, ConListDefault)
{ //Ex: FrmCleen("Tax_Ret", "", "fd1;fd2", "ShnatMas:2004;Nekeva:on")

	if (! confirm("?האם לנקות/לאפס נתונים")) {return false};		
var obj, p1, p2, valDef;
var cons = ";" + ConList2NotCleen.toString() + ";";
var consDef = ";" + ConListDefault.toString() + ";";
	for(var i = 0 ; i <  document.forms[frmName].elements.length ; i++)
	{			
	  obj = document.forms[frmName].elements[i];
	  if (cons.indexOf(";" + obj.name + ";") == -1)
	  {
	    p1 = consDef.indexOf(";" + obj.name + ":");
	    if (p1 == -1)
	    {	
		switch  (obj.type)
		{
		case "radio":
		obj.checked = false;
		break;
		case "checkbox":
		obj.checked = false;
		break;
		case "text": obj.value = "";
     		break;
     		case "hidden":
		obj.value = "";
     		break;
		case "select-one":
     		obj.selectedIndex = 0;
     		break;
		}//switch
	    }	

	    else
	    {
		p1 = consDef.substring(p1, 888).indexOf(":") + p1 + 1;
		p2 = consDef.substring(p1, 888).indexOf(";") + p1;
		valDef = consDef.substring(p1, p2);
		switch  (obj.type)
		{
		case "radio":
		obj.checked = valDef;
		break;
		case "checkbox":
		obj.checked = valDef;
		break;
		case "text": obj.value = valDef;
     		break;
     		case "hidden":
		obj.value = valDef;
     		break;
		case "select-one":
		obj.value = valDef;
     		break;
		}//switch

	    }	

	 }
	}//for
	return true;
} //FrmCleen

function FrmStrSet(frmName, frmStr)
{
var arrStr = new Array;
var arrNameVal = new Array;
var strNameVal = new String;
var obj , stName ,stVal;

arrStr =  frmStr.split("~");

	for(i = 0 ; i <  arrStr.length - 1 ; i++)
	{
	 strNameVal = arrStr[i];
	 arrNameVal = strNameVal.split("=");
	 stName = arrNameVal[0]; stVal = arrNameVal[1];
	 obj = document.forms[frmName][stName];
	 if (typeof(obj) != "undefined" && typeof(obj) == "object" && obj != null)
 	 {
		switch  (obj.type)
		{
		case "radio":
		obj.checked = (stVal == 'true') ? true : false;
		break;
		case "checkbox":
		obj.checked = (stVal == 'true') ? true : false;
		break;
		case "text": obj.value = stVal;
     		break;
     		case "hidden":
		obj.value = stVal;
     		break;
		case "select-one":
     		obj.selectedIndex = stVal;
     		break;
		}//switch
 	 }
	}//for

} // FrmStrSet

function FrmStrGet(frmName)
{
var st = "";
var obj;

	for(var i = 0 ; i <  document.forms[frmName].elements.length ; i++)
	{			
	 obj = document.forms[frmName].elements[i];
		switch  (obj.type)
		{
		case "radio":
		st += obj.name + "=" + obj.checked + "~" ;
		break;
		case "checkbox":
		st += obj.name + "=" + obj.checked + "~" ;
		break;
		case "text":
		st += obj.name + "=" + obj.value + "~" ;
     		break;
     		case "hidden":
		st += obj.name + "=" + obj.value + "~" ;
     		break;
		case "select-one":
     		st += obj.name + "=" + obj.selectedIndex + "~" ;
     		break;
		}//switch
	}//for	
	return st;
} // FrmStrGet

function CookieGet1(sName)
{
  var aCookie = document.cookie.split("; ");
  for (var i=0; i < aCookie.length; i++)
  {

    var aName = aCookie[i].split("=");
    if (sName == aName[0])
    {
      return Mid(unescape(aCookie[i]), Len(sName) + 2);
    }
  }
  return "";
  // does not exist
  return "";
}


function CookieGet(Name)
{
	var st = Name + "=", iSt, iEnd;
	var sCookie=document.cookie;
	if (sCookie.length && (-1 != (iSt = sCookie.indexOf(st))))
	{
		if (-1 == (iEnd = sCookie.indexOf(";",iSt+st.length)))
		{
		 iEnd = sCookie.length;
		 return unescape(sCookie.substring(iSt+st.length,iEnd));
		}
	}
		return "";
} //CookieGet

function CookieSet(Name, Val, expdays)
{
	var expDate = new Date ();
	expDate.setTime(expDate.getTime() + (expdays * 24 * 3600 * 1000));
	document.cookie = Name + "=" + Val + ((expdays == null) ? "" : "; expires=" + expDate.toGMTString());
}//CookieSet

function CookieDel (Name)
{
	document.cookie = Name + "=" + CookieGet(Name) + "; expires=" + (new Date()).toGMTString() + ";";
}//CookieDel