//©2007 Julius Birkill All Rights Reserved
//The Program Code below is private property
//Do not copy or alter the code without explicit permission

//Script: qc.js BEAM Client Functions for Reports

var c=new Array();
var sty="";
var wrpos=0; //writeposition
var colpos=0;
var funkarray = new Array();

var thedays=new Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday");
function clean(str)
		{
		var regexp = /`/gi;
		var retval=new String(str).replace(regexp,"'");
		regexp = /!/gi;
		retval=retval.replace(regexp,'"');
		
		if(new String(retval)=="null")
			{
			retval="";
			}
		return retval;
		}
function unclean(str)
		{
		var regexp = /'/gi;
		var retval=new String(str).replace(regexp,"`");
		regexp = /"/gi;
		retval=retval.replace(regexp,'!');
		
		return retval;
		}
function zeroise(v)
	{
	var vv=v;
	if(vv<10){return new String("0"+vv);}
	else{return vv;}
	}
function owen(surl)
	{
	try{window.top.window.frames["TBAR"].eggo();}catch(c){}
	var funkywin = window.open(surl,"BEAM","width=900,height=600,left=50,top=100,zindex=0,location=no,menubar=no,scrollbars=yes,toolbar=no");
	funkywin.focus();
	return false;
	}
function dorefresh()
	{
	window.location.reload();
	}
function keycheck()
	{
	
	var en=new String(window.event.srcElement.name);
	var ky=window.event.keyCode;
	//alert(ky);

	if((ky==82)&&(window.event.ctrlKey))
		{
		//ctrl+r - refresh screen
		//try{eval("window.location.reload();");}catch(c){}
		try{eval("window.location.href=window.location.href;");}catch(c){}
		return false;
		}
	if(ky==27)
		{
		//escape key
		try{window.top.window.frames["TBAR"].window.document.scfrm2.sshcut.focus();}catch(c){}
		}

	}
function isw()
	{
	try
		{
		if(event.srcElement.src.indexOf("false")!=-1)
			{
			event.srcElement.src="img/true.gif";
			}
		else if(event.srcElement.src.indexOf("true")!=-1)
			{
			event.srcElement.src="img/false.gif";
			}
		var sen=event.srcElement.name;
		var ssen=new String(sen).substr(1,sen.length);
		var a=document.all;
		var num=0;
		for(num=0;num<a.length;num++)
			{
			if((a[num].tagName=="IMG")&&(new String(a[num].name).indexOf(ssen)>-1))
				{
				if(a[num].name==sen)
					{
					}
				else
					{
					eval("document.all."+a[num].name+".setAttribute('src','img/false.gif');");
					//eval("document.all."+a[num].name+".show();");
					}
				}
			}
		}
	catch(c)
		{
		//alert(c.description);
		}
	}
var wip=0;
function dodayta(url)
	{
	try{
	if(wip==0)
		{
		wip++;
		document.all["dayta"].src=url;
		//try{top.window.frames["TBAR"].eggo();}catch(c){}
		}
	else
		{
		window.setTimeout("dodayta('"+url+"');",500);
		}
	}
	catch(c){}
	}
function losewip()
	{
	wip--;
	}
function clean(str)
		{
		var regexp = /`/gi;
		var retval=new String(str).replace(regexp,"'");
		regexp = /!/gi;
		retval=retval.replace(regexp,'"');
		return retval;
		}
function unclean(str)
		{
		var regexp = /'/gi;
		var retval=new String(str).replace(regexp,"`");
		regexp = /"/gi;
		retval=retval.replace(regexp,'!');
		return retval;
		}

function getFunky(target,key,nw)
	{
	
	if (new String(target.value)=="")
		{
		}
	else
		{
		if(nw==1)
			{
			try{window.top.window.frames["TBAR"].eggo();}catch(c){}
			var funkywin = window.open("i.asp?i=" + target.value + "&id=" + key+ "&mid="+rpo,"BEAM","width=900,height=550,left=30,top=30,zindex=0,location=no,menubar=no,scrollbars=yes,toolbar=no");
			funkywin.focus();
			}
		else if(nw==2)
			{
			try{window.top.window.frames["TBAR"].eggo();}catch(c){}
			window.frames.top.window.frames["MAIN"].window.location.href="i.asp?i=" + target.value + "&id=" + key + "&mid="+rpo;
			}
		else
			{
			try{window.top.window.frames["TBAR"].eggo();}catch(c){}
			window.location.href="i.asp?i=" + target.value + "&id=" + key + "&mid="+rpo;
			}	
		}
	return false;
	}
function w(t)
	{
	document.write(t);
	}
function sltxt(txt)
	{
	event.srcElement.src="img/true.gif";
	try{window.parent.txtsel(txt);}catch(c){}
	}

var selid=0;
function mouseo()
	{
	if(selid>0)
		{
		eval("chooser.style.left=window.event.clientX;");
		eval("chooser.style.top=window.event.clientY;");
		}
	}
function mousec()
	{
	//alert(new String(event.srcElement.name));
	if((selid>0)&&((new String(event.srcElement.name).substr(0,3)=='slt')==false))
		{
		
		eval("slt"+selid+".src='img/false.gif'");
		selid=0;
		try{eval("window.parent.passsel(0);");}catch(c){}
		eval("chooser.style.left=-500;");
		eval("chooser.style.top=-500;");
		try{window.top.window.frames["TBAR"].dlo(window.location.href);}catch(cc){}
		}
	}
function pickup(obj,val)
	{
	try{eval("window.parent.passsel("+val+");");}catch(c){}
	selid=val;
	var a=document.all;
	for(num=0;num<a.length;num++)
		{
		if((a[num].tagName=="IMG")&&(new String(a[num].name).indexOf("slt")>-1))
			{
			if(a[num].name=="slt"+val)
				{
				}
			else
				{
				eval("document.all."+a[num].name+".setAttribute('src','img/false.gif');");
				//eval("document.all."+a[num].name+".show();");
				}
			}
		}
	eval("chooser.style.left=window.event.clientX;");
	eval("chooser.style.top=window.event.clientY;");
	var ctnt=new String("<TABLE CLASS=tchooser>");// STYLE=\\'border:2px black groove;background-color:blue;\\'>");
	ctnt=ctnt+"<TR><TD>"+val+"<BR><SMALL>Selected<BR><SMALL>Click to Drop</SMALL></SMALL></TD></TR></TABLE>";
	//ctnt=ctnt+"<TR><TD>C</TD></TR></TABLE>";
	eval("chooser.innerHTML='"+ctnt+"';");
	}

