//----------------------------------------------------------
// originally written by Tan Ling Wee on 2 Dec 2001
// last updated 23 June 2002
// email : fuushikaden@yahoo.com
//
// rewritten by Paulo Alves on 7 Nov 2006
// email : paulo.alves@rigorcg.pt
//
// rewritten by Filipe Teixeira
// email : filipe.teixeira@rigorcg.pt
//----------------------------------------------------------
// Revisions:
// 2009-09-07 FT: v1.8	Alterado criação do div 'calendar' para garantir funcionamento em ambiente Portal
// 2008-09-23 FT: v1.7	Adicionar labels em Castelhano
// 2008-07-22 FT: v1.6	Adicionar em opção onClose
// 2008-02-22 FT: v1.5	Adicionar em popUpYear,popUpMonth Correcção para o Firefox(Ver funções)
// 2008-02-14 FT: v1.4	Substituir caracteres por caracteres expandidos (Exemplo: á -> á)
// 2007-10-19 FT: v1.4	Adicionar
//							if (crossobj.left=="") crossobj.left = ctl.offsetLeft + leftpos + "px"
//							if (crossobj.top=="")  crossobj.top = ctl.offsetTop  + toppos + ctl.offsetHeight + 2 + "px"
// 2007-10-09 FT: v1.3	Adicionar !=HTML para solucionar 
// 2007-06-04 FT: v1.2	Feriados Móveis (Cálculo do Corpo de Deus)
// 2007-05-03 PA: v1.1	start and end dates selectables
// 2006-11-28 PA: v1.0	correction of crossobj displaying
//----------------------------------------------------------

/*
Syntax:	popUpSCCalendar(dateControl, calendarFeatures)

Parameters:  dateControl   	- edit control of the date to be edited

	     calendarFeatures   - A string containing a comma-separated list determining whether or not to use various calendar features
 
       	  	format:	  specifies the format of the date to be used in dateControl like yyyy-mm-dd, dd/mm/yyyy, etc.

			holidays: If 'yes', displays the holidays names with background color

			top:      Specifies the vertical distance in pixels from the dateControl
			left:     Specifies the horizontal distance in pixels from the dateControl

			start:    specifies the begining date available to be selected. (yyyy-mm-dd)
			end:      specifies the last date available to be selected.     (yyyy-mm-dd)
			
			onClose:  specifies the javascript function that is called after selected Date 

Examples:
	onClick="popUpSCCalendar(Form1.BIRTHDATE)"
	onClick="popUpSCCalendar(Form1.BIRTHDATE,'left=1000,top=-200,holidays=yes,format=dd/mm/yyyy')"
	onClick="popUpSCCalendar(Form1.BIRTHDATE,'left=1000,top=-200,holidays=yes,format=dd/mm/yyyy,onClose=finishFunction()')"
*/



// -----------------------------------------------------------------------------------------------------
// CONFIG - DEFAULT PARAMETERS

if(typeof SCCalendar_langue       =='undefined')  var SCCalendar_langue 	= 1;	// 1 - PT; 2 - EN; 3 - FR
if(typeof SCCalendar_startWeekAt  =='undefined')  var SCCalendar_startWeekAt 	= 0;	// 0 - sunday ; 1 - monday
if(typeof SCCalendar_showWeeks    =='undefined')  var SCCalendar_showWeeks 	= 0;	// 0 - hide; 1 - show
if(typeof SCCalendar_showToday    =='undefined')  var SCCalendar_showToday 	= 1;	// 0 - hide; 1 - show
if(typeof SCCalendar_showHolidays =='undefined')  var SCCalendar_showHolidays	= 1;	// 0 - hide; 1 - show
if(typeof SCCalendar_showCarnival =='undefined')  var SCCalendar_showCarnival	= 0;	// 0 - don't show carnival as holiday; 1 - show carnival as holiday

if(typeof SCCalendar_fixedX       =='undefined')  var SCCalendar_fixedX 	= -1;	// x position (-1 if to appear below control)
if(typeof SCCalendar_fixedY       =='undefined')  var SCCalendar_fixedY 	= -1;	// y position (-1 if to appear below control)

if(typeof SCCalendar_imgPath 	  =='undefined')  var SCCalendar_imgPath 	= "/SCCalendar/img/";	// directory for images ...
if(typeof SCCalendar_dateFormat	  =='undefined')  var SCCalendar_dateFormat  	= "yyyy-mm-dd";



// -----------------------------------------------------------------------------------------------------
// STYLES - DEFAULT COLORS

if(typeof SCCalendar_borderOver   =='undefined')  var SCCalendar_borderOver 	= "#FFFFFF";	
if(typeof SCCalendar_borderOut    =='undefined')  var SCCalendar_borderOut   	= "#E2EFF2";
if(typeof SCCalendar_bgOverYear   =='undefined')  var SCCalendar_bgOverYear  	= "#FFCC99";
if(typeof SCCalendar_bgOverMonth  =='undefined')  var SCCalendar_bgOverMonth 	= "#FFCC99";
if(typeof SCCalendar_colorToday   =='undefined')  var SCCalendar_colorToday  	= "#ff0000";
if(typeof SCCalendar_colorSunday  =='undefined')  var SCCalendar_colorSunday 	= "#909090";

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

