var intXCord    = 0;
var intYCord    = 0;
var difTop      = 0 ;
var difEsq     = 0

var MtextSize   = 10;
var gdCtrl      = new Object();
var goSelectTag = new Array();
var gcGray      = "#808080";
var gcToggle    = "#CCCCCC";
var gcToggle2   = "#7F7F7F";
var gcToggle3   = "#808080";

var gcBG        = "#F0F0F0";

var PegaDataCorr   = new Date();
var PegaAno        = PegaDataCorr.getFullYear();
var PegaMes        = PegaDataCorr.getMonth()+1;
var PegaDia        = PegaDataCorr.getDate();


function check2(){
    document.all.VicPopCal.style.visibility = "hidden";
    }


function check(e){
   e = window.event;
   if(e.keyCode=27) top.body.VicPopCal.style.visibility = "hidden";
};

function fSetDate(iYear, iMes, iDay){
  VicPopCal.style.visibility = "hidden";

  iMes = iMes+'';
  iDay   = iDay  +'';
  iMes = iMes.length < 2 ? '0'+iMes : iMes;
  iDay   = iDay.length   < 2 ? '0'+iDay   : iDay;

  gdCtrl.value = iDay+'/'+iMes+"/"+iYear;
  for (i in goSelectTag)
  	goSelectTag[i].style.visibility = "visible";
  goSelectTag.length = 0;
  for(i=0;i<parseInt(document.forms[0].elements.length);i++){
	 if (document.forms[0].elements[i].type=="select-one" || document.forms[0].elements[i].type=="select-multiple"){
		document.forms[0].elements[i].style.visibility = 'visible'
		
	  }
  }
}

function fSetSelected(aCell){
  var iOffset= 0;
  var iYear  = parseInt(tbSelYear.value);
  var iMes = parseInt(tbSelMes.value);
  var iDay
  aCell.bgColor = gcBG;
  with (aCell.children["cellText"]){
	iDay = innerText
    if (iDay != "")
	{
		iDay = parseInt(innerText);		
		if (color==gcGray)
			iOffset = (Victor<10)?-1:1;
		iMes += iOffset;
		if (iMes<1) {
			iYear--;
			iMes = 12;
		}else if (iMes>12){
			iYear++;
			iMes = 1;
		}
	}
  }
  if (iDay == "")
	{
		//alert("Entre com uma Data Valida!")
	}
  else{
	  fSetDate(iYear, iMes, iDay);
	  for(i=0;i<parseInt(document.forms[0].elements.length);i++){
		 if (document.forms[0].elements[i].type=="select-one" || document.forms[0].elements[i].type=="select-multiple"){
			document.forms[0].elements[i].style.visibility = 'visible'
			
		  }
		}
  }
}

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

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

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

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

function fDrawCal(iYear, iMes, iCellHeight, sDateTextSize) {
  var WeekDay = new Array("D","S","T","Q","Q","S","S");
  var styleTD = " bgcolor='"+gcBG+"' bordercolor='"+gcBG+"' valign='middle' align='center' height='"+iCellHeight+"' style='font-family: Arial, Verdana, Helvetica; font-size:11px; "+sDateTextSize+";";
  var styleTD2= " bgcolor='#FFFFFF'  bordercolor='"+gcBG+"' valign='middle' align='center' height='"+iCellHeight+"' style='font-family: Arial, Verdana, Helvetica; font-size:11px; color: #ffff00 "+sDateTextSize+";";
  with (document) {
	write("<tr>");
	for(i=0; i<7; i++)
		write("<td "+styleTD2+"color:#000000' >" + 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:hand;' onMouseOver='this.bgColor=gcToggle' onMouseOut='this.bgColor=gcBG' onclick='fSetSelected(this)'>");
			write("<font id=cellText> </font>");
			write("</td>")
		}
		write("</tr>");
	}
  }
}

function fUpdateCal(iYear, iMes) {
  myMes = fBuildCal(iYear, iMes);
  var i = 0;
  for (w = 0; w < 6; w++)
	for (d = 0; d < 7; d++)
		with (cellText[(7*w)+d]) {
			Victor = i++;
			if (myMes[w+1][d]<0) {
				className = "calMes";
				innerText = "";
			}else{
				className = ((d==0)||(d==6))?"calSemana":"calNorm";
				innerText = myMes[w+1][d];
			}
		}
}

function fSetYearMon(iYear, iMon){
  tbSelMes.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 fPrevMes(){
  var iMon = tbSelMes.value;
  var iYear = tbSelYear.value;

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

  fSetYearMon(iYear, iMon);
}

function fNextMes(){
  var iMon = tbSelMes.value;
  var iYear = tbSelYear.value;

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

  fSetYearMon(iYear, iMon);
}

function xxxfToggleTags(){
  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);
 		}
  }
}

function fToggleTags(){
  with(tbSelYear){
    if((item(i).Victor!="Won")&&fTagInBound(item(i))){
      item(i).style.visibility = "hidden";
      goSelectTag[goSelectTag.length] = item(i);
    }
  }
  with(tbSelMes){
    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,10);
  	var t = (parseInt(top,10));
  	var r = l+parseInt(width,10);
  	var b = t+parseInt(height,10) ;
	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;
}