var firststy="";
var secondsty="CLASS=TD2";
var aclass="";

function t()
	{
	w("<TABLE WIDTH=100% "+sty+" ><TR>");
	}
function ut()
	{
	w("</TR></TABLE>");
	}
function tr()
	{
	w("<TR "+sty+">");
	}
function utr()
	{
	w("</TR>");
	}
function td(wdth)
	{
	w("<TD WIDTH="+wdth+"% CLASS='gridline'>");
	}
function utd()
	{
	w("</TD>");
	}
try{if(breaklineclass==""){}else{var breaklineclass="CLASS=TDCH";}}catch(blc){var breaklineclass="CLASS=TDCH";}
function breakline()
	{
	w("</TR><TR><TD COLSPAN=20 "+breaklineclass+" HEIGHT=5></TD>");
	}
var isagrid=false;
function writepage(gridview,gridcols)
	{
	if(gridview){isagrid=true;}

	var colct=0;
	document.open();
	for(wrpos=0;wrpos<c.length;wrpos++)
		{
		if(gridview)
			{
			
			
			colct++;
			if(colct>gridcols)
				{
				breakline();
				newl();
				colct=1;
				}
			
			td(100/gridcols);t();	
			}
		else
			{
			newl();
			}
		for(colpos=1;colpos<c[wrpos].length;colpos++)
			{
			if(gridview)
				{
				tr();
				}
			try
				{
				if(c[wrpos][colpos]=="null")
					{
					eval(colformats[colpos-1]+"(' ');");
					}
				else
					{
					eval(colformats[colpos-1]+"('"+c[wrpos][colpos]+"');");
					}
				}
			catch(cacha)
				{
				eval("norm('"+c[wrpos][colpos]+"');");
				}
			if(gridview)
				{
				utr();
				}
			}
		if(gridview)
			{	
			ut();utd();
			}
		//else
		//	{
			swopsty();
		//	}
		}

	}

var sty2="1";



function swopsty()
	{
	if (sty == "")
		{
		sty = secondsty;
		sty2="2";
		}
	else
		{
		sty = firststy;
		sty2="1";
		}
	}
function dofunk(id,st,nw)
	{
	
	var fstr="<SELECT CLASS=actioninput NAME=funky"+id+" ID=funky"+id+" onchange=\"return getFunky(funky"+id+","+id+","+nw+")\"><OPTION></OPTION>";
	var d;
	for(d=0;d<funkarray.length;d++)
		{
		if((st=="")||(funkarray[d][2]=="")||(funkarray[d][2]==st)||(new String(funkarray[d][2]).indexOf(","+st+",")!=-1))
		fstr=fstr+"<OPTION VALUE=\""+funkarray[d][0]+"\">"+funkarray[d][1]+"</OPTION>";
		}
	fstr=fstr+"</SELECT>";
	eval("fd"+id+".innerHTML='"+fstr+"';");
	
	return false;
	}
function newl() //makes a new line
	{
	w("</TR><TR CLASS=R>");
	}
function newl2()
	{
	
	}
var baskcont=new Array();
var bcc=0;
function gobask(pid)
	{
	try
		{
		event.srcElement.innerHTML='In Basket';window.frames["basku"].window.location.href='p.asp?p=251&pr='+pid+'&q=1';
		return false;
		}
	catch(cc)
		{
		try
			{
			var node=event.target;
			var cck=0;
			while((node.nodeType != node.ELEMENT_NODE)&&(cck<10))
				{
				node=node.parentNode;
				cck++;	
				}
			node.innerHTML='In Basket';window.frames["basku"].window.location.href='p.asp?p=251&pr='+pid+'&q=1';
			return false;
			}
		catch(ccc)
			{
			//alert(ccc.description);
			return true;
			}
		}
	
	}
function buy(v) //makes a buy link, takes product id as parameter
	{
	var aa=0;
	
	var showtxt="Add";
	for(aa=0;aa<baskcont.length;aa++)
		{
		if(baskcont[aa]==v)
			{
			var showtxt="In Basket";
			break;
			}


		}
	
	w("<TD "+sty+" STYLE='text-align:right;'><A HREF=p.asp?p=251&pr="+v+"&q=1&red=1 onclick='return gobask("+v+");'>"+showtxt+"</A></TD>");
	}
function norm(v)
	{
	w("<TD "+sty+" >"+clean(v)+"</TD>");
	}
function randsize(v)
	{
	w("<FONT STYLE='font-weight:(Math.round(10*Math.random()))00;font-size:"+(Math.round(10*Math.random())+6)+"pt;'>"+clean(v)+"</FONT>");

	}
function allcent(v)
	{
	w("<TD "+sty+" STYLE='text-align:center;vertical-align:middle;'>"+clean(v)+"</TD>");
	}
function right(v)
	{
	w("<TD "+sty+" STYLE='text-align:right;'>"+clean(v)+"</TD>");
	}
var ilu="";
function ilinku(v)
	{
	ilu=v;
	}
function ilink(v)
	{
	var s=new String(v);

	w("<TD "+sty+" ><A TARGET=NEW HREF='"+ilu+"'>"+s+"</A></TD>");
	}
function left(v)
	{
	w("<TD "+sty+" STYLE='text-align:left;'>"+clean(v)+"</TD>");
	}

function small(v)
	{
	w("<TD "+sty+"><SMALL><SMALL>"+v+"</SMALL></SMALL></TD>");
	}
function smalla(v)
	{
	w("<TD HEIGHT=45 "+sty+"><SMALL><SMALL>"+v+"</SMALL></SMALL></TD>");
	}
var lastval="";
var wp=0;
function groop(v)
	{
	wp++;
	if(v!=lastval)
		{
		if(wp>1)
			{
			w("</DIV>");
			}
		w("<TD CLASS=TDCH><IMG SRC='img/fold.gif'></TD><TD ALIGN=LEFT COLSPAN="+(c.length+5)+" CLASS=TDCH "+sty+"> <B>"+v+"</B></TD></TR><DIV ID="+v.substr(0,2)+" STYLE=\"position:absolute; left:'-1000'; top:'-1000';\">");
		lastval=v;
		}
	else
		{
		//w("<TD "+sty+">"+v+"</TD>");
		lastval=v;
		}
	}

