//Global variables
var minYear=1900;
var maxYear=2099;
var winCal;
var Cal;
var docCal;

var MonthNameNL=["Januari", "Februari", "Maart", "April", "Mei", "Juni","Juli", 
	"Augustus", "September", "Oktober", "November", "December"];
var WeekDayNameNL=["Zondag","Maandag","Dinsdag","Woensdag","Donderdag","Vrijdag","Zaterdag"];	
var MonthNameEN=["January", "February", "March", "April", "May", "June","July", 
	"August", "September", "October", "November", "December"];
var WeekDayNameEN=["Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"];	
var MonthName=MonthNameNL;
var WeekDayName=WeekDayNameNL;	

var dtToday=new Date();
var exDateTime;//Existing Date and Time

//Configurable parameters
var cnTop="200";//top coordinate of calendar window.
var cnLeft="500";//left coordinate of calendar window
var WeekChar=2;//number of character for week day. if 2 then Mo,Tu,We. if 3 then Mon,Tue,Wed.
var CellWidth=20;//Width of day cell.
var DateSeparator="-";//Date Separator, you can change it to "/" if you want.
var TimeMode=24;//default TimeMode value. 12 or 24

var ShowLongMonth=true;//Show long month name in Calendar header. example: "January".
var ShowMonthYear=false;//Show Month and Year in Calendar header.
var MonthYearColor="#cc0033";//Font Color of Month and Year in Calendar header.
var WeekHeadColor="#0099CC";//Background Color in Week header.
var SundayColor="#6699FF";//Background color of Sunday.
var SaturdayColor="#CCCCFF";//Background color of Saturday.
var WeekDayColor="white";//Background color of weekdays.
var FontColor="blue";//color of font in Calendar day cell.
var TodayColor="#FFFF33";//Background color of today.
var SelDateColor="#FFFF99";//Backgrond color of selected date in textbox.
var YrSelColor="#cc0033";//color of font of Year selector.
var ThemeBg="";//Background image of Calendar window.
//end Configurable parameters
//end Global variable


function chooseDateTime(label,returnfield,returnfield_dpl,format,language)
{
	chooseDate(label,returnfield,returnfield_dpl,format,language);
}

function chooseDate(label,returnfield,returnfield_dpl,format,language)
{
	//NewCal(pCtrl,pFormat,pShowTime,pTimeMode)
	var showTime = 0; // no time
	if (format.indexOf("HH:mm")>0)
		showTime = 1; // only hh:mm
	if (format.indexOf("HH:mm:ss")>0)
		showTime = 2;
	//if (document.URL.indexOf("search_sel.html")>=0) // don't use time in search_sel.html
	//	showTime = 0;
	if (language!=null && language.indexOf("EN")>-1)
	{
		MonthName=MonthNameEN;
		WeekDayName=WeekDayNameEN;	
	}
		
	NewCal(label,returnfield,returnfield_dpl,format,showTime);
}

function checkDateTime(message_invalid,message_format,returnfield,returnfield_dpl,format)
{
	checkDate(message_invalid,message_format,returnfield,returnfield_dpl,format);
}