if (SCCalendar_langue==1) //PORTUGUES
{
	var gotoString 		= "Ir para mês corrente";
	var todayString 	= "Hoje é";
	var weekString 		= "Sem.";
	var scrollLeftMessage 	= "Clique para saltar para o mês anterior. Mantenha premido o botão do rato para rolamento automático.";
	var scrollRightMessage 	= "Clique para saltar para o mês seguinte. Mantenha premido o botão do rato para rolamento automático.";
	var selectMonthMessage 	= "Clique para seleccionar um mês.";
	var selectYearMessage 	= "Clique para seleccionar um ano.";
	var selectDateMessage 	= "Escolha da data [date]."; // do not replace [date], it will be replaced by date.
	var altCloseCalendar 	= "Fechar o calendário";

	var monthName 	= new Array("Janeiro","Fevereiro","Março","Abril","Maio","Junho","Julho","Agosto","Setembro","Outubro","Novembro","Dezembro");
	var dayName 	= new Array("Dom","Seg","Ter","Qua","Qui","Sex","Sáb");

	var arrTemp = dayName.slice(SCCalendar_startWeekAt,7);
	var dayName = arrTemp.concat(dayName.slice(0,SCCalendar_startWeekAt))
}

if (SCCalendar_langue==2) //ENGLISH
{
	var gotoString 		= "Go To Current Month";
	var todayString 	= "Today is";
	var weekString 		= "Wk";
	var scrollLeftMessage 	= "Click to scroll to previous month. Hold mouse button to scroll automatically.";
	var scrollRightMessage 	= "Click to scroll to next month. Hold mouse button to scroll automatically.";
	var selectMonthMessage 	= "Click to select a month.";
	var selectYearMessage 	= "Click to select a year.";
	var selectDateMessage 	= "Select [date] as date."; // do not replace [date], it will be replaced by date.
	var altCloseCalendar 	= "Close the Calendar";

	var monthName 	= new Array("January","February","March","April","May","June","July","August","September","October","November","December");
	dayName 	= new Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat");

	arrTemp = dayName.slice(SCCalendar_startWeekAt,7);
	dayName = arrTemp.concat(dayName.slice(0,SCCalendar_startWeekAt))
}
	

if (SCCalendar_langue==3) //FRENCH
{
	gotoString 		= "Aller au mois en cours"
	todayString 		= "Aujourd'hui : "
	weekString 		= "Sem"
	scrollLeftMessage 	= "Cliquer pour le mois précédent. Tenir enfoncé pour déroulement automatique."
	scrollRightMessage 	= "Cliquer pour le mois suivant. Tenir enfoncé pour déroulement automatique."
	selectMonthMessage 	= "Cliquer pour choisir un mois."
	selectYearMessage 	= "Clicquer pour choisir une année."
	selectDateMessage 	= "Choisir [date] comme date." // do not replace [date], it will be replaced by date.
	altCloseCalendar 	= "Fermer le calendrier"

	monthName =	new Array("Janvier","Février","Mars","Avril","Mai","Juin","Juillet","Août","Septembre","Octobre","Novembre","Décembre")
	dayName = 	new Array("Dim","Lun","Mar","Mer","Jeu","Ven","Sam")
	fullDayName = 	new Array("dimanche","lundi","mardi","mercredi","jeudi","vendredi","samedi")
	
	arrTemp = dayName.slice(SCCalendar_startWeekAt,7)
	dayName = arrTemp.concat(dayName.slice(0,SCCalendar_startWeekAt))
	
	arrTemp = fullDayName.slice(SCCalendar_startWeekAt,7)
	fullDayName = arrTemp.concat(fullDayName.slice(0,SCCalendar_startWeekAt))
}
if (SCCalendar_langue==4) //ESPANHOL
{
	var gotoString 		= "Go To Current Month";
	var todayString 	= "Today is";
	var weekString 		= "Wk";
	var scrollLeftMessage 	= "Click to scroll to previous month. Hold mouse button to scroll automatically.";
	var scrollRightMessage 	= "Click to scroll to next month. Hold mouse button to scroll automatically.";
	var selectMonthMessage 	= "Click to select a month.";
	var selectYearMessage 	= "Click to select a year.";
	var selectDateMessage 	= "Select [date] as date."; // do not replace [date], it will be replaced by date.
	var altCloseCalendar 	= "Close the Calendar";

	var monthName 	= new Array("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre");
	dayName 	= new Array("Sun","Lun","Mar","Mie","Jue","Vie","Sáb");

	arrTemp = dayName.slice(SCCalendar_startWeekAt,7);
	dayName = arrTemp.concat(dayName.slice(0,SCCalendar_startWeekAt))
}


var crossobj=null, crossMonthObj, crossYearObj, tryCounter=2 ;
var monthSelected, yearSelected, dateSelected, omonthSelected, oyearSelected, odateSelected, monthConstructed, yearConstructed;
var intervalID1, intervalID2, timeoutID1, timeoutID2, ctlToPlaceValue, ctlNow, dateFormat, nStartingYear;
var showToday, showWeeks, showHolidays, startAvailableDate, endAvailableDate, functionOnClose;

var bPageLoaded=false;
var ie=document.all;
var dom=document.getElementById;

var ns4=document.layers;
var today=new Date();
var dateNow=today.getDate();
var monthNow=today.getMonth();
var yearNow=today.getFullYear();
var imgsrc=new Array("drop1.gif","drop2.gif","left1.gif","left2.gif","right1.gif","right2.gif");
var img=new Array();

var bShow = false;