//active link functions
var rtl=0;
var lt="";
var lk="";
//var pageurl=escape(url);
//var pagetit=""; declared prior to script being called
function alinkid(v)
	{
	rtl=v;
	}
function alinktyp(v)
	{
	lt=v;
	}
function alinkey(v)
	{
	lk=v;
	}

function alink(v)
	{
	if((lk>0)||(lk.length>1))
		{
		if(lt=='R')
			{
			w("<TD "+sty+"><A "+aclass+" onclick=\"try{window.top.window.frames['TBAR'].eggo();}catch(c){}\" HREF='"+lt+".asp?"+lt+"="+rtl+"&prompty0="+lk+"&a=1'>"+v+"</TD>");
			}
		else
			{
			w("<TD "+sty+"><A "+aclass+" onclick=\"try{window.top.window.frames['TBAR'].eggo();}catch(c){}\" HREF='"+lt+".asp?"+lt+"="+rtl+"&id="+lk+"'>"+v+"</TD>");
			}
		}
	else
		{
		w("<TD "+sty+"></TD>");
		}
	}
function alinka(v)
	{
	if((lk>0)||(lk.length>1))
		{
		if(lt=='R')
			{
			w("<TD HEIGHT=30 STYLE='vertical-align:text-top;' "+sty+"><A "+aclass+" onclick=\"window.top.window.frames['TBAR'].eggo();\" HREF="+lt+".asp?"+lt+"="+rtl+"&prompty0="+lk+"&a=1>"+v+"</TD>");
			}
		else
			{
			w("<TD HEIGHT=30 STYLE='vertical-align:text-top;' "+sty+"><A "+aclass+" onclick=\"window.top.window.frames['TBAR'].eggo();\" HREF="+lt+".asp?"+lt+"="+rtl+"&id="+lk+">"+v+"</TD>");
			}
		}
	else
		{
		w("<TD HEIGHT=30 "+sty+"></TD>");
		}
	}
function randalink(v)
	{
	if((lk>0)||(lk.length>0))
		{
		//if(lt=='R')
		//	{
			w("<TD COLSPAN="+(Math.round(10*Math.random())+4)+" ><A "+aclass+" STYLE='font-weight:"+(Math.round(10*Math.random()))+"00;font-size:"+(Math.round(10*Math.random())+6)+"pt;' onclick=\"window.top.window.frames['TBAR'].eggo();\" HREF="+lt+".asp?"+lt+"="+rtl+"&prompty0="+lk+"&a=1>"+v+"</TD>");
		//	}
		//else
		//	{
		//	w("<TD "+sty+"><A "+aclass+" STYLE='font-weight:(Math.round(10*Math.random()))00;font-size:"+(Math.round(10*Math.random())+6)+"pt;' onclick=\"window.top.window.frames['TBAR'].eggo();\" HREF="+lt+".asp?"+lt+"="+rtl+"&id="+lk+">"+v+"</TD>");
		//	}
		}
	else
		{
		w("<TD "+sty+"></TD>");
		}
	}
function calink(v)
	{
	if(lk>0)
		{
		if(lt=='R')
			{
			w("<TD STYLE='background-color:"+lastcol+";'><A "+aclass+" onclick=\"window.top.window.frames['TBAR'].eggo();\" HREF="+lt+".asp?"+lt+"="+rtl+"&prompty0="+lk+"&a=1>"+v+"</TD>");
			}
		else
			{
			w("<TD STYLE='background-color:"+lastcol+";'><A "+aclass+" onclick=\"window.top.window.frames['TBAR'].eggo();\" HREF="+lt+".asp?"+lt+"="+rtl+"&id="+lk+">"+v+"</TD>");
			}
		}
	else
		{
		w("<TD "+sty+"></TD>");
		}
	}
function alinkn(v)
	{
	if(lt=='R')
		{
		w("<TD "+sty+"><A "+aclass+" HREF="+lt+".asp?"+lt+"="+rtl+"&prompty0="+lk+"&a=1 onclick=\"owen('"+lt+".asp?"+lt+"="+rtl+"&prompty0="+lk+"&a=1','BEAM');return false;\" >"+v+"</TD>");
		}
	else
		{
		w("<TD "+sty+"><A "+aclass+" HREF="+lt+".asp?"+lt+"="+rtl+"&id="+lk+" onclick=\"owen('"+lt+".asp?"+lt+"="+rtl+"&id="+lk+"','BEAM');return false;\">"+v+"</TD>");
		}
	}
function calinkm(v)
	{
	if(lt=='R')
		{
		w("<TD STYLE='background-color:"+lastcol+";'><A "+aclass+" HREF="+lt+".asp?"+lt+"="+rtl+"&prompty0="+lk+"&a=1 onclick=\"try{try{window.top.window.frames['TBAR'].eggo();window.top.window.frames['MAIN'].window.location.href='"+lt+".asp?"+lt+"="+rtl+"&prompty0="+lk+"&a=1';}catch(ddd){window.top.window.location.href='"+lt+".asp?"+lt+"="+rtl+"&prompty0="+lk+"&a=1';}return false;}catch(c){}\">"+v+"</TD>");
		}
	else
		{
		//nested catch using window.top.window.location href is a fix for bug 356
		w("<TD STYLE='background-color:"+lastcol+";'><A "+aclass+" HREF="+lt+".asp?"+lt+"="+rtl+"&id="+lk+" onclick=\"try{try{window.top.window.frames['TBAR'].eggo();window.top.window.frames['MAIN'].window.location.href='"+lt+".asp?"+lt+"="+rtl+"&id="+lk+"';}catch(ddd){window.top.window.location.href='"+lt+".asp?"+lt+"="+rtl+"&id="+lk+"';}return false;}catch(c){}\">"+v+"</TD>");
		}
	}
