function getObj(objID)
{
    if (document.getElementById) {return document.getElementById(objID);}
    else if (document.all) {return document.all[objID];}
    else if (document.layers) {return document.layers[objID];}
}

function checkClick(e) {
	e?evt=e:evt=event;
	CSE=evt.target?evt.target:evt.srcElement;
	if (getObj('calendar'))
		if (!isChild(CSE,getObj('calendar')))
			getObj('calendar').style.display='none';
}

function isChild(s,d) {
	while(s) {
		if (s==d) 
			return true;
		s=s.parentNode;
	}
	return false;
}

function Left(obj)
{
	var curleft = 0;
	if (obj.offsetParent)
	{
		while (obj.offsetParent)
		{
			curleft += obj.offsetLeft
			obj = obj.offsetParent;
		}
	}
	else if (obj.x)
		curleft += obj.x;
	return curleft;
}

function Top(obj)
{
	var curtop = 0;
	if (obj.offsetParent)
	{
		while (obj.offsetParent)
		{
			curtop += obj.offsetTop
			obj = obj.offsetParent;
		}
	}
	else if (obj.y)
		curtop += obj.y;
	return curtop;
}
	
document.all?document.attachEvent('onclick',checkClick):document.addEventListener('click',checkClick,false);


// Calendar script
//calendar start date
var now = new Date();
var sccm=now.getMonth();
var sccy=now.getFullYear();
var ccm=now.getMonth();
var ccy=now.getFullYear();
var strFP;	//future or past date
var buildMenu=0;  // auto build menu

function lcsMB(ielem,rePosition,DateFormat,FP) {
	buildMenu=1;
	lcs(ielem,rePosition,DateFormat,FP);
}

var updobj;
function lcs(ielem,rePosition,DateFormat,FP) {
	strFP = FP;
	updobj=ielem;
	if (rePosition)
	{
		getObj('calendar').style.left=Left(ielem);
		getObj('calendar').style.top=Top(ielem)+ielem.offsetHeight;
	}
	getObj('calendar').style.display='';
	
	if (DateFormat=='')
	{
		DateFormat = "mm/dd/yyyy";
	}
	// First check date is valid
	curdt=ielem.value;
	curdtarr=curdt.split('/');
	isdt=true;
	for(var k=0;k<curdtarr.length;k++) {
		if (isNaN(curdtarr[k]))
			isdt=false;
	}
	if (isdt&(curdtarr.length==3)) {
		if (DateFormat == "dd/mm/yyyy")
		{
			ccm=curdtarr[1]-1;
			prepcalendar(curdtarr[0],curdtarr[1]-1,curdtarr[2],DateFormat);
		}
		else
		{
			ccm=curdtarr[0]-1;
			prepcalendar(curdtarr[1],curdtarr[0]-1,curdtarr[2],DateFormat);
		}
		ccy=curdtarr[2];
	}	
}

function evtTgt(e)
{
	var el;
	if(e.target)el=e.target;
	else if(e.srcElement)el=e.srcElement;
	if(el.nodeType==3)el=el.parentNode; // defeat Safari bug
	return el;
}
function EvtObj(e){if(!e)e=window.event;return e;}
function cs_over(e) {
	evtTgt(EvtObj(e)).style.background='#FFCC66';
}
function cs_out(e) {
	evtTgt(EvtObj(e)).style.background='#f6fcfe';
}
function cs_click(e) {
	updobj.value=calvalarr[evtTgt(EvtObj(e)).id.substring(1,evtTgt(EvtObj(e)).id.length)];
	getObj('calendar').style.display='none';
	//alert('here2');
	if (buildMenu==1)
	{
    	BuildMenu();
		buildMenu=0;
	}
}

var mn=new Array('JAN','FEB','MAR','APR','MAY','JUN','JUL','AUG','SEP','OCT','NOV','DEC');
var mnn=new Array('31','28','31','30','31','30','31','31','30','31','30','31');
var mnl=new Array('31','29','31','30','31','30','31','31','30','31','30','31');
var calvalarr=new Array(42);

//enabled cells
function f_cps(obj) {
	obj.style.background='#f6fcfe';
	obj.style.font='10px Arial';
	obj.style.color='#333333';
	obj.style.textAlign='center';
	obj.style.textDecoration='none';
	obj.style.border='1px solid #dbeef5';
	obj.style.cursor='pointer';
}

