function popdate(obj,div,tam,ddd,closed,functionClickDay){var setNumMonth;if(ddd){var day="";var mmonth="";var ano="";var c=1;var xchar="";for(s=0;s<parseInt(ddd.length);s++){xchar=ddd.substr(s,1);if(xchar=="/"){c++;s++;xchar=ddd.substr(s,1)}if(c==1)day+=xchar;if(c==2)mmonth+=xchar;if(c==3)ano+=xchar}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)}if(setNumMonth==null||setNumMonth==undefined){setNumMonth=date_Form.getMonth()+1}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");var days_Feb=(!(ano%4)?29:28);var days=new Array(31,days_Feb,31,30,31,30,31,31,30,31,30,31);var semana=new Array("Dom","Seg","Ter","Qua","Qui","Sex","Sáb");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}txt="<table cellspacing='0' cellpadding='0' border='0' width='"+tam+"'>";txt+="<tr><td class='head-today' colspan='7' onClick=popdate('"+obj+"','"+div+"','"+tam+"','',"+closed+",'"+functionClickDay+"');><span id='"+div+"_calenderDateLabel'></span></td></tr>";txt+="<tr><td colspan='7'  class='periodo'>";txt+="<table cellspacing='0' cellpadding='0' border='0' width='100%' ><tr>";txt+="<td class=ml><a href=javascript:popdate('"+obj+"','"+div+"','"+tam+"','"+("01/"+(month_prior+1).toString()+"/"+year_prior.toString())+"',"+closed+",'"+functionClickDay+"'); onClick=\"setNumMonth="+(month_prior+1)+";loadMarcDate('"+div+"','"+"01/"+(month_prior+1).toString()+"/"+year_prior.toString()+"')\" title='Mês Anterior' style='padding-left:3px;'><img src='"+siteUrl+"/admsite/image/setaEsquerda.gif' border=0 width=7 height=12></a></td>";txt+="<td class=mc><a href=javascript:pop_month('"+obj+"','"+div+"','"+tam+"','"+ano+"',"+setNumMonth+",'"+functionClickDay+"',"+closed+") >"+umonth[mmonth]+"</a> <a href=javascript:pop_year('"+obj+"','"+div+"','"+tam+"','"+(mmonth+1)+"',"+setNumMonth+",'"+functionClickDay+"',"+closed+") >"+ano.toString()+"</a> <div id='"+div+"_popd' style='position:absolute'></div></td>";txt+="<td class=mr><a href=javascript:popdate('"+obj+"','"+div+"','"+tam+"','"+("01/"+(month_next+1).toString()+"/"+year_next.toString())+"',"+closed+",'"+functionClickDay+"'); onClick=\"setNumMonth="+(month_next+1)+";loadMarcDate('"+div+"','"+"01/"+(month_next+1).toString()+"/"+year_next.toString()+"')\" title='Próximo Mês' style='padding-right:3px;'><img src='"+siteUrl+"/admsite/image/setaDireita.gif' border=0 width=7 height=12></a></td>";txt+="</tr></table>";txt+="</td></tr><tr class='mes'>";for(i=0;i<semana.length;i++){txt+="<td width='14%'>"+semana[i]+"</td>"}txt+="</tr>";setNumMonth=(mmonth+1);var today1=new Date((mmonth+1).toString()+"/01/"+ano.toString());var diainicio=today1.getDay()+1;var week=d=1;var start=false;var vazio=0;var vazioTr=0;for(n=1;n<=42;n++){if(week==1){vazioTr++;txt+="<tr class='dias' id='cdtr_"+vazioTr+"x'>"}if(week==diainicio){start=true}if(d>days[mmonth]){start=false}if(start){todayX=new Date();var classCel=(todayX.getDate()==d&&(todayX.getMonth()+1).toString()==(mmonth+1).toString()&&todayX.getYear().toString()==ano.toString()?" today":"");txt+="<td class='"+(week==7?' sab':'')+(week==1?' dom':'')+' '+classCel+"' id='"+div+"_idDia_"+d+"x' onClick=\"block('"+d+"/"+(mmonth+1).toString()+"/"+ano.toString()+"','"+obj+"','"+div+"',"+closed+",'"+functionClickDay+"')\" ><a href='#' onClick='return false;'>"+d.toString()+"</a></td>";d++}else{txt+="<td >&nbsp;</td>";vazio++}week++;if(week==8){week=1;txt+="</tr>"}}txt+="</table>";div2=eval(div);div2.innerHTML=txt;setDateLabel(div)}function setDateLabel(div){var dateNow=new Date();document.getElementById(div+'_calenderDateLabel').innerHTML="Hoje - "+dateNow.getDate()+" de "+umonth[dateNow.getMonth()].substring(0,3)+" de "+String(dateNow.getYear()).substring(0,4);setTimeout("setDateLabel('"+div+"')",1000)}function pop_month(obj,div,tam,ano,setNumMonth,functionClickDay,closed){txt="<table  class='bx-mes' border='0' width=80>";for(n=0;n<12;n++){txt+="<tr><td ><a onClick=\"loadMarcDate('"+div+"','"+("01/"+(n+1).toString()+"/"+ano.toString())+"')\" href=javascript:popdate('"+obj+"','"+div+"','"+tam+"','"+("01/"+(n+1).toString()+"/"+ano.toString())+"',"+closed+",'"+functionClickDay+"')>"+umonth[n]+"</a></td></tr>"}txt+="</table>";if(document.getElementById(div+'_popd').innerHTML==''){document.getElementById(div+'_popd').innerHTML=txt}else{document.getElementById(div+'_popd').innerHTML=''}}function pop_year(obj,div,tam,umonth,setNumMonth,functionClickDay,closed){txt="<table class='bx-ano' border='0' width=160>";l=1;var dx=new Date();for(n=dx.getYear()-9;n<=dx.getYear()+2;n++){if(l==1)txt+="<tr>";txt+="<td ><a onClick=\"loadMarcDate('"+div+"','"+umonth.toString()+"/"+(setNumMonth==undefined?'01':setNumMonth)+"/"+n+"')\" href=javascript:popdate('"+obj+"','"+div+"','"+tam+"','"+(umonth.toString()+"/"+setNumMonth+"/"+n)+"',"+closed+",'"+functionClickDay+"')>"+n+"</a></td>";l++;if(l==4){txt+="</tr>";l=1}}txt+="</tr></table>";if(document.getElementById(div+'_popd').innerHTML==''){document.getElementById(div+'_popd').innerHTML=txt}else{document.getElementById(div+'_popd').innerHTML=''}}function force_close(div,closed){if(closed==1){document.getElementById(div).style.visibility='hidden';document.getElementById(div).style.position='absolute'}}function block(data,obj,div,closed,functionClickDay){force_close(div,closed);obj2=eval(obj);obj2.value=data;if(functionClickDay!='')eval(functionClickDay+"('"+data+"')")}function loadMarcDate(div,date){var layer='calenderLayerFunction1';$.ajax({type:"GET",url:siteUrl+'/admsite/agenda/eventoLoad.asp',data:'pag=marcDate&date='+date+'&status=aa',success:function(r){setTimeout('loadMarcDateFunction(\''+r+'\',\''+div+'\')',500)},error:function(xhr,ajaxOptions,thrownError){alert(xhr.status+'\n\n\n'+thrownError);}})}function loadMarcDateFunction(r,div){if(r!=''){var ds=r.split(',');var obj;var c='';for(i=0;i<ds.length;i++){obj=document.getElementById(div+'_idDia_'+ds[i]+'x');if(obj!=null){c=obj.className;if(c.indexOf('select')>-1)c=c.replace('select','');obj.className=c}}for(i=0;i<ds.length;i++){obj=document.getElementById(div+'_idDia_'+ds[i]+'x');if(obj!=null){c=obj.className;if(c.indexOf('select')==-1)c=c+' select';obj.className=c}}}}