function alinkm(v)
	{
	if(lt=='R')
		{
		w("<TD "+sty+"><A "+aclass+" HREF="+lt+".asp?"+lt+"="+rtl+"&prompty0="+lk+"&a=1 onclick=\"try{try{window.top.window.frames['TBAR'].eggo();window.top.window.frames['MAIN'].window.location.href='"+lt+".asp?"+lt+"="+rtl+"&prompty0="+lk+"&a=1';}catch(ddd){window.top.window.location.href='"+lt+".asp?"+lt+"="+rtl+"&prompty0="+lk+"&a=1';}return false;}catch(c){}\">"+v+"</TD>");
		}
	else
		{
		//nested catch using window.top.window.location href is a fix for bug 356
		w("<TD "+sty+"><A "+aclass+" HREF="+lt+".asp?"+lt+"="+rtl+"&id="+lk+" onclick=\"try{try{window.top.window.frames['TBAR'].eggo();window.top.window.frames['MAIN'].window.location.href='"+lt+".asp?"+lt+"="+rtl+"&id="+lk+"';}catch(ddd){window.top.window.location.href='"+lt+".asp?"+lt+"="+rtl+"&id="+lk+"';}return false;}catch(c){}\">"+v+"</TD>");
		}
	}
function lalink(v)
	{
	if(lt=='R')
		{
		w("<TD "+sty+" STYLE='text-align:left;'><A "+aclass+" HREF="+lt+".asp?"+lt+"="+rtl+"&prompty0="+lk+"&a=1>"+v+"</TD>");
		}
	else
		{
		w("<TD "+sty+" STYLE='text-align:left;'><A "+aclass+" HREF="+lt+".asp?"+lt+"="+rtl+"&id="+lk+">"+v+"</TD>");
		}
	}
//end alink functions

function img(v)
	{
	if(v.length>1)
		{
		w("<TD "+sty+"><IMG SRC='img/"+v+"'></TD>");
		}
	else
		{
		w("<TD "+sty+">No Image</TD>");
		}
	}
var ptiid=0;
var ptitr=0;
function ptimgid(v)
	{
	ptiid=v;
	}
function ptimgtr(v)
	{
	ptitr=v;
	}
function ptimg(v)
	{
	if(v.length>1)
		{
		w("<TD HEIGHT=85 ");
		if(isagrid)
			{
			w("WIDTH=100% ");
			}
		
		w("STYLE='background-color:white;text-align:center;'><A HREF=i.asp?i="+ptitr+"&id="+ptiid+"><IMG SRC='prodimg/thumbnails/"+v+"'></A></TD>");
		}
	else
		{
		w("<TD HEIGHT=85 ");
		if(isagrid)
			{
			w("WIDTH=100% ");
			}
		w(sty+">No Image</TD>");
		}
	}

function img22(v)
	{
	w("<TD "+sty+"><IMG HEIGHT=28 SRC='img/"+v+"'></TD>");
	}
function pathslash(v)
	{
	//var regexp = new RegExp("\\","gi");
	//v=new String(v).replace(regexp,"f");
	return v;
	}

function ifimg22(v)
	{
	//alert(v);
	var r3=new String(v).substr(new String(v).length-3,3);
	
	if((r3=="gif")||(r3=="peg")||(r3=="jpg")||(r3=="png")||(r3=="tif"))
		{
		w("<TD "+sty+"><A HREF='"+v+"'><IMG HEIGHT=28 SRC='"+pathslash(v)+"'></A></TD>");
		}
	else if(r3=="xls")
		{
		w("<TD "+sty+"><A HREF='"+v+"'><IMG SRC='img/boom/excel32.gif'></A></TD>");
		}
	else if(r3=="doc")
		{
		w("<TD "+sty+"><A HREF='"+v+"'><IMG SRC='img/boom/word32.gif'></A></TD>");
		}
	else if(r3=="pdf")
		{
		w("<TD "+sty+"><A HREF='"+v+"'><IMG SRC='img/boom/pdf32.gif'></A></TD>");
		}
	else if((r3=="eml")||(r3=="msg"))
		{
		w("<TD "+sty+"><A HREF='"+v+"'><IMG SRC='img/boom/mail32.gif'></A></TD>");
		}
	else
		{
		w("<TD "+sty+"></TD>");
		}
	}
function undefined(v)
	{
	w("<TD "+sty+">"+v+"</TD>");
	}
function bool(v)
	{
	w("<TD "+sty+"><IMG SRC='img/"+v+".gif'></TD>");
	}
function blank(v)
	{
	w(v);
	}
function sterling(v) //this was previously £
	{
	w("<TD "+sty+"><B>£"+v+"</B></TD>");
	}
function day(v)
	{
	w("<TD "+sty+">"+thedays[(new Date(v).getDay())]+"</TD>");
	}
var months=new Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
function dd(v)
	{
	var g=new String(v);
	
	if((new Date(v).getYear()<"1905")||(g.length>1==false))
		{
		w("<TD "+sty+">-</TD>");
		}
	//else if((new Number(v)>35000)&&(new Number(v)<45000))
	//	{
	//	w("<TD "+sty+">"+months[new Number(jsdt(v).getMonth())]+" "+jsdt(v).getDate()+" '"+new String(jsdt(v).getYear()).substr(2,2)+"</TD>");
	//	
	//	}	
	else
		{
		w("<TD "+sty+">"+months[new Number(new Date(v).getMonth())]+" "+new Date(v).getDate()+" '"+new String(new Date(v).getYear()).substr(2,2)+"</TD>");
		}
		
	}

function jsdd(v)
	{
	//w("-");
	var g=new Number(v);
	g=jsdt(g);

	if((new Date(g).getYear()<"1905"))
		{
		var yy=new Date(g).getYear()+1900;
		}
	else
		{
		var yy=new Date(g).getYear();
		}	

	if(false)
		{
		w("<TD "+sty+">"+-+"</TD>");
		}
	//else if((new Number(v)>35000)&&(new Number(v)<45000))
	//	{
	//	w("<TD "+sty+">"+months[new Number(jsdt(v).getMonth())]+" "+jsdt(v).getDate()+" '"+new String(jsdt(v).getYear()).substr(2,2)+"</TD>");
	//	
	//	}	
	else
		{
		w("<TD "+sty+">"+months[new Number(new Date(g).getMonth())]+" "+new Date(g).getDate()+" "+yy+"</TD>");
		//w("<TD "+sty+">"+new Date(g).getMonth()+" "+new Date(g).getDate()+" '"+new String(new Date(g).getYear()).substr(2,2)+"</TD>");
		//w("-");
		}
		
	}