/* hides <select> and <applet> objects (for IE only) */
function hideElement( elmID, overDiv )
{
  if( ie )
  {
	for( i = 0; i < document.all.tags( elmID ).length; i++ )
	{
	  obj = document.all.tags( elmID )[i];
	  if( !obj || !obj.offsetParent )
	  {
		continue;
	  }
  
	  // Find the element's offsetTop and offsetLeft relative to the BODY tag.
	  objLeft   = obj.offsetLeft;
	  objTop    = obj.offsetTop;
	  objParent = obj.offsetParent;

	  while(objParent.tagName.toUpperCase() !="HTML"  && objParent.tagName.toUpperCase() != "BODY" )
	  {
		objLeft  += objParent.offsetLeft;
		objTop   += objParent.offsetTop;
		objParent = objParent.offsetParent;
	  }
  
	  objHeight = obj.offsetHeight;
	  objWidth = obj.offsetWidth;
  
	  if(( overDiv.offsetLeft + overDiv.offsetWidth ) <= objLeft );
	  else if(( overDiv.offsetTop + overDiv.offsetHeight ) <= objTop );
	  else if( overDiv.offsetTop >= ( objTop + objHeight ));
	  else if( overDiv.offsetLeft >= ( objLeft + objWidth ));
	  else
	  {
		obj.style.visibility = "hidden";
	  }
	}
  }
}
 
/*
* unhides <select> and <applet> objects (for IE only)
*/
function showElement( elmID )
{
  if( ie )
  {
	for( i = 0; i < document.all.tags( elmID ).length; i++ )
	{
	  obj = document.all.tags( elmID )[i];
	  
	  if( !obj || !obj.offsetParent )
	  {
		continue;
	  }
	
	  obj.style.visibility = "";
	}
  }
}

function HolidayRec (d, m, y, desc)
{
	this.d = d
	this.m = m
	this.y = y
	this.desc = desc
}

var HolidaysCounter = 0
var Holidays = new Array()

function addHoliday (d, m, y, desc)
{
	Holidays[HolidaysCounter++] = new HolidayRec ( d, m, y, desc )
}

if (dom) {
	for	(var i=0;i<imgsrc.length;i++) {
		img[i] = new Image
		img[i].src = SCCalendar_imgPath + imgsrc[i]
	}
	var scCalendarHTML = "<div onclick='bShow=true' id='calendar' style='z-index:+999;position:absolute;visibility:hidden;'>";
	scCalendarHTML += "<table	width="+((SCCalendar_showWeeks==1)?250:220)+" class='SCCalendar_table'>";
	scCalendarHTML += "<tr class='SCCalendar_title'><td><table width='"+((SCCalendar_showWeeks==1)?248:218)+"'><tr><td class='SCCalendar_title2'><B><span id='caption'></span></B></td><td align=right><a href='javascript:hideCalendar()'><IMG SRC='"+ SCCalendar_imgPath +"close.gif' name=close WIDTH='15' HEIGHT='13' BORDER='0' ALT='" + altCloseCalendar + "'></a></td></tr></table></td></tr>";
	scCalendarHTML += "<tr><td class='SCCalendar_body'><span id='content'></span></td></tr>";

	if (SCCalendar_showToday==1) {
		scCalendarHTML += "<tr class='SCCalendar_bottom'><td style='padding:5px' align=center><span id='lblToday'></span></td></tr>";
	}
	scCalendarHTML += "</table></div><div id='selectMonth' style='z-index:+999;position:absolute;visibility:hidden;'></div><div id='selectYear' style='z-index:+999;position:absolute;visibility:hidden;'></div>";

	var oBody = document.body;
	if (oBody!=null) {
		var sccalendarBackground=document.createElement('div');
		sccalendarBackground.innerHTML = scCalendarHTML;
		oBody.insertBefore(sccalendarBackground, oBody.firstChild);
	} else {
		document.write(scCalendarHTML);
	}
}


function swapImage(srcImg, destImg){
	if (ie)	{ document.getElementById(srcImg).setAttribute("src",SCCalendar_imgPath + destImg) }
}