function checkDate(message_invalid,message_format,returnfield,returnfield_dpl,format)
{
	if (returnfield_dpl!=null && eval(returnfield_dpl).value>" " ) {
		if (format!=null && format.length>1) {
			var iYear    = format.indexOf("yyyy");
			var iMonth   = format.indexOf("MM");
			var iDay     = format.indexOf("dd");
			var iHour    = format.indexOf("HH");
			var iMinute  = format.indexOf("mm");
			var iSecond  = format.indexOf("ss");
			var tempDate = new Date();
			var sYear    = ""+tempDate.getYear();
			var sMonth   = ""+tempDate.getMonth();
			var sDay     = ""+tempDate.getDate();
			var sHour    = ""+tempDate.getHours();
			var sMinute  = ""+tempDate.getMinutes();
			var sSecond  = ""+tempDate.getSeconds();

			var sDate = eval(returnfield_dpl).value;
			var len = sDate.length;

			if (len>iYear && iYear >-1){		
				sYear = sDate.substr(iYear,4);
			}
			if (len>iMonth && iMonth >-1){
				sMonth = sDate.substr(iMonth,2)-1;
			}
			if (len>iDay && iDay >-1)	{
				sDay = sDate.substr(iDay,2);
			}
			if (len>iHour && iHour >-1)	{
				sHour = sDate.substr(iHour,2);
			}
			if (len>iMinute && iMinute >-1)	{
				sMinute = sDate.substr(iMinute,2);
			}
			if (len>iSecond && iSecond >-1)	{
				sSecond = sDate.substr(iSecond,2);
			}
	
			var sep = true;
			var s;
			if (sDate.length > format.length) {
				sep = false;
			}
			else {
				for(var i =0;i <format.length;i++) {
					s = format.substr(i,1);
					if ((s=='-') || (s==':') || (s=='/') || (s==' ')) {
						if (sDate.substr(i,1) != s) {
							sep = false;
							break;
						}
					}
				}
			}

			var test = new Date(sYear,sMonth,sDay,sHour,sMinute,sSecond);
			
			if ((sep == true) &&
				(sYear == test.getFullYear()) && 
				(sYear >1750) && 
				(sMonth == test.getMonth()) && 
				(sDay == test.getDate()) && 
				(sHour == test.getHours()) && 
				(sMinute == test.getMinutes()) && 
				(sSecond == test.getSeconds())) {
					//if (iSecond>0 && sDate.substr(sDate.length-2)!='.0')
						//sDate = sDate+'.0'; // check if its needed, cause it give's problems in a text field
					if (returnfield != null && returnfield != '')
					{
						eval(returnfield).value = sDate;
					}
			}
			else {
				if (sep == true) {
					alert (message_invalid);
				}
				else {
					alert (message_format);
				}
				eval(returnfield_dpl).focus();
			}
		}
	}	
}


//function NewCal(pCtrl,pFormat,pShowTime,pTimeMode)
function NewCal(label,returnfield,returnfield_dpl,format,pShowTime)
{
	Cal=new Calendar(dtToday);
	if (label!=null)
		Cal.Label=label;
	if (returnfield!=null)
		Cal.Ctrl=returnfield;
	if (returnfield_dpl!=null)
		Cal.CtrlDisplay=returnfield_dpl;
	if (format!=null)
		Cal.Format=format;
	Cal.ShowTime = 0;
	if (pShowTime!=null)
		Cal.ShowTime = pShowTime;
	
	exDateTime=eval(returnfield_dpl).value;
	if (exDateTime!="")//Parse Date String
	{
		var Sp1;//Index of Date Separator 1
		var Sp2;//Index of Date Separator 2 
		var tSp1;//Index of Time Separator 1
		var tSp1;//Index of Time Separator 2
		var strMonth;
		var strDate;
		var strYear;
		var intMonth;
		var YearPattern;
		var strHour;
		var strMinute;
		var strSecond;
		//parse month
		Sp1=exDateTime.indexOf(DateSeparator,0)
		Sp2=exDateTime.indexOf(DateSeparator,(parseInt(Sp1)+1));
		
		if (Cal.Format.indexOf("dd-MM-yyyy")==0)
		{
			strDate=exDateTime.substring(0,Sp1);
			strMonth=exDateTime.substring(Sp1+1,Sp2);
			strYear=exDateTime.substring(Sp2+1,Sp2+5);
		}
		else if (Cal.Format.indexOf("MM-dd-yyyy")==0)
		{
			strMonth=exDateTime.substring(0,Sp1);
			strDate=exDateTime.substring(Sp1+1,Sp2);
			strYear=exDateTime.substring(Sp2+1,Sp2+5);
		}
		else if (Cal.Format.indexOf("yyyy-MM-dd")==0)
		{
			strYear=exDateTime.substring(0,Sp1);
			strMonth=exDateTime.substring(Sp1+1,Sp2);
			strDate=exDateTime.substring(Sp2+1,Sp2+3);
		}
		if (isNaN(strMonth))
			intMonth=Cal.GetMonthIndex(strMonth);
		else
			intMonth=parseInt(strMonth,10)-1;	
		if ((parseInt(intMonth,10)>=0) && (parseInt(intMonth,10)<12))
			Cal.Month=intMonth;
		//end parse month
		//parse Date
		if ((parseInt(strDate,10)<=Cal.GetMonDays()) && (parseInt(strDate,10)>=1))
			Cal.Date=parseInt(strDate,10);
		//end parse Date
		//parse year
		YearPattern=/^\d{4}$/;
		if (YearPattern.test(strYear))
			Cal.Year=parseInt(strYear,10);
		//end parse year
		//parse time
		if (Cal.ShowTime>0)
		{
			tSp1=exDateTime.indexOf(":",0)
			tSp2=exDateTime.indexOf(":",(parseInt(tSp1)+1));
			strHour=exDateTime.substring(tSp1,(tSp1)-2);
			Cal.SetHour(strHour);
			strMinute=exDateTime.substring(tSp1+1,tSp1+3);
			Cal.SetMinute(strMinute);
			Cal.SetSecond("00");
			if (Cal.ShowTime>1) {
				strMinute=exDateTime.substring(tSp1+1,tSp2);
				Cal.SetMinute(strMinute);
				strSecond=exDateTime.substring(tSp2+1,tSp2+3);
				Cal.SetSecond(strSecond);
			}
		}	
	}
	winCal=window.open('dat_sel.html','DateTimePicker','toolbar=no,status=no,menubar=no,location=no,resizable=no,fullscreen=no,directories=no,width=215,height=220,top='+cnTop+',left='+cnLeft+'');
	//winCal=window.open('dat_sel.html','DateTimePicker','resizable=no,toolbar=no,status=no,menubar=no,location=no,fullscreen=no,directories=no,width=215,height=220');
	docCal=winCal.document;
	docCal.toolbar=0;
	RenderCal();
}

