var gobjctrl;
var gtoppos;
var gleftpos;
var calary = new Array();
var mnthdef = new Array();
mnthdef[0] = new Array();
mnthdef[0][0]="January";
mnthdef[0][1]=31;

mnthdef[1] = new Array();
mnthdef[1][0]="February";
mnthdef[1][1]=28;

mnthdef[2] = new Array();
mnthdef[2][0]="March";
mnthdef[2][1]=31;

mnthdef[3] = new Array();
mnthdef[3][0]="April";
mnthdef[3][1]=30;

mnthdef[4] = new Array();
mnthdef[4][0]="May";
mnthdef[4][1]=31;

mnthdef[5] = new Array();
mnthdef[5][0]="June";
mnthdef[5][1]=30;

mnthdef[6] = new Array();
mnthdef[6][0]="July";
mnthdef[6][1]=31;

mnthdef[7] = new Array();
mnthdef[7][0]="August";
mnthdef[7][1]=31;

mnthdef[8] = new Array();
mnthdef[8][0]="September";
mnthdef[8][1]=30;

mnthdef[9] = new Array();
mnthdef[9][0]="October";
mnthdef[9][1]=31;

mnthdef[10] = new Array();
mnthdef[10][0]="November";
mnthdef[10][1]=30;

mnthdef[11] = new Array();
mnthdef[11][0]="December";
mnthdef[11][1]=31;

function check_leapyear(cyear)
{
	if ((cyear % 4) == 0) 
	{
		if ((cyear % 100) == 0 && (cyear % 400) != 0)
		{
			mnthdef[1][1]=28;
		}
		else
		{
			mnthdef[1][1]=29;
		}
	} 
	else
	{
		mnthdef[1][1]=28;
	}
}

function buid_calendar(cdate,cmonth,cyear)
{
	calary.length=0;
	var pdate = new Date(cyear,cmonth,1);
	var cday = pdate.getDay();
	var lcnt = 0;
	var cnt = 0;
	var lflg = 0;
	var pday = 1;
	check_leapyear(cyear);
	while (1 !=2)
	{
		if (pday >mnthdef[cmonth][1])
		{
			break;
		}
		if (cnt >6)
		{
			cnt=0;
			lcnt=lcnt+1;
		}
		if (cnt==0)
		{
			calary[lcnt]= new Array();
		}
		if (cnt==cday && pday==1)
		{
			lflg = 1;
		}
		if (lflg==0)
		{
			calary[lcnt][cnt]="";
		}
		else if (lflg==1)
		{
			calary[lcnt][cnt]=pday;
			pday=pday+1;
		}
		cnt=cnt+1;		
	}
}