function initSCCalendar()	{
	if (!ns4)
	{
		crossobj=(dom)?document.getElementById("calendar").style : ie? document.all.calendar : document.calendar
		hideCalendar()

		crossMonthObj=(dom)?document.getElementById("selectMonth").style : ie? document.all.selectMonth	: document.selectMonth

		crossYearObj=(dom)?document.getElementById("selectYear").style : ie? document.all.selectYear : document.selectYear

		monthConstructed=false;
		yearConstructed=false;

		if (SCCalendar_showToday==1)
		{
			if (SCCalendar_langue==3)
				document.getElementById("lblToday").innerHTML =	todayString + " <a onmousemove='window.status=\""+gotoString+"\"' onmouseout='window.status=\"\"' title='"+gotoString+"' class='SCCalendar_anchor' href='javascript:monthSelected=monthNow;yearSelected=yearNow;constructCalendar();'>"+fullDayName[firstdayofweek(today.getDay())]+" le " + ((dateNow==1)?"1<sup>er</sup>":dateNow) + " " + monthName[monthNow].toLowerCase()	+ "	" +	yearNow	+ "</a>"
			else
				document.getElementById("lblToday").innerHTML =	todayString + " <a onmousemove='window.status=\""+gotoString+"\"' onmouseout='window.status=\"\"' title='"+gotoString+"' class='SCCalendar_anchor' href='javascript:monthSelected=monthNow;yearSelected=yearNow;constructCalendar();'>"+dayName[firstdayofweek(today.getDay())]+", " + dateNow + " " + monthName[monthNow].substring(0,3)	+ "	" +	yearNow	+ "</a>"
		}

		var sHTML1= "<span id='spanLeft'  class='SCCalendar_border' onmouseover='swapImage(\"changeLeft\", \"left2.gif\"); this.style.borderColor=\"" + SCCalendar_borderOver + "\";window.status=\""+scrollLeftMessage+ "\"' onclick='javascript:decMonth()' 	onmouseout='clearInterval(intervalID1); swapImage(\"changeLeft\", \"left1.gif\"); this.style.borderColor=\"" + SCCalendar_borderOut + "\";window.status=\"\"' 			onmousedown='clearTimeout(timeoutID1);timeoutID1=setTimeout(\"StartDecMonth()\",500)'	onmouseup='clearTimeout(timeoutID1);clearInterval(intervalID1)'>&nbsp<img id='changeLeft'  SRC='"+SCCalendar_imgPath+"left1.gif'  width=10 height=11 border=0 style='vertical-align:top;'>&nbsp</span>&nbsp;"
		sHTML1+="<span id='spanRight' class='SCCalendar_border' onmouseover='swapImage(\"changeRight\",\"right2.gif\");this.style.borderColor=\"" + SCCalendar_borderOver + "\";window.status=\""+scrollRightMessage+"\"' 					onmouseout='clearInterval(intervalID1); swapImage(\"changeRight\",\"right1.gif\");this.style.borderColor=\"" + SCCalendar_borderOut + "\";window.status=\"\"' onclick='incMonth()' 	onmousedown='clearTimeout(timeoutID1);timeoutID1=setTimeout(\"StartIncMonth()\",500)'	onmouseup='clearTimeout(timeoutID1);clearInterval(intervalID1)'>&nbsp<img id='changeRight' SRC='"+SCCalendar_imgPath+"right1.gif' width=10 height=11 border=0  style='vertical-align:top;'>&nbsp</span>&nbsp;"
		sHTML1+="<span id='spanMonth' class='SCCalendar_border' onmouseover='swapImage(\"changeMonth\",\"drop2.gif\"); this.style.borderColor=\"" + SCCalendar_borderOver + "\";window.status=\""+selectMonthMessage+"\"' 					onmouseout='				swapImage(\"changeMonth\",\"drop1.gif\"); this.style.borderColor=\"" + SCCalendar_borderOut + "\";window.status=\"\"' onclick='popUpMonth()'></span>&nbsp;"
		sHTML1+="<span id='spanYear'  class='SCCalendar_border' onmouseover='swapImage(\"changeYear\", \"drop2.gif\"); this.style.borderColor=\"" + SCCalendar_borderOver + "\";window.status=\""+selectYearMessage+ "\"' 					onmouseout='				swapImage(\"changeYear\", \"drop1.gif\"); this.style.borderColor=\"" + SCCalendar_borderOut + "\";window.status=\"\"' onclick='popUpYear()'></span>&nbsp;"
		
		document.getElementById("caption").innerHTML  =	sHTML1

		bPageLoaded=true
	}
}
function firstdayofweek(day) {
	day -= SCCalendar_startWeekAt
	if (day < 0){day = 7 + day}
	return day
}

function hideCalendar()	
{
	if ((crossobj==null) && (tryCounter>0))
	{  tryCounter--; initSCCalendar();  }

	crossobj.visibility="hidden"
	if (crossMonthObj != null){crossMonthObj.visibility="hidden"}
	if (crossYearObj !=	null){crossYearObj.visibility="hidden"}

	showElement( 'SELECT' );
	showElement( 'APPLET' );
}

function padZero(num) {
	return (num	< 10)? '0' + num : num ;
}

function constructDate(d,m,y)
{
	var sTmp = dateFormat
	sTmp = sTmp.replace	("dd","<e>")
	sTmp = sTmp.replace	("d","<d>")
	sTmp = sTmp.replace	("<e>",padZero(d))
	sTmp = sTmp.replace	("<d>",d)
	sTmp = sTmp.replace	("mmm","<o>")
	sTmp = sTmp.replace	("mm","<n>")
	sTmp = sTmp.replace	("m","<m>")
	sTmp = sTmp.replace	("<m>",m+1)
	sTmp = sTmp.replace	("<n>",padZero(m+1))
	sTmp = sTmp.replace	("<o>",monthName[m])
	return sTmp.replace ("yyyy",y)
}

function closeCalendar() {
	var	sTmp
	hideCalendar();
	ctlToPlaceValue.value =	constructDate(dateSelected,monthSelected,yearSelected)
	
	if (functionOnClose!=null) {
    	functionOnClose = myReplaceAll(functionOnClose, ";", ",");
		eval(functionOnClose);
	}
}

function myReplaceAll(stringObject, findstring, newstring) {
	stringObject = stringObject.replace(findstring, newstring);
	if (stringObject.indexOf(findstring)!=-1)
		myReplaceAll(stringObject, findstring, newstring)

	return stringObject;
}

/*** Month Pulldown	***/
function StartDecMonth()
{
	intervalID1=setInterval("decMonth()",80)
}

function StartIncMonth()
{
	intervalID1=setInterval("incMonth()",80)
}

function incMonth () {
	monthSelected++
	if (monthSelected>11) {
		monthSelected=0
		yearSelected++
	}
	constructCalendar()
}

function decMonth () {
	monthSelected--
	if (monthSelected<0) {
		monthSelected=11
		yearSelected--
	}
	constructCalendar()
}

function constructMonth() {
	popDownYear()
	if (!monthConstructed) {
		sHTML =	""
		for	(i=0; i<12;	i++) {
			sName =	monthName[i];
			if (i==monthSelected){
				sName =	"<B>" +	sName +	"</B>"
			}
			sHTML += "<tr><td id='m" + i + "' onmouseover='this.style.backgroundColor=\"" + SCCalendar_bgOverMonth + "\"' onmouseout='this.style.backgroundColor=\"\"' style='cursor:pointer' onclick='monthConstructed=false;monthSelected=" + i + ";constructCalendar();popDownMonth();event.cancelBubble=true'>&nbsp;" + sName + "&nbsp;</td></tr>"
		}

		document.getElementById("selectMonth").innerHTML = "<table width=70 class='SCCalendar_month' cellspacing=0 onmouseover='clearTimeout(timeoutID1)'	onmouseout='clearTimeout(timeoutID1);timeoutID1=setTimeout(\"popDownMonth()\",100);event.cancelBubble=true'>" +	sHTML +	"</table>"

		monthConstructed=true
	}
}