function UpdateSource(pDate)
{
	if(eval(Cal.CtrlDisplay)) {
		eval(Cal.CtrlDisplay).value=Cal.FormatDate(pDate);
		if(eval(Cal.CtrlDisplay).onblur !=null) {
			eval(Cal.CtrlDisplay).onblur();
		}
	}
	if(eval(Cal.Ctrl))
		if (document.URL.indexOf("search_sel.html")>=0) // don't use sql format in search_sel.html
			eval(Cal.Ctrl).value=Cal.FormatDate(pDate);
		else
			eval(Cal.Ctrl).value=Cal.FormatDate(pDate);
}

function RenderCal()
{
	var vCalHeader;
	var vCalData;
	var vCalTime;
	var i;
	var j;
	var SelectStr;
	var vDayCount=0;
	var vFirstDay;

	docCal.open();
	docCal.writeln("<html><head><title>"+Cal.Label+"</title>");
	docCal.writeln("<script>var winMain=window.opener;</script>");
	docCal.writeln("<link rel=stylesheet type=\"text/css\" href=\"portal.css\">");
	docCal.writeln("</head><body background='"+ThemeBg+"' link="+FontColor+" vlink="+FontColor+"><form name='Calendar'>");

	vCalHeader="<table border=1 cellpadding=1 cellspacing=1 width='100%' align=\"center\" valign=\"top\">\n";
	//Month Selector
	vCalHeader+="<tr>\n<td colspan='7'><table border=0 width='100%' cellpadding=0 cellspacing=0><tr>\n";
	vCalHeader+="<td align='left'><select class=\"pagetext\" name=\"MonthSelector\" onChange=\"javascript:winMain.Cal.SwitchMth(this.selectedIndex);winMain.RenderCal();\">\n";
	for (i=0;i<12;i++)
	{
		if (i==Cal.Month)
			SelectStr="Selected";
		else
			SelectStr="";	
		vCalHeader+="<option "+SelectStr+" value >"+MonthName[i]+"\n";
	}
	vCalHeader+="</select></td>";
	//Year selector with inc and dec
	//vCalHeader+="\n<td align='right'><a href=\"javascript:winMain.Cal.DecYear();winMain.RenderCal()\"><img src=\"images\\buttons\\prev.gif\" align=\"absbottom\" border=\"0\"></a><font class=\"pagetext\" > "+Cal.Year+" </font><a href=\"javascript:winMain.Cal.IncYear();winMain.RenderCal()\"><img src=\"images\\buttons\\next.gif\" align=\"absbottom\" border=\"0\"></a></td></tr></table></td>\n";	
	//Year selector with combo from 1900-2099
	vCalHeader+="<td align='right'><select class=\"pagetext\" name=\"YearSelector\" onChange=\"javascript:winMain.Cal.SwitchYr(this.selectedIndex);winMain.RenderCal();\">\n";
	for (i=minYear;i<maxYear;i++)
	{
		if (i==Cal.Year)
			SelectStr="Selected";
		else
			SelectStr="";	
		vCalHeader+="<option "+SelectStr+" value >"+i+"\n";
	}
	vCalHeader+="</select></td>\n";
	vCalHeader+="</tr></table></td>\n";	
	vCalHeader+="</tr>";
	//Calendar header shows Month and Year
	if (ShowMonthYear)
		vCalHeader+="<tr><td colspan='7'><font face='Verdana' size='2' align='center' color='"+MonthYearColor+"'><b>"+Cal.GetMonthName(ShowLongMonth)+" "+Cal.Year+"</b></font></td></tr>\n";
	//Week day header
	vCalHeader+="<tr class=\"resultheader\">";
	for (i=0;i<7;i++)
	{
		vCalHeader+="<td align='center'  class=\"resultheader\"><font class=\"resultheader\" >"+WeekDayName[i].substr(0,WeekChar)+"</font></td>";
	}
	vCalHeader+="</tr>";	
	docCal.write(vCalHeader);
	
	//Calendar detail
	CalDate=new Date(Cal.Year,Cal.Month);
	CalDate.setDate(1);
	vFirstDay=CalDate.getDay();
	vCalData="<tr>\n";
	for (i=0;i<vFirstDay;i++)
	{
		vCalData=vCalData+GenCell();
		vDayCount=vDayCount+1;
	}
	for (j=1;j<=Cal.GetMonDays();j++)
	{
		var strCell;
		vDayCount=vDayCount+1;
		if ((j==dtToday.getDate())&&(Cal.Month==dtToday.getMonth())&&(Cal.Year==dtToday.getFullYear()))
			if (j==Cal.Date)
				strCell=GenCell(j,"class=\"calendarselected calendartoday\"");//Highlight today's date
			else
				strCell=GenCell(j,"class=\"calendartoday\"");//Highlight today's date
		else
		{
			if (j==Cal.Date)
			{
				strCell=GenCell(j, "class=\"calendarselected\"");
			}
			else
			{	 
				if (vDayCount%7==0)
					strCell=GenCell(j, "class=\"calendarweekend\"");
				else if ((vDayCount+6)%7==0)
					strCell=GenCell(j, "class=\"calendarweekend\"");
				else
					strCell=GenCell(j, "class=\"pagetext\"");
			}		
		}						
		vCalData=vCalData+strCell;

		if((vDayCount%7==0)&&(j<Cal.GetMonDays()))
		{
			vCalData=vCalData+"</tr>\n<tr>";
		}
	}
	docCal.writeln(vCalData);	
	//Time picker
	if (Cal.ShowTime>0)
	{
		var showHour;
		showHour=Cal.getShowHour();		
		vCalTime="<tr>\n<td colspan='7' align='center'><font class=\"calendarselected\"> Tijd &nbsp;";
		vCalTime+="<input type='text' name='hour' maxlength=2 size=1 style=\"WIDTH: 22px\" value="+showHour+" onchange=\"javascript:winMain.Cal.SetHour(this.value);this.value=winMain.Cal.Hours;\" class=\"pagetext\">";
		/*vCalTime+="<select class=\"pagetext\" name=\"HourSelector\" onChange=\"javascript:winMain.Cal.SetHour(this.selectedIndex);\">\n";
		for (i=0;i<24;i++)
		{
			if (i==showHour)
				SelectStr="Selected";
			else
				SelectStr="";	
			vCalTime+="<option "+SelectStr+" value >"+i+"\n";
		}
		vCalTime+="</select>";*/

		vCalTime+=" : ";
		vCalTime+="<input type='text' name='minute' maxlength=2 size=1 style=\"WIDTH: 22px\" value="+Cal.Minutes+" onchange=\"javascript:winMain.Cal.SetMinute(this.value);this.value=winMain.Cal.Minutes;\" class=\"pagetext\">";
		if (Cal.ShowTime>1)
		{
			vCalTime+=" : ";
			vCalTime+="<input type='text' name='second' maxlength=2 size=1 style=\"WIDTH: 22px\" value="+Cal.Seconds+" onchange=\"javascript:winMain.Cal.SetSecond(this.value);this.value=winMain.Cal.Seconds;\" class=\"pagetext\">";
		}
		vCalTime+="\n</font></td>\n</tr>";
		docCal.write(vCalTime);
	}	
	//end time picker
	docCal.writeln("\n</table>");
	//docCal.writeln("<input type='button' onclick='window.close();' value='  OK  '>");
	docCal.writeln("<br><div align=\"center\"><input type='button' onclick='javascript:winMain.UpdateSource(winMain.Cal.Date);window.close();' value='          OK          '></div>");
	docCal.writeln("</form></body></html>");
	docCal.close();
	winCal.focus()
}

