// t21lib.js
///*
//*************************************************************************
//**									*
//**	Copyright (C) 2002-2015 Trans-Mit Pty. Ltd. Melbourne Australia	*
//**	This software may not be loaned, resold, changed or copied	*
//**	in any way without the express written permission of author	*
//**	and Trans-Mit Pty. Ltd., Australia.				*
//**									*
//*************************************************************************
//**
//**	$Header: $
//**	$Author: $
//**	$Date: $
//**	$Locker:  $
//**
//*************************************************************************
//*/
//**Start Encode**

// Browser check
userAgernt_arr = navigator.userAgent.split(";");
msie_ver = userAgernt_arr[1].substring(1);
msie_ver_arr = userAgernt_arr[1].split(" ");
msie_ver_id = msie_ver_arr[1];
msie_ver_no = parseFloat(msie_ver_arr[2]);
if ( msie_ver_id != "MSIE" || msie_ver_no < 5.5 ) {
        alert("Your Browser Must be Internet Explorer 5.5 or greater");
        self.close();
}

//------------------------------------------------------------------
//----------------------------------------------------------------------
// taken from jsolait init.js (see copyright below)

// rjs 24/02/2005 - modified to allow GET/POST, sync/async-callback
// coppied from jsoget.js 18/11/2012

    /**
        Creates an HTTP request object for retreiving files.
        @return HTTP request object.
    */
    var libgetHTTP=function() {
        var obj;
// rjsol
//        try{ //to get the mozilla httprequest object
//            obj = new XMLHttpRequest();
//        }catch(e){
            try{ //to get MS HTTP request object
                obj=new ActiveXObject("Msxml2.XMLHTTP.4.0");
            }catch(e){
                try{ //to get MS HTTP request object
                    obj=new ActiveXObject("Msxml2.XMLHTTP");
                }catch(e){
                    try{// to get the old MS HTTP request object
                        obj = new ActiveXObject("microsoft.XMLHTTP"); 
                    }catch(e){
                        //throw new Exception(thisMod, "Unable to get an HTTP request object.");
                        alert("Unable to get an HTTP request object.");
                    }
                }    
            }
//        }
        return obj;
    }
    /**
        Retrieves a file given its URL.
        @param url             The url to load.
        @param headers=[]  The headers to use.
        @return                 The content of the file.
    */
    var libgetFile=function(url, headers, get_post, callback, cbid, errcallback) {
        //if callback is defined then the operation is done async
	//alert("getFile(" + url + "," + headers + "," + get_post + "," + callback + "," + cbid +")")
        headers = (headers != null) ? headers : [];
        get_post = (get_post != null) ? get_post : "GET";
	var async_mode = false
        //setup the request
        try {
            var xmlhttp= libgetHTTP();
	    if ( callback != null ) {
		async_mode = true
	    }
            xmlhttp.open(get_post, url, async_mode);
	    xmlhttp.setRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT");	// avoid browser cache
            for(var i=0;i< headers.length;i++) {
                xmlhttp.setRequestHeader(headers[i][0], headers[i][1]);    
            }
	    if ( async_mode == true ) {
		var a_url = url
		var a_callback = callback
		var a_errcallback = errcallback
		var a_cbid = (cbid == null) ? 0 : cbid
		xmlhttp.onreadystatechange = function () {
		    if ( xmlhttp.readyState == 4 ) {
			if (xmlhttp.status != 200 && xmlhttp.status != 0 ) {
				//throw new Exception(thisMod, "File not loaded: '%s'.".format(a_url));
				if ( a_errcallback != null ) {
					a_errcallback(a_cbid, a_url, xmlhttp.statusText);
				}
				else {
					alert("File not loaded: '" + url + "'");
					callback(a_cbid, a_url, "");
				}
				return ""
			}
			callback(a_cbid, a_url, xmlhttp.responseText);
			return ""
		    }
		}
	    }
            xmlhttp.send("");
	    if ( async_mode == true ) {
	    	//while ( xmlhttp.readyState != 4) {
		//	??? xml 3 ???  xmlhttp.waitForResponse(1000)
		//} 
		return ""
	    }
        }catch(e){
            //throw new Exception(thisMod,"Unable to load URL: '%s'.".format(url));
	    if ( a_errcallback != null ) {
		a_errcallback(a_cbid, a_url, xmlhttp.statusText);
	    }
	    else {
		alert("Unable to load URL: '" + url + "'");
		callback(a_cbid, a_url, "");
	    }
        }
	if( xmlhttp.status == 200 || xmlhttp.status == 0 ) {
	    return xmlhttp.responseText;
	}else{
	    //throw new Exception(thisMod,"File not loaded: '%s'.".format(url));
	    if ( errcallback != null ) {
		errcallback(cbid, url, xmlhttp.statusText);
	    }
	    else {
		alert("File not loaded: '" + url + "'");
	    }
	    return ""
    	}
    }

//----------------------------------------------------------------------

//------------------------------------------------------------------
// wbt_auth