function popUpMonth() {
	constructMonth()
	crossMonthObj.visibility = (dom||ie)? "visible"	: "show"
	crossMonthObj.left = parseInt(crossobj.left) + 50
	crossMonthObj.top =  parseInt(crossobj.top) + 26

      //Correcção para o Firefox
      if (crossMonthObj.left=="") crossMonthObj.left = parseInt(crossobj.left) + 50 + "px";
      if (crossMonthObj.top=="")crossMonthObj.top = parseInt(crossobj.top) + 26 + "px";


	hideElement( 'SELECT', document.getElementById("selectMonth") );
	hideElement( 'APPLET', document.getElementById("selectMonth") );			
}

function popDownMonth()	{
	crossMonthObj.visibility= "hidden"
}

/*** Year Pulldown ***/

function incYear() {
	for	(i=0; i<7; i++){
		newYear	= (i+nStartingYear)+1
		if (newYear==yearSelected)
		{ txtYear =	"&nbsp;<B>"	+ newYear +	"</B>&nbsp;" }
		else
		{ txtYear =	"&nbsp;" + newYear + "&nbsp;" }
		document.getElementById("y"+i).innerHTML = txtYear
	}
	nStartingYear ++;
	bShow=true
}

function decYear() {
	for	(i=0; i<7; i++){
		newYear	= (i+nStartingYear)-1
		if (newYear==yearSelected)
		{ txtYear =	"&nbsp;<B>"	+ newYear +	"</B>&nbsp;" }
		else
		{ txtYear =	"&nbsp;" + newYear + "&nbsp;" }
		document.getElementById("y"+i).innerHTML = txtYear
	}
	nStartingYear --;
	bShow=true
}

function selectYear(nYear) {
	yearSelected=parseInt(nYear+nStartingYear);
	yearConstructed=false;
	constructCalendar();
	popDownYear();
}

function constructYear() {
	popDownMonth()
	sHTML =	""
	if (!yearConstructed) {

		sHTML =	"<tr><td align='center'	onmouseover='this.style.backgroundColor=\"" + SCCalendar_bgOverYear + "\"' onmouseout='clearInterval(intervalID1);this.style.backgroundColor=\"\"' style='cursor:pointer'	onmousedown='clearInterval(intervalID1);intervalID1=setInterval(\"decYear()\",30)' onmouseup='clearInterval(intervalID1)'>-</td></tr>"

		j =	0
		nStartingYear =	yearSelected-3
		for	(i=(yearSelected-3); i<=(yearSelected+3); i++) {
			sName =	i;
			if (i==yearSelected){
				sName =	"<B>" +	sName +	"</B>"
			}

			sHTML += "<tr><td id='y" + j + "' onmouseover='this.style.backgroundColor=\"" + SCCalendar_bgOverYear + "\"' onmouseout='this.style.backgroundColor=\"\"' style='cursor:pointer' onclick='selectYear("+j+");event.cancelBubble=true'>&nbsp;" + sName + "&nbsp;</td></tr>"
			j ++;
		}

		sHTML += "<tr><td align='center' onmouseover='this.style.backgroundColor=\"" + SCCalendar_bgOverYear + "\"' onmouseout='clearInterval(intervalID2);this.style.backgroundColor=\"\"' style='cursor:pointer' onmousedown='clearInterval(intervalID2);intervalID2=setInterval(\"incYear()\",30)'	onmouseup='clearInterval(intervalID2)'>+</td></tr>"

		document.getElementById("selectYear").innerHTML	= "<table width=44 class='SCCalendar_year' onmouseover='clearTimeout(timeoutID2)' onmouseout='clearTimeout(timeoutID2);timeoutID2=setTimeout(\"popDownYear()\",100)' cellspacing=0>"	+ sHTML	+ "</table>"

		yearConstructed	= true
	}
}

function popDownYear() {
	clearInterval(intervalID1)
	clearTimeout(timeoutID1)
	clearInterval(intervalID2)
	clearTimeout(timeoutID2)
	crossYearObj.visibility= "hidden"
}

function popUpYear() {
	var leftOffset

	constructYear()
	crossYearObj.visibility	= (dom||ie)? "visible" : "show"
	leftOffset = parseInt(crossobj.left) + document.getElementById("spanYear").offsetLeft;
	if (ie)
	{
		leftOffset += 6
	}
	crossYearObj.left = leftOffset
	crossYearObj.top =  parseInt(crossobj.top) + 26;

      //Correcção para o Firefox	
      if (crossYearObj.left=="") crossYearObj.left = leftOffset + "px";
      if (crossYearObj.top=="") crossYearObj.top = parseInt(crossobj.top) + 26 + "px";
}

/*** calendar ***/
function WeekNbr(n) {
  // Algorithm used:
  // From Klaus Tondering's Calendar document (The Authority/Guru)
  // hhtp://www.tondering.dk/claus/calendar.html
  // a = (14-month) / 12
  // y = year + 4800 - a
  // m = month + 12a - 3
  // J = day + (153m + 2) / 5 + 365y + y / 4 - y / 100 + y / 400 - 32045
  // d4 = (J + 31741 - (J mod 7)) mod 146097 mod 36524 mod 1461
  // L = d4 / 1460
  // d1 = ((d4 - L) mod 365) + L
  // WeekNumber = d1 / 7 + 1

  year  = n.getFullYear();
  month = n.getMonth() + 1;
  day   = n.getDate() + 1 - SCCalendar_startWeekAt;

  a  = Math.floor((14-month) / 12);
  y  = year + 4800 - a;
  m  = month + 12 * a - 3;
  b  = Math.floor(y/4) - Math.floor(y/100) + Math.floor(y/400);
  J  = day + Math.floor((153 * m + 2) / 5) + 365 * y + b - 32045;
  d4 = (((J + 31741 - (J % 7)) % 146097) % 36524) % 1461;
  L  = Math.floor(d4 / 1460);
  d1 = ((d4 - L) % 365) + L;
  week = Math.floor(d1/7) + 1;

  return week;
}

