//<script language="JScript">
var gdCtrl = new Object();
var gcGray = "#808080";

var gcToggle = "#CCCCCC";

var gcBG = "#FFFBF7";
var gcTodayBG = "#FFFBF7";
var gcTemp = gcBG;

var gdCurDate = new Date();
var giYear = gdCurDate.getFullYear();
var giMonth = gdCurDate.getMonth()+1;
var giDay = gdCurDate.getDate();
var gdCurDateBR = giDay + "/" + giMonth + "/" + giYear
var VicPopCal = new Object();

var giStartYear = 1900;
var giEndYear = 2020;

function fPopCalendar(popCtrl, dateCtrl, popCal){
  parent.event.cancelBubble=true;
  VicPopCal = popCal;
  gdCtrl = dateCtrl;
  fSetYearMon(giYear, giMonth);
  var point = fGetXY(popCtrl);
  with (VicPopCal.style) {
  	left = point.x;
	top  = point.y+popCtrl.offsetHeight+1;
	visibility = 'visible';
  }
  VicPopCal.focus();
}

function fSetDate(iYear, iMonth, iDay){
// Arruma data e dia.
  if(iDay<10) iDay = "0"+iDay;
  if(iMonth<10) iMonth = "0"+iMonth;
  gdCtrl.value = iDay+"/"+iMonth+"/"+iYear; // Data no padrao do Brasil
//gdCtrl.value = iMonth+"-"+iDay+"-"+iYear;
  VicPopCal.style.visibility = "hidden";
}

function fClearDate(){
// Limpa o campo e fecha o calendario.. by Sanka - 03/03/05
  gdCtrl.value = "";
  VicPopCal.style.visibility = "hidden";
}

function fSetToday(){
// Seta a data de hoje.. by Sanka - 03/03/05
var resp = "";
	if(giDay<10) resp = "0"; 
	resp = resp + giDay + "/";
	if(giMonth<10) resp = resp + "0"; 
	resp = resp + giMonth + "/";
	resp = resp + giYear;
	gdCtrl.value = resp ;
	VicPopCal.style.visibility = "hidden";
}

function fSetSelected(aCell){
  var iOffset = 0;
  var iYear = parseInt(tbSelYear.value);
  var iMonth = parseInt(tbSelMonth.value);

  aCell.bgColor = gcBG;
  with (aCell.children["cellText"]){
  	var iDay = parseInt(innerText);
  	if (color==gcGray)
		iOffset = (Victor<10)?-1:1;
	iMonth += iOffset;
	if (iMonth<1) {
		iYear--;
		iMonth = 12;
	}else if (iMonth>12){
		iYear++;
		iMonth = 1;
	}
  }
  fSetDate(iYear, iMonth, iDay);
}

function Point(iX, iY){
	this.x = iX;
	this.y = iY;
}

function fBuildCal(iYear, iMonth) {
  var aMonth=new Array();
  for(i=1;i<7;i++)
  	aMonth[i]=new Array(i);

  var dCalDate=new Date(iYear, iMonth-1, 1);
  var iDayOfFirst=dCalDate.getDay();
  var iDaysInMonth=new Date(iYear, iMonth, 0).getDate();
  var iOffsetLast=new Date(iYear, iMonth-1, 0).getDate()-iDayOfFirst+1;
  var iDate = 1;
  var iNext = 1;

  for (d = 0; d < 7; d++)
	aMonth[1][d] = (d<iDayOfFirst)?-(iOffsetLast+d):iDate++;
  for (w = 2; w < 7; w++)
  	for (d = 0; d < 7; d++)
		aMonth[w][d] = (iDate<=iDaysInMonth)?iDate++:-(iNext++);
  return aMonth;
}

function fDrawCal(iYear, iMonth, iCellWidth, iDateTextSize) {
  var WeekDay = new Array("D","S","T","Q","Q","S","S");
  var styleTD = " width='"+iCellWidth+"' bordercolor='"+gcBG+"' valign='middle' align='center'  style='font:none "+iDateTextSize+" Arial;"; 
// Codigo alterado por Sanka 4/5/01
  with (document) {
	write("<tr>");
	for(i=0; i<7; i++)
		write("<td  bgcolor=#666666 "+styleTD+"color:white' class=texto>" + WeekDay[i] + "</td>");
	write("</tr>");

  	for (w = 1; w < 7; w++) {
		write("<tr>");
		for (d = 0; d < 7; d++) {
			write("<td id=calCell bgcolor='"+gcBG+"' "+styleTD+"cursor:hand;' onMouseOver='gcTemp=this.bgColor;this.bgColor=gcToggle' onMouseOut='this.bgColor=gcTemp' onclick='fSetSelected(this)' class=texto>");
			write("<font id=cellText Victor='Liming Weng'> </font>");
			write("</td>")
		}
		write("</tr>");
	}
  }
}