function GenCell(PValue,PClass)//Generate table cell with value
{
	var PCellStr;

	if (PValue==null)
		PValue="";
	if (PClass==null)
		PClass="";
			
	if (PValue>"")
	{
		//PCellStr="<td "+PClass+" width="+CellWidth+" align='center'><a href=\"javascript:winMain.UpdateSource("+PValue+");window.close();\"><font "+PClass+">"+PValue+"</font></a></td>\n";
		//PCellStr="<td "+PClass+" width="+CellWidth+" align='center'><a href=\"javascript:winMain.UpdateSource("+PValue+");winMain.RenderCal();\"><font "+PClass+">"+PValue+"</font></a></td>\n";
		PCellStr="<td "+PClass+" width="+CellWidth+" align='center'><a href=\"javascript:winMain.Cal.SetDate("+PValue+");winMain.RenderCal();\"><font "+PClass+">"+PValue+"</font></a></td>\n";
	}
	else
	{
		PCellStr="<td "+PClass+" width="+CellWidth+" align='center'><font "+PClass+">"+PValue+"</font></td>\n";
	}
	
	return PCellStr;
}

function Calendar(pDate,pCtrl,pCtrlDisplay)
{
	//Properties
	this.Date=pDate.getDate();//selected date
	this.Month=pDate.getMonth();//selected month number
	this.Year=pDate.getFullYear();//selected year in 4 digits
	this.Hours=pDate.getHours();	
	
	if (pDate.getMinutes()<10)
		this.Minutes="0"+pDate.getMinutes();
	else
		this.Minutes=pDate.getMinutes();
	
	if (pDate.getSeconds()<10)
		this.Seconds="0"+pDate.getSeconds();
	else		
		this.Seconds=pDate.getSeconds();
		
	this.MyWindow=winCal;
	this.Ctrl=pCtrl;
	this.CtrlDisplay=pCtrlDisplay;
	this.Format="ddMMyyyy";
	this.Separator=DateSeparator;
	this.ShowTime=0;
	this.Label="Choose Date";
}