function constructCalendar () 
{

	var aNumDays = Array (31,0,31,30,31,30,31,31,30,31,30,31)

	var dateMessage
	var startDate = new Date (yearSelected,monthSelected,1)
	var endDate

	if (monthSelected==1)
	{
		endDate	= new Date (yearSelected,monthSelected+1,1);
		endDate	= new Date (endDate - (24*60*60*1000));
		numDaysInMonth = endDate.getDate()
	}
	else
	{
		var numDaysInMonth = aNumDays[monthSelected];
	}

	var datePointer = 0
	
	var dayPointer = firstdayofweek(startDate.getDay())

	var sHTML =	"<table	 border=0 style='font-family:verdana;font-size:10px;'><tr>"

	if (SCCalendar_showWeeks==1)
	{
		sHTML += "<td width=27><b>" + weekString + "</b></td><td width=1 rowspan=7 bgcolor='#d0d0d0' style='padding:0px'><img src='"+SCCalendar_imgPath+"divider.gif' width=1></td>"
	}

	for	(i=0; i<7; i++)	{
		sHTML += "<td width='27' align='right'><B>"+ dayName[i]+"</B></td>"
	}
	sHTML +="</tr><tr>"
	
	if (SCCalendar_showWeeks==1)
	{
		sHTML += "<td align=right>" + WeekNbr(startDate) + "&nbsp;</td>"
	}

	for	( var i=1; i<=dayPointer;i++ )
	{
		sHTML += "<td>&nbsp;</td>"
	}

	if (showHolidays==1)
	{
		var hdt1=null,hdt2,hdt3,hdt4;
		hdt3 = easterDay(yearSelected);  //Páscoa
		hdt2 = dateAdd("d",hdt3,-2);   // Sexta-feira Santa
		hdt4 = dateAdd("d",hdt3,60);  //Corpo de Deus
      
		if (SCCalendar_showCarnival==1) hdt1 = dateAdd("d",hdt3,-47);
	}

	for ( datePointer=1; datePointer<=numDaysInMonth; datePointer++ )
	{
		dayPointer++;
		sHTML += "<td align=right>"

		var sClasses = "SCCalendar_anchor"

		if ((datePointer==odateSelected) && (monthSelected==omonthSelected) && (yearSelected==oyearSelected))
		{
		  sClasses += " SCCalendar_today"
		}
		var sHint = ""
		if (showHolidays==1)
		{
		    var hFound = false;
		    for (var k=0;k<HolidaysCounter;k++)
		    {
			if ((parseInt(Holidays[k].d)==datePointer)&&(parseInt(Holidays[k].m)==(monthSelected+1)))
			{
				if ((parseInt(Holidays[k].y)==0)||((parseInt(Holidays[k].y)==yearSelected)&&(parseInt(Holidays[k].y)!=0)))
				{
					sClasses += " SCCalendar_holiday"

					sHint+=sHint==""?Holidays[k].desc:"\n"+Holidays[k].desc;
					hFound = true;
					break;
				}
			}
		    }

		    if (!hFound && (monthSelected > 0) && (monthSelected < 12))
		    {
			// Verifica os feriados móveis - Entrudo, Sexta-feira Santa, Páscoa e Corpo de Deus

			desc = null
			if ((hdt3.getDate()==datePointer)&&(hdt3.getMonth()==monthSelected))
			{
				desc = "P&aacute;scoa";
			}
			else if ((hdt2.getDate()==datePointer)&&(hdt2.getMonth()==monthSelected))	
			{
				desc = "Sexta-feira Santa";
			}
			else if ((SCCalendar_showCarnival==1)&&(hdt1.getDate()==datePointer)&&(hdt1.getMonth()==monthSelected))	
			{
				desc = "Entrudo";
			}
			else if ((hdt4.getDate()==datePointer)&&(hdt4.getMonth()==monthSelected))	
			{
				desc = "Corpo de Deus";
			}


			if (desc != null)
			{	sClasses += " SCCalendar_holiday"
				sHint+=sHint==""?desc:"\n"+desc
			}
		    }
		}

		var regexp= /\"/g
		sHint=sHint.replace(regexp,"&quot;")

		dateMessage = "onmousemove='window.status=\""+selectDateMessage.replace("[date]",constructDate(datePointer,monthSelected,yearSelected))+"\"' onmouseout='window.status=\"\"' "

		dateDisabled = false
		if ((startAvailableDate != null) || (endAvailableDate != null))
		{
			dt = new Date(yearSelected,monthSelected,datePointer);

			if ((startAvailableDate != null) && (dt < startAvailableDate))
				dateDisabled = true;
			else if ((endAvailableDate != null) && (dt > endAvailableDate))
				dateDisabled = true;
		}

		if (dateDisabled)
		{   // Date is not selectable
		    sHTML += "<div "+dateMessage+" title=\"" + sHint + "\" class='SCCalendar_disable'>&nbsp;" + datePointer + "</font>&nbsp;</div>" 
		}
		else
		{
		    if ((datePointer==dateNow)&&(monthSelected==monthNow)&&(yearSelected==yearNow))
		    {   // Today
			sHTML += "<b><a "+dateMessage+" title=\"" + sHint + "\" class='"+sClasses+"' href='javascript:dateSelected="+datePointer+";closeCalendar();'><font color=" + SCCalendar_colorToday + ">&nbsp;" + datePointer + "</font>&nbsp;</a></b>" 
		    }
		    else if	(dayPointer % 7 == (SCCalendar_startWeekAt * -1)+1)
		    {   // Weekend day
			sHTML += "<a "+dateMessage+" title=\"" + sHint + "\" class='"+sClasses+"' href='javascript:dateSelected="+datePointer + ";closeCalendar();'>&nbsp;<font color=" + SCCalendar_colorSunday + ">" + datePointer + "</font>&nbsp;</a>" 
		    }
		    else
		    {
			sHTML += "<a "+dateMessage+" title=\"" + sHint + "\" class='"+sClasses+"' href='javascript:dateSelected="+datePointer + ";closeCalendar();'>&nbsp;" + datePointer + "&nbsp;</a>" 
		    }
		}


		sHTML += ""
		if ((dayPointer+SCCalendar_startWeekAt) % 7 == SCCalendar_startWeekAt) 
		{ 
			sHTML += "</tr><tr>" 
			if ((SCCalendar_showWeeks==1)&&(datePointer<numDaysInMonth))
			{
				sHTML += "<td align=right>" + (WeekNbr(new Date(yearSelected,monthSelected,datePointer+1))) + "&nbsp;</td>"
			}
		}
	}

	document.getElementById("content").innerHTML   = sHTML
	document.getElementById("spanMonth").innerHTML = "&nbsp;" + monthName[monthSelected] + "&nbsp;<IMG id='changeMonth' SRC='"+SCCalendar_imgPath+"drop1.gif' WIDTH='12' HEIGHT='10' BORDER=0>"
	document.getElementById("spanYear").innerHTML =	"&nbsp;" + yearSelected	+ "&nbsp;<IMG id='changeYear' SRC='"+SCCalendar_imgPath+"drop1.gif' WIDTH='12' HEIGHT='10' BORDER=0>"
}

