// construindo o calendário
function popdate(obj,div,tam,ddd)
{
    if (ddd) 
    {
        day = ""
        mmonth = ""
        ano = ""
        c = 1
        char = ""
        for (s=0;s<parseInt(ddd.length);s++)
        {
            char = ddd.substr(s,1)
            if (char == "/") 
            {
                c++; 
                s++; 
                char = ddd.substr(s,1);
            }
            if (c==1) day    += char
            if (c==2) mmonth += char
            if (c==3) ano    += char
        }
        ddd = mmonth + "/" + day + "/" + ano
    }
  
    if(!ddd) {today = new Date()} else {today = new Date(ddd)}
    date_Form = eval (obj)
    if (date_Form.value == "") { date_Form = new Date()} else {date_Form = new Date(date_Form.value)}
  
    ano = today.getFullYear();
    mmonth = today.getMonth ();
    day = today.toString ().substr (8,2)
  
    umonth = new Array ("Janeiro", "Fevereiro", "Março", "Abril", "Maio", "Junho", "Julho", "Agosto", "Setembro", "Outubro", "Novembro", "Dezembro")
    days_Feb = (!(ano % 4) ? 29 : 28)
    days = new Array (31, days_Feb, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

    if ((mmonth < 0) || (mmonth > 11))  alert(mmonth)
    if ((mmonth - 1) == -1) {month_prior = 11; year_prior = ano - 1} else {month_prior = mmonth - 1; year_prior = ano}
    if ((mmonth + 1) == 12) {month_next  = 0;  year_next  = ano + 1} else {month_next  = mmonth + 1; year_next  = ano}
	
	var datap_next = document.Form.data_next.value;
	var datap_ant = document.Form.data_ant.value;
	
    txt  = "<table bgcolor='#efefff' style='border:solid #CCCCCC; border-width:2' cellspacing='0' cellpadding='3' border='0' width='230px' height='"+tam*1.1 +"'>"
	txt += "<tr bgcolor='#FFFFFF'><td colspan='7' class='mes' align='center'><a href=javascript:popdate('"+obj+"','"+div+"','"+tam+"','"+( "01/" + (month_prior+1).toString() + "/" + year_prior.toString())+"');pesquisa('"+datap_ant+"'); class='Cabecalho_Calendario' title='Mês Anterior'><<</a>&nbsp;&nbsp;"+ umonth[mmonth] +" de " + ano.toString() + "&nbsp;&nbsp;<a href=javascript:popdate('"+obj+"','"+div+"','"+tam+"','"+( "01/" + (month_next+1).toString()  + "/" + year_next.toString())+"');pesquisa('"+datap_next+"'); class='Cabecalho_Calendario' title='Próximo Mês'>>></a></td></tr>"
    txt += "<tr bgcolor='#CCCCCC'><td width='14%' class='dia' align=center>Dom</td><td width='14%' class='dia' align=center>Seg</td><td width='14%' class='dia' align=center>Ter</td><td width='14%' class='dia' align=center>Qua</td><td width='14%' class='dia' align=center>Qui</td><td width='14%' class='dia' align=center>Sex</td><td width='14%' class='dia' align=center>Sab</td></tr>"
    today1 = new Date((mmonth+1).toString() +"/01/"+ano.toString());
    diainicio = today1.getDay () + 1;
    week = d = 1
    start = false;

    for (n=1;n<= 42;n++) 
    {
		if (week == 1)  txt += "<tr bgcolor='#FFFFFF' align=center>"
        if (week==diainicio) {start = true}
        if (d > days[mmonth]) {start=false}
        if (start) 
        {			
			var qtdade = document.Form.qtdade.value;
			
			var eventos = new Array();
			for (var i=1;i<=qtdade;i++)
			{
				campo = "data"+i;
				campo = eval("document.Form." + campo).value.split("/");
				eventos[i] = campo[0];
			}
			
			//document.write(eventos[1]);
			//document.write(eventos[2]);
			
			if (d <= 9) { dia = "0" + d }
			if (d > 9) { dia = d  }
	
			color = procurarElemento(eventos,dia);
			
			if(color == true){ 
				colorcell = " bgcolor='#CCCCCC' ";
				if (d <= 9) { barra = "0" + d + "/" }
				if (d > 9) { barra = d + "/" }
				if ((mmonth+1).toString() <= 9) { barra2 = "0" + (mmonth+1).toString() + "/" }
				if ((mmonth+1).toString() > 9) { barra2 = (mmonth+1).toString() + "/" }
				conteudo = "<a href=javascript:pesquisa('"+ barra + barra2 + ano.toString() +"') class='data'>"+ d.toString() + "</a>";
			}else{ 
				colorcell = "";
				conteudo = d.toString();
			}
			
			txt += "<td"+colorcell+" align=center>"+conteudo+"</td>"
			d ++
        } 
        else 
        { 
            txt += "<td class='data' align=center> </td>"
        }
        week ++; 
        if (week == 8) 
        { week = 1; txt += "</tr>" } 
   }
   txt += "</table>"
   document.getElementById(div).innerHTML = txt;
   //div2 = eval (div);
   //div2.innerHTML = txt;
}

//Procurar valor dentro de uma matriz
function procurarElemento (a, valor){
	//Define a variável i que será usada para navegar pelos itens
	for (var i=0; i<=a.length + 1; i++) {
		//Se o valor atual é igual ao valor enviado para a procura
		if (a[i] == valor) {
			//Retorna o valor booleano true
			return true;
		}
	}
	//Caso o valor não tenha sido encontrado, retorna o valor booleano false
	return false;
}
  
// função para exibir a janela com os meses
function pop_month(obj, div, tam, ano)
{
  txt  = "<table bgcolor='#CCCCFF' border='0' width=80>"
  for (n = 0; n < 12; n++) { txt += "<tr><td align=center><a href=javascript:popdate('"+obj+"','"+div+"','"+tam+"','"+("01/" + (n+1).toString() + "/" + ano.toString())+"')>" + umonth[n] +"</a></td></tr>" }
  txt += "</table>"
  popd.innerHTML = txt
}

// função para exibir a janela com os anos
function pop_year(obj, div, tam, umonth)
{
  txt  = "<table bgcolor='#CCCCFF' border='0' width=160>"
  l = 1
  for (n=1991; n<2012; n++)
  {  if (l == 1) txt += "<tr>"
     txt += "<td align=center><a href=javascript:popdate('"+obj+"','"+div+"','"+tam+"','"+(umonth.toString () +"/01/" + n) +"')>" + n + "</a></td>"
     l++
     if (l == 4) 
        {txt += "</tr>"; l = 1 } 
  }
  txt += "</tr></table>"
  popd.innerHTML = txt 
}

// função para fechar o calendário
function force_close(div) 
    { div2 = eval (div); div2.innerHTML = ''}
    
// função para fechar o calendário e setar a data no campo de data associado
function block(data, obj, div)
{ 
    //force_close (div)
    obj2 = eval(obj)
    obj2.value = data 
	pesquisa(data);
}