function SetDate(strDat)
{
	Cal.Date=strDat;
}
Calendar.prototype.SetDate=SetDate;

function GetMonthIndex(shortMonthName)
{
	for (i=0;i<12;i++)
	{
		if (MonthName[i].substring(0,3).toUpperCase()==shortMonthName.toUpperCase())
		{	return i;}
	}
}
Calendar.prototype.GetMonthIndex=GetMonthIndex;

function IncYear()
{	Cal.Year++;}
Calendar.prototype.IncYear=IncYear;

function DecYear()
{	Cal.Year--;}
Calendar.prototype.DecYear=DecYear;
	
function SwitchMth(intMth)
{	Cal.Month=intMth;}
Calendar.prototype.SwitchMth=SwitchMth;

function SwitchYr(intYear)
{	Cal.Year=intYear+minYear;}
Calendar.prototype.SwitchYr=SwitchYr;

function SetHour(intHour)
{	
	if (intHour<' ')
		intHour='0';
	intHour = parseInt(intHour,10);
	if (intHour<10) 
		intHour = '0'+intHour;
	else
		intHour = ''+intHour;
	var HourExp=new RegExp("^\\d{1,2}");
	if (HourExp.test(intHour) && (intHour<24))
		Cal.Hours=intHour;	
		//Cal.Hours=parseInt(intHour,10);	
}
Calendar.prototype.SetHour=SetHour;