function popUpSCCalendar(ctl, options) 
{

	if (crossobj == null) initSCCalendar();

	showHolidays = null
	dateFormat   = null
	var leftpos  = null
	var toppos   = null
	startAvailableDate = null
	endAvailableDate   = null
      functionOnClose = null;
 
	if (options!=null)
	{   var arr = options.split(",");
	    for (var k=0; k<arr.length; k++)
	    {   
            var opt = arr[k].split("=")
	     	switch (opt[0]) {  
	           case "format"  : dateFormat   = opt[1]; break;		   
		     case "holidays": showHolidays = ((opt[1]=="yes")?1:0); break; 	// yes, no
		     case "top"     : toppos       = parseInt(opt[1]); break; 		// -185
		     case "left"    : leftpos      = parseInt(opt[1]); break; 		// 250
		     case "start"   : tmp = opt[1].split("-");
		 		          if (tmp.length == 3) {startAvailableDate = new Date(tmp[0],eval(tmp[1])-1,tmp[2]); } break; 		// 2006-01-01
		     case "end"     : tmp = opt[1].split("-");
				          if (tmp.length == 3){  endAvailableDate = new Date(tmp[0],eval(tmp[1])-1,tmp[2]); } break; 		// 2007-12-31
		     case "display" : displayAll   = ((opt[1]=="total")?1:0); break;	// total, partial
		     case "onClose" : functionOnClose = opt[1]; break;	// total, partial
		}
	    }
	}

	if (leftpos == null)	  leftpos      = 0 			//0 = alinhado à esquerda do controlo
	if (toppos == null)	  toppos       = 0 			//(-200 = up ; 0 = down)
	if (dateFormat == null)   dateFormat   = SCCalendar_dateFormat
	if (showHolidays == null) showHolidays = SCCalendar_showHolidays


	if (bPageLoaded)
	{
		if ( crossobj.visibility ==	"hidden" ) {
			ctlToPlaceValue	= ctl

			var formatChar = " "
			var aFormat	= dateFormat.split(formatChar)
			if (aFormat.length<3)
			{
				formatChar = "/"
				aFormat	= dateFormat.split(formatChar)
				if (aFormat.length<3)
				{
					formatChar = "."
					aFormat	= dateFormat.split(formatChar)
					if (aFormat.length<3)
					{
						formatChar = "-"
						aFormat	= dateFormat.split(formatChar)
						if (aFormat.length<3)
						{
							// invalid date	format
							formatChar=""
						}
					}
				}
			}
	
			var tokensChanged =	0
			if ( formatChar	!= "" )
			{
				// use user's date
				var aData =	ctl.value.split(formatChar)
				for	(i=0;i<3;i++)
				{
					if ((aFormat[i]=="d") || (aFormat[i]=="dd"))
					{
						dateSelected = parseInt(aData[i], 10)
						tokensChanged ++
					}
					else if	((aFormat[i]=="m") || (aFormat[i]=="mm"))
					{
						monthSelected =	parseInt(aData[i], 10) - 1
						tokensChanged ++
					}
					else if	(aFormat[i]=="yyyy")
					{
						yearSelected = parseInt(aData[i], 10)
						tokensChanged ++
					}
					else if	(aFormat[i]=="mmm")
					{
						for	(j=0; j<12;	j++)
						{
							if (aData[i]==monthName[j])
							{
								monthSelected=j
								tokensChanged ++
							}
						}
					}
				}
			}

			if ((tokensChanged!=3)||isNaN(dateSelected)||isNaN(monthSelected)||isNaN(yearSelected))
			{
				dateSelected = dateNow
				monthSelected =	monthNow
				yearSelected = yearNow
			}

			odateSelected=dateSelected
			omonthSelected=monthSelected
			oyearSelected=yearSelected

                  //Obter coordenadas posicionais
			var aTag = ctl
			do {
				aTag = aTag.offsetParent;
				leftpos	+= aTag.offsetLeft;
				toppos += aTag.offsetTop;
			} while(aTag.tagName!="HTML" && aTag.tagName!="BODY");

			crossobj.left =	SCCalendar_fixedX==-1 ? ctl.offsetLeft + leftpos : SCCalendar_fixedX;
			if (crossobj.left=="")
				crossobj.left = ctl.offsetLeft + leftpos + "px";

			crossobj.top  = SCCalendar_fixedY==-1 ? ctl.offsetTop  + toppos + ctl.offsetHeight + 2 : SCCalendar_fixedY;
			if (crossobj.top=="")
				crossobj.top = ctl.offsetTop  + toppos + ctl.offsetHeight + 2 + "px";

//alert("crossobj.left:" + crossobj.left + "\n" + "crossobj.top:" + crossobj.top)
//var crossPos = FindPosition(ctl);
//crossobj.left = crossPos[0];
//crossobj.top = crossPos[1];

			constructCalendar (1, monthSelected, yearSelected );

			crossobj.visibility=(dom||ie)? "visible" : "show"

			hideElement( 'SELECT', document.getElementById("calendar") );
			hideElement( 'APPLET', document.getElementById("calendar") );			

			bShow = true;
		}
		else
		{
			hideCalendar()
			if (ctlNow!=ctl) { popUpSCCalendar(ctl) }
		}
		ctlNow = ctl
	}
}