function ddcent(v)
	{
	var g=new String(v);
	
	
	if((new Date(v).getYear()<"1905")||(g.length>1==false))
		{
		w("<TD "+sty+">-</TD>");
		}
	//else if((new Number(v)>35000)&&(new Number(v)<45000))
	//	{
	//	w("<TD STYLE='text-align:center;vertical-align:middle;' "+sty+">"+months[new Number(jsdt(v).getMonth())]+" "+jsdt(v).getDate()+" '"+new String(jsdt(v).getYear()).substr(2,2)+"</TD>");
	//	
	//	}	
	else
		{
		w("<TD STYLE='text-align:center;vertical-align:middle;' "+sty+">"+months[new Number(new Date(v).getMonth())]+" "+new Date(v).getDate()+" '"+new String(new Date(v).getYear()).substr(2,2)+"</TD>");
		}
		
	}
//added getmsdt to support wknr. Prefer this somewhere else
function getmsdt(dt)
	{
	var nowtime = new Date(dt);
	var startDate = new Date("05/25/2002");
	nowtime = (nowtime - startDate) + 2246400000; 
	nowtime = (nowtime / 86400000) + 37375;
	if (new Date().getTimezoneOffset() == 0)
		{
		nowtime = nowtime - 0.04166;
		}
	
	if(isNaN(nowtime))
		{
		nowtime=0;
		}
	return nowtime;
	}

function wknr(v)
	{
	var msv=getmsdt(v);
	var wn=Math.round(msv/365.25)*365.25;
	if(wn>msv){wn=wn-365;}
	var twn=Math.round((msv-wn)/7);
	if(twn>(msv-wn)/7){twn--;}
	twn++;
	if(twn>0)
		{
		w("<TD "+sty+"><B>"+twn+"</B></TD>");
		}
	else
		{
		w("<TD "+sty+">-</TD>");
		}

	}
function wknr2(v)
	{
	//rounding done at server side in query
	var msv=v;
	msv=new Number(v);
	//msv=msv+((1/24)*5);
	var wn=Math.round(msv/365)*365;
	if(wn>msv){wn=wn-365;}
	//wn should be finst day of year
	wn=wn+26;
	var twn=Math.round((msv-wn)/7);
	var xxx=msv-wn;
	if((twn*7)>((msv-wn))){twn--;}
	twn=twn+1;
	if(twn>0)
		{
		w("<TD "+sty+"><B>"+twn+"</B></TD>");
		}
	else
		{
		w("<TD "+sty+">-</TD>");
		}

	}
function ddhhmm(vv)
	{
	if (new Number(vv) == 0)
		{
		w("<TD "+sty+">-</TD>");
		}
	else
		{
		//client timezone offset
		var gtzo=new Date();
		var tzo=gtzo.getTimezoneOffset();
		vv=new Number(new Date(vv))+new Number(new Date((tzo)*60000));
		//server timezone offset
		vv=new Date(vv)-new Date((stzo)*60000); 		


		var v=vv;
		if((getmsdt(vv)<2)&&(getmsdt(vv)>-2))
			{
			}
		else
			{
			w("<TD "+sty+">"+zeroise(new Date(v).getHours())+":"+zeroise(new Date(v).getMinutes())+" "+months[new Number(new Date(v).getMonth())]+" "+zeroise(new Date(v).getDate())+" '"+new String(new Date(v).getYear()).substr(2,2)+"</TD>");
			}
		}
	}
function hhmmss(vv)
	{



	if (new Number(vv) == 0)
		{
		w("<TD "+sty+">-</TD>");
		}
	else
		{
		//client timezone offset
		var gtzo=new Date();
		var tzo=gtzo.getTimezoneOffset();
		vv=new Number(new Date(vv))+new Number(new Date((tzo)*60000));
		//server timezone offset
		vv=new Date(vv)-new Date((stzo)*60000); 		


		var v=vv;
		w("<TD "+sty+">"+zeroise(new Date(v).getHours())+":"+zeroise(new Date(v).getMinutes())+":"+zeroise(new Date(v).getSeconds())+"</TD>");
		
		}
	}
function hhmmss2(vv)
	{
	//var vv=getmsdt(vv);
	vv=new Number(vv)+5*(1/24); //why I have no idea - bug 645
	var vv = new Number(vv * 86400000);
	//if (new Date().getTimezoneOffset() == 0)
	//	{
	//	vv = vv - 2209161600000;
	//	}
	//else
	//	{
	//	vv = vv - 2209165200000;
	//	}
	if (new Number(vv) == 0)
		{
		w("<TD "+sty+">-</TD>");
		}
	else
		{
		//client timezone offset
		var gtzo=new Date();
		var tzo=gtzo.getTimezoneOffset();
		vv=new Number(new Date(vv))+new Number(new Date((tzo)*60000));
		//server timezone offset
		vv=new Date(vv)-new Date((stzo)*60000); 		


		var v=vv;
		w("<TD "+sty+">"+zeroise(new Date(vv).getHours())+":"+zeroise(new Date(vv).getMinutes())+":"+zeroise(new Date(vv).getSeconds())+"</TD>");
		}
	}
function bold(v)
	{
	w("<TD "+sty+"><B>"+v+"</B></TD>");
	}
var lastcol="";
function cstat(v)
	{
	lastcol=v;
	w("<TD STYLE='background-color:"+v+";'></TD>");
	}
function cst1(v)
	{
	lastcol=v;
	
	}
function cstatt(v)
	{
	w("<TD STYLE='background-color:"+lastcol+";'>"+v+"</TD>");
	}
var pricewas=0;
function wasnowprep(v)
	{
	var vv=new String(v);
	vv=vv.replace(",",".");
	var dlrs=Math.round(new Number(vv)*100)/100;
	var isneg=false;
	if(dlrs<0)
		{
		dlrs=dlrs-dlrs-dlrs;
		isneg=true;
		}
	if(Math.round(dlrs)==dlrs){dlrs=new String(dlrs+".00");}
	else if(Math.round(dlrs*10)/10==dlrs){dlrs=new String(dlrs+"0");}
	else(dlrs=new String(dlrs));
	if(dlrs.length>6){dlrs=new String(dlrs.substr(0,dlrs.length-6)+","+dlrs.substr(dlrs.length-6,dlrs.length));}
	pricewas=dlrs;
	}