if ( is_web_login(0) ) {
    try {
	var wbt_auth_me_allow = false;

	var wbt_auth_access_list = {
		// login/navigation/user reports - allow all to access
		// cgi
		"wbt_login.cgi"		: "NAV",
		"wbt_telmax21.cgi"	: "NAV",
		"wbt_topdat.cgi"	: "NAV",
		"wbt_cashpay.cgi"	: "NAV", // cashier Payment form
		// html
		"T21Enquiry.htm"	: "NAV",
		"abc.html"		: "NAV",
		"acccodedet.htm"	: "NAV",
		"acccodeextsum.htm"	: "NAV",
		"calendar.html"		: "NAV",
		"cdr.htm"		: "NAV",
		"centre.htm"		: "NAV",
		"cg.htm"		: "NAV",
		"distid.htm"		: "NAV",
		"distidV2.htm"		: "NAV",
		"edr.htm"		: "NAV",
		"index.html"		: "NAV",
		"m11cdr.htm"		: "NAV",
		"mainframes.html"	: "NAV",
		"mcallbV2.htm"		: "NAV",
		"mchargebV2.htm"	: "NAV",
		"miscdr.htm"		: "NAV",
		"mngmain.htm"		: "NAV",
		"mngreps.htm"		: "NAV",
		"mobile.htm"		: "NAV",
		"mpureviewV2.htm"	: "NAV",
		"o_cdr.htm"		: "NAV",
		"o_cg.htm"		: "NAV",
		"o_edr.htm"		: "NAV",
		"o_miscdr.htm"		: "NAV",
		"o_ovhdr.htm"		: "NAV",
		"o_service1.htm"	: "NAV",
		"o_service2.htm"	: "NAV",
		"o_service3.htm"	: "NAV",
		"o_service4.htm"	: "NAV",
		"ovhdr.htm"		: "NAV",
		"reportgroupx.htm"	: "NAV",
		"service1.htm"		: "NAV",
		"service10.htm"		: "NAV",
		"service10V2.htm"	: "NAV",
		"service2.htm"		: "NAV",
		"service3.htm"		: "NAV",
		"service3000000.htm"	: "NAV",
		"service4.htm"		: "NAV",
		"service5.htm"		: "NAV",
		"swbdet.htm"		: "NAV",
		"swbextnsum.htm"	: "NAV",
		"t21index.html"		: "NAV",
		"topmenu.html"		: "NAV",
		"topreport.html"	: "NAV",
		"vmldet.htm"		: "NAV",
		"vmlextnsum.htm"	: "NAV",
		"wbt.htm"		: "NAV",
		"wbtdoacccodereps.html"	: "NAV",
		"wbthelp.html"		: "NAV",
		"wbtmainhome.html"	: "NAV",


		// ADMIN only
		// cgi
		"wbt_ACCM.cgi" : "ADMIN",
		"wbt_MAINT_dataplan.cgi" : "ADMIN",
		"wbt_SIDMAINT.cgi" : "ADMIN",
		"wbt_SIDMAINT_DIRENQ.cgi" : "ADMIN",
		"wbt_SIDMAINT_acccode.cgi" : "ADMIN",
		"wbt_SIDMAINT_mobile_phones.cgi" : "ADMIN",
		"wbt_SIDMAINT_mobile_phones_servercontrol.cgi" : "ADMIN",
		"wbt_SIDMAINT_picklist.cgi" : "ADMIN",
		"wbt_T21Enquiry_audittrail.cgi" : "ADMIN",
		"wbt_WBDM.cgi" : "ADMIN",
		"wbt_acccodedata.cgi" : "ADMIN",
		"wbt_admin.cgi" : "ADMIN",
		"wbt_dataplans.cgi" : "ADMIN",
		"wbt_dorelease.cgi" : "ADMIN",
		"wbt_dosave_didyouknow.cgi" : "ADMIN",
		"wbt_dosql.cgi" : "ADMIN",
		"wbt_gethier.cgi" : "ADMIN",
		"wbt_release.cgi" : "ADMIN",
		"wbt_picklists.cgi" : "ADMIN",
		"wbt_upfile2.cgi" : "ADMIN",
		"wbt_upfile2delete.cgi" : "ADMIN",
		"wbt_upfile2list.cgi" : "ADMIN",
		"wbt_upfile2upload.cgi" : "ADMIN",
		"wbt_upfile2verify.cgi" : "ADMIN",
		// html
		"wbtadmin.html" : "ADMIN",
		"wbtrelease.html" : "ADMIN",
		"wbtupfile2.html" : "ADMIN",
		"wbtACCM.html" : "ADMIN",
		"wbtMAINT_dataplan.html" : "ADMIN",
		"wbtSIDMAINT.html" : "ADMIN",
		"wbtSIDMAINT_CUSTOM.html" : "ADMIN",
		"wbtSIDMAINT_DIRENQ.html" : "ADMIN",
		"wbtSIDMAINT_acccode.html" : "ADMIN",
		"wbtSIDMAINT_auto.html" : "ADMIN",
		"wbtSIDMAINT_mobile_phones.html" : "ADMIN",
		"wbtSIDMAINT_picklist.html" : "ADMIN",
		"wbtSIDMAINT_tst.html" : "ADMIN",
		"wbtWBDM.html" : "ADMIN",
		"wbtgrphier.html" : "ADMIN",

		//// download invoice PDF
		//// - allow access if wbdconf.wbt_type is INVOICE_PDF
		//replaced by distid .pdf file
		//"wbt_dnldinvoicepdf.cgi" : "INVOICE_PDF",

		// returns dynamic report csv data 
		// (see wbt_stdcgiheader stdcgi_auth)
		//<removed wbt_acccodedet.cgi
		//<removed wbt_acccodeextsum.cgi
		//wbt_mpureviewV2.cgi
		// (also modified to use wbt_userData.cgi)

		// useData store
		// (see wbt_stdcgiheader stdcgi_auth)
		// mobile10/global/* (login user personal numbers)
		//     - allow userid only
		// mobile10/MMM_YYYY/* (selected personal calls)
		//     - allow userid and CC manager
		//wbt_userData.cgi

		// test 
		"fred_wbt_index.html" : "TEST",
		"m.htm" : "TEST",
		"vttest1.htm" : "TEST",
		"vttest2.htm" : "TEST",
		"vttest3.htm" : "TEST",
		"vttest4.htm" : "TEST",
		"vttest5.htm" : "TEST",
		"wait.htm" : "TEST",
		"xuser.html" : "TEST",

		"end"		: "DENY"
	}

	var wbt_auth_me_href = window.location.href;

	var wbt_auth_me_arr = wbt_auth_me_href.split("/");
	var wbt_auth_me_src = "";
	if ( wbt_auth_me_arr.length > 0 )
		wbt_auth_me_src = wbt_auth_me_arr[wbt_auth_me_arr.length-1].split(/[#?&]/)[0];

	//var wbt_auth_me_hash = window.location.hash;
	//var wbt_auth_me_search = window.location.search;
	//wbt_auth_me_arg_arr = wbt_auth_me_search.split(/[&]/);
	//wbt_auth_me_arg_arr[0] = wbt_auth_me_arg_arr[0].substr(1);

	var wbt_auth_me_access = wbt_auth_access_list[wbt_auth_me_src];
	var wbt_auth_me_appmode = getCookie("remuserappmode");
	var wbt_auth_me_remuser = getCookie("remuser");
	var wbt_common_path = wbt_auth_me_href.replace(/\/common\/.*$/,"") + "/common";

	if ( wbt_auth_me_remuser != null && wbt_auth_me_remuser != "" ) {
		// test remuserappmode for cookie hacking
		var url = wbt_common_path + "/wbt_getuseraccess.cgi";
		var j_src = "";
		j_src = libgetFile(url,'',"POST",null,null);
		var getuseraccess_appmode = eval(j_src);
		//alert("j_src=[" + j_src + "]" + "  wbt_auth_me_appmode=[" + wbt_auth_me_appmode + "]" + "  getuseraccess_appmode=[" + getuseraccess_appmode + "]");
		if ( wbt_auth_me_appmode != getuseraccess_appmode )
			wbt_auth_me_access = "DENY";
	}

	switch ( wbt_auth_me_access ) {
	case "NAV":
		wbt_auth_me_allow = true;
		break;
	case "ADMIN":
		if ( wbt_auth_me_appmode == wbt_auth_me_access )
			wbt_auth_me_allow = true;
		break;
	case "INVOICE_PDF":
		if ( wbt_auth_me_appmode == "INVOICE_PDF" ||
		     wbt_auth_me_appmode == "ADMIN" )
			wbt_auth_me_allow = true;
		break;
	case "TEST":
		if ( testing )
			wbt_auth_me_allow = true;
		break;
	case "DENY":
	default:
		wbt_auth_me_allow = false;
		break;
	}

	dbgmsg = "wbt_auth_me_src=[" + wbt_auth_me_src + "]" + "\n" +
		"wbt_auth_me_access=[" + wbt_auth_me_access + "]" + "\n" +
		"wbt_auth_me_appmode=[" + wbt_auth_me_appmode + "]" + "\n" +
		"wbt_auth_me_allow=[" + wbt_auth_me_allow + "]" + "\n" +
		"";
	//alert(dbgmsg);
	//dbgwindow(dbgmsg);

	if ( !wbt_auth_me_allow )
		throw "wbt_auth: access denied.";
    }
    catch (e) {
	// deny
	alert("Error (" + e + ")");
	window.location = "";		// move away from page
    }
}


//------------------------------------------------------------------


// global version
wb_version = 2
var wb_version_store
if ( (wb_version_store = getCookie("WB_VERSION")) != null )
	wb_version = parseInt(wb_version_store)
if ( wb_version != 1 && wb_version != 2 )
	wb_version = 2

// -------------------------------------

function w(str)
{
	document.writeln(str);
}

function dumpobj(obj1)
{
	for (prop in obj1) {
		if ( ! window.confirm("The property '" + prop + "' is " +
							 obj1[prop]) )
			break;
	}
}

//----------------------------------------------------------------------

function globalstyle()
{
var outp = '';

	outp += 'A.srtA { color: black; text-decoration: none; }';
	outp += 'A.srtA:hover { color: pink; text-decoration: underline; }';

	outp += 'A.drillA { color: black; text-decoration: none;';
	outp += '	font-family     : Arial;';
	outp += '	font-weight     : normal;';
	outp += '	}';
	outp += 'A.drillA:hover { color: blue; text-decoration: underline; }';

	outp += 'A.nodrillA { color: pink; text-decoration: none;';
	outp += '	font-family     : Arial;';
	outp += '	font-weight     : normal;';
	outp += '	}';
	outp += 'A.nodrillA:hover { color: red; text-decoration:none; }';

	outp += 'A.totinfoA { text-decoration: none; }';
	outp += 'A.totinfoA:hover { color: pink;  text-decoration: underline; }';
	outp += 'A.CAPTION.totinfoA { color: #005A74; }';

	outp += 'A.filtA { color: black; text-decoration: none;';
	outp += '	font-family     : Arial;';
	outp += '	font-weight     : normal;';
	outp += '	}';
	outp += 'A.filtA:hover { color: pink; text-decoration: underline; }';

	outp += 'LABEL.filt_in {';
	outp += '	background	: white;';
	outp += '	color		: black;';
	outp += '	text-decoration	: none;';
	outp += '	font-size       : 9pt;';
	outp += '	font-family     : Arial;';
	outp += '	font-weight     : normal;';
	outp += '	}';

	outp += 'INPUT.but_filt_in {';
	outp += '	color		: #005A74;';
	outp += '	text-decoration	: underline;';
	outp += '	font-size       : 8pt;';
	outp += '	font-family     : Arial;';
	outp += '	font-weight     : normal;';
	outp += '	}';

	outp += 'INPUT.filt_in {';
	outp += '	background	: #C1B6A2;';
	outp += '	color		: #005A74;';
	outp += '	text-decoration	: none;';
	outp += '	font-size       : 8pt;';
	outp += '	font-family     : Arial;';
	outp += '	font-weight     : normal;';
	outp += '	}';

	outp += 'SELECT.filt_in {';
	outp += '	background	: #C1B6A2;';
	outp += '	color		: #005A74;';
	outp += '	text-decoration	: none;';
	outp += '	font-size       : 8pt;';
	outp += '	font-family     : Arial;';
	outp += '	font-weight     : normal;';
	outp += '	}';

	outp += 'TEXTAREA.filt_in {';
	outp += '	background	: #C1B6A2;';
	outp += '	color		: #E5352C;';
	outp += '	width           : 500px;';
        outp += '	text-decoration : none;';
        outp += '	font-size       : 10pt;';
        outp += '	font-family     : Arial;';
        outp += '	font-weight     : normal;';
        outp += '	padding         : 10;';
        outp += '	border          : 2 dotted #005A74;';
        outp += '	}';

	return outp;
}

// --------------------------------------------------------------------
// window open/close replacement (Re:- IE* default to open in new TAB

function window_open(url, title, props)
{
	//return window.open(url, title, props);
	return popwindow(url, title, props);
	//return new popwindow(url, title, props);
}


var popwindows = [];
var popwindows_baseurl = [];

function popwindow(url, title, props)
{
	// exists?
	var baseurl_arr = url.split("?");
	var baseurl = baseurl_arr[0]
	if ( popwindows_baseurl[baseurl] != null ) {
		var winid = popwindows_baseurl[baseurl]
		// set new url
		popwindows[winid].iframe1.src = url;
		return popwindows[winid].iframe1.contentWindow;
	}

	var title_h = 18;
	var myprops = props.replace(/\,/g,"\;").replace(/\=/g,"\:");

	var winid = popwindows.length;

	//popwin = document.createElement("<DIV style='" + myprops + "'>");
	popwin = document.createElement("<DIV"
				//+ " id='popwin_" + winid + "'"
				+ " style='" + myprops + "'"
				+ ">");

	popwindows[winid] = popwin;

	popwindows_baseurl[baseurl] = winid;
	popwin.baseurl = baseurl;

	//popwin.id = "my_" + title;
	popwin.id = "popwin_" + winid;
	popwin.style.z_index = 1;
	//popwin.style.display = "none";
	//popwin.style.filter = 'alpha(opacity=0)';
	popwin.style.position = "absolute";
	popwin.style.border = "4";
	popwin.style.borderStyle = "outset";

	var frame_h = parseInt(popwin.style.height.replace(/px/,""));
	var frame_w = parseInt(popwin.style.width.replace(/px/,""));
	popwin.style.height = (title_h + frame_h) + "px";

	var outp = "";
	outp += "<div style='"
			+ "   background: navy;"
			+ "       height: " + title_h + ";"
			+ "        width: 100%;"
			+ "       border: 0;"
			+ "'>";

	outp += "<table border=0 width='100%'>";
	outp += "<td align=left style='";
	outp += " padding-left: 5;"
	outp += "	 color: white;";
	outp += "         font: normal normal bold 9pt Arial;";
	outp += "'>";
	outp += title;
	outp += "</td>";
	outp += "<td align=right valign=top>";

	//outp += "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
	//outp += "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
	//outp += "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
	//outp += "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"

	//outp += "<a href='javascript: window_close(" + popwin.id + ");'"
	//outp += "<a href='javascript: popwin.close();'"
	outp += "<a href='javascript: " + popwin.id + ".close();'"
			+ " title='Close this Window.'"
			+ " style='"
			+ "           color: black;"
			+ "      background: #BBBBBB;"
			+ " text-decoration: none;"
			+ "          border: 2;"
			+ "    border-style: outset;"
			+ "         font: normal normal bold 7pt Arial"
			//+ "           float: right;"
			//+ "'>&nbsp;X&nbsp;"
			+ "'>Close"
			+ "</a>";

	//outp += "<input type='BUTTON' title='Close this window.' style='font-size: 7pt' onclick='window_close(this);' value='X'>";

	outp += "</td>";
	outp += "</tr>";
	outp += "</table>";
				
	outp += "</div>";

	var frame1name = "frame1";
	//outp = ""
	//outp += "<iframe"
	////outp += " id='" + frame1name + "'" + " name='" + frame1name + "'";
	//outp += "  src='" + url + "'";
	////outp += " src=''";
	//outp += " height=" + frame_h;
	//outp += " width=" + frame_w;
	////outp += " width='100%'";
	//outp += ">";
	//outp += "</iframe>";

	popwin.innerHTML = outp;
	//alert(outp);

	iframe1 = document.createElement("<IFRAME>");
	iframe1.id = frame1name;
	iframe1.name = frame1name;
	iframe1.style.height = frame_h + "px";
	//iframe1.style.width = frame_w + "px";
	iframe1.style.width = "100%";
	//iframe1.src = url;
	iframe1.popwin = popwin;
	popwin.iframe1 = iframe1;


	popwin.appendChild(iframe1);

	document.body.appendChild(popwin);

	// methods
	popwin.close = function () {
			//alert("popwin.close()");
			popwin.removeNode(true);
			popwindows[popwin.winid] = null;
			popwindows_baseurl[popwin.baseurl] = null;
		 }

	iframe1.close = function () {
			//alert("frame1.close()");
			iframe1.popwin.close();
		 }

	iframe1.attachEvent("onload", function() {
		//alert("frame1 loaded");
		//alert("b iframe1.contentWindow.close = " + iframe1.contentWindow.close);
		//iframe1.contentWindow.nativeclose = iframe1.contentWindow.closel;
		iframe1.contentWindow.close = function () {
				//iframe1.contentWindow.nativeclose();
				//alert("frame1.contentWindow.close()");
				iframe1.close();
			 }
		//alert("a iframe1.contentWindow.close = " + iframe1.contentWindow.close);
		});

	//iframe1.attachEvent("onbeforeunload", function() {
	//		alert("frame1 before unload");
	//		iframe1.close();
	//		});

	//this.close = this.popwin.close;
	//this.focus = this.popwin.focus;
	//this.blur = this.popwin.blur;
	//this.toggle = function () { this.popwin.style.visibility = this.popwin.style.visibility == 'visible' ? 'hidden' : 'visible'; }

	//alert("here 0 popwin.id = [" + popwin.id + "]" + " HTML = " + popwin.outerHTML);

	//alert("iframe1.contentWindow = " + iframe1.contentWindow);
	////iframe1.contentWindow.opener = window;

	// load url
	iframe1.src = url;
	//var popwinel = document.getElementById(popwin.id);
	//alert("here 1 id=" + popwinel.id);
	//popwinel.frame1.setAttribute('src', url);
	//frame1.src = url;


	//alert("here 2");
	//popwin.style.visibility = 'hidden';

	//alert("here 3");
	popwin.style.visibility = 'visible';

	//return popwin;
	//return iframe1;
	return iframe1.contentWindow;

}


//function window_close(x)
//{
//	alert("window_close(" + x + ")");
//	if ( typeof(x) == "object" )
//		x.removeNode(true);
//	else
//		eval(x + ".removeNode(true)");
//}


// --------------------------------------------------------------------
// return URL to data file

function settdf(datfile, contenttype, contentdisposition)
{
	//return = "../../" + datfile;
	if ( is_web_login(1) ) {

		//var distid = getCookie("WB_distid");
		//alert("settdf() WB_distid is " + "[" + distid + "]")
		////setCookie("WB_distid", distid)
		////top.t21main.setCookie("WB_distid", distid)

		var uri = '../wbt_topdat.cgi?tdf="' + datfile + '"';
		if ( contenttype != null ) {
			uri = uri + '&contenttype="' + contenttype + '"';
			if ( contentdisposition != null ) {
				uri = uri + '&contentdisposition="' + contentdisposition + '"';
			}
		}
		return encodeURI(uri);
	}
	else {
		return '../../' + datfile;
	}
}


// --------------------------------------------------------------------

function is_web_login(a)
{
	//var remuser = getCookie("remuser");
	//var remuserpwdes = getCookie("remuserpwdes");
	//var WB_userid = getCookie("WB_userid");
	//alert("a=" + a + "  remuser=[" + remuser + "]" + "  remuserpwdes=[" + remuserpwdes + "]" + "  WB_userid=[" + WB_userid + "]" + "\n>>>>>  document.cookie=[" + document.cookie + "]");

	// return true if web login
	return ((getCookie("remuser") != null)
	     && (getCookie("remuserpwdes") != null)
	     && (getCookie("WB_userid") != null)
	       )
	// could also validate getCookie("remuserpwdes")
	// against actual value in wbdconf table
}


// --------------------------------------------------------------------

function setPersistentData(name, value, expires, path, domain, secure) {
	//return setCookie(name, value, expires, path, domain, secure)

    try {
	if ( typeof(top.opener) == "undefined" )	// called from top
		var uStore_div = Bilmax21_userData_div
	else
		var uStore_div = top.opener.Bilmax21_userData_div

	// add attribute to user data store div
	var val = ""
	if ( typeof(value) != "undefined" )
		val = value
	//if ( typeof(val.toString()) != "undefined" )
	//	val = val.toString
	uStore_div.setAttribute(name, val)
    }
    catch (errcode) {
	alert("catch setPersistentData(" + name + "," + value + ")" + " val=[" + val + "]" + "  errcode=" + errcode)
    }
}


function getPersistentData(name) {
	//return getCookie(name)

	if ( typeof(top.opener) == "undefined" )	// called from top
		var uStore_div = Bilmax21_userData_div
	else
		var uStore_div = top.opener.Bilmax21_userData_div

	//alert("uStore_div.getAttribute(" + name + ") = [" + uStore_div.getAttribute(name) + "]")

	return uStore_div.getAttribute(name)
}


function deletePersistentData(name, path, domain) {
	//return deleteCookie(name, path, domain)

	if ( typeof(top.opener) == "undefined" )	// called from top
		var uStore_div = Bilmax21_userData_div
	else
		var uStore_div = top.opener.Bilmax21_userData_div

	// remove user data store attribute
	uStore_div.removeAttribute(name)
}


function savePersistentData(expires)
{
	if ( typeof(top.opener) == "undefined" )	// called from top
		var uStore_div = Bilmax21_userData_div
	else
		var uStore_div = top.opener.Bilmax21_userData_div

	// save user data store
	////uStore_div.expires = expires
	var now = new Date()
	fixDate(now)
	////now.setHours(now.getHours() + 12)
	now.setMinutes(now.getMinutes() + 10)
	uStore_div.expires = now.toUTCString()
	uStore_div.save("Bilmax21_userData")
	//alert("SAVED :\n" + uStore_div.xmlDocument.xml)
}


function loadPersistentData()
{
	if ( typeof(top.opener) == "undefined" )	// called from top
		var uStore_div = Bilmax21_userData_div
	else
		var uStore_div = top.opener.Bilmax21_userData_div

	// load user data store
	uStore_div.load("Bilmax21_userData")
	//alert("LOADED :\n" + uStore_div.xmlDocument.xml)
}


// -------------------------------------

function setCookie(name, value, expires, path, domain, secure) {
	path = "/";
	if ( value == null )
		value = '';
	//if ( value == null || value == "" )
	//	value = "_NULL_";

	//if ( name == "remuser" ) {
	//	alert("setCookie: name=[" + name + "]" + " value=[" + value + "]" + "  BEFORE document.cookie = " + document.cookie);
	//}

	var curCookie = name + "=" + escape(value) +
         ((expires) ? "; expires=" + (typeof(expires) == "string" ? expires : expires.toGMTString()) : "") +
         ((path) ? "; path=" + path : "") +
         ((domain) ? "; domain=" + domain : "") +
         ((secure) ? "; secure" : "");

	//if ( name == "remuser" ) {
	//	alert("setCookie: set curCookie=[" + curCookie + "]");
	//}

	//var curCookie = name + "=" + escape(value);

	// // only 20 cookies max - so make sure we don't loose these ones
	// // oldest cookie is is deleted if 20 exceeded
	// refreshCookie("WB_centre");
	// refreshCookie("WB_centre_filter");
	// refreshCookie("WB_project");
	// refreshCookie("WB_project_filter");
	// refreshCookie("WB_serviectypeid");
	// refreshCookie("WB_serviectypeid_filter");
	// refreshCookie("WB_monthtag");
	// //refreshCookie("WB_distiddesc");
	// refreshCookie("WB_distid");
	// refreshCookie("WB_distidmtags");
	// refreshCookie("WB_wbd_method");
	// refreshCookie("WB_wbd_type");
	// refreshCookie("WB_VERSION");
	// refreshCookie("WB_userid");
	// refreshCookie("WB_recordno");
	// //refreshCookie("WB_WBDM");
	// refreshCookie("remuser");
	// refreshCookie("remuserpwdes");
	// refreshCookie("remuserappmode");

	//document.cookie = curCookie;
	if ( typeof(top.opener) == "object" )
		top.opener.document.cookie = curCookie;
	else
		document.cookie = curCookie;

	//if ( name == "remuser" ) {
	//	alert("setCookie: name=[" + name + "]" + " value=[" + value + "]" + "  AFTER document.cookie = " + document.cookie);
	//}
}

function refreshCookie(name) {
	var tv1 = '';
	if ( (tv1 = getCookie(name)) != null ) {
		//if ( tv1 == null || tv1 == "" )
		//	tv1 = "_NULL_";;
		var curCookie = name + "=" + escape(tv1);
		//document.cookie = curCookie;
		if ( typeof(top.opener) == "object" )
			top.opener.document.cookie = curCookie;
		else
			document.cookie = curCookie;
	}
}

function getCookie(name) {

	//if ( name == "WB_distid" ) {
	//	alert("getCookie(" + name + "): document.cookie = " + document.cookie);
	//	if ( typeof(top.opener) == "object" ) {
	//		alert("HERE> top.opener.document.location.href=[" + top.opener.document.location.href + "]   top.opener.document.cookie=[" + top.opener.document.cookie + "]");
	//	}
	//}

	//alert("getCookie: document.cookie = " + document.cookie);
	var myCookies = document.cookie;
	if ( typeof(top.opener) == "object" )
		myCookies = top.opener.document.cookie;
	var value = null;

	//var prefix = name + "=";
	//var cookieStartIndex = myCookies.indexOf(prefix);
	//if (cookieStartIndex >= 0 ) {
	//	var cookieEndIndex = document.cookie.indexOf(";", cookieStartIndex + prefix.length);
	//	if (cookieEndIndex == -1)
	//		cookieEndIndex = document.cookie.length;
	//	value = unescape(document.cookie.substring(cookieStartIndex + prefix.length, cookieEndIndex));
	//}

        var i,x,y;
        var ARRcookies = myCookies.split(";");
        //for (i=0; i<ARRcookies.length; i++) {
        for (i=ARRcookies.length-1; i>=0; --i) {
		x = ARRcookies[i].substr(0,ARRcookies[i].indexOf("="));
        	y = ARRcookies[i].substr(ARRcookies[i].indexOf("=")+1);
        	x = x.replace(/^\s+|\s+$/g,"");
        	if (x == name) {
        		value = unescape(y);
			break;
        	}
        }

	//if ( value == "_NULL_" )
	//	value = null;
	//if ( name == "remuser" ) {
	//	alert("getCookie: name=[" + name + "]" + " value=[" + value + "]");
	//}
	return value;
}

function deleteCookie(name, path, domain) {
	path = "/";
	//alert("deleteCookie: name=[" + name + "]" + "  path=[" + path + "]" + "  domain=[" + domain + "]");
	if ( getCookie(name) ) {
		//if ( name == "remuser" ) {
		//	var tst_remuser = getCookie("remuser");
		//	alert("before clear tst_remuser=[" + tst_remuser + "]" + "  document.cookie = " + document.cookie);
		//}

		//document.cookie = name + "=" + ((path) ? "; path=" + path : "") + ((domain) ? "; domain=" + domain : "") + "; expires=Thu, 01-Jan-70 00:00:01 GMT";

		var expires = "Thu, 01-Jan-70 00:00:01 GMT";
		setCookie(name, null, expires, path);

		//if ( name == "remuser" ) {
		//	var tst_remuser = getCookie("remuser");
		//	alert("after clear tst_remuser=[" + tst_remuser + "]" + "  document.cookie = " + document.cookie);
		//}
	}
	return true
}


function fixDate(date) {
      var base = new Date(0);
      var skew = base.getTime();
      if (skew > 0)
         date.setTime(date.getTime() - skew);
}


//----------------------------------------

function monthtag_to_exbillperiod(monthtag)
{
var mntharr = new Array();

	mntharr["Jan"]  = "January";
	mntharr["Feb"]  = "February";
	mntharr["Mar"]  = "March";
	mntharr["Apr"]  = "April";
	mntharr["May"]  = "May";
	mntharr["Jun"]  = "June";
	mntharr["Jul"]  = "July";
	mntharr["Aug"]  = "August";
	mntharr["Sep"]  = "September";
	mntharr["Oct"] = "October";
	mntharr["Nov"] = "November";
	mntharr["Dec"] = "December";

	var billMMM = monthtag.substr(0,3);
	var billyyyy = monthtag.substr(4,4);

	var exbillperiod = mntharr[billMMM] + " " + billyyyy;

	return exbillperiod;
}


//-------------------------------------------------------------
var page_header_htm = ""

function wb_page_header(distid, distiddesc, exbillperiod, reportdesc)
{
var outp = "";

	var customer = getPersistentData("WB_customer");
	if ( customer == null )
		customer = "";
	var customerdesc = getPersistentData("WB_customerdesc");
	if ( customerdesc == null )
		customerdesc = "";
;
	var group = getPersistentData("WB_group");
	if ( group == null )
		group = "";
	var groupdesc = getPersistentData("WB_groupdesc")
	if ( groupdesc == null )
		groupdesc = "";


	outp += '<table width="100%"'
	outp += ' cellspacing=0 cellpadding=0';
	outp += '>';

	outp += '<tr>';
	outp += '<td align=left'
	outp += " STYLE='border-bottom: 1 solid black;'";
	outp += "'";
	outp += '>';
		//outp += '<img width=100% name="logo" src="logo1.gif" border=0>'
		//outp += '<img width=85% name="logo" src="logo1.gif" border=0>'

		outp += customlogo();

	outp += '</td>';

	outp += '<td align=right';
	outp += " STYLE='border-bottom: 1 solid black'";
	outp += '>';

	outp += '<table>'
		if ( customerdesc != "" ) {
			outp += '<tr>';
			outp += '<td align="right" ';
			outp += '>';
				outp += '<font size=3 face="Arial" color=black>';
				outp += '<b>'
				outp += customerdesc;
				outp += '</b>'
				outp += '</font>';
			outp += '</td>';
			outp += '</tr>';
		}

		outp += '<tr>';
		outp += '<td align="right" ';
		outp += '>';
			outp += '<font size=2 face="Arial" color=black>';
			outp += '<b>'
			outp += reportdesc;
			outp += '</b>'
			outp += '</font>';
		outp += '</td>';
		outp += '</tr>';

		outp += '<tr>';
		outp += '<td align="right" ';
		outp += '>';
			outp += '<font size=1 face="Arial" color=black>';
			outp += '<b>'
			outp += exbillperiod;
			outp += '</b>'
			outp += '</font>';
		outp += '</td>';
		outp += '</tr>';
	outp += '</table>'

	outp += '</td>';
	outp += '</tr>';
	outp += '</table>';

	page_header_html = outp

	return ""
}


//----------------------------------------

function wb_report_header(distid, centredesc, servicetypedesc, servicetypeid, sid, dummy1, dummy2,  h11tag,h11val, h12tag,h12val,  h21tag,h21val, h22tag,h22val, h31tag,h31val, h32tag,h32val, h41tag,h41val, h42tag,h42val, showdrill)
{
var outp = ""

	if ( showdrill == null || showdrill == "" ||
             typeof(showdrill) == "undefined" ) // bw compat
                showdrill = true;

	if ( dummy1.substr(0,3) == "mng" ) {
		var mngrepid = dummy1;
		var mngrepdesc = dummy2;
		outp += wb_mng_drilldown(distid, mngrepid, mngrepdesc);
	}
	else {
		var grid = dummy1;
		var bdrepdesc = dummy2;
		outp += wb_drilldown(distid, centredesc, servicetypedesc,
				servicetypeid, grid, bdrepdesc, sid, showdrill)
	}

	outp += page_header_html

	//-----------------------------------
	//h11tag = h11val = h12tag = h12val = ""
	//h21tag = h21val = h22tag = h22val = ""
	//-----------------------------------

	// layout...
	//   h11tag: h11val             h12tag: h12val
	//   h21tag: h11val             h22tag: h12val
	//   h31tag: h11val             h32tag: h12val
	//   h41tag: h11val             h42tag: h12val
	//   downloads_input            supplier_invoiceno_sundry_input
	//                      CENTRE/PROJECT or report specific input

	outp += '<table width="100%" border="0">';

	//
	if ( h11tag != "" || h11val != "" || h12tag != "" || h12val != "" ) {
	    outp += '<tr>';
		outp += '<td align="right" colspan=1>';
		outp += '<font size=2 face="Arial" color=black>';
		outp += '<b>';
		outp += h11tag;
		outp += '&nbsp;';
		outp += '</b>';
		outp += '</font>';
		outp += '</td>';
		outp += '<td align="left" colspan=1>';
		outp += '<font size=2 face="Arial" color=#000080>';
		outp += '&nbsp;';
		outp += h11val;
		outp += '</font>';
		outp += '</td>';
		//
		//outp += '<td align="left" colspan=3>';		// c1
		//outp += '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;';
		//outp += '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;';
		//outp += '&nbsp;&nbsp;';
		//outp += '</td>';
		//
		outp += '<td align="right" colspan=1>';
		outp += '<font size=2 face="Arial" color=black>';
		outp += '<b>';
		outp += h12tag;
		outp += '&nbsp;';
		outp += '</b>';
		outp += '</font>';
		outp += '</td>';
		outp += '<td align="left" colspan=1>';
		outp += '<font size=2 face="Arial" color=#000080>';
		outp += '&nbsp;';
		outp += h12val;
		outp += '</font>';
		outp += '</td>';
	    outp += '</tr>';
	}

	// ----
	if ( h21tag != "" || h21val != "" || h22tag != "" || h22val != "" ) {
	    outp += '<tr>';
		outp += '<td align="right" colspan=1>';
		outp += '<font size=2 face="Arial" color=black>';
		outp += '<b>';
		outp += h21tag;
		outp += '&nbsp;';
		outp += '</b>';
		outp += '</font>';
		outp += '</td>';
		outp += '<td align="left" colspan=1>';
		outp += '<font size=2 face="Arial" color=#000080>';
		outp += '&nbsp;';
		outp += h21val;
		outp += '</font>';
		outp += '</td>';
		//
		//outp += '<td align="left" colspan=3>';		// c2
		//outp += '&nbsp;&nbsp;';
		//outp += '</td>';
		//
		outp += '<td align="right" colspan=1>';
		outp += '<font size=2 face="Arial" color=black>';
		outp += '<b>';
		outp += h22tag;
		outp += '&nbsp;';
		outp += '</b>';
		outp += '</font>';
		outp += '</td>';
		outp += '<td align="left" colspan=1>';
		outp += '<font size=2 face="Arial" color=#000080>';
		outp += '&nbsp;';
		outp += h22val;
		outp += '</font>';
		outp += '</td>';
	    outp += '</tr>';
	}

	// ----
	if ( h31tag != "" || h31val != "" || h32tag != "" || h32val != "" ) {
	    outp += '<tr>';
		outp += '<td align="right" colspan=1>';
		outp += '<font size=2 face="Arial" color=black>';
		outp += '<b>';
		outp += h31tag;
		outp += '&nbsp;';
		outp += '</b>';
		outp += '</font>';
		outp += '</td>';
		outp += '<td align="left" colspan=1>';
		outp += '<font size=2 face="Arial" color=#000080>';
		outp += '&nbsp;';
		outp += h31val;
		outp += '</font>';
		outp += '</td>';
		//
		//outp += '<td align="left" colspan=3>';		// c3
		//outp += '&nbsp;&nbsp;';
		//outp += '</td>';
		//
		outp += '<td align="right" colspan=1>';
		outp += '<font size=2 face="Arial" color=black>';
		outp += '<b>';
		outp += h32tag;
		outp += '&nbsp;';
		outp += '</b>';
		outp += '</font>';
		outp += '</td>';
		outp += '<td align="left" colspan=1>';
		outp += '<font size=2 face="Arial" color=#000080>';
		outp += '&nbsp;';
		outp += h32val;
		outp += '</font>';
		outp += '</td>';
	    outp += '<tr>';
	}

	// ----
	if ( h41tag != "" || h41val != "" || h42tag != "" || h42val != "" ) {
	    outp += '<tr>';
		outp += '<td align="right" colspan=1>';
		outp += '<font size=2 face="Arial" color=black>';
		outp += '<b>';
		outp += h41tag;
		outp += '&nbsp;';
		outp += '</b>';
		outp += '</font>';
		outp += '</td>';
		outp += '<td align="left" colspan=1>';
		outp += '<font size=2 face="Arial" color=#000080>';
		outp += '&nbsp;';
		outp += h41val;
		outp += '</font>';
		outp += '</td>';
		//
		//outp += '<td align="left" colspan=3>';		// c4
		//outp += '&nbsp;&nbsp;';
		//outp += '</td>';
		//
		outp += '<td align="right" colspan=1>';
		outp += '<font size=2 face="Arial" color=black>';
		outp += '<b>';
		outp += h42tag;
		outp += '&nbsp;';
		outp += '</b>';
		outp += '</font>';
		outp += '</td>';
		outp += '<td align="left" colspan=1>';
		outp += '<font size=2 face="Arial" color=#000080>';
		outp += '&nbsp;';
		outp += h42val;
		outp += '</font>';
		outp += '</td>';
	    outp += '<tr>';
	}

        // supplier - invoiceno - sundry input
	outp += '<tr>';
        outp += '<td align="left" colspan=1>';
        outp += '<div id="downloads_input">';
        outp += '</div>';
        outp += '</td>';
	//
        outp += '<td align="right" colspan=3>';
        outp += '<div id="supplier_invoiceno_sundry_input">';
        outp += '</div>';
        outp += '</td>';
        outp += '</tr>';

	// group - centre input
	outp += '<tr>';
	////outp += '<td align="right" colspan=3>';
	//outp += '<td align="right" colspan=2>';
	outp += '<td align="right" colspan=4>';
	outp += '<div id="centre_group_input">';
	outp += '</div>';
	outp += '</td>';
	outp += '</tr>';

	outp += '</table>';
	//outp += '<br>';

	return outp
}

//----------------------------------------

function wb_mng_drilldown(distid,mngrepid,mngrepdesc)
{
var outp = ""
var bul = ""
var aro = ""
var do_bul = 1
var do_aro = 0
var do_distid = 1

	bul = "&#8226;"
	aro = "=>"

	outp += '<STYLE>'
	outp += 'A.headdrill { color: #000080; text-decoration: none;'
	outp += '	font-family     : Arial;'
	outp += '	font-weight     : normal;'
	outp += '	}'
	outp += 'A.headdrill:hover { color: blue; text-decoration: underline; }'
	outp += '</STYLE>'

	outp += '<table width=100%>'
	outp += '<tr>'

	outp += '<td align=left style="border-bottom: 1 solid black;">'

	//outp += '&nbsp;'	// force row

	outp += getCookie("WB_userid")
	outp += '&nbsp;'

	if ( do_bul ) {
		outp += '<font color=black>&nbsp;&nbsp' + bul + '&nbsp;&nbsp</font>';
	}

	if ( do_aro )
		outp += '<font color=black>&nbsp;&nbsp' + aro + '&nbsp;&nbsp</font>';
	outp += '<font face="Arial" size=1 color=#000080>';
	//outp += '<b>';
	outp += "<A class='headdrill' HREF='mngmain.htm'";
	outp += " title='Show Management Reports Main Menu.'";
	outp += ">";
	outp += distid + " - " + "Management Reports Main Menu";
	outp += "</A>";
	//outp += '</b>';
	outp += '</font>';
	do_aro = 1

	if ( mngrepid != "mngmain" ) {
		var mng_rep = mngrepid + ".htm";
		if ( do_aro )
			outp += '<font color=black>&nbsp;&nbsp' + aro + '&nbsp;&nbsp</font>';
		outp += '<font face="Arial" size=1 color=#000080>';
		//outp += '<b>';
		outp += "<A class='headdrill'"
		outp += "    HREF='" + mng_rep + "'";
		outp += " title='Show Management Report.'";
		outp += ">";
		outp += mngrepdesc;
		outp += "</A>";
		//outp += '</b>';
		outp += '</font>';
		do_aro = 1
	}

	outp += '</td>'
	outp += '</tr>'
	outp += '</table>'
	// ----------------

	outp += '<STYLE>'
	outp += 'A.headdrill { color: #000080; text-decoration: none;'
	outp += '	font-family     : Arial;'
	outp += '	font-weight     : normal;'
	outp += '	}'
	outp += 'A.headdrill:hover { color: blue; text-decoration: underline; }'
	outp += '</STYLE>'
	// ----------------

	return outp
}



//----------------------------------------

function wb_drilldown(distid, centredesc, servicetypedesc, servicetypeid, grid, bdrepdesc, sid, showdrill)
{
	switch (wb_version) {
	case 1:
		return wb_drilldown_V1(distid, centredesc,
			servicetypedesc, servicetypeid, sid, showdrill)
		break;
	case 2:
	default:
		return wb_drilldown_V2(distid, centredesc,
			servicetypedesc, servicetypeid, grid, bdrepdesc, sid, showdrill)
		break;
	}
}


function wb_drilldown_V1(distid, centredesc,
	servicetypedesc, servicetypeid, sid, showdrill)
{
var outp = ""
var bul = ""
var aro = ""
var do_bul = 1
var do_aro = 0
var do_distid = 1

	bul = "&#8226;"
	//aro = "&#8501;"
	//aro = "&#8594;"
	//aro = "&#8658;"
	//aro = "&#8660;"
	//aro = "&#9674;"
	aro = "=>"

	outp += '<STYLE>'
	outp += 'A.headdrill { color: #000080; text-decoration: none;'
	outp += '	font-family     : Arial;'
	outp += '	font-weight     : normal;'
	outp += '	}'
	outp += 'A.headdrill:hover { color: blue; text-decoration: underline; }'
	outp += '</STYLE>'

	outp += '<table width=100%>'
	outp += '<tr>'

	outp += '<td align=left style="border-bottom: 1 solid black;">'

	//outp += '&nbsp;'	// force row

	var loginuserid = getCookie("WB_userid")
	var selecteduserid = getCookie("WB_whichuserid")
	var displayuserid = "";
	if ( loginuserid != selecteduserid )
		displayuserid = " " + selecteduserid;

	outp += loginuserid;
	outp += '&nbsp;'

	if ( showdrill == null )	// bw compat
		showdrill = true;

	if ( showdrill ) {	// show drilldown list
	
		if ( do_bul ) {
			outp += '<font color=black>&nbsp;&nbsp' + bul + '&nbsp;&nbsp</font>';
		}

		if ( do_distid && distid != "" ) {
			if ( do_aro )
				outp += '<font color=black>&nbsp;&nbsp' + aro + '&nbsp;&nbsp</font>';
			outp += '<font face="Arial" size=1 color=#000080>';
			//outp += '<b>';
			outp += "<A class='headdrill' HREF='distid.htm'";
			outp += " title='Show Cost Centre Summary Report.'";
			outp += ">";
			outp += distid + displayuserid;
			outp += "</A>";
			//outp += '</b>';
			outp += '</font>';
			do_aro = 1
		}

		if ( centredesc != "" ) {
			if ( do_aro )
				outp += '<font color=black>&nbsp;&nbsp' + aro + '&nbsp;&nbsp</font>';
			outp += '<font face="Arial" size=1 color=#000080>';
			//outp += '<b>';
			outp += "<A class='headdrill' HREF='centre.htm'";
			outp += " title='Show Service Type Summary Report.'";
			outp += ">";
			outp += centredesc;
			outp += "</A>";
			//outp += '</b>';
			outp += '</font>';
			do_aro = 1
		}

		if ( servicetypedesc != "" ) {
			if ( do_aro )
				outp += '<font color=black>&nbsp;&nbsp' + aro + '&nbsp;&nbsp</font>';
			outp += '<font face="Arial" size=1 color=#000080>';
			//outp += '<b>';
			outp += "<A class='headdrill' HREF='o_service" + servicetypeid + ".htm'";
			outp += " title='Show Service Detail Report.'";
			outp += ">";
			outp += servicetypedesc;
			outp += "</A>";
			//outp += '</b>';
			outp += '</font>';
			do_aro = 1
		}

		if ( sid != "" ) {
			if ( do_aro )
				outp += '<font color=black>&nbsp;&nbsp' + aro + '&nbsp;&nbsp</font>';
			outp += '<font face="Arial" size=1 color=#000080>';
			//outp += '<b>';
			outp += "<A class='headdrill' HREF='cdr.htm'";
			outp += " title='Show ServiceID Details Report.'";
			outp += ">";
			outp += sid;
			outp += "</A>";
			//outp += '</b>';
			outp += '</font>';
			do_aro = 1
		}
	}

	outp += '</td>'
	outp += '</tr>'
	outp += '</table>'
	// ----------------

	outp += '<STYLE>'
	outp += 'A.headdrill { color: #000080; text-decoration: none;'
	outp += '	font-family     : Arial;'
	outp += '	font-weight     : normal;'
	outp += '	}'
	outp += 'A.headdrill:hover { color: blue; text-decoration: underline; }'
	outp += '</STYLE>'
	// ----------------

	return outp
}


function wb_drilldown_V2(distid, centredesc,
	servicetypedesc, servicetypeid, grid, bdrepdesc, sid ,showdrill)
{
var outp = ""
var bul = ""
var aro = ""
var do_bul = 1
var do_aro = 0
var do_distid = 1

	//alert("wb_drilldown_V2(" + distid + ", " + centredesc + ", " + servicetypedesc + ", " + servicetypeid + "," + grid + "," + bdrepdesc + ", " + sid + ", " + showdrill + ")");
	bul = "&#8226;"
	//aro = "&#8501;"
	//aro = "&#8594;"
	//aro = "&#8658;"
	//aro = "&#8660;"
	//aro = "&#9674;"
	aro = ">"

	outp += '<STYLE>'
	outp += 'A.headdrill { color: #000080; text-decoration: none;'
	outp += '	font-family     : Arial;'
	outp += '	font-weight     : normal;'
	outp += '	}'
	outp += 'A.headdrill:hover { color: blue; text-decoration: underline; }'
	outp += '</STYLE>'

	outp += '<table width=100%>'
	outp += '<tr>'

	outp += '<td align=left style="border-bottom: 1 solid black;">'

	//outp += '&nbsp;'	// force row

	var loginuserid = getCookie("WB_userid")
	var selecteduserid = getCookie("WB_whichuserid")
	var displayuserid = "";
	if ( loginuserid != selecteduserid )
		displayuserid = " " + selecteduserid;

	outp += loginuserid;
	outp += '&nbsp;'

	if ( showdrill == null || showdrill == "" ||
             typeof(showdrill) == "undefined" ) // bw compat
                showdrill = true;

	if ( showdrill ) {	// show drilldown list
		
		if ( do_bul ) {
			outp += '<font color=black>&nbsp;&nbsp;' + bul + '&nbsp;&nbsp;</font>';
		}

		if ( do_distid && distid != "" ) {
			if ( do_aro )
				outp += '<font color=black>&nbsp;&nbsp;' + aro + '&nbsp;&nbsp;</font>';
			outp += '<font face="Arial" size=1 color=#000080>';
			//outp += '<b>';
			outp += "<A class='headdrill' HREF='distidV2.htm'";
			outp += " title='Show Cost Centre Summary Report.'";
			outp += ">";
			outp += distid + displayuserid;;
			outp += "</A>";
			//outp += '</b>';
			outp += '</font>';
			do_aro = 1
		}

		var reportgroupid = getPersistentData("WB_reportgroupid");
		if ( reportgroupid == null )
			reportgroupid = "";

		var service_detail_rep = ""
		var serviceid_detail_rep = ""
		switch ( servicetypeid ) {
		case "1":
			if ( reportgroupid != "" )
				service_detail_rep = "reportgroupx.htm"
			else
				service_detail_rep = "service" + servicetypeid + ".htm"
			serviceid_detail_rep = "cdr.htm"
			break;
		case "2":
			service_detail_rep = "service" + servicetypeid + ".htm"
			serviceid_detail_rep = "edr.htm"
			break;
		case "3":
			service_detail_rep = "service" + servicetypeid + ".htm"
			serviceid_detail_rep = "miscdr.htm"
			break;
		case "4":
			service_detail_rep = "service" + servicetypeid + ".htm"
			serviceid_detail_rep = "ovhdr.htm"
			break;
		case "5":
			service_detail_rep = "service" + servicetypeid + ".htm"
			serviceid_detail_rep = "acccodedet.htm"
			break;
		case "10":
			if ( reportgroupid != "" )
				service_detail_rep = "reportgroupx.htm"
			else
				service_detail_rep = "service" + servicetypeid + "V2" + ".htm"
			serviceid_detail_rep = "mobile.htm"
			break;
		default:
			if ( reportgroupid != "" )
				service_detail_rep = "reportgroupx.htm"
			else
				service_detail_rep = "service" + servicetypeid + ".htm"
			serviceid_detail_rep = ""
			//var errmsg = "ERROR: t21lib:wb_drilldown_V2()" +
			//       " - Bad servicetypeid = [" + servicetypeid + "]"
			//service_detail_rep = "JavaScript: alert(\"" + errmsg + "\")"
			//serviceid_detail_rep = service_detail_rep
		}	

		if ( service_detail_rep != "" && servicetypedesc != "" && grid != "List" ) {
			if ( do_aro )
				outp += '<font color=black>&nbsp;&nbsp;' + aro + '&nbsp;&nbsp;</font>';
			outp += '<font face="Arial" size=1 color=#000080>';
			//outp += '<b>';
			outp += "<A class='headdrill'"
			outp += "    HREF='" + service_detail_rep + "'";
			if ( service_detail_rep == "reportgroupx.htm" )
				outp += " title='Show ServiceID Summary Report.'";
			else
				outp += " title='Show Service Detail Report.'";
			outp += ">";
			outp += centredesc + " - " + servicetypedesc;
			outp += "</A>";
			//outp += '</b>';
			outp += '</font>';
			do_aro = 1
		}

		if ( bdrepdesc != "" && grid != "" ) {
			if ( do_aro )
				outp += '<font color=black>&nbsp;&nbsp;' + aro + '&nbsp;&nbsp;</font>';
			outp += '<font face="Arial" size=1 color=#000080>';
			//outp += '<b>';
			outp += "<A class='headdrill'"
			outp += "    HREF='" + bdrepdesc + ".htm" + "'";
			outp += " title='Show breakdown Report.'";
			outp += ">";
			outp += "Call Breakdown - " + grid;
			outp += "</A>";
			//outp += '</b>';
			outp += '</font>';
			do_aro = 1
		}

		if ( serviceid_detail_rep != "" && sid != "" ) {
			if ( do_aro )
				outp += '<font color=black>&nbsp;&nbsp' + aro + '&nbsp;&nbsp</font>';
			outp += '<font face="Arial" size=1 color=#000080>';
			//outp += '<b>';
			outp += "<A class='headdrill'"
			outp += "   HREF='" + serviceid_detail_rep + "'";
			outp += " title='Show ServiceID Details Report.'";
			outp += ">";
			outp += sid;
			outp += "</A>";
			//outp += '</b>';
			outp += '</font>';
			do_aro = 1
		}
	}

	outp += '</td>'
	outp += '</tr>'
	outp += '</table>'
	// ----------------

	outp += '<STYLE>'
	outp += 'A.headdrill { color: #000080; text-decoration: none;'
	outp += '	font-family     : Arial;'
	outp += '	font-weight     : normal;'
	outp += '	}'
	outp += 'A.headdrill:hover { color: blue; text-decoration: underline; }'
	outp += '</STYLE>'
	// ----------------

	return outp
}

//----------------------------------------

function fmt_cost(val, show0)
{
	var f = 0;
	var isneg = 0;
	if (val != null && val != "")
		f = parseFloat(val);
	if ( f < 0 ) {
		isneg = 1
		f = f * -1
	}
	var dollars = Math.floor(f);
	var cents = Math.round((f * 100) % 100);
	if ( cents == 100 ) {
		dollars += 1;
		cents = 0;
	}
	//alert("val = " + val + "  f = " + f + "  dollars = " + dollars + "  cents = " + cents );
	if ( dollars == 0 && cents == 0 ) {
		if ( show0 )
			return "$0.00"
		else
			return ""
	}
	var dollars_str = ""
	if ( dollars >= 1000000 ) {
		var nmillion = Math.floor(dollars / 1000000)
		var remdollars = dollars - (nmillion * 1000000)
		var ngrand = Math.floor(remdollars / 1000)
		var nhundred = Math.floor(remdollars - (ngrand * 1000))
		dollars_str = nmillion + ","
		dollars_str += ngrand < 100 ? "0" : ""
		dollars_str += ngrand < 10 ? "0" : ""
		dollars_str += ngrand + ","
		dollars_str += nhundred < 100 ? "0" : ""
		dollars_str += nhundred < 10 ? "0" : ""
		dollars_str += nhundred
	}
	else
	if ( dollars >= 1000 ) {
		var remdollars = dollars
		var ngrand = Math.floor(remdollars / 1000)
		var nhundred = Math.floor(remdollars - (ngrand * 1000))
		dollars_str+= ngrand + ","
		dollars_str += nhundred < 100 ? "0" : ""
		dollars_str += nhundred < 10 ? "0" : ""
		dollars_str += nhundred
	}
	else  {
		dollars_str = dollars
	}
	var str = (isneg ? "-" : "") + "$" + dollars_str + ".";
	if ( cents < 10 )
		str = str + "0" + cents;
	else
		str = str + cents;
	return str;
}


function fmt_duration(val, show0)
{
	var i = 0;
	var isneg = 0;
	if (val != null && val != "")
		i = Math.floor(parseFloat(val))
	if ( i < 0 ) {
		isneg = 1
		i = i * -1
	}
	var hours = Math.floor(i / 3600);
	var rem = i - (hours * 3600);
	var minutes = Math.floor(rem / 60);
	var seconds = rem - (minutes * 60);
	if ( hours == 0 && minutes == 0 && seconds == 0 ) {
		if ( show0 )
			return "0:00:00"	//"000:00:00"
		else
			return ""
	}
	var hours_str = ""
	var minutes_str = ""
	//if ( hours != 0 ) {
		//hours_str += hours < 100 ? "0" : ""
		//hours_str += hours < 10 ? "0" : ""
		hours_str += parseFloat(hours)
		hours_str += ":"
		minutes_str += minutes < 10 ? "0" : ""
		minutes_str += parseFloat(minutes)
	//}
	//else {
	//	minutes_str += parseFloat(minutes)
	//}
	minutes_str += ":"
	var seconds_str = ""
	seconds_str += seconds < 10 ? "0" : ""
	seconds_str += seconds
	var str = hours_str + minutes_str + seconds_str
	return str
}


function fmt_count(val, show0)
{
	if ( val == 0 ) {
		if ( show0 )
			return "0"
		else
			return ""
	}
	return Math.round(val).toString()
}


function fmt_value(val,fmt,show0)
{
	switch (fmt) {
	default:
	case 0:		// count
		return fmt_count(val,show0)
		break;
	case 1:		// duration
		return fmt_duration(val,show0)
		break;
	case 2:		// cost
		return fmt_cost(val,show0)
		break
	}
}


//----------------------------------------

function duration_to_seconds(durstr)
{
	var hhh = parseFloat(durstr.substr(0,3))
	var mm = parseFloat(durstr.substr(4,2))
	var ss = parseFloat(durstr.substr(7,2))
	var dursecs = (hhh * 3600) + (mm * 60) + ss
	return dursecs
}


//================================================================

var selected_invoiceno = ""
var selected_sundry = ""
var selected_supplier = ""


function store_inv_sundry_supplier(REPID,invoiceno,sundry,supplier)
{
var i = 0;

	//alert("store_inv_sundry_supplier(" + REPID + "," + invoiceno + "," + sundry + "," + supplier + ")");

	// create unique invoiceno list
	for (i=0; i < ninvoicenos ; i++) {
		if ( invoiceno == invoicenolist[i])
			break;
	};
	if ( i >= ninvoicenos ) {	// new
		//invoicenolist[ninvoicenos++] = invoiceno;
		// added sort code below

		// insert alphabetically
		for (i = ninvoicenos; i > 0; --i) {
			// List/All always first
			if ( invoicenolist[i-1] == "List" ||
			     invoicenolist[i-1] == "All" )
				break;
			if ( invoiceno >= invoicenolist[i-1] )
				break;
			// shuffle up one
			invoicenolist[i] = invoicenolist[i-1];
		}
		if ( i == -1 )	// empty list
			i = 0;
		invoicenolist[i] = invoiceno;
		++ninvoicenos;
	}
	// set starting invoiceno index
	if ( eval("invoiceno == this_" + REPID + "invoiceno") )
		curinvoiceno = i;

	// create unique sundry list
	for (i=0; i < nsundrys ; i++) {
		if ( sundry == sundrylist[i])
			break;
	}
	if ( i >= nsundrys ) {	// new
		//sundrylist[nsundrys++] = sundry;
		// added sort code below

		// insert alphabetically
		for (i = nsundrys; i > 0; --i) {
			// List/All always first
			if ( sundrylist[i-1] == "List" ||
			     sundrylist[i-1] == "All" )
				break;
			if ( sundry >= sundrylist[i-1] )
				break;
			// shuffle up one
			sundrylist[i] = sundrylist[i-1];
		}
		if ( i == -1 )	// empty list
			i = 0;
		sundrylist[i] = sundry;
		++nsundrys;
	}
	// set starting sundry index
	if ( eval("sundry == this_" + REPID + "sundry") )
		cursundry = i;

	// create unique supplier list
	for (i=0; i < nsuppliers ; i++) {
		if ( supplier == supplierlist[i] )
			break;
	}
	if ( i >= nsuppliers ) {	// new
		//supplierlist[nsuppliers++] = supplier;
		// added sort code below

		// insert alphabetically
		for (i = nsuppliers; i > 0; --i) {
			// List/All always first
			if ( supplierlist[i-1] == "List" ||
			     supplierlist[i-1] == "All" )
				break;
			if ( supplier >= supplierlist[i-1] )
				break;
			// shuffle up one
			supplierlist[i] = supplierlist[i-1];
		}
		if ( i == -1 )	// empty list
			i = 0;
		supplierlist[i] = supplier;
		++nsuppliers;
	}
	// set starting supplier index
	if ( eval("supplier == this_" + REPID + "supplier") )
		cursupplier = i;

	// creat unique list of invoiceno|sundry|supplier combinations
	var sunsup = invoiceno + "|" + sundry + "|" + supplier;
	for (i=0; i < nsunsups ; i++) {
		if ( sunsup == sunsuplist[i] )
			break;
	}
	if ( i >= nsunsups )
		sunsuplist[nsunsups++] = sunsup;
 
	selected_invoiceno = invoicenolist[curinvoiceno];
	selected_sundry = sundrylist[cursundry];
	selected_supplier = supplierlist[cursupplier];
}


function in_sunsuplist(invoiceno,sundry,supplier)
{
var i = 0;

	//alert("in_sunsuplist(" + invoiceno + "," + sundry + "," + supplier + ")")
	// scan unique list of sundry|supplier combinations
	var sunsup = invoiceno + "|" + sundry + "|" + supplier
	for (i=0; i < nsunsups ; i++) {
		if ( sunsup == sunsuplist[i] ) {
			cursunsup = i
			return 1
		}
	}
	cursunsup = -1
	return 0
}


function show_supplier_invoiceno_sundry_input(REPID,repbill)
{
    supplier_invoiceno_sundry_input.innerHTML = supplier_invoiceno_sundry_selection(REPID,repbill)
}


function supplier_invoiceno_sundry_selection(REPID,repbill)
{
var outp = "";
var sstr = "";
var i = 0;

	// supplier select
	if ( nsuppliers == 2 ) {	// List,single - so select single
		cursupplier = 1
		//eval("this_" + REPID + "supplier = supplierlist[cursupplier]")
		//eval("setPersistentData(\"WB_" + REPID + "supplier\", this_" + REPID + "supplier)")
	}
	outp += "<label class='filt_in'>&nbsp; <b>Supplier:</b> </label>\n";
	outp += "<select class='filt_in' name='sel_supplier' ";
	outp += "        onchange='select_supplier(\"" + REPID + "\",\"" + repbill + "\"," + "this);'>\n";
	for (i=0; i < nsuppliers ; i++) {
		outp += "<option value='" + i + "' ";
		outp += (cursupplier == i) ? " selected " : "";
		outp += ">";
		sstr = supplierlist[i]
		outp += " " + sstr + "\n";
	}
	outp += "</select>";
	outp += "&nbsp;&nbsp;&nbsp;";

	// invoiceno select
	//// trim invoiceno list
	//if ( ninvoicenos == 2 ) {   // List,single - so isolate single
	//	curinvoiceno = 0
	//	ninvoicenos = 1
	//	invoicenolist[0] = invoicenolist[1]
	//}
	if ( ninvoicenos == 2 ) {	// List,single - so select single
		curinvoiceno = 1
		//eval("this_" + REPID + "invoiceno = invoicenolist[curinvoiceno]")
		//eval("setPersistentData(\"WB_" + REPID + "invoiceno\", this_" + REPID + "invoiceno)")
	}
	outp += "<label class='filt_in'>&nbsp; <b>Invoice No:</b> </label>\n";
	outp += "<select class='filt_in' name='sel_invoiceno' ";
	outp += "        onchange='select_invoiceno(\"" + REPID + "\",\"" + repbill + "\"," + "this);'>\n";
	for (i=0; i < ninvoicenos ; i++) {
		outp += "<option value='" + i + "' ";
		outp += (curinvoiceno == i) ? " selected " : "";
		outp += ">";
		sstr = invoicenolist[i]
		outp += " " + sstr + "\n";
	}
	outp += "</select>";
	//
	// show invoice download icon
        var monthtag= this_monthtag;
        var distid = this_distid;

	//var customer = this_customer;
        //var customerdesc = customerdesclist[curcustomerdesc];
        //var customer = customerdesc_to_customerlist[customerdesc];
	var customer = getPersistentData("WB_customer");

	var invoiceno = invoicenolist[curinvoiceno];

	if ( invoiceno != "VRT999999" && invoiceno != "All" && invoiceno != "List" && customer != "List" ) {
		outp += '&nbsp;&nbsp;';
		outp += '<img name="invoicepdfdownload" border=0';
		outp += '    title="Download invoice pdf file for ' + invoiceno + '"';
		outp += '      src="icons/pdficon_small.gif"';
		outp += '  onclick=\'Javascript: dnldinvoicepdf("' + monthtag + '","' + distid + '","' + customer + '","' + invoiceno + '");\'';
		outp += '>';
		//outp += '&nbsp;&nbsp;&nbsp;';
	}

	// show import csv download icon
	var invoiceno = invoicenolist[curinvoiceno];
	if ( invoiceno != "All" && invoiceno != "List" ) {
		outp += '&nbsp;&nbsp;&nbsp;';
		outp += '<img name="importcsvdownload" border=0';
		outp += '    title="Download import csv file for ' + invoiceno + '"';
		outp += '      src="icons/icon_csv.gif"';
		outp += '  onclick=\'Javascript: dnldimportcsv("' + invoiceno + '","");\'';
		outp += '>';
		//outp += '&nbsp;&nbsp;&nbsp;';
	}

	// show import extension csv download icon
	var invoiceno = invoicenolist[curinvoiceno];
	if ( invoiceno != "All" && invoiceno != "List" ) {
		outp += '&nbsp;&nbsp;&nbsp;';
		outp += '<img name="importcsvdownload" border=0';
		outp += '    title="Download import extension csv file for ' + invoiceno + '"';
		outp += '      src="icons/icon_csv.gif"';
		outp += '  onclick=\'Javascript: dnldimportcsv("' + invoiceno + '","extension");\'';
		outp += '>';
		//outp += '&nbsp;&nbsp;&nbsp;';
	}

	// show import detail csv download icon
	var invoiceno = invoicenolist[curinvoiceno];
	if ( invoiceno != "All" && invoiceno != "List" ) {
		outp += '&nbsp;&nbsp;&nbsp;';
		outp += '<img name="importdetailcsvdownload" border=0';
		outp += '    title="Download import detail csv file for ' + invoiceno + '"';
		outp += '      src="icons/icon_csv.gif"';
		outp += '  onclick=\'Javascript: dnldimportcsv("' + invoiceno + '", "detail");\'';
		outp += '>';
		//outp += '&nbsp;&nbsp;&nbsp;';
	}

	// show import summary csv download icon
	var invoiceno = invoicenolist[curinvoiceno];
	if ( invoiceno != "All" && invoiceno != "List" ) {
		outp += '&nbsp;&nbsp;&nbsp;';
		outp += '<img name="importsummarycsvdownload" border=0';
		outp += '    title="Download import summary csv file for ' + invoiceno + '"';
		outp += '      src="icons/icon_csv.gif"';
		outp += '  onclick=\'Javascript: dnldimportcsv("' + invoiceno + '", "summary");\'';
		outp += '>';
		//outp += '&nbsp;&nbsp;&nbsp;';
	}

	outp += '&nbsp;&nbsp;&nbsp;';

	// sundry select
	if ( nsundrys == 2 ) {	// List,single - so select single
		cursundry = 1
		//eval("this_" + REPID + "sundry = sundrylist[cursundry]")
		//eval("setPersistentData(\"WB_" + REPID + "sundry\", this_" + REPID + "sundry)")
	}
	outp += "<label class='filt_in'>&nbsp; <b>Victrack Ref:</b> </label>\n";
	outp += "<select class='filt_in' name='sel_sundry' ";
	outp += "        onchange='select_sundry(\"" + REPID + "\",\"" + repbill + "\"," + "this);'>\n";
	for (i=0; i < nsundrys ; i++) {
		outp += "<option value='" + i + "' ";
		outp += (cursundry == i) ? " selected " : "";
		outp += ">";
		sstr = sundrylist[i]
		outp += " " + sstr + "\n";
	}
	outp += "</select>";

	return outp;
}


function select_invoiceno(REPID,repbill,sel)
{
	//alert("select_invoiceno(" + REPID + "," + repbill + "," + sel + ")  sel.value = " + sel.value);
	curinvoiceno = sel.value
	selected_invoiceno = invoicenolist[curinvoiceno]
	addto_inv_sundry_supplier_lists(REPID,1,selected_invoiceno,"","");
	// redo report
	eval(repbill + "_redo(2)")
}


function select_sundry(REPID,repbill,sel)
{
	//alert("select_sundry(" + REPID + "," + repbill + "," + sel + ")  sel.value = " + sel.value);
	cursundry = sel.value
	selected_sundry = sundrylist[cursundry]
	addto_inv_sundry_supplier_lists(REPID,1,"",selected_sundry,"");
	// redo report
	eval(repbill + "_redo(3)")
}


function select_supplier(REPID,repbill,sel)
{
	//alert("select_supplier(" + REPID + "," + repbill + "," + sel + ")  sel.value = " + sel.value);
	cursupplier = sel.value
	selected_supplier = supplierlist[cursupplier]
	addto_inv_sundry_supplier_lists(REPID,1,"","",selected_supplier);
	// redo report
	eval(repbill + "_redo(1)")
}



function addto_inv_sundry_supplier_lists(REPID,clr,thisinvoiceno,thissundry,thissupplier)
{
	//alert("fill_inv_sundry_supplier_droplists(" + REPID + "," + clr + "," + thisinvoiceno + "," + thissundry + "," + thissupplier + ")");
	var i = 0
	var invoiceno = ""
	var sundry = ""
	var supplier = ""

	//// to see if lists were changes
	//var tmp_ninvoicenos = ninvoicenos
	//var tmp_nsundrys = nsundrys
	//var tmp_nsuppliers = nsuppliers

	if ( clr ) {		// clear list first
		ninvoicenos = 0
		nsundrys = 0
		nsuppliers = 0
		curinvoiceno= 0
		cursundry = 0
		cursupplier = 0
		if ( thisinvoiceno != "" )
			add_invoiceno(REPID, "List")
		if ( thissundry != "" )
			add_sundry(REPID, "List")
		if ( thissupplier != "" )
			add_supplier(REPID, "List")
	}


	if ( thisinvoiceno == "List" || thissundry == "List" || thissupplier == "List" ) {
		curinvoiceno = 0
		selected_invoiceno = "List"
		cursundry = 0
		selected_sundry = "List"
		cursundry = 0
		selected_supplier = "List"
	}

	add_invoiceno(REPID, thisinvoiceno == "" ? "List" : thisinvoiceno)
	add_sundry(REPID, thissundry == "" ? "List" : thissundry)
	add_supplier(REPID, thissupplier == "" ? "List" : thissupplier)

	for (i=0; i < nsunsups; i++) {
		var inv_sundry_supplier_arr = sunsuplist[i].split("|",3)
		invoiceno = inv_sundry_supplier_arr[0]
		sundry = inv_sundry_supplier_arr[1]
		supplier = inv_sundry_supplier_arr[2]
		if ( thisinvoiceno != "" && (thisinvoiceno == invoiceno || thisinvoiceno == "List") ) {
			if ( thisinvoiceno == "List" )
				add_invoiceno(REPID, invoiceno)
			add_sundry(REPID, sundry)
			add_supplier(REPID, supplier)
		}
		if ( thissundry != "" && (thissundry == sundry || thissundry == "List") ) {
			add_invoiceno(REPID, invoiceno)
			if ( thissundry == "List" )
				add_sundry(REPID, sundry)
			add_supplier(REPID, supplier)
		}
		if ( thissupplier != "" && (thissupplier == supplier || thissupplier == "List") ) {
			add_invoiceno(REPID, invoiceno)
			add_sundry(REPID, sundry)
			if ( thissupplier == "List" )
				add_supplier(REPID, supplier)
		}
	}

	eval("this_" + REPID + "invoiceno = invoicenolist[curinvoiceno]")
	eval("setPersistentData(\"WB_" + REPID + "invoiceno\", this_" + REPID + "invoiceno)")
	eval("this_" + REPID + "sundry = sundrylist[cursundry]")
	eval("setPersistentData(\"WB_" + REPID + "sundry\", this_" + REPID + "sundry)")

	eval("this_" + REPID + "supplier = supplierlist[cursupplier]")
	eval("setPersistentData(\"WB_" + REPID + "supplier\", this_" + REPID + "supplier)")
}


function add_invoiceno(REPID, invoiceno)
{
	//alert("add_invoiceno(" + REPID + "," + invoiceno + ")");
	for (var i=0; i < ninvoicenos; i++) {
		if ( invoicenolist[i] == invoiceno )
			break
	}
	if ( i < ninvoicenos )		// already set
		return i
	if ( invoiceno == selected_invoiceno )
		curinvoiceno = ninvoicenos	// set selected
	invoicenolist[ninvoicenos++] = invoiceno
	//alert("adding new invoiceno [" + invoiceno + "]" + "  selected = " + selected_invoiceno + "  curinvouiceno = " + curinvoiceno + "  ninvoicenos = " + ninvoicenos)
	//addto_inv_sundry_supplier_lists(REPID,0,invoiceno,"","");
	return (ninvoicenos - 1)
}

function add_sundry(REPID, sundry)
{
	//alert("add_sundry(" + REPID + "," + sundry + ")");
	for (var i=0; i < nsundrys; i++) {
		if ( sundrylist[i] == sundry )
			break
	}
	if ( i < nsundrys )		// already set
		return i
	if ( sundry == selected_sundry )
		cursundry = nsundrys	// set selected
	sundrylist[nsundrys++] = sundry
	//alert("adding new sundry [" + sundry + "]" + "  selected = " + selected_sundry + "  cursundry = " + cursundry + "  nsundrys = " + nsundrys)
	//addto_inv_sundry_supplier_lists(REPID,0,"",sundry,"");
	return (nsundrys - 1)
}

function add_supplier(REPID, supplier)
{
	//alert("add_supplier(" + REPID + "," + supplier + ")");
	for (var i=0; i < nsuppliers; i++) {
		if ( supplierlist[i] == supplier )
			break
	}
	if ( i < nsuppliers )		// already set
		return i
	if ( supplier == selected_supplier )
		cursupplier = nsuppliers	// set selected
	supplierlist[nsuppliers++] = supplier
	//alert("adding new supplier [" + supplier + "]" + "  selected = " + selected_supplier + "  cursupplier = " + cursupplier + "  nsuppliers = " + nsuppliers)
	//addto_inv_sundry_supplier_lists(REPID,0,"","",supplier);
	return (nsuppliers - 1)
}


//---------------------------------
var dnldimportcsvwin = null;

function dnldimportcsv(invoiceno, type)
{
var dnldurl = "";
var endnldurl = "";
var dnld = "";
        var monthtag= this_monthtag;
        var distid = this_distid;
        var customer = getPersistentData("WB_customer");

	//dnldurl = '../wbt_dnldimportcsv.cgi'
	//	+ '?' + 'billperiod="' + monthtag + '"'
	//	+ '&' + 'distid="' + distid + '"'
	//	+ '&' + 'customer="' + customer + '"'
	//	+ '&' + 'invoiceno="' + invoiceno + '"'
		+ '&' + 'type="' + type + '"';

	var datfile = monthtag + "/" + distid + "/data/import/import_" + customer + "_" + monthtag + "_" + invoiceno + ((type != "") ? ("_" + type) : "") + ".csv";
	var contenttype = "text/csv";
	var contentdisposition = "filename=import" + type + "_" + invoiceno + ".csv";
	dnldurl = settdf(datfile, contenttype, contentdisposition);

	////endnldurl = encodeURI(dnldurl);
	//alert("Download [" + dnldurl + "]");
	dnldimportcsvwin = window.open(dnldurl,"","resizable=yes,scrollbars=yes,toolbar=yes,menubar=yes,location=no,status=yes,directories=no,top=0,left=0,height=550,width=950");
}




//---------------------------------

var dnldinvpdfwin = null;

function dnldinvoicepdf(monthtag,distid,customer,invoiceno)
{
var dnldurl = "";
var endnldurl = "";
var dnld = "";

	//dnldurl = '../wbt_dnldinvoicepdf.cgi'
	//		+ '?' + 'invoiceno="' + invoiceno + '"'
	//		+ '&' + 'exbillperiod="' + exbillperiod + '"';

        var datfile = monthtag + "/" + distid + "/data/invoice_" + monthtag + "_" + customer + "_" + invoiceno + ".pdf";

        var contenttype = "application/pdf";
        var contentdisposition = "filename=invoice_" + monthtag + "_" + customer + "_" + invoiceno + ".pdf";

        dnldurl = settdf(datfile, contenttype, contentdisposition);

	//endnldurl = encodeURI(dnldurl);
	//alert("Download [" + dnldurl + "]");
	dnldinvpdfwin = window.open(dnldurl,"","resizable=yes,scrollbars=yes,toolbar=yes,menubar=yes,location=no,status=yes,directories=no,top=0,left=0,height=550,width=950");
}


//================================================================

function set_menu_custom1(tag, title, url)
{
    // clear custom menu 2 values
    set_menu_custom2("","","")
    // clear custom menu 3 values
    set_menu_custom3("","","")
    // clear custom menu 4 values
    set_menu_custom4("","","")
    // clear custom menu 5 values
    set_menu_custom5("","","")
    // clear custom menu 6 values
    set_menu_custom6("","","")
    // clear custom menu 7 values
    set_menu_custom7("","","")
    // clear custom menu 8 values
    set_menu_custom8("","","")
    try {
	top.mainframes.document.frames.t21topmenu.menu_custom1.innerHTML = tag;
	top.mainframes.document.frames.t21topmenu.menu_custom1.title = title;
	top.mainframes.document.frames.t21topmenu.menu_custom1.url = url;
	top.mainframes.document.frames.t21topmenu.menu_custom1.style.display =
							tag == "" ? "none" : "";
    }
    catch ( exccode ) {
	document.title = "No top mainmainframes"
    }
}


function set_menu_custom2(tag, title, url)
{
    try {
	top.mainframes.document.frames.t21topmenu.menu_custom2.innerHTML = tag;
	top.mainframes.document.frames.t21topmenu.menu_custom2.title = title;
	top.mainframes.document.frames.t21topmenu.menu_custom2.url = url;
	top.mainframes.document.frames.t21topmenu.menu_custom2.style.display =
							tag == "" ? "none" : "";
    }
    catch ( exccode ) {
	document.title = "No top mainmainframes"
    }
}


function set_menu_custom3(tag, title, url)
{
    try {
	top.mainframes.document.frames.t21topmenu.menu_custom3.innerHTML = tag;
	top.mainframes.document.frames.t21topmenu.menu_custom3.title = title;
	top.mainframes.document.frames.t21topmenu.menu_custom3.url = url;
	top.mainframes.document.frames.t21topmenu.menu_custom3.style.display =
							tag == "" ? "none" : "";
    }
    catch ( exccode ) {
	document.title = "No top mainmainframes"
    }
}


function set_menu_custom4(tag, title, url)
{
    try {
	top.mainframes.document.frames.t21topmenu.menu_custom4.innerHTML = tag;
	top.mainframes.document.frames.t21topmenu.menu_custom4.title = title;
	top.mainframes.document.frames.t21topmenu.menu_custom4.url = url;
	top.mainframes.document.frames.t21topmenu.menu_custom4.style.display =
							tag == "" ? "none" : "";
    }
    catch ( exccode ) {
	document.title = "No top mainmainframes"
    }
}


function set_menu_custom5(tag, title, url)
{
    try {
	top.mainframes.document.frames.t21topmenu.menu_custom5.innerHTML = tag;
	top.mainframes.document.frames.t21topmenu.menu_custom5.title = title;
	top.mainframes.document.frames.t21topmenu.menu_custom5.url = url;
	top.mainframes.document.frames.t21topmenu.menu_custom5.style.display =
							tag == "" ? "none" : "";
    }
    catch ( exccode ) {
	document.title = "No top mainmainframes"
    }
}


function set_menu_custom6(tag, title, url)
{
    try {
	top.mainframes.document.frames.t21topmenu.menu_custom6.innerHTML = tag;
	top.mainframes.document.frames.t21topmenu.menu_custom6.title = title;
	top.mainframes.document.frames.t21topmenu.menu_custom6.url = url;
	top.mainframes.document.frames.t21topmenu.menu_custom6.style.display =
							tag == "" ? "none" : "";
    }
    catch ( exccode ) {
	document.title = "No top mainmainframes"
    }
}


function set_menu_custom7(tag, title, url)
{
    try {
	top.mainframes.document.frames.t21topmenu.menu_custom7.innerHTML = tag;
	top.mainframes.document.frames.t21topmenu.menu_custom7.title = title;
	top.mainframes.document.frames.t21topmenu.menu_custom7.url = url;
	top.mainframes.document.frames.t21topmenu.menu_custom7.style.display =
							tag == "" ? "none" : "";
    }
    catch ( exccode ) {
	document.title = "No top mainmainframes"
    }
}


function set_menu_custom8(tag, title, url)
{
    try {
	top.mainframes.document.frames.t21topmenu.menu_custom8.innerHTML = tag;
	top.mainframes.document.frames.t21topmenu.menu_custom8.title = title;
	top.mainframes.document.frames.t21topmenu.menu_custom8.url = url;
	top.mainframes.document.frames.t21topmenu.menu_custom8.style.display =
							tag == "" ? "none" : "";
    }
    catch ( exccode ) {
	document.title = "No top mainmainframes"
    }
}


//----------------------------------------

function deluserconf()
{
	//alert("deluserconf()");

	deleteCookie("entered_username");

	deleteCookie("remuser");
	//r12 alert("deluserconf: document.cookie = " + document.cookie)

	deleteCookie("remuserpwdes");
	deleteCookie("remuserappmode");
	deleteCookie("WB_userid");
	deleteCookie("WB_recordno");

	deleteCookie('WB_wbd_type');
	deleteCookie('WB_distid');
	deleteCookie('WB_distiddesc');
	deleteCookie('WB_distidmtags');
	deleteCookie('WB_monthtag');
	//deleteCookie('WB_centre_filter');
	//deleteCookie('WB_centre');
	//deleteCookie('WB_project_filter');
	//deleteCookie('WB_project');;
	//deleteCookie('WB_project_detail');
	//deleteCookie('WB_servicetypeid');
	//deleteCookie('WB_sid');
	//deleteCookie('WB_filtersshown');
	//alert("done - deluserconf()");

}

//----------------------------------------

function get_t21dir_info()
{
	// get monthtag
	this_monthtag= getCookie("WB_monthtag");
	//alert("T21Enquiry: this_monthtag = " + this_monthtag)
	// get userid
	this_userid = getCookie("WB_userid");
	//alert("T21Enquiry: this_userid = " + this_userid)
	// get distid
	this_distid = getCookie("WB_distid");
	//alert("T21Enquiry: this_distid = " + this_distid)
}

//----------------------------------------------------------------------
// used in each report to trap no data file
var dso_datafile = ""
var got_dso_datafile = 0

function got_datafile()
{
	got_dso_datafile = 1
}

function no_datafile(ecode)
{
var outp = ""
var satud_str = ""
var nodataid = ""

	//alert("do_data_file(" + ecode + ") got_dso_data=" + got_dso_data)
	if ( got_dso_datafile == 1)
		return
	nodataid = dso_datafile
	nodataid = nodataid.replace(/\//g, " ")
	nodataid = nodataid.replace(/\./g, "")
	nodataid = nodataid.replace(/_/g, " ")
	nodataid = nodataid.replace("data", "")
	nodataid = nodataid.replace("csv", "")
	outp = "No data found for " + nodataid
	w('<br><br>')
	w('<h3>')
	w(outp)
	w('</h3>')
	status_str = outp + "  " + ecode + ""
	window.status = status_str
	//alert(status_str)
	//history.go(-1)
	return outp
}


//----------------------------------------------------------------------
//----------------------------------------------------------------------
//----------------------------------------------------------------------
// generic chart stuff

var havecswebcomp = 0
var cswebcompclsid = ""
var cswebcompdesc = ""
var cswebcompver = ""
var cswebcompmajorver = 0

function init_collection0_category(cs)
{
	if ( havecswebcomp <= 0 )
		return
	// build category and value lists here
	cs.style.collection0_categories = ""
	cs.style.collection0_values = ""
	cs.style.collection0_count = 0
}


function add_collection0_category(monthidx, cs, reverse, category, value)
{
	//alert("add_collection0_category() monthidx=" + monthidx + "  reverse=" + reverse + "  category=" + category + "  value=" + value)
	if ( havecswebcomp <= 0 )
		return
	if ( reverse ) {
		cs.style.collection0_categories = category + (cs.style.collection0_categories != "" ? "\t" : "") + cs.style.collection0_categories
		cs.style.collection0_values = value + (cs.style.collection0_values != "" ? "\t" : "") + cs.style.collection0_values
	}
	else {
		cs.style.collection0_categories += (cs.style.collection0_categories != "" ? "\t" : "") + category
		cs.style.collection0_values += (cs.style.collection0_values != "" ? "\t" : "") + value
	}
	++cs.style.collection0_count
}


function draw_collection0(cs)
{
var categories = ""
var values = ""
var cswidth = 150

	//alert("draw_collection()")
	if ( havecswebcomp <= 0 )
		return
	//// only show chart if more than 1 category
	//if ( cs.style.collection0_count > 1 ) {
		categories = cs.style.collection0_categories
		values = cs.style.collection0_values
		cswidth = 80 + (35 * cs.style.collection0_count)
	//}
	// resize chart width based on number of categories
	cs.style.height = 250
	cs.style.width = cswidth + 250
	//alert("cswidth=" + cswidth)

	//cs.Charts(0).GapWidth = 200

//ZZZZZZ

	// // only OWC 10 onwards supports changing label Oreientation
	// if ( cswebcompmajorver >= 10 ) {
	// 	cs.Charts(0).Axes(cs.Constants.chAxisPositionBottom).Orientation = cs.Constants.chLabelOrientationDownward
	// }

	//cs.Charts(0).Axes(cs.Constants.chAxisPositionBottom).MajorUnitIsAuto = false
	//cs.Charts(0).Axes(cs.Constants.chAxisPositionBottom).HasAutoMajorUnit = true
	//cs.Charts(0).SeriesCollection(0).FormatMap.Segments(0).HasAutoDivisions = false
	//cs.Charts(0).Axes(cs.Constants.chAxisPositionBottom).Type = ???

	//cs.Charts(0).Axes(cs.Constants.chAxisPositionBottom).GroupingType = cs.Constants.chGroupingNone

	// add categories to chart
	cs.Charts(0).SeriesCollection(0).SetData(cs.Constants.chDimCategories, cs.Constants.chDataLiteral, categories)
	// add values to chart
	cs.Charts(0).SeriesCollection(0).SetData(cs.Constants.chDimValues, cs.Constants.chDataLiteral, values)
}



function write_chartspace_object(cstag)
{
	// Web Components Chart Space object for chart

	var csdesc = ""
	var clsid = ""

	if ( havecswebcomp == 0 ) {

		// try office 2003 chartspace 11
		csdesc = "cs11"
		clsid = "0002E55D-0000-0000-C000-000000000046"
		if ( write_cs_object(csdesc, clsid) ) {
			havecswebcomp = 1
			eval("cswebcompver = " + csdesc + ".Version")
			cswebcompdesc = csdesc + ":" + cswebcompver
			cswebcompmajorver = 11
			cswebcompclsid = clsid
		}

		// try office 2003 chartspace 10
		csdesc = "cs10"
		clsid = "0002E556-0000-0000-C000-000000000046"
		if ( write_cs_object(csdesc, clsid) ) {
			havecswebcomp = 1
			eval("cswebcompver = " + csdesc + ".Version")
			cswebcompdesc = csdesc + ":" + cswebcompver
			cswebcompmajorver = 10
			cswebcompclsid = clsid
		}

		// try office 2000/XP chartspace 9 ? 
		csdesc = "cs9"
		clsid = "0002E500-0000-0000-C000-000000000046"
		if ( write_cs_object(csdesc, clsid) ) {
			havecswebcomp = 1
			eval("cswebcompver = " + csdesc + ".Version")
			cswebcompdesc = csdesc + ":" + cswebcompver
			cswebcompmajorver = 9
			cswebcompclsid = clsid
		}
	}

	// create chart space object

	if ( havecswebcomp == 1 ) {
		if ( write_cs_object(cstag + "_cs", cswebcompclsid) ) {
			havecswebcomp = 1
			//alert("loading cswebcompver = " + cswebcompver)
			return cswebcompdesc
		}
		havecswebcomp = -1	// got error ?
	}

	havecswebcomp = -1
	cswebcompver = "OWC Not Installed"
	alert_no_chartspace_object()

	return havecswebcomp
}


function write_cs_object(csdesc,clsid)
{
	w('<object id="' + csdesc + '"')
	if ( force_owc11_exe == 2 ) {
		//" CODEBASE='http://xxxxxxx/????.cab#VERSION=11,0,0,0
		w(' CODEBASE="owc11.exe#VERSION=12,0,0,4518"')
	}
	w(' style="LEFT: 0px; TOP: 0px"')
	w(' height=0 width=0')
	w(' classid="clsid:' + clsid + '">')
	w('</object>')
	var cs = eval(csdesc)
	try {
		cs.Clear()
	}
	catch ( exccode ) {
		return 0
	}
	return 1
}


// force OWC install from exe (1=download win, 2=CODEBASE auto install)
var force_owc11_exe = 1;

function alert_no_chartspace_object()
{
var errmesg = ""

	if ( force_owc11_exe == 2 ) {
		havecswebcomp = -2
		// FORCE office 2003 chartspace 11
		// (see CODEBASE in write_cs_object())
		csdesc = "cs11"
		clsid = "0002E55D-0000-0000-C000-000000000046"
		write_cs_object(csdesc, clsid)
		havecswebcomp = 1
		cswebcompdesc = csdesc + ":" + cswebcompver
		cswebcompmajorver = 11
		cswebcompclsid = clsid
		return 1;
	}

	errmesg = "To Display Chart Information and Export data\n"
	errmesg += "You will need Microsoft Office 2000/XP/2003 or newer\n"
	errmesg += "Web Components installed.\n"
	errmesg += "Please Refresh the page after installing.\n"

	if ( getCookie("WB_alertMSOWC") != "1" ) {
		setCookie("WB_alertMSOWC", "1")
		alert(errmesg)

		if ( force_owc11_exe == 1 ) {
			force_owc11_exe = -1;
			// download owc11.exe
			var dnldurl = "owc11.exe";
			
			//window.open(dnldurl,"","resizable=yes,scrollbars=yes,toolbar=yes,menubar=yes,location=no,status=yes,directories=no,top=0,left=0,height=40,width=40");
			var dnldowcwin = window.open("","","resizable=yes,scrollbars=yes,toolbar=yes,menubar=yes,location=no,status=yes,directories=no,top=0,left=0,height=40,width=40");

			var outp = "";
			outp += "<html><head><title>Install Office Web Componenets</title></head><body>\n";
			outp += "<a href='" + dnldurl + "'>";
			outp += "Install Office Web Componets";
			outp += "</a>";
			outp += "</body></html>\n";
			dnldowcwin.document.write(outp);
		}
	}
}


function set_chartspace_info(cs, title, Ytype)
{
	if ( havecswebcomp <= 0 )
		return
	cs.Clear()
	cs.Charts.Add()
	cs.Charts(0).Type = 0
	//cs.Charts(0).Type = 6
	//cs.HasChartSpaceTitle = 0
	//cs.HasChartSpaceTitle = 1
	cs.HasChartSpaceTitle = 1
	//cs.ChartSpaceTitle.Caption = title
	cs.ChartSpaceTitle.Caption = ""
	cs.ChartSpaceTitle.Font.Size = 7
	cs.ChartSpaceTitle.Position = cs.Constants.chLegendPositionBottom

	//cs.style.border = 0
	//cs.Border.LineStyle = cs.Constants.owcLineStyleNone
	//cs.Borders.LineStyle = 0
	//cs.Charts(0).Border.LineStyle = 0
	//cs.Charts(0).Borders.LineStyle = 0
	//cs.Object.Charts(0).Border.LineStyle = 0
	//cs.Object.Border.Color = cs.Constants.chColorNone
	//cs.Chart.Border.Color = '#C0C0C0'
	cs.Border.Color = '#C0C0C0'
	cs.Interior.Color = '#C0C0C0'

	//cs.Charts(0).HasLegend = 1
	//cs.Charts(0).Legend.Position = cs.Constants.chLegendPositionBottom
	cs.Charts(0).Axes(cs.Constants.chAxisPositionLeft).NumberFormat = Ytype

	cs.Charts(0).Axes(cs.Constants.chAxisPositionLeft).HasMajorGridlines = 1
	var mg = cs.Charts(0).Axes(cs.Constants.chAxisPositionLeft).MajorGridlines
	mg.Line.Color = "#BBBBBB"
	mg.Line.Weight = 1

	//cs.Charts(0).Axes(cs.Constants.chAxisPositionLeft).MajorUnit = 100
	cs.Charts(0).Axes(cs.Constants.chAxisPositionLeft).HasAutoMajorUnit = 1

	//cs.Charts(0).Axes(cs.Constants.chAxisPositionLeft).Scaling.HasAutoMinimum = false
	cs.Charts(0).Axes(cs.Constants.chAxisPositionLeft).Scaling.HasAutoMinimum = true

	init_collection0_category(cs)
}


//-------------------------------------
//-------------------------------------
// trend1 chart stuff

var NUM_MONTHS = 36	// (3 years for y2d)
var MONTHLY_TREND_DISPLAY = 12
var chart1_object_written = 0
var chart1_nmonths = 0
var chart1_montharr = new Array()
var chart1_monthtag = new Array()
var chart1_monthvalue = new Array()
var chart1_y2d_total = new Array()
var chart1_y2d_type = 0
var chart1_url_mask =  ""
var chart1_last_bill_dso_DataURL = "NOTSET"
var chart1_last_bill_dso_Filter = "NOTSET"
var chart1_gotdata = new Array()
var chart1_tdctimeout_id = new Array()
var chart1_tdctimeout_count = new Array()
var chart1_in_draw = 0
var chart1_timeout_id = null
var chart1_countdown = 0
var chart1_countdown_msres = 200
var chart1_monthswithdata = 0
var chart1_V1_bad_filter = false

var monthdescarr = new Array()
monthdescarr["Jan"] = 0;
monthdescarr["Feb"] = 1;
monthdescarr["Mar"] = 2;
monthdescarr["Apr"] = 3;
monthdescarr["May"] = 4;
monthdescarr["Jun"] = 5;
monthdescarr["Jul"] = 6;
monthdescarr["Aug"] = 7;
monthdescarr["Sep"] = 8;
monthdescarr["Oct"] = 9;
monthdescarr["Nov"] = 10;
monthdescarr["Dec"] = 11;


function clearchart1timeout()
{
	//alert("clear chart1 timeout")
	if ( chart1_timeout_id != null ) {
		clearInterval(chart1_timeout_id)
	}
	chart1_timeout_id = null
	chart1_countdown = 0
}

function clearchart1tdctimeout(monthidx)
{
	//alert("clear chart1 tdc timeout month " + monthidx)
	if ( chart1_tdctimeout_id[monthidx] != null ) {
		clearInterval(chart1_tdctimeout_id[monthidx])
	}
	chart1_tdctimeout_id[monthidx] = null
	chart1_tdctimeout_count[monthidx] = 0
}


function write_chart1_dso_objects()
{
var outp = ""
var i = 0
var chart1_dso_str

	chart1_countdown = 0
	if ( chart1_object_written )
		return
	// TDC objects for chart monthly data aquisition
	for ( i = 0; i < NUM_MONTHS; ++i ) {
		chart1_dso_str = 'chart1_' + i + '_dso'
		outp = '<object id="' + chart1_dso_str + '" classid="clsid:333c7bc4-460f-11d0-bc04-0080c7055a83"\n'
		outp += '  width="0" height="0">\n'
		outp += '  <PARAM NAME="UseHeader" VALUE="True">\n'
		outp += '  <PARAM NAME="FieldDelim" VALUE=",">\n'
		outp += '  <PARAM NAME="TextQualifier" VALUE="\"">\n'
		outp += '  <PARAM NAME="EscapeChar" VALUE="\\">\n'
		outp += '  <PARAM NAME="CaseSensitive" VALUE="False">\n'
		outp += '</object>\n'
		outp += '<SCRIPT LANGUAGE="Javascript" FOR=' + chart1_dso_str + ' EVENT=ondatasetcomplete>\n'
		outp += '	proc_chart1_data(' + i + ')\n'
		outp += '</SCRIPT>\n'
		//alert(outp)
		w(outp)
	}

	// handle unload
	outp = ""
	outp += '<SCRIPT LANGUAGE="Javascript" FOR=window EVENT=onunload>\n'
	outp += '	clearchart1timeout()\n'
	outp += '	for (var i = 0; i < NUM_MONTHS; ++i)\n'
	outp += '		clearchart1tdctimeout(i)\n'
	outp += '</SCRIPT>\n'
	w(outp)

	chart1_object_written = 1
	chart1_last_bill_dso_DataURL = "NOTSET"
	chart1_last_bill_dso_Filter = "NOTSET"
}



function month_totals_chart1(chart1_title, bill_dso, sel_monthtag, sel_totalcost, V1_bad_filter, y2d_type)
{
var i = 0
var chart1_dso_str
var chart1_dso

	if ( V1_bad_filter == null ) {
		V1_bad_filter = false
	}

	y2d_type = (y2d_type == null) ? 0 : (y2d_type + 0);
	chart1_y2d_type = y2d_type

	// clear y2d totals 
	for (var y2dyyyy in chart1_y2d_total) {
		delete chart1_y2d_total[y2dyyyy];
	}

	chart1_V1_bad_filter = V1_bad_filter

	// set filter in TDC objects for chart monthly data aquisition
	for ( i = 0; i < NUM_MONTHS; ++i ) {
		chart1_dso_str = 'chart1_' + i + '_dso'
		eval("chart1_dso = " + chart1_dso_str)
		chart1_dso.Filter = bill_dso.Filter
		//alert("chart1 Filter: " + chart1_dso.Filter)
	}

	if ( bill_dso.DataURL != chart1_last_bill_dso_DataURL ) {
		chart1_last_bill_Filter =  ""
	}
	else {
		// already done
		if ( bill_dso.Filter == chart1_last_bill_dso_Filter ) {
			return
		}
	}
	chart1_last_bill_dso_DataURL = bill_dso.DataURL
	chart1_last_bill_dso_Filter = bill_dso.Filter

	chart1_url_mask = bill_dso.DataURL.replace(sel_monthtag, "Mmm_YYYY")
	//alert("chart1_url_mask=" + chart1_url_mask)

	// init monthly totals arrays (newest idx == 0)
	var distidmtags = getCookie("WB_distidmtags");
	//alert("distidmtags=[" + distidmtags + "]")
	chart1_montharr = distidmtags.split("|")
	chart1_nmonths = chart1_montharr.length
	//alert("chart1_nmonths=[" + chart1_nmonths + "]")
	for ( i = 0; i < chart1_nmonths; ++i ) {
		chart1_monthtag[i] = chart1_montharr[i]
		chart1_tdctimeout_id[i] = null	
		chart1_tdctimeout_count[i] = 0	
		if ( chart1_monthtag[i] == sel_monthtag ) {
			chart1_gotdata[i] = 1
			chart1_monthvalue[i] = sel_totalcost
			// add up y2d totals for selected month
			if ( chart1_y2d_type > 0 ) {
				add_y2d(i,sel_totalcost);
			}
		}
		else {
			chart1_gotdata[i] = 0
			chart1_monthvalue[i] = 0
		}
	}
	for ( i = chart1_nmonths; i < NUM_MONTHS; ++i ) {
		chart1_tdctimeout_id[i] = null	
		chart1_tdctimeout_count[i] = 0	
		chart1_monthtag[i] = ""
		chart1_monthvalue[i] = 0
		chart1_gotdata[i] = 0
	}
 
	if ( havecswebcomp <= 0 )
		return

	set_chartspace_info(chart1_cs, chart1_title, "$0")

	// set $ axes minimum to 0 if 3 or less months
	if ( chart1_nmonths <= 3 )
		chart1_cs.Charts(0).Axes(chart1_cs.Constants.chAxisPositionLeft).Scaling.HasAutoMinimum = false
	else
		chart1_cs.Charts(0).Axes(chart1_cs.Constants.chAxisPositionLeft).Scaling.HasAutoMinimum = true

	var chart1_collection0 = chart1_cs.Charts(0).SeriesCollection.Add()
	//chart1_collection0.Caption = "Month"

	var chart1_dl = chart1_collection0.DataLabelsCollection.Add()
	chart1_dl.Font.Size = 7

	// init y2d chart
	if ( havecswebcomp > 0 && chart1_y2d_type > 0 ) {
		var cs = chart1_y2d_cs;
		cs.Clear();
		cs.Charts.Add();
		cs.Charts(0).Type = 0;
		cs.HasChartSpaceTitle = 1;
		cs.ChartSpaceTitle.Caption = "Year To Date" + " up to " + sel_monthtag.substr(0,3);
		cs.ChartSpaceTitle.Font.Size = 7;
		cs.ChartSpaceTitle.Position = cs.Constants.chLegendPositionBottom;
		cs.Border.Color = '#C0C0C0';
		cs.Interior.Color = '#C0C0C0';
		cs.Charts(0).Axes(cs.Constants.chAxisPositionLeft).NumberFormat = "$0";
		cs.Charts(0).Axes(cs.Constants.chAxisPositionLeft).HasMajorGridlines = 1;
		var mg = cs.Charts(0).Axes(cs.Constants.chAxisPositionLeft).MajorGridlines;
		mg.Line.Color = "#BBBBBB";
		mg.Line.Weight = 1;
		cs.Charts(0).Axes(cs.Constants.chAxisPositionLeft).HasAutoMajorUnit = 1;
		cs.Charts(0).Axes(cs.Constants.chAxisPositionLeft).Scaling.HasAutoMinimum = true;
		//---
		cs.Charts(0).Axes(cs.Constants.chAxisPositionLeft).Scaling.HasAutoMinimum = true;
		var chart1_y2d_collection0 = cs.Charts(0).SeriesCollection.Add();
		//chart1_y2d_collection0.Caption = "Year";
		var chart1_y2d_dl = chart1_y2d_collection0.DataLabelsCollection.Add();
		chart1_y2d_dl.Font.Size = 7;
	}

	prime_draw_chart1()

	//alert("chart1_nmonths = " + chart1_nmonths)
	//// kick off all months starting at newest month
	//for ( i = 0; i < chart1_nmonths; ++i ) {
	// kick off all months except selected (already have total)
	for ( i = 0; i < chart1_nmonths; ++i ) {
		if ( chart1_monthtag[i] == sel_monthtag )
			continue
		do_chart1_month_total(i)
	}
}


function add_y2d(monthidx,totalcost)
{
	var this_MMM = this_monthtag.substr(0,3);
	var this_MMMindex = monthdescarr[this_MMM];
	var yyyy = chart1_monthtag[monthidx].substr(4,4);
	var MMM = chart1_monthtag[monthidx].substr(0,3);
	var MMMindex = monthdescarr[MMM];
	if ( MMMindex <= this_MMMindex ) {
		var y2dyyyy = yyyy;
		if ( typeof(chart1_y2d_total[y2dyyyy]) == "undefined" )
			chart1_y2d_total[y2dyyyy] = 0
		chart1_y2d_total[y2dyyyy] += totalcost
	}
}


function do_chart1_month_total(monthidx)
{
var chart1_dso_str
var chart1_dso

	//alert("do_chart1_month_total()  monthidx=" + monthidx )

	if ( havecswebcomp <= 0 )
		return

	var do_chart1_monthtag = chart1_montharr[monthidx]
	//alert("do [" + do_chart1_monthtag + "]")
	window.status = "Getting totals for " + do_chart1_monthtag	

	// already have data
	if ( chart1_gotdata[monthidx] ) {
		window.status = "Trend1 " + cswebcompdesc + " - Already Done."
		//alert("already got month grandtotal")
		return
	}

	chart1_dso_str = 'chart1_' + monthidx + '_dso'
	eval("chart1_dso = " + chart1_dso_str)

	var chart1_url = chart1_url_mask.replace("Mmm_YYYY", do_chart1_monthtag)
	//alert("chart1_url_mask=" + chart1_url)

	// touch DataURL to force reread
	chart1_dso.DataURL = chart1_url
	//alert("chart1 DataURL: " + chart1_dso.DataURL)
	try {
		chart1_dso.Reset();
	}
	catch ( exccode ) {
		// commented out stops lockup ????
		//proc_chart1_errdata(monthidx,exccode)
	}
	chart1_tdctimeout_count[monthidx] = 10 + monthidx
	chart1_tdctimeout_id[monthidx] = setInterval("proc_chart1_errdata(" + monthidx + "," + "'[Time Out]'" + ")", 1000 + (monthidx * 17), "JavaScript");
	window.status = "Trend1 " + cswebcompdesc + " - Month (" + monthidx + ") data timeout in " + chart1_tdctimeout_count[monthidx]
}


function proc_chart1_errdata(monthidx, ecode)
{
var outp = ""
var nodataid = ""
var chart1_dso_str
var chart1_dso

	//alert("proc_chart1_errdata()  monthidx=" + monthidx + "  ecode=" + ecode)
	var do_chart1_monthtag = chart1_montharr[monthidx]
	if ( chart1_gotdata[monthidx] > 0 ) {	// got data - disable timeout
		clearInterval(chart1_tdctimeout_id[monthidx])
		return
	}
	if ( chart1_tdctimeout_count[monthidx] <= 0 ) {	// already timedout or disabled
		clearInterval(chart1_tdctimeout_id[monthidx])
		return
	}
	chart1_tdctimeout_count[monthidx] = chart1_tdctimeout_count[monthidx]-1
	if ( chart1_tdctimeout_count[monthidx] > 0 ) { // timeout not reached
		window.status = "Trend1 " + cswebcompdesc + " - Month (" + monthidx + ") data timeout in " + chart1_tdctimeout_count[monthidx]

		return
	}

	chart1_dso_str = 'chart1_' + monthidx + '_dso'
	eval("chart1_dso = " + chart1_dso_str)

	nodataid = chart1_dso.DataURL
	nodataid = nodataid.replace(/\//g, " ")
	nodataid = nodataid.replace(/\./g, "")
	nodataid = nodataid.replace(/_/g, " ")
	nodataid = nodataid.replace("data", "")
	nodataid = nodataid.replace("csv", "")
	outp = "Trend1 " + cswebcompdesc + " - Data Not found for " + nodataid + "."
	outp += "   "
	//outp += "ecode = " + ecode
	//alert( outp );
	//w(outp)
	window.status = outp
	return
}


function proc_chart1_data(monthidx)
{
var outp = ""
var lastcol = 0
var totalcost = 0
var grandtotal = 0
var chart1_dso_str
var chart1_dso

	//alert("proc_chart1_data()  monthidx=" + monthidx)

	chart1_dso_str = 'chart1_' + monthidx + '_dso'
	eval("chart1_dso = " + chart1_dso_str)

	window.status = "Got " + monthidx
	var chart1_rs = chart1_dso.recordset;
	//alert("chart1_rs.RecordCount =" + chart1_rs.RecordCount);

	// V1 distid report data 
	if ( chart1_rs.fields(0).name == "Cost Centre Summary" ) {
		if ( wb_version == 2 ) {	// selected month is V2
			// filter is no good for old V1 data (see distidV2.js)
			if ( chart1_V1_bad_filter ) {
				//alert("V1 data - but V2 selected - BAD FILTER - " + chart1_montharr[monthidx] + " chart1 Filter: " + chart1_dso.Filter)
				return
			}
		}
	}

	document.body.style.cursor = "wait";

	// last col is always totalcost
	lastcol = chart1_rs.Fields.Count - 1
	//alert("lastcol=" + lastcol)

	var chart1_rowcount = 0;
	if (chart1_rs.RecordCount > 0) {
		chart1_rs.MoveFirst();
	}
	for (row=0; row < chart1_rs.RecordCount; ++row ) { 
		// V1 distid report data 
		if ( chart1_rs.fields(0).name == "Cost Centre Summary" ) {
			if ( wb_version == 2 ) {	// selected month is V2
				//alert("V1 data - V2 selected " + chart1_montharr[monthidx] + " chart1 Filter: " + chart1_dso.Filter + "  chart1_rs.fields(6).name=[" + chart1_rs.fields(6).name + "]" + "  chart1_rs.fields(6).value=[" + chart1_rs.fields(6).value + "]" + "  this_centre=[" + this_centre + "]")
				if ( this_centre == "List" ) {
					if ( chart1_rs.fields(6) == "All" ) {
						chart1_rs.MoveNext()
						continue
					}
				}
				else {
					if ( chart1_rs.fields(6) != this_centre ) {
						chart1_rs.MoveNext()
						continue
					}
				}
				if ( this_project == "List" ) {
					if ( chart1_rs.fields(8).value == "All" ) {
						chart1_rs.MoveNext()
						continue
					}
				}
				else {
					if ( chart1_rs.fields(8) != this_project ) {
						chart1_rs.MoveNext()
						continue
					}
				}

				//var centre = chart1_rs.fields(6).value
				//var project = chart1_rs.fields(7).value
				//var projectfilter = chart1_rs.fields(8).value
				//var ccpdesc = chart1_rs.fields(9).value
				//alert("V1 data - but V2 selected - " + chart1_montharr[monthidx] + " chart1 Filter: " + chart1_dso.Filter + " - PROCESS - "
				//	+ "  centre = [" + centre + "]" 
				//	+ "  project = [" + project + "]"
				//	+ "  projectfilter = [" + projectfilter + "]"
				//	+ "  ccpdesc = [" + ccpdesc + "]")

			}
		}

		// V2 distid report data
		if ( chart1_rs.fields(0).name == "V2 Cost Centre Summary" ) {
			if ( wb_version == 1 ) {	// selected month is V1
				if ( chart1_rs.fields(6) == "All" ||
				     chart1_rs.fields(8).value != "All" ||
				     chart1_rs.fields(11).value != "All" ||
				     chart1_rs.fields(12).value != "All" ||  
				     chart1_rs.fields(13).value != "All" ) {
					chart1_rs.MoveNext()
					continue
				}

				//var centre = chart1_rs.fields(6).value
				//var project = chart1_rs.fields(7).value
				//var projectfilter = chart1_rs.fields(8).value
				//var ccpdesc = chart1_rs.fields(9).value
				//var servicetypedesc =chart1_rs.fields(10).value
				//var servicetypeid = chart1_rs.fields(11).value
				//var supplier = chart1_rs.fields(12).value
				//var chargecategory = chart1_rs.fields(13).value
				//alert("V2 data - but V1 selected - " + chart1_montharr[monthidx] + " chart1 Filter: " + chart1_dso.Filter + " - PROCESS - "
				//	+ "  centre = [" + centre + "]" 
				//	+ "  project = [" + project + "]"
				//	+ "  projectfilter = [" + projectfilter + "]"
				//	+ "  ccpdesc = [" + ccpdesc + "]"
				//	+ "  servicetypedesc = [" + servicetypedesc + "]"
				//	+ "  servicetypeid = [" + servicetypeid + "]"
				//	+ "  supplier = [" + supplier + "]"
				//	+ "  chargecategory = [" + chargecategory + "]")
			}
		}	

		// get total cost
		totalcost = chart1_rs.fields(lastcol).value
		chart1_rowcount += 1;

		// add up y2d totals
		if ( chart1_y2d_type > 0 ) {
			add_y2d(monthidx,totalcost);
		}

		// get grand total cost
		grandtotal += totalcost
		//alert("(Add " + totalcost + ")  Gandtotal=" + grandtotal)

		chart1_rs.MoveNext()
	}

	// add data to month array
	chart1_gotdata[monthidx] = 1
	chart1_monthvalue[monthidx] = grandtotal

	prime_draw_chart1()
	window.status = "Done " + chart1_monthtag[monthidx]

	document.body.style.cursor = "default";

	return
}


function draw_chart1_countdown()
{
	if ( chart1_countdown <= 0 )
		return
	chart1_countdown -= chart1_countdown_msres
	if ( chart1_countdown > 0 ) {
		chart1_timeout_id = setInterval("draw_chart1_countdown()", chart1_countdown_msres, "JavaScript");
		window.status = "Trend1 " + cswebcompdesc + " - " + (chart1_countdown / chart1_countdown_msres) + "."
		return
	}
	clearchart1timeout()
	draw_chart1()
}

function prime_draw_chart1()
{
	chart1_countdown = 3000
	if ( chart1_timeout_id != null )
		clearInterval(chart1_timeout_id)
	chart1_timeout_id = setInterval("draw_chart1_countdown()", chart1_countdown_msres, "JavaScript");
	//draw_chart1()
}

function draw_chart1()
{
var found_data = 0
var gotnodatamonth = 0
var dms_arr = new Array()

	if ( chart1_in_draw ) {		// don't allow re-entry
		prime_draw_chart1()	// come back later
		window.status = "draw chart1 gate shut"
		//alert("draw_chart1 gate shut")
		return
	}
	chart1_in_draw = 1

	// count months with data
	chart1_monthswithdata = 0
	for ( var i = (NUM_MONTHS -1); i >= 0; --i ) {
		if ( chart1_gotdata[i] )
			++chart1_monthswithdata
	}
	//// NO chart if less than 2 months data
	//if ( chart1_monthswithdata < 2 ) {
	//	chart1_in_draw = 0
	//	document.body.style.cursor = "default";
	//	return
	//}

	window.status = "Trend1 " + cswebcompdesc + " - Drawing..."

	init_collection0_category(chart1_cs)
	// add in chart cols oldest to newest
	//for ( var i = (NUM_MONTHS -1); i >= 0; --i ) {
	for ( var i = (MONTHLY_TREND_DISPLAY -1); i >= 0; --i ) {
		if ( !found_data && chart1_gotdata[i] == 0 )
			continue
		var do_chart1_monthtag = chart1_montharr[i]

		var monthstr = ""
		//monthstr = do_chart1_monthtag
		////monthstr = monthstr.replace("_", " ")
		//monthstr = monthstr.replace("_", "")
		//monthstr = "_" + monthstr
		////monthstr = "  " + monthstr + " "
		//monthstr = monthstr.replace("_", "-")
		var MMM = do_chart1_monthtag.substr(0,3)
		var YYYY = do_chart1_monthtag.substr(4,5)
		var yy = do_chart1_monthtag.substr(6,2)
		//monthstr = "_ " + YYYY + " _" + "  " + MMM
		//monthstr = MMM + YYYY.substr(2,2)

		// add YY on each Jan and also for first and last col
		if ( MMM == "Jan" || found_data == 0 || i == 0 )
			monthstr = MMM + YYYY.substr(2,2)
		else
			monthstr = MMM

		var dispvalue = chart1_monthvalue[i]

		// hilite missing data
		if ( chart1_gotdata[i] == 0 ) {
			monthstr = "*" + monthstr
			gotnodatamonth = 1
		}
		else {
			monthstr = "." + monthstr
		}

		monthstr = " " + monthstr

		// make categroy unique (allowing a span of three years)
		if ( dms_arr[monthstr] )
			monthstr += "."
		if ( dms_arr[monthstr] )
			monthstr += "."
		dms_arr[monthstr] = true

		// Testing
		//if ( do_chart1_monthtag == "Dec_2003" )
		//	dispvalue = -1 * dispvalue

		if ( Math.abs(dispvalue) > 100 )
			dispvalue = Math.round(dispvalue)
		if ( chart1_gotdata[i] || found_data ) {
			found_data = 1
			add_collection0_category(i, chart1_cs, 0, monthstr, dispvalue)
		}
	}

	chart1_cs.ChartSpaceTitle.Caption = "Monthly Trend"
	if ( gotnodatamonth )
		chart1_cs.ChartSpaceTitle.Caption += " (* indicates no data)"

	draw_collection0(chart1_cs)

	// draw y2d chart
	if ( havecswebcomp > 0 && chart1_y2d_type > 0 ) {
		var categories = ""
		var values = ""
		var ny2dyears = 0;
		var y2d_years = new Array();
		for (var y2dyyyy in chart1_y2d_total) {
			y2d_years[ny2dyears++] = y2dyyyy;
		}
		var sorted_y2d_years = y2d_years.sort();
		var nyears = 3;
		for (var i = sorted_y2d_years.length - 1; nyears > 0 && i >= 0; --nyears, --i) {
			var y2dyyyy = sorted_y2d_years[i];
			var category = y2dyyyy;
			var value = chart1_y2d_total[y2dyyyy];
			if ( Math.abs(value) > 100 )
				value = Math.round(value);
			categories = category + (categories != "" ? "\t" : "") + categories;
			values = value + (values != "" ? "\t" : "") + values;
		}
		var cs = chart1_y2d_cs;
		cs.style.height = 250;
		cs.style.width = 250;
		// add categories to chart
		cs.Charts(0).SeriesCollection(0).SetData(cs.Constants.chDimCategories, cs.Constants.chDataLiteral, categories);
		// add values to chart
		cs.Charts(0).SeriesCollection(0).SetData(cs.Constants.chDimValues, cs.Constants.chDataLiteral, values);
	}

	window.status = "Trend1 " + cswebcompdesc + " - Done."
	chart1_in_draw = 0
}


//----------------------------------------------------------------------

function dyn_Wpx(px)
{
	return (Math.ceil(document.body.clientWidth * px / 800) + 1)
}

function dyn_Hpx(px)
{
	return (Math.ceil(document.body.clientHeight * px / 600) + 1)
}

function dyn_pt(pt)
{
	var retpt = pt
	retpt += Math.ceil((document.body.clientWidth - 800) / 100)
	return retpt + "pt"
}


//----------------------------------------------------------------------
// calls to des1

function hex_des1(str1)
{
	return printHex( des("t2", str1, 1, 0) )
}

function unhex_des1(str1)
{
	return des("t2", unHex(str1), 0, 0)
}

//----------------------------------------------------------------------
// base on code from Dynamic HTML Lab...
// http://www.webreference.com/dhtml/column22/allCode.html

function ynConfirm(mess) {
	icon = 0;
	defbut = 1;
	mods = 0
	retVal = makeMsgBox("Please Confirm Yes/No",mess,icon,4,defbut,mods);
	retVal = (retVal==6);
	return retVal;
}

w('<SCRIPT LANGUAGE=VBScript TYPE="text/vbscript"><!--')
w('Function makeMsgBox(title,mess,icon,buts,defbut,mods)')
w('   butVal = buts + (icon*16) + (defbut*256) + (mods*4096)')
w('   makeMsgBox = MsgBox(mess,butVal,title)')
w('End Function')
w('--></SCRIPT>')

//----------------------------------------------------------------------
var dbgwin = null;

function dbgwindow(msg)
{
        //alert(msg);
var outp = "";
	if ( dbgwin == null ) {
		dbgwin = window.open("", "dbgwin", "");
		outp += "<html><head><title>Debug</title></head><body>\n";
		outp += "<div id='debugconsole'>";
		outp += "Debug Console:" + "<br>";
		outp += "</div>";
		outp += "</body></html>\n";
		dbgwin.document.write(outp);
	}
	else {
		dbgwin.debugconsole.innerHTML += (msg + "<br>");
	}

	//setTimeout(function() { throw("Debug: " + msg); }, 0);
}

//----------------------------------------------------------------------