function SetMinute(intMin)
{
	if (intMin<' ')
		intMin='0';
	intMin = parseInt(intMin,10);
	if (intMin<10) 
		intMin = '0'+intMin;
	else
		intMin = ''+intMin;
	var MinExp=new RegExp("^\\d{1,2}");
	if (MinExp.test(intMin) && (intMin<60))
		Cal.Minutes=intMin;
		//Cal.Minutes=parseInt(intMin,10);
}
Calendar.prototype.SetMinute=SetMinute;

function SetSecond(intSec)
{	
	if (intSec<' ')
		intSec='0';
	intSec = parseInt(intSec,10);
	if (intSec<10) 
		intSec = '0'+intSec;
	else
		intSec = ''+intSec;
	var SecExp=new RegExp("^\\d{1,2}");
	if (SecExp.test(intSec) && (intSec<60))
		Cal.Seconds=intSec;	
		//Cal.Seconds=parseInt(intSec,10);	
}
Calendar.prototype.SetSecond=SetSecond;

function getShowHour()
{
	var finalHour;
	if (this.Hours<10)
		finalHour="0"+parseInt(this.Hours,10);
	else	
		finalHour=this.Hours;
	return finalHour;	
}				
Calendar.prototype.getShowHour=getShowHour;		

function GetMonthName(IsLong)
{
	var Month=MonthName[this.Month];
	if (IsLong)
		return Month;
	else
		return Month.substr(0,3);
}
Calendar.prototype.GetMonthName=GetMonthName;

function GetMonDays()//Get number of days in a month
{
	var DaysInMonth=[31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31];
	if (this.IsLeapYear())
	{
		DaysInMonth[1]=29;
	}	
	return DaysInMonth[this.Month];	
}
Calendar.prototype.GetMonDays=GetMonDays;

function IsLeapYear()
{
	if ((this.Year%4)==0)
	{
		if ((this.Year%100==0) && (this.Year%400)!=0)
		{
			return false;
		}
		else
		{
			return true;
		}
	}
	else
	{
		return false;
	}
}
Calendar.prototype.IsLeapYear=IsLeapYear;

function FormatDate(pDate)
{
	var fullDate;
	var fullMonth;
	var fullTime = '';
	
	if (pDate<10)
		fullDate="0"+pDate;
	else
		fullDate=""+pDate;
	if ((this.Month+1)<10)
		fullMonth="0"+(this.Month+1);
	else
		fullMonth=""+(this.Month+1);

	if (this.ShowTime==1)
		fullTime = ' '+this.getShowHour()+':'+this.Minutes;
	if (this.ShowTime==2)
		fullTime = ' '+this.getShowHour()+':'+this.Minutes+':'+this.Seconds;
	
	if (this.Format.indexOf("dd-MM-yyyy")==0)
		return (fullDate+DateSeparator+fullMonth+DateSeparator+this.Year+fullTime);
	else if (this.Format.indexOf("MM-dd-yyyy")==0)
		return (fullMonth+DateSeparator+fullDate+DateSeparator+this.Year+fullTime);
	else if (this.Format.indexOf("yyyy-MM-dd")==0)
		return (this.Year+DateSeparator+fullMonth+DateSeparator+fullDate+fullTime);
}
Calendar.prototype.FormatDate=FormatDate;

function FormatSQLDate(pDate)
{
	var fullDate;
	var fullMonth;
	var fullTime = '00:00:00.0';
	
	if (pDate<10)
		fullDate='0'+pDate;
	else
		fullDate=""+pDate;
	if ((this.Month+1)<10)
		fullMonth='0'+(this.Month+1);
	else
		fullMonth=''+(this.Month+1);

	if (this.ShowTime)
		fullTime = ''+this.getShowHour()+':'+this.Minutes+':'+this.Seconds+'.0';
	
	return (this.Year+DateSeparator+fullMonth+DateSeparator+fullDate+" "+fullTime);			
}
Calendar.prototype.FormatSQLDate=FormatSQLDate;