function wasnow(v)
	{
	var vv=new String(v);
	vv=vv.replace(",",".");
	var dlrs=Math.round(new Number(vv)*100)/100;
	var isneg=false;
	if(dlrs<0)
		{
		dlrs=dlrs-dlrs-dlrs;
		isneg=true;
		}
	if(Math.round(dlrs)==dlrs){dlrs=new String(dlrs+".00");}
	else if(Math.round(dlrs*10)/10==dlrs){dlrs=new String(dlrs+"0");}
	else(dlrs=new String(dlrs));
	if(dlrs.length>6){dlrs=new String(dlrs.substr(0,dlrs.length-6)+","+dlrs.substr(dlrs.length-6,dlrs.length));}
	w("<TD "+sty+" STYLE='vertical-align:bottom;'><P ALIGN=RIGHT>");
	if(pricewas>0)
		{
		w("<FONT CLASS='reduct' ALIGN=RIGHT>&pound;"+pricewas+"</FONT> ");
		}
	w("<B>");
	if(isneg){w("CR ");}
	w("&pound;"+dlrs+"</B></P></TD>");
	}
function reddollar(v)
	{
	var dlrs=Math.round(v*100)/100;
	var isneg=false;
	if(dlrs<0)
		{
		dlrs=dlrs-dlrs-dlrs;
		isneg=true;
		}
	if(Math.round(dlrs)==dlrs){dlrs=new String(dlrs+".00");}
	else if(Math.round(dlrs*10)/10==dlrs){dlrs=new String(dlrs+"0");}
	else(dlrs=new String(dlrs));
	if(dlrs.length>6){dlrs=new String(dlrs.substr(0,dlrs.length-6)+","+dlrs.substr(dlrs.length-6,dlrs.length));}
	w("<TD "+sty+" CLASS='reduct'><P CLASS='reduct' ALIGN=RIGHT>");
	if(isneg){w("CR ");}
	w("£"+dlrs+"</B></P></TD>");
	}
function dollar(v)
	{
	var dlrs=Math.round(v*100)/100;
	var isneg=false;
	if(dlrs<0)
		{
		dlrs=dlrs-dlrs-dlrs;
		isneg=true;
		}
	if(Math.round(dlrs)==dlrs){dlrs=new String(dlrs+".00");}
	else if(Math.round(dlrs*10)/10==dlrs){dlrs=new String(dlrs+"0");}
	else(dlrs=new String(dlrs));
	if(dlrs.length>6){dlrs=new String(dlrs.substr(0,dlrs.length-6)+","+dlrs.substr(dlrs.length-6,dlrs.length));}
	w("<TD "+sty+"><P ALIGN=RIGHT><B>");
	if(isneg){w("CR ");}
	w("£"+dlrs+"</B></P></TD>");
	}
var vtotdollara=0;
var vtotdollarb=0;
function totdollara(v)
	{
	vtotdollara=new Number(vtotdollara)+new Number(v);
	var dlrs=Math.round(v*100)/100;
	var isneg=false;
	if(dlrs<0)
		{
		dlrs=dlrs-dlrs-dlrs;
		isneg=true;
		}
	if(Math.round(dlrs)==dlrs){dlrs=new String(dlrs+".00");}
	else if(Math.round(dlrs*10)/10==dlrs){dlrs=new String(dlrs+"0");}
	else(dlrs=new String(dlrs));
	if(dlrs.length>6){dlrs=new String(dlrs.substr(0,dlrs.length-6)+","+dlrs.substr(dlrs.length-6,dlrs.length));}
	w("<TD "+sty+"><P ALIGN=RIGHT><B>");
	if(isneg){w("CR ");}
	w("£"+dlrs+"</B></P></TD>");
	}
function totdollarb(v)
	{
	vtotdollarb=new Number(vtotdollarb)+new Number(v);
	var dlrs=Math.round(v*100)/100;
	var isneg=false;
	if(dlrs<0)
		{
		dlrs=dlrs-dlrs-dlrs;
		isneg=true;
		}
	if(Math.round(dlrs)==dlrs){dlrs=new String(dlrs+".00");}
	else if(Math.round(dlrs*10)/10==dlrs){dlrs=new String(dlrs+"0");}
	else(dlrs=new String(dlrs));
	if(dlrs.length>6){dlrs=new String(dlrs.substr(0,dlrs.length-6)+","+dlrs.substr(dlrs.length-6,dlrs.length));}
	w("<TD "+sty+"><P ALIGN=RIGHT><B>");
	if(isneg){w("CR ");}
	w("£"+dlrs+"</B></P></TD>");
	}
function tdollar(v)
	{
	w("<TD "+sty+"><U><B>£"+v+"</B></U></TD>");
	}
var lastlv="";
function sellv(v)
	{
	lastlv=v;
	}
function selector(v)
	{
	w("<TD "+sty+"><IMG NAME=slt"+v+" ID=slt"+v+" SRC='img/false.gif' onClick='slt(lastlv,"+v+");'></TD>");
	}
function seltxt(v)
	{
	w("<TD "+sty+"><IMG NAME=sltt"+v+" ID=sltt"+v+" SRC='img/false.gif' onClick='sltxt(\""+v+"\");'></TD>");
	}
function ssel(v)
	{
	w("<TD "+sty+"><IMG NAME=slt"+v+" ID=slt"+v+" SRC='img/false.gif' onClick='window.parent.window.opener.selser("+v+");window.parent.close();'></TD>");
	}
function slt(lvn,v)
	{
	eval("document.all.slt"+v+".src='img/true.gif';");
	try{eval("pickup('dummy','"+v+"');");}catch(c){}
	try{window.top.window.frames["TBAR"].llo(window.location.href,lvn,v);}catch(cc){}
	}

//only works when report is used as rinclude in a tran
var ticktarg="";
function setick(v)
	{
	ticktarg=v;
	}
