var FIRSTYEAR = 1900;
var LASTYEAR = 2100;
var linkborrar=1;
var gdCtrl = new Object();
var gcGray = "#999999";
var gcRed ="#dd8888"
var gcToggle = "#ffffff";
var gcBG = "#e1e1e1";
var gdCurDate = new Date();
var giYear = gdCurDate.getFullYear();
var giMonth = gdCurDate.getMonth()+1;
var giDay = gdCurDate.getDate();
var newPopCal = new Object();
var gMonths = new Array("Ene","Feb","Mar","Abr","May","Jun","Jul","Ago","Sep","Oct","Nov","Dic");

function fPopCalendar(popCtrl, dateCtrl, popCal){
  if (dateCtrl.disabled) return false
  parent.event.cancelBubble=true;
  newPopCal = popCal;
  gdCtrl = dateCtrl;
  fSetYearMon(giYear, giMonth);
  var point = fGetXY(popCtrl);
  with (newPopCal.style) {
  	left = point.x;
	top  = point.y+popCtrl.offsetHeight+1;
	visibility = 'visible';
  }
  newPopCal.focus();
}
function fPopCalendarSinBorrado(popCtrl, dateCtrl, popCal){
  linkborrar=0;
  if (dateCtrl.disabled) return false
  parent.event.cancelBubble=true;
  newPopCal = popCal;
  gdCtrl = dateCtrl;
  fSetYearMon(giYear, giMonth);
  var point = fGetXY(popCtrl);
  with (newPopCal.style) {
  	left = point.x;
	top  = point.y+popCtrl.offsetHeight+1;
	visibility = 'visible';
  }
  newPopCal.focus();
}
function fSetDate(iYear, iMonth, iDay){
  if (parseInt(iMonth)<10) { finalMonth="0" + iMonth } else { finalMonth=iMonth}
  if (parseInt(iDay)<10) { finalDay="0" + iDay } else { finalDay=iDay}
  gdCtrl.value = finalDay+"/"+finalMonth+"/"+iYear;
  newPopCal.style.visibility = "hidden";
}
function fDelDate(){
  if(linkborrar==1)
  {
	alert('Debe seleccionar una fecha')
	return;
  }
  gdCtrl.value = "";
  newPopCal.style.visibility = "hidden";
}
function fCloseCal(){
  newPopCal.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)||(color==gcRed))  //días de otros meses
		iOffset = (variable<6)?-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()-1;
  if (iDayOfFirst==-1) iDayOfFirst=6
  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("Lu","Ma","Mi","Ju","Vi","Sa","Do");
  var styleTD = " bgcolor='"+gcBG+"' width='"+iCellWidth+"' bordercolor='"+gcBG+"' valign='middle' align='center'  style='font: "+iDateTextSize+" Tahoma,Helvetica,Arial;";
  with (document) {
	write("<tr>");
	for(i=0; i<7; i++)
		write("<td "+styleTD+"color:#0000FF' >" + WeekDay[i] + "</td>");
	write("</tr>");
  	for (w = 1; w < 7; w++) {
		write("<tr>");
		for (d = 0; d < 7; d++) {
			write("<td id=calCell "+styleTD+"cursor:pointer;' onMouseOver='this.bgColor=gcToggle' onMouseOut='this.bgColor=gcBG' onclick='fSetSelected(this)'>");
			write("<font id=cellText variable='1'> </font>");
			write("</td>")
		}
		write("</tr>");
	}
  }
}
function fUpdateCal(iYear, iMonth) {
  myMonth = fBuildCal(iYear, iMonth);
  var i = 0;
  for (w = 0; w < 6; w++)
	for (d = 0; d < 7; d++)
		with (cellText[(7*w)+d]) {
			variable = i++;
			if (myMonth[w+1][d]<0) {
				color = ((d==5)||(d==6))?gcRed:gcGray;
				innerText = -myMonth[w+1][d];
			}else{
				color = ((d==5)||(d==6))?"#ff0000":"black";
				innerText = myMonth[w+1][d];
			}
		}
}
function fSetYearMon(iYear, iMon){
  tbSelMonth.options[iMon-1].selected = true;
  for (i = 0; i < tbSelYear.length; i++)
	if (tbSelYear.options[i].value == iYear)
		tbSelYear.options[i].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;
}