function Resume() {top.window.close();}

function Get_asp(url)
{
	if(url.indexOf("?")>0)
		return(url.substring(0,url.indexOf("?")));
	else
		return(url);
}

function Fw_history(h_ref,hl)
{
	if(hl==0) top.URL_History.length=1;
	var l=top.URL_History.length;
//	alert("length="+l)
	if(top.Direction=="F")
	{
		if(l>0)
		{
			var cur_asp=Get_asp(String(h_ref))
//	alert("cur_asp="+cur_asp)
			for(var I=0;I<l;I++)
			{
				top.URL_History[I]=top.URL_History[I]-1
			}
			if(cur_asp!=top.Last_asp)
			{
				top.URL_History.length=l+1;
				top.URL_History[l]=-1;
				top.Last_asp=cur_asp
			}
		}
		else
			top.URL_History.length=1;
			top.URL_History[0]=-1
	}
	if(top.Direction=="B")
	{
		top.Direction="F"
		top.Last_asp=Get_asp(String(h_ref))
	}
/*	alert("length2="+top.URL_History.length+"\n"+"-1="+
	top.URL_History[top.URL_History.length-1]+"\n"+"-2="+
	top.URL_History[top.URL_History.length-2]+"\n"+"-3="+
	top.URL_History[top.URL_History.length-3])
*/
}

function Back_History(step)
{
	if(step>0)
	{
		if(step>top.URL_History.length) step=top.URL_History.length;
		
		var n_go=top.URL_History[top.URL_History.length-step]
		
//		alert("l="+top.URL_History.length+"\nstep="+step);
		top.URL_History.length=top.URL_History.length-step
		var l=top.URL_History.length
		for(var I=0;I<l;I++)
		{
			top.URL_History[I]=top.URL_History[I]-n_go
		}
		top.Direction="B"
//		alert("n_go="+n_go)
/*	alert("lengthback="+top.URL_History.length+"\n"+"-1="+
	top.URL_History[top.URL_History.length-1]+"\n"+"-2="+
	top.URL_History[top.URL_History.length-2]+"\n"+"-3="+
	top.URL_History[top.URL_History.length-3])
*/
		return(n_go)
	}
}

function Prepare2(Float)
{
	var Temp,_Temp,I,J,K;
	if(isNaN(Float) || !isFinite(Float)) return("0.00");

	Temp=String(Math.round(Float*100)/100);
	if(Temp.charAt(0)=="-") K=1; else K=0;

	if((I=Temp.indexOf("."))==-1) {I=Temp.length; Temp+=".00";}
		else if(I+2==Temp.length) Temp+="0";

	_Temp=Temp.substring(I,Temp.length);
	while((J=I-3)>K) {_Temp=","+Temp.substring(J,I)+_Temp; I-=3;}
	_Temp=Temp.substring(0,I)+_Temp;
	
	return(_Temp);
}

function find_frame(cur,fname)
{
	if(cur.name==fname) return(cur);
 	else
	{
		var i,j=cur.frames.length;
		for(i=0;i<j;i++)
		{
			var chd=find_frame(cur.frames[i],fname);
			if(chd!=null) return(chd);
		}
		return(null);
	}
}

function SetRadio(Object,Value,SIV)
{
	if(Object!=null)
	{
		if(isNaN(Object.length))
		{
			if(parseInt(Object.value)==Value)
				Object.checked=true;
			else
				Object.checked=false;
		}
		else
		{
			var N=Object.length;
			for(var I=0;I<N;I++)
				if(parseInt(Object[I].value)==Value)
				{
					if(SIV!=null) Object[I].scrollIntoView(SIV);
					Object[I].checked=true;
					break;
				}
		}
	}
}

function OpenWindow(Name,Loc)
{
	if(navigator.appName.indexOf("Netscape")==-1)
	{
		var Left=1; var Top=1;
		var Width=screen.width-1;
		var Height=screen.height-150;
		var Option="Width="+Width+"; Height="+Height+"; Left="+Left+"; Top="+Top+"; Resizable=1; Scrollbars=1; Menubar=1; Toolbar=1; Status=1; Location=1";
		this.window.open(Loc,Name,Option);
	}
	else
		this.window.open(Loc,Name);
}
function OpenWindowFull(Name,Loc)
{
	if(navigator.appName.indexOf("Netscape")==-1)
	{
		var Left=5; var Top=1;
		var Width=screen.width-10;
		var Height=screen.height-130;
		var Option="Width="+Width+"; Height="+Height+"; Left="+Left+"; Top="+Top+"; Resizable=1; Scrollbars=1; Menubar=1; Toolbar=1; Status=0; Location=0";
		this.window.open(Loc,Name,Option);
	}
	else
		this.window.open(Loc,Name);
}

function OpenWindowHelp(Name,Loc)
{
	if(navigator.appName.indexOf("Netscape")==-1)
	{
		var Left=10; var Top=10;
		var Width=screen.width-50;
		var Height=screen.height-150;
		var Option="Width="+Width+"; Height="+Height+"; Left="+Left+"; Top="+Top+"; Resizable=1; Scrollbars=1; Menubar=1; Toolbar=0; Location=0; Status=1;";
		window.open(Loc,Name,Option);
	}
	else
		window.open(Loc,Name);
}

function OpenWindowCS(Name,Loc)
{
	if(navigator.appName.indexOf("Netscape")==-1)
	{
		var Left=70; var Top=20;
		var Width=screen.width-140;
		var Height=screen.height-220;
		var Option="Width="+Width+"; Height="+Height+"; Left="+Left+"; Top="+Top+"; Resizable=1; Scrollbars=1; Menubar=1; Toolbar=1; Status=1;";
		window.open(Loc,Name,Option);
	}
	else
		window.open(Loc,Name);
}

function OpenMiddleWindow(Name,Loc)
{
	if(navigator.appName.indexOf("Netscape")==-1)
	{
		var Left=150; var Top=50;
		var Width=screen.width-320;
		var Height=screen.height-260;
		var Option="Width="+Width+"; Height="+Height+"; Left="+Left+"; Top="+Top+"; Resizable=1; Scrollbars=1; Menubar=1; Toolbar=1; Status=1;";
		window.open(Loc,Name,Option);
	}
	else
		window.open(Loc,Name);
}

function OpenSmallWindow(Name,Loc)
{
	if(navigator.appName.indexOf("Netscape")==-1)
	{
		var Left=100; var Top=100;
		var Width=screen.width-100;
		var Height=screen.height-300;
		var Option="Width="+Width+"; Height="+Height+"; Left="+Left+"; Top="+Top+"; Resizable=1; Scrollbars=1; Menubar=1; Toolbar=1; Status=1;";
		window.open(Loc,Name,Option);
	}
	else
		window.open(Loc,Name);
}

function IsVoid(A,B) {if(A=="" || A==" " || A=="undefined" || A=="null") return(B); return(A);}

function ZapFirstZero(Text)
{
	if(!Text.length) return("");

	var I,Mask="123456789.";
	for(I=0;I<Text.length;I++)
		if(Mask.indexOf(Text.charAt(I))!=-1) break;

	if(I==Text.length)
		return("0");
	else if(Text.charAt(I)!="." && Text.charAt(0)!="-")
		return(Text.substring(I,Text.length));
	else if(Text.charAt(I)!="." && Text.charAt(0)=="-")
		return("-"+Text.substring(I,Text.length));
	else if(Text.charAt(I)=="." && Text.charAt(0)!="-")
		return("0"+Text.substring(I,Text.length));
	else if(Text.charAt(I)=="." && Text.charAt(0)=="-")
		return("-0"+Text.substring(I,Text.length));
}