function oltick(v)
	{
	w("<TD "+sty+"><IMG SRC=img/false.gif onClick='try{if(event.srcElement.src.indexOf(\"img/true.gif\")>-1){document.form2."+ticktarg+".value=0;event.srcElement.src=\"img/false.gif\";}else{document.form2."+ticktarg+".value="+v+";event.srcElement.src=\"img/true.gif\";}}catch(ccc){if(event.target.src.indexOf(\"img/true.gif\")>-1){document.form2."+ticktarg+".value=0;event.target.src=\"img/false.gif\";}else{document.form2."+ticktarg+".value="+v+";event.target.src=\"img/true.gif\";}}'></TD>");
	}

function tick(v)
	{
	w("<TD "+sty+"><INPUT TYPE=checkbox onchange='anychanges=true;. onblur='unlive();' onfocus='golive();' NAME="+ticktarg+" ID="+ticktarg+" VALUE="+v+"></TD>");
	}


var ici;
var icd;


function custid(v)
	{
	ici=v;
	}
function custyp(v)
	{
	icd=v;
	}
function cust(v)
	{
	if(icd==1)
		{
		//abc
		if(v=="A")
			{
			var ia=new Array(true,false,false);
			}
		else if(v=="B")
			{
			var ia=new Array(false,true,false);
			}
		else if(v=="C")
			{
			var ia=new Array(false,false,true);
			}
		else
			{
			var ia=new Array(false,false,false);
			}	
		//w("<TD "+sty+"><A HREF=i.asp?i=149&id="+ici+"><IMG SRC='img/"+ia[0]+".gif'><IMG SRC='img/"+ia[1]+".gif'><IMG SRC='img/"+ia[2]+".gif'></A></TD>");		
		w("<TD "+sty+"><IMG NAME='A"+ici+"' ID='A"+ici+"' onclick=\"dodayta('u.asp?id=1&v=A&k="+ici+"');isw();\" SRC='img/"+ia[0]+".gif'><IMG NAME='B"+ici+"' ID='B"+ici+"' onclick=\"try{dodayta('u.asp?id=1&v=B&k="+ici+"');}catch(c){}isw();\" SRC='img/"+ia[1]+".gif'><IMG NAME='C"+ici+"' ID='C"+ici+"' onclick=\"dodayta('u.asp?id=1&v=C&k="+ici+"');isw();\" SRC='img/"+ia[2]+".gif'></TD>");		
		
		}
	if(icd==2)
		{
		//ref / actual
		w("<TD><INPUT NAME='rar"+ici+"' ID='rar"+ici+"' SIZE=6 onchange=\"dodayta('u.asp?id=1&v='+rar"+ici+".value+'/'+raa"+ici+".value+'&k="+ici+"');\" TYPE=TEXT VALUE='"+v.substr(0,v.indexOf("/"))+"'><INPUT NAME='raa"+ici+"' ID='raa"+ici+"' SIZE=6 onchange=\"dodayta('u.asp?id=1&v='+rar"+ici+".value+'/'+raa"+ici+".value+'&k="+ici+"');\" TYPE=TEXT VALUE='"+v.substr(v.indexOf("/")+1,v.length)+"'></TD>");
		}
	if(icd==3)
		{
		//1 Reading
		}
	if(icd==4)
		{
		//2 Readings
		}
	if(icd==5)
		{
		//comment
		w("<TD "+sty+" onclick=\"owen('i.asp?i=172&id="+ici+"');\">"+v+"</TD>");
		}
	if(icd==6)
		{
		if(v==0)
			{
			w("<TD "+sty+"><IMG NAME='A"+ici+"' ID='A"+ici+"' onclick=\"dodayta('u.asp?id=2&v=1&k="+ici+"');isw();window.location.href='i.asp?i=229';\" SRC='img/false.gif'></TD>");		
		
			}
		if(v==1)
			{
			w("<TD "+sty+"><IMG NAME='A"+ici+"' ID='A"+ici+"' onclick=\"dodayta('u.asp?id=2&v=0&k="+ici+"');isw();window.location.href='i.asp?i=229';\" SRC='img/true.gif'></TD>");
			}
		}
	if(icd==7)
		{
		if(v==0)
			{
			w("<TD "+sty+"><IMG NAME='A"+ici+"' ID='A"+ici+"' onclick=\"dodayta('u.asp?id=3&v=1&k="+ici+"');isw();window.parent.window.location.reload();\" SRC='img/false.gif'></TD>");		
		
			}
		if(v==1)
			{
			w("<TD "+sty+"><IMG NAME='A"+ici+"' ID='A"+ici+"' onclick=\"dodayta('u.asp?id=3&v=0&k="+ici+"');isw();window.parent.window.location.reload();\" SRC='img/true.gif'></TD>");
			}
		}
	if(icd==8)
		{
		if(v==0)
			{
			w("<TD "+sty+"><IMG NAME='A"+ici+"' ID='A"+ici+"' onclick=\"dodayta('u.asp?id=4&v=1&k="+ici+"');isw();window.location.reload();\" SRC='img/false.gif'></TD>");		
		
			}
		if(v==1)
			{
			w("<TD "+sty+"><IMG NAME='A"+ici+"' ID='A"+ici+"' onclick=\"dodayta('u.asp?id=4&v=0&k="+ici+"');isw();window.location.reload();\" SRC='img/true.gif'></TD>");
			}
		}
	if(icd==9)
		{
		if((v==0)||(v=="false"))
			{
			w("<TD "+sty+"><IMG NAME='A"+ici+"' ID='A"+ici+"' onclick=\"dodayta('u.asp?id=6&v=1&k="+ici+"');isw();window.location.reload();\" SRC='img/false.gif'></TD>");		
		
			}
		if((v==1)||(v=="true"))
			{
			w("<TD "+sty+"><IMG NAME='A"+ici+"' ID='A"+ici+"' onclick=\"dodayta('u.asp?id=6&v=0&k="+ici+"');isw();window.location.reload();\" SRC='img/true.gif'></TD>");
			}
		}
	if(icd==10)
		{
		if((v==0)||(v=="false"))
			{
			w("<TD "+sty+"><IMG NAME='A"+ici+"' ID='A"+ici+"' onclick=\"dodayta('u.asp?id=7&v=1&k="+ici+"');isw();window.location.reload();\" SRC='img/false.gif'></TD>");		
		
			}
		if((v==1)||(v=="true"))
			{
			w("<TD "+sty+"><IMG NAME='A"+ici+"' ID='A"+ici+"' onclick=\"dodayta('u.asp?id=7&v=0&k="+ici+"');isw();window.location.reload();\" SRC='img/true.gif'></TD>");
			}
		}
	if(icd==11)
		{
		try{
		if((v<1)||(v=="false"))
			{
			w("<TD "+sty+"><IMG NAME='A"+ici+"' ID='A"+ici+"' onclick=\"dodayta('u.asp?id=8&v='+window.parent.form2.icol0.value+'&k="+ici+"');isw();window.location.reload();\" SRC='img/false.gif'></TD>");		
		
			}
		if((v>0)||(v=="true"))
			{
			w("<TD "+sty+"><IMG NAME='A"+ici+"' ID='A"+ici+"' onclick=\"dodayta('u.asp?id=8&v=0&k="+ici+"');isw();window.location.reload();\" SRC='img/true.gif'></TD>");
			}
		}catch(cc){}
		}	
	}