function ChamaCalendario(popCtrl, dateCtrl , difT, difE){
  
  gdCtrl    = dateCtrl;
  difTop  = parseInt(difT,10)
  difEsq = parseInt(difE,10)

  fSetYearMon(PegaAno, PegaMes);
  var point = fGetXY(popCtrl);

  with (VicPopCal.style){

	if(intXCord!=0){
  	  left = intXCord
  	}else{
  	  left = point.x + difEsq;
  	}
  	if(intYCord!=0){
	  top  = intYCord;
	}else{
	  top  = point.y+popCtrl.offsetHeight - difTop;
	}

	width = VicPopCal.offsetWidth ;
	height = VicPopCal.offsetHeight ;
	fToggleTags(point);
	visibility = 'visible';
	
	intXCord = 0;
	intYCord = 0;

   
   for(i=0;i<parseInt(document.forms[0].elements.length);i++){
	 if (document.forms[0].elements[i].type=="select-one" || document.forms[0].elements[i].type=="select-multiple"){      
		document.forms[0].elements[i].style.visibility = 'hidden'
     }
   }
	
  }
}
function Fechar(){
	VicPopCal.style.visibility='hidden'
	for(i=0;i<parseInt(document.forms[0].elements.length);i++){
	 if (document.forms[0].elements[i].type=="select-one" || document.forms[0].elements[i].type=="select-multiple"){
		document.forms[0].elements[i].style.visibility = 'visible'
		
	  }
	}
}
var gMes = new Array("Janeiro","Fevereiro","Março","Abril","Maio","Junho","Julho","Agosto","Setembro","Outubro","Novembro","Dezembro");

with (document){
   write("<Div id='VicPopCal' style='POSITION:absolute;VISIBILITY:hidden;border:2px ridge;width:10;z-index:100;'>");
   write("<table border='0' bgcolor='#ffffff' Width='100%' >");
   write("<TR><td><Table Border='0' CellPadding=1 CellSpacing=0 Width='100%' >");
   write("<TR><TD align='left'>");
   PegaMes = PegaMes+'';
   PegaDia   = PegaDia+'';
   PegaMes = PegaMes.length < 2 ? '0'+PegaMes : PegaMes;
   PegaDia   = PegaDia.length   < 2 ? '0'+PegaDia   : PegaDia;
   write("<p>&nbsp;Hoje: <B style='font-family: verdana; font-size:8pt; cursor:hand' onclick='fSetDate(PegaAno,PegaMes,PegaDia)' onMouseOver='this.style.color=gcToggle3' onMouseOut='this.style.color=0'>"+PegaDia+"/"+PegaMes+"/"+PegaAno+"</B></p>");
   write("</TD>");
   write("<TD align='right'>");
   write("<a href='#' onclick='Fechar();'><input id='fechar' name='fechar' type='button' value=' X ' style='font-family:sans-lucida; font-weight: bold; font-style: normal; color: #000000; font-size: 8px; background-color: #CFCFCF; border: 1px #CCCCCC ridge;'></a></TD></TR>");
   write("</Table></td></TR>");
   write("<TR>");
   write("<td valign='middle' align='center'>");
   //write("<input type='button' CLASS='button' name='PrevMes' value=' < ' style='font-family:sans-lucida; font-weight: bold; font-style: normal; color: #000000; font-size: 8pt; background-color: #FF9900;' onClick='fPrevMes()'>");
   write("&nbsp;<a href='javascript:fPrevMes()'><font size='2'><b>&#171;<b></font></a>");
   write("&nbsp;<select name='tbSelMes' style='font-family:sans-lucida; font-weight: normal; font-style: normal; color: #000000; font-size: 8pt; background-color: #DEE3E7;' onChange='fUpdateCal(tbSelYear.value, tbSelMes.value)' Victor='Won'>");
   for (i=0; i<12; i++)
      write("<option value='"+(i+1)+"'>"+gMes[i]+"</option>");
   write("</SELECT>");
   write("&nbsp;<SELECT name='tbSelYear' style='font-family:sans-lucida; font-weight: normal; font-style: normal; color: #000000; font-size: 8pt; background-color: #DEE3E7;' onChange='fUpdateCal(tbSelYear.value, tbSelMes.value)' Victor='Won'>");
   for(i=1998;i<2021;i++)
      write("<OPTION value='"+i+"'>"+i+"</OPTION>");
   write("</SELECT>");
   	//write("&nbsp;<input type='button' name='PrevMes' value=' > ' style='font-family:sans-lucida; font-weight: bold; font-style: normal; color: #000000; font-size: 8pt; background-color: #FF9900;' onclick='fNextMes()'>");
   write("&nbsp;<a href='javascript:fNextMes()'><font size='2'><b>&#187;<b></font></a>");
   write("</td>");
   write("</TR><TR>");
   write("<td align='center'>");
   write("<DIV style='background-color:#CCCCCC'><table width='100%' border='0' cellpadding='0' cellspacing='1'>");
   fDrawCal(PegaAno, PegaMes, 18, '9');
   write("</table></DIV>");
   write("</td>");
   write("</TR>");
   write("</TABLE></Div>");
};