//disabled cells
function f_cpps(obj) {
	obj.style.background='#f6fcfe';
	obj.style.font='10px Arial';
	obj.style.color='#ABABAB';
	obj.style.textAlign='center';
	obj.style.textDecoration='line-through';
	obj.style.border='1px solid #dbeef5';
	obj.style.cursor='default';
}

//selected cells
function f_hds(obj) {
	obj.style.background='#FFF799';
	obj.style.font='bold 10px Arial';
	obj.style.color='#333333';
	obj.style.textAlign='center';
	obj.style.border='1px solid #dbeef5';
	obj.style.cursor='pointer';
}

// day selected
function prepcalendar(hd,cm,cy,DateFormat) {
	//now=new Date();
	//alert('hd: ' + hd+'cm: ' + cm+'cy: ' + cy);
	sd=now.getDate();
	td=new Date();
	td.setDate(1);
	td.setFullYear(cy);
	td.setMonth(cm);
	cd=td.getDay();
	if (getObj('mns'))
	{
		getObj('mns').innerHTML=mn[cm]+ ' ' + cy;
		marr=((cy%4)==0)?mnl:mnn;
		for(var d=1;d<=42;d++) {
			f_cps(getObj('v'+parseInt(d)));
			if ((d >= (cd -(-1))) && (d<=cd-(-marr[cm]))) {
				//Disable condition
				if (strFP=="A") 
					dip=false;
				else if (strFP=="P")
					dip=(((d-cd > sd)&&(cm>=sccm)&&(cy>=sccy))||(cy>sccy)||((cm>sccm)&&(cy>=sccy)));
				else
					dip=((d-cd < sd)&&(cm==sccm)&&(cy==sccy));
				
				//selected condition
				htd=((hd!='')&&(d-cd==hd));
				if (dip)
					f_cpps(getObj('v'+parseInt(d)));
				else if (htd)
					f_hds(getObj('v'+parseInt(d)));
				else
					f_cps(getObj('v'+parseInt(d)));
	
				getObj('v'+parseInt(d)).onmouseover=(dip)?null:cs_over;
				getObj('v'+parseInt(d)).onmouseout=(dip)?null:cs_out;
				getObj('v'+parseInt(d)).onclick=(dip)?null:cs_click;
				
				getObj('v'+parseInt(d)).innerHTML=d-cd;	
				if (DateFormat == "dd/mm/yyyy")
					calvalarr[d]=''+(d-cd)+'/'+(cm-(-1))+'/'+cy;
				else
					calvalarr[d]=''+(cm-(-1))+'/'+(d-cd)+'/'+cy;
			}
			else {
				getObj('v'+d).innerHTML='&nbsp;';
				getObj('v'+parseInt(d)).onmouseover=null;
				getObj('v'+parseInt(d)).onmouseout=null;
				getObj('v'+parseInt(d)).style.cursor='default';
				}
		}
	}
}

prepcalendar('',ccm,ccy,'');
//getObj('calendar'+cc).style.visibility='hidden';

function caddm(DateFormat) {
	marr=((ccy%4)==0)?mnl:mnn;
	
	ccm+=1;
	if (ccm>=12) {
		ccm=0;
		ccy++;
	}
	cdayf();
	prepcalendar('',ccm,ccy,DateFormat);
}

function csubm(DateFormat) {
	marr=((ccy%4)==0)?mnl:mnn;
	
	ccm-=1;
	if (ccm<0) {
		ccm=11;
		ccy--;
	}
	cdayf();
	prepcalendar('',ccm,ccy,DateFormat);
}

function caddy(DateFormat) {
	ccy = parseInt(ccy)+1;
	cdayf();
	prepcalendar('',ccm,ccy,DateFormat);
}

function csuby(DateFormat) {
	ccy = parseInt(ccy)-1;
	cdayf();
	prepcalendar('',ccm,ccy,DateFormat);
}
function cdayf() {
	var condition;
	if (strFP=="A")
		condition = true;
	else if (strFP=="P")
		condition = ((ccy<sccy)||((ccy==sccy)&&(ccm<=sccm)));
	else
		condition = ((ccy>sccy)||((ccy==sccy)&&(ccm>=sccm)));
		
	if (condition)
		return;
	else {
		ccy=sccy;
		ccm=sccm;
		//cfd=scfd;
		}
	}