function cleen(v)
	{
	norm(clean(v));
	}
function boldjn(v)
	{
	w("<TD "+sty+"><B>"+v+"</B><BR>");
	}
function jn(v)
	{
	w("<TD "+sty+">"+v+"<BR>");
	}
function jc(v)
	{
	w(v+"<BR>");
	}
function jci(v)
	{
	w("<I>"+v+"</I><BR>");
	}
function jl(v)
	{
	w(v+"</TD>");
	}
function jli(v)
	{
	w("<I>"+v+"</I></TD>");
	}
function expiry(vv)
	{
	var gtzo=new Date();var tzo=gtzo.getTimezoneOffset();var v=new Date(vv)-new Date((tzo)*60000);
	var g=new String(v);	
	if(isNaN(new Date(v).getYear())||(new Date(v).getYear()<"1905")||(g.length>1==false))
		{
		w("<TD "+sty+">-</TD>");
		}	
	else
		{
		if (new Date() > new Date(v))
			{
			w("<TD STYLE='background-color:red;' ");
			}
		else
			{
			w("<TD "+sty);
			}
			
		w(">"+months[new Number(new Date(v).getMonth())]+" "+new Date(v).getDate()+" '"+new String(new Date(v).getYear()).substr(2,2)+"</TD>");
		}
	
	
	}
function expiryhhmm(vv)
	{
	var gtzo=new Date();var tzo=gtzo.getTimezoneOffset();var v=new Date(vv)-new Date((tzo)*60000);
	
	var g=new String(v);	
	if((new Date(v).getYear()<"1905")||(g.length>1==false))
		{
		w("<TD "+sty+">-</TD>");
		}	
	else
		{
		if (new Date() > new Date(v))
			{
			w("<TD STYLE='background-color:red;' ");
			}
		else
			{
			w("<TD "+sty);
			}
			
		w(">"+zeroise(new Date(v).getHours())+":"+zeroise(new Date(v).getMinutes())+" "+months[new Number(new Date(v).getMonth())]+" "+new Date(v).getDate()+" '"+new String(new Date(v).getYear()).substr(2,2)+"</TD>");
		}
	
	
	}
function perc(v)
	{
	W("<TD ");
	w(">"+new Number(v)*100+"</TD>");
	}
function emplink(v)
	{
	w("<TD "+sty+"><A HREF=emp.asp?i="+c[wrpos][0]+">"+v+"</A></TD>");
	}
function round(v)
	{
	w("<TD "+sty+"><B>"+Math.round(new Number(v),0)+"</B></TD>");
	}
function funk(v)
	{
	w("<TD WIDTH=160 "+sty+"><DIV ID=fd"+c[wrpos][0]+"><A HREF=blank onkeypress='return dofunk("+c[wrpos][0]+",\""+v+"\",0)' onmouseover='return dofunk("+c[wrpos][0]+",\""+v+"\",0)'><TABLE CLASS=ftb WIDTH=100% ><TR><TD "+sty+" CLASS=funkim></TD><TD "+sty+" class=ftxt><A HREF=blank><SMALL>Select Action</SMALL></A></TD></TR></TABLE></A></DIV></TD>");
	}
function afunk(v) //show function only if logged in as admin
	{
	if(isadmin)
		{
		w("<TD WIDTH=160 "+sty+"><DIV ID=fd"+c[wrpos][0]+"><A HREF=blank onkeypress='return dofunk("+c[wrpos][0]+",\""+v+"\",0)' onmouseover='return dofunk("+c[wrpos][0]+",\""+v+"\",0)'><TABLE CLASS=ftb WIDTH=100% ><TR><TD "+sty+" CLASS=funkim></TD><TD "+sty+" class=ftxt><A HREF=blank><SMALL>Select Action</SMALL></A></TD></TR></TABLE></A></DIV></TD>");
		}
	}

function funkn(v)
	{
	w("<TD WIDTH=160 "+sty+"><DIV ID=fd"+c[wrpos][0]+"><A HREF=blank onkeypress='return dofunk("+c[wrpos][0]+",\""+v+"\",1)' onmouseover='return dofunk("+c[wrpos][0]+",\""+v+"\",1)'><TABLE CLASS=ftb WIDTH=100% ><TR><TD "+sty+" CLASS=funkim><IMG SRC=img/app16.gif></TD><TD "+sty+" class=ftxt><A HREF=blank><SMALL>Select Action</SMALL></A></TD></TR></TABLE></A></DIV></TD>");
	}
function funkm(v)
	{
	w("<TD WIDTH=160 "+sty+"><DIV ID=fd"+c[wrpos][0]+"><A HREF=blank onkeypress='return dofunk("+c[wrpos][0]+",\""+v+"\",2)' onmouseover='return dofunk("+c[wrpos][0]+",\""+v+"\",2)'><TABLE CLASS=ftb WIDTH=100% ><TR><TD CLASS=funkim"+sty2+" ><IMG SRC=img/app16.gif></TD><TD class=ftxt"+sty2+" ><A HREF=blank><SMALL>Select Action</SMALL></A></TD></TR></TABLE></A></DIV></TD>");
	}