var gdCtrl = new Object();
var goSelectTag = new Array();
var gcGray = "#dcdcdc";
var gcToggle ="#cecf9c";
var gcBG = "white";

var gdCurDate = new Date();
var giYear = gdCurDate.getFullYear();
var giMonth = gdCurDate.getMonth()+1;
var giDay = gdCurDate.getDate();
 
function isObject(pObject){
	if (pObject!=null){
		if (typeof pObject != "undefined")
			return true;
		else
			return false;
	}
}

function fPopCalendar(popCtrl, dateCtrl){
	if (isObject(document.getElementById("ifrmVista"))){
		document.all.ifrmVista.style.display='none';
	}
	if (isObject(document.getElementById("ifrmVistaVal"))){
		document.all.ifrmVistaVal.style.display='none';
	}
	if (isObject(document.getElementById("ifrmValues"))){
		document.all.ifrmValues.style.display='none';
	}
	
	event.cancelBubble=true;
	gdCtrl = dateCtrl;
	fSetYearMon(giYear, giMonth);
	var point = fGetXY(popCtrl);
	with (VicPopCal.style) {
		left = point.x;
		top  = point.y+popCtrl.offsetHeight+1;
		width = VicPopCal.offsetWidth;
		height = VicPopCal.offsetHeight;
		fToggleTags(point);
		visibility = 'visible';
	}
	VicPopCal.focus();
}

function fSetDate(iYear, iMonth, iDay){
			 if (iDay<10) iDay='0'+iDay
			 if (iMonth<10) iMonth='0'+iMonth
			  gdCtrl.value = iDay+'/'+iMonth+'/'+iYear;  //Aqui, puedes modificar el lugar de los elementos como lo necesites !!!!
			  fHideCalendar();
			}



function fHideCalendar(){
	VicPopCal.style.visibility = "hidden";
	for (i in goSelectTag)
	goSelectTag[i].style.visibility = "visible";
	goSelectTag.length = 0;
	if (isObject(document.getElementById("ifrmVista"))){
		document.all.ifrmVista.style.display='';
	}
	if (isObject(document.getElementById("ifrmVistaVal"))){
		document.all.ifrmVistaVal.style.display='';
	}
	if (isObject(document.getElementById("ifrmValues"))){
		document.all.ifrmValues.style.display='';
	}
}

			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, iCellHeight, iDateTextSize) {
			  var WeekDay = new Array("Do","Lu","Ma","Mi","Ju","Vi	","Sa");
			  var styleTD = " bgcolor='"+gcBG+"' bordercolor='"+gcBG+"' valign='middle' align='center' height='"+iCellHeight+"' style='font:bold"+iDateTextSize+" Courier;";

			  with (document) {
				write("<tr>");
				for(i=0; i<7; i++)
					write("<td "+styleTD+"color:black' ><span class='clsAreaFiltros'>" + WeekDay[i] + "</span></td>");
				write("</tr>");

			  	for (w = 1; w < 7; w++) {
					write("<tr>");
					for (d = 0; d < 7; d++) {
						write("<td id=calCell "+styleTD+"cursor:hand;' onMouseOver='this.bgColor=gcToggle' onMouseOut='this.bgColor=gcBG' onclick='fSetSelected(this)'>");
						write("<font size='1' id=cellText Victor='Liming Weng'> </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]) {
						Victor = i++;
						if (myMonth[w+1][d]<0) {
							color = gcGray;
							innerText = -myMonth[w+1][d];
						}else{
							color = ((d==0)||(d==6))?"red":"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 fToggleTags(){
			  with (document.all.tags("SELECT")){
			 	for (i=0; i<length; i++)
			 		if ((item(i).Victor!="Won")&&fTagInBound(item(i))){
			 			item(i).style.visibility = "hidden";
			 			goSelectTag[goSelectTag.length] = item(i);
			 		}
			  }
			  with (document.all.tags("IFRAME")){
			 	for (i=0; i<length; i++)
			 		if ((item(i).Victor!="Won")&&fTagInBound(item(i))){
			 			item(i).style.visibility = "hidden";
			 			goSelectTag[goSelectTag.length] = item(i);
			 		}
			  }
			}

			function fTagInBound(aTag){
			  with (VicPopCal.style){
			  	var l = parseInt(left);
			  	var t = parseInt(top);
			  	var r = l+parseInt(width);
			  	var b = t+parseInt(height);
				var ptLT = fGetXY(aTag);
				return !((ptLT.x>r)||(ptLT.x+aTag.offsetWidth<l)||(ptLT.y>b)||(ptLT.y+aTag.offsetHeight<t));
			  }
			}

			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("January","February","March","April","May","June","July","August","September","October","November","December");
			var gMonths = new Array("Ene","Feb","Mar","Abr","May","Jun","Jul","Ago","Sep","Oct","Nov","Dec");
	
			with (document) {
			write("<Div id='VicPopCal' onclick='event.cancelBubble=true' style='POSITION:absolute;visibility:hidden;border:1px ridge;width:5;z-index:50;'>");
			write("<table border='0' bgcolor='#ffffff' width='30%' >");
			write("<TR>");
			write("<td valign='middle' align='center'><input type='button' name='PrevMonth' value='<' style='height:20;width:20;FONT:7 Fixedsys' onClick='fPrevMonth()'>");
			write("&nbsp;&nbsp;<select style='width:50' name='tbSelMonth' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' Victor='Won'>");
			for (i=0; i<12; i++)
				write("<option value='"+(i+1)+"'>"+gMonths[i]+"</option>");
			write("</SELECT>");
			write("&nbsp;&nbsp;<SELECT style='width:55' name='tbSelYear' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' Victor='Won'>");
			for(i=1940;i<2015;i++)
				write("<OPTION value='"+i+"'>&nbsp;"+i+"&nbsp;</OPTION>");
			write("</SELECT>");
			write("&nbsp;&nbsp;<input type='button' name='PrevMonth' value='>' style='height:20;width:20;FONT:8 Fixedsys' onclick='fNextMonth()'>");
			write("</td>");
			write("</TR><TR>");
			write("<td align='center'>");
			write("<DIV style='background-color:darkblue;'><table width='100%' border='0' cellpadding='1'>");
			fDrawCal(giYear, giMonth, 10, 10);
			write("</table></DIV>");
			write("</td>");
			write("</TR>");
			write("</TD></TR>");
			write("</TABLE></Div>");
			}