function fUpdateCal(iYear, iMonth) {
  myMonth = fBuildCal(iYear, iMonth);
  var i = 0;
  var iDate = 0;
  for (w = 0; w < 6; w++)
	for (d = 0; d < 7; d++)
		with (cellText[(7*w)+d]) {
			Victor = i++;
			if (myMonth[w+1][d]<0) {
				color = gcGray;
				innerText = -myMonth[w+1][d];
				iDate = 0;
			}else{
				color = ((d==0)||(d==6))?"red":"#395D7B";
				innerText = myMonth[w+1][d];
				iDate++;
			}
			parentElement.bgColor = ((iYear==giYear)&&(iMonth==giMonth)&&(iDate==giDay))?gcTodayBG:gcBG;
		}
}

function fSetYearMon(iYear, iMon){
  tbSelMonth.options[iMon-1].selected = true;
  if (iYear>giEndYear) iYear=giEndYear;
  if (iYear<giStartYear) iYear=giStartYear;
  tbSelYear.options[iYear-giStartYear].selected = true;
  fUpdateCal(iYear, iMon);
}

function fPrevMonth(){
  var iMon = tbSelMonth.value;
  var iYear = tbSelYear.value;

  if (--iMon<1) {
	  iMon = 12;
	  iYear--;
  }

  fSetYearMon(iYear, iMon);
}

function fNextMonth(){
  var iMon = tbSelMonth.value;
  var iYear = tbSelYear.value;

  if (++iMon>12) {
	  iMon = 1;
	  iYear++;
  }

  fSetYearMon(iYear, iMon);
}

function fGetXY(aTag){
  var oTmp = aTag;
  var pt = new Point(0,0);
  do {
  	pt.x += oTmp.offsetLeft;
  	pt.y += oTmp.offsetTop;
  	oTmp = oTmp.offsetParent;
  } while(oTmp.tagName!="BODY");
  return pt;
}

var gMonths = new Array("Jan","Fev","Mar","Abr","Mai","Jun","Jul","Ago","Set","Out","Nov","Dez");

with (document) {
write("<table id='popTable' border='0' cellpadding='3' cellspacing='0'  bgcolor='#FFFFFF' width='180'>");
write("<TR>");
write("<td valign='center' align='center'><table border='0' cellpadding='0' cellspacing='0'  bgcolor='#FFFFFF' width='100%'><tr><td width='16'><input type='image' src='imagens/seta_e.gif' name='PrevMonth' value='<' style='FONT:16 Fixedsys' onClick='fPrevMonth()'></td><td align='center'>");
write("<select name='tbSelMonth' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' Victor='Won' class='campo'>");
for (i=0; i<12; i++)
	write("<option value='"+(i+1)+"'>"+gMonths[i]+"</option>");
write("</SELECT>");
write("</td><td align='center'><SELECT name='tbSelYear' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' Victor='Won' class='campo'>");
for(i=giStartYear;i<=giEndYear;i++)
	write("<OPTION value='"+i+"'>"+i+"</OPTION>");
write("</SELECT>");
write("</td><td width='16'><input type='image' src='imagens/seta_d.gif' name='PrevMonth' value='>' style='FONT:16 Fixedsys' onclick='fNextMonth()'></td></tr></table>");
write("</td>");
write("</TR><TR>");
write("<td align='center'>");
write("<DIV style='background-color:#999999;'><table width='100%' border='0' cellpadding='3' cellspacing='1'>");
fDrawCal(giYear, giMonth, 19, 12);
write("</table></DIV>");
write("</td>");
write("</TR><TR><TD><table width='100%' border='0' cellspacing='0' cellpadding='3'><tr><td width='20'><input type='image'  src='imagens/borracha.gif' name='Clear' value='<' onClick='fClearDate()'></td><td align='center'><a href=# style='font-family:Arial;font-size:8pt;color: #666666;text-decoration: none;' onClick='fSetToday()'>Hoje: "+gdCurDateBR+"</font></a></td><td width='20'></td></tr></table>");
write("</TD></TR>");write("</TD></TR><TR></TR>");
write("</TABLE>");
}	
//</script>