function show_cald(pcurrday,pcurrmnt,pcurryear,pdivid,ptblid)
{
	buid_calendar(pcurrday,pcurrmnt,pcurryear);
	var premnt=0;
	var preyr = 0;
	if (pcurrmnt==0)
	{
		prevmnt=11;
		preyr=pcurryear-1;
	}
	else
	{
		prevmnt=pcurrmnt-1;
		preyr=pcurryear;
	}

	if (pcurrmnt==11)
	{
		nxtmnt=0;
		nxtyr=pcurryear+1;
	}
	else
	{
		nxtmnt=pcurrmnt+1;
		nxtyr=pcurryear;
	}
	html ="<table border=0 cellpadding=0 cellspacing=0 width=100%>";
	html =html+"<tr style=\"font-family:Verdana,Arial,Helvetica; font-size:10pt; font-weight:bold; background-color:#333399; color:#ffffff\"><td>Select A Date</td><td align=right><a href=\"javascript:void(0);\"  onclick=\"hide_cald('"+pdivid+"');\"><img  width=13 height=13 src=\"images/bt_close.jpg\"></img></a></td></tr>";
	html =html+"<tr style=\"font-family:Verdana,Arial,Helvetica; font-size:10pt; font-weight:bold;\"><td colspan=2>&nbsp;"+mnthdef[pcurrmnt][0]+" - "+pcurryear+"</td></tr>";
	html =html+"<tr><td colspan=2><table border=1 cellpadding=0 cellspacing=0 width=98% align=center>";

	html=html+"<tr style=\"font-family:Verdana,Arial,Helvetica; font-size:10pt; font-weight:bold;background-color:#E0E0E0;\"><td valgin=center align=center >[<a href=\"javascript:void(0);\" onmouseover=\"window.status='Go back one month'; return true;\" onclick=\"show_cald("+pcurrday+","+prevmnt+","+preyr+",'"+pdivid+"','"+ptblid+"')\">&lt;Mon</a>]</td>";
	html=html+"<td align=center valgin=center>[<a href=\"javascript:void(0);\" onmouseover=\"window.status='Go forward one month'; return true;\" onclick=\"show_cald("+pcurrday+","+nxtmnt+","+nxtyr+",'"+pdivid+"','"+ptblid+"')\">Mon&gt;</a>]</td></tr></table></td></tr>";
	html =html+"<tr><td colspan=2><br><table border=1 cellpadding=1 cellspacing=0 width=98% align=center style=\"background-color:#FFFFFF;\">";
	html = html+"<tr style=\"font-family:Verdana,Arial,Helvetica; font-size:10pt; font-weight:bold;color:#006400;font-weight:bold;\"><td width=15% align=center>Sun&nbsp;</td>";
	html = html+"<td width=15% align=center>Mon&nbsp;</td>";
	html = html+"<td width=15% align=center>Tue&nbsp;</td>";
	html = html+"<td width=15% align=center>Wed&nbsp;</td>";
	html = html+"<td width=15% align=center>Thu&nbsp;</td>";
	html = html+"<td width=15% align=center>Fri&nbsp;</td>";
	html = html+"<td width=15% align=center>Sat&nbsp;</td></tr>";
	for (lcnt=0;lcnt < calary.length ;lcnt++)
	{
		html=html+"<tr style=\"font-family:Verdana,Arial,Helvetica; font-size:10pt; font-weight:bold;\">"
		for (cnt=0;cnt < calary[lcnt].length ; cnt++)
		{
			var lday=calary[lcnt][cnt];
			var lmonth=pcurrmnt+1;
			if (lday < 10)
			{
				lday="0"+lday;
			}
			if (lmonth < 10)
			{
				lmonth="0"+lmonth;
			}
			ldate = lday+"/"+lmonth+"/"+pcurryear;
			if (pcurrday==calary[lcnt][cnt])
			{
				html = html+"<td style=\"background-color:#FBD7FF;\" align=center>";
				html = html+"<a href=\"javascript:void(0);\" onclick=\"get_date('"+ldate+"','"+pdivid+"')\">";
				html = html+"<b>"+calary[lcnt][cnt]+"</b></a></td>";
			}
			else
			{
				html = html+"<td align=center>";
				html = html+"<a href=\"javascript:void(0);\" onclick=\"get_date('"+ldate+"','"+pdivid+"')\">";
				html = html+"<b>"+calary[lcnt][cnt]+"</b></a></td>";
			}
		}
		if (cnt < 6)
		{
			while (cnt != 6)
			{
				html = html+"<td align=center><b>&nbsp;</b></td>";
				cnt=cnt+1;
			}
		}
		html=html+"</tr>"
	}
	html=html+"</table></td></tr><tr><td colspan=2></td></tr></table>";
	var otbody= document.all[ptblid];
	if (otbody.rows.length > 0)
	{
		oRow = otbody.deleteRow();	
	}
	oRow = otbody.insertRow();
	oCell = oRow.insertCell();
	oCell.innerHTML =  html ;
	var objnm=document.all[pdivid];
	if (gtoppos>400)
	{
		objnm.style.top=gtoppos-165;
	}
	else
	{
		objnm.style.top=gtoppos+10;
	}
	objnm.style.left=gleftpos;
	objnm.style.visibility="visible";
	return html;
}

function disp_cald(event,Itemobj,cdivid,ctblid,tleft,ttop)
{
	xMousePos = window.event.clientX + document.body.scrollLeft;
	yMousePos = window.event.clientY + document.body.scrollTop;

	gobjctrl=Itemobj;
	gtoppos=yMousePos-25	;
	gleftpos=xMousePos-15;
	var gcurrdt = new Date();
	var gcurrday = gcurrdt.getDate();
	var gcurrmnt = gcurrdt.getMonth();
	var gcurryear= gcurrdt.getYear();
	var chtml = show_cald(gcurrday,gcurrmnt,gcurryear,cdivid,ctblid);
	return chtml;
}
function get_date(dvalue,ddivid)
{
	gobjctrl.value=dvalue;
	var objnm=document.all[ddivid];
	objnm.style.visibility="hidden";
	gobjctrl.focus();
}

function hide_cald(hdivid)
{
	var objnm=document.all[hdivid];
	objnm.style.visibility="hidden";
	gobjctrl.focus();

}