document.onkeypress = function hidecal1 (event) { 
	var unicode = 0;
	if (event==undefined)
		unicode = window.event.keyCode;
	else
		unicode = event.charCode? event.charCode : event.keyCode;

	if (unicode==27) 
	{
		hideCalendar();
	}
}
document.onclick = function hidecal2 () { 		
	if (!bShow)
	{
		hideCalendar()
	}
	bShow = false
}


/* -------------------------------------
if(ie) init()  else  window.onload=init
---------------------------------------- */

function easterDay(year)
{
	var A = year % 4;
	var B = year% 7;
	var C = year% 19;
	var D = (19*C + 24) % 30;
	var E = (2*A + 4*B + 6*D + 5) % 7;
	var day = 22+D+E;
	var month = 2;
	if (day > 31)
	{
		month = 3;
		day = D+E-9;
		if ((day==25) || (day==26)) day=day-7;
	}
	return (new Date(year,month,day));
}


function dateAdd(sInterval, dt1, iNum)
{
    var dTemp = new Date(dt1);
    if (!sInterval || iNum == 0) return dTemp;
    switch (sInterval.toLowerCase())
    {
	case "ms":	dTemp.setMilliseconds(dTemp.getMilliseconds() + iNum);	break;
	case "s":	dTemp.setSeconds(dTemp.getSeconds() + iNum);break;
	case "mi":	dTemp.setMinutes(dTemp.getMinutes() + iNum);break;
	case "h":	dTemp.setHours(dTemp.getHours() + iNum);break;
	case "d":	dTemp.setDate(dTemp.getDate() + iNum);break;
	case "mo":	dTemp.setMonth(dTemp.getMonth() + iNum);break;
    	case "y":	dTemp.setFullYear(dTemp.getFullYear() + iNum);break;
    } 
    return dTemp;
}


// Definição dos feriados nacionais fixos
addHoliday( 1, 1,0,"Ano Novo");
addHoliday(25, 4,0,"Dia da Liberdade");
addHoliday( 1, 5,0,"Festa do Trabalho");
addHoliday(10, 6,0,"Dia de Portugal");
addHoliday(15, 8,0,"Nossa Senhora da Assun&ccedil;&atilde;o");
addHoliday( 5,10,0,"Implanta&ccedil;&atilde;o da Rep&uacute;blica");
addHoliday( 1,11,0,"Todos os Santos");
addHoliday( 1,12,0,"Restaura&ccedil;&atilde;o da Independ&ecirc;ncia");
addHoliday( 8,12,0,"Imaculada Concei&ccedil;&atilde;o");
addHoliday(25,12,0,"Natal");

// Definição dos feriados nacionais móveis
//addHoliday(7, 6,0,"Corpo de Deus");



/*
A fórmula para cálculo manual, válida de 1900 a 2099, é a seguinte 
- do matemático alemão Karl Friedrich Gauss (1777-1855), na Enciclopédia Brasileira Globo:

A = o resto de (Ano ÷ 4)
B = o resto de (Ano ÷ 7)
C = o resto de (Ano ÷ 19)
D = o resto de [(19xC + 24) ÷ 30]
E = o resto de [(2xA + 4xB + 6xD + 5) ÷ 7]

A Páscoa será em 22+D+E de Março ou, 
se esse número for maior do que 31, em D+E-9 de Abril.
Correções: O resultado 25 de abril deve ser tomado como 18 de abril (se D=28 e C>10) 
e o resultado 26 de abril sempre como 19 de abril.

*/


/*
function FindPosition(obj) {
      // Assign the obj object to a temp variable
      tmpObj = obj;

      // Get the offsets for the current object
      var obj_left = tmpObj.offsetLeft;
      var obj_top = tmpObj.offsetTop;

      // If the current object has a parent (ie contained in a table, div, etc..)
      if (tmpObj.offsetParent) {
            // Loop through all the parents and add up their offsets
            // The while loop will end when no more parents exist and a null is returned
            while (tmpObj = tmpObj.offsetParent) {
                  obj_left += tmpObj.offsetLeft;
                  obj_top += tmpObj.offsetTop;
            }
      }
      //alert("obj_left:" + obj_left  +"\n" + "obj_top:" + obj_top);
      return [obj_left , obj_top];
}
*/