var primeira=1;var janela=null;function abreJanela(tela,nomeJanela,larg,altura,horiz,vert)
{var posicao='';var pos=0;if(vert==-1){pos=(600-altura)/2;posicao=posicao+',top='+pos.toString();}
else{posicao=posicao+',top='+vert;}
if(horiz==-1){pos=(800-larg)/2;posicao=posicao+',left='+pos.toString();}
else{posicao=posicao+',left='+horiz;}
if(primeira==1){janela=window.open(tela,nomeJanela,'toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=yes , resizable=yes, copyhistory=no, width='+larg+',height='+altura+posicao);primeira=0;janela.focus();}
else{if(janela.closed==0){janela.focus();}
else{janela=window.open(tela,nomeJanela,'toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=yes, resizable=no, copyhistory=no, width='+larg+',height='+altura+posicao);janela.focus();}}}
function MM_openBrWindow(theURL,winName,features){janela=window.open(theURL,winName,features);janela.focus();}
function abreJanela2(tela,nomeJanela,larg,altura,horiz,vert){var janela=window.open(tela,nomeJanela,'toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no , resizable=yes, copyhistory=no, width='+larg+',height='+altura);janela.focus();}
function abreJanelaModal(pPagina,pnmJanela,pLargura,pAltura,pTopo,pEsquerda,campo,pscroll,idimgPreview){if(navigator.appName=='Netscape')
{pPagina='../enviaimagem/ap_enviaImg.asp?tipo=T&idimgPreview='+idimgPreview;abreJanela(pPagina,pnmJanela,pLargura,pAltura,pTopo,pEsquerda,campo,pscroll,idimgPreview)
return false;}
var ltxtaux;1
if((pAltura==-1)||(pEsquerda==-1))
ltxtaux=";center:1";else
ltxtaux=";dialogTop:"+pTopo+"px;dialogLeft:"+pEsquerda+"px";rvalor=window.showModalDialog(pPagina,pnmJanela,"dialogWidth:"+pLargura+"px;dialogHeight:"+pAltura+"px;scroll:"+pscroll+";help:0;status:0"+ltxtaux);if((rvalor!="")&&(rvalor!=null)){campo.value=rvalor;var strFile=rvalor;var strExteFile=strFile.substr((strFile.length-3),strFile.length);strExteFile=strExteFile.toUpperCase();if((strExteFile=='JPG')||(strExteFile=='GIF'))
{PreviewIMG(rvalor,idimgPreview);}}}
function esconde_obj_id(p_objname)
{p_objname.style.display='none';}
function mostra_obj_id(p_objname)
{p_objname.style.display='block';}
function abreJanelaModalReload(pPagina,pnmJanela,pLargura,pAltura,pTopo,pEsquerda,pScroll)
{var ltxtaux;if((pAltura==-1)||(pEsquerda==-1))
ltxtaux=";center:1";else
ltxtaux=";dialogTop:"+pTopo+"px;dialogLeft:"+pEsquerda+"px";if(window.showModalDialog(pPagina,pnmJanela,"dialogWidth:"+pLargura+"px;dialogHeight:"+pAltura+"px;scroll:"+pScroll+";help:0;status:0"+ltxtaux)==1)
oForm.submit();window.location.reload();}
function MM_openBrWindowModal(theURL,winName,features){rv=window.showModalDialog(theURL,winName,features);return rv;}
function MarcaCheckbox(valor,checkbox)
{if(typeof(checkbox.length)=='undefined')
checkbox.checked=valor;else
{for(i=0;i<checkbox.length;i++)
checkbox[i].checked=valor;}}
function DesmarcaCheckbox(pformulario,pmarca)
{for(var i=0;i<pformulario.elements.length;i++)
{pformulario.elements[i].checked=false;}}
function isNumber(field,msg){data=field.value;var r1=new RegExp("^([0-9]+)$");var r2=new RegExp("^([0-9]+\\,[0-9]{0,3})$");var r3=new RegExp("^[0-9]{1,3}(\\.[0-9]{3})*(\\,[0-9]{0,2}){0,1}$");if(((r1.test(data))||(r2.test(data))||(r3.test(data)))==true)
return true;else
{alert(msg);field.focus();return false;}}
function isInteiro(objNum,msg){data=objNum.value;var numStr="0123456789";var thisChar;var counter=0;for(var i=0;i<data.length;i++){thisChar=data.substring(i,i+1);if(numStr.indexOf(thisChar)!=-1)
counter++;}
if(counter==data.length){return(true);}else{alert(msg);objNum.focus();return false;}
return true;}
function mask_numero_percentual(field)
{var local_caract_especial,cont_caract_especial;local_caract_especial=0;cont_caract_especial=0;if(field.value.length==0&&(event.keyCode==44||event.keyCode==46))
{return false;}
else
{if((event.keyCode==44||event.keyCode==46)||(event.keyCode>47&&event.keyCode<58))
{for(i=0;i<=field.value.length-1;i++)
{str=field.value.substring(i,i+1);str=str.charAt(0)
if((str==",")||(str=="."))
{cont_caract_especial++;local_caract_especial=i}}
if(event.keyCode==44||event.keyCode==46)
{if(cont_caract_especial==1)
{return false;}
else
{return true;}}
else
{if(field.value.length==3&&(event.keyCode!=44&&event.keyCode!=46)&&cont_caract_especial==0)
{field.value=field.value+'.';return true;}
else
{if(cont_caract_especial==1)
{if(field.value.length==3&&(event.keyCode!=44&&event.keyCode!=46)&&cont_caract_especial==0)
{field.value=field.value+'.';return true;}
else
{if((local_caract_especial==0||local_caract_especial==1)&&field.value.length>=5)
return false;}}}}}
else
{return false;}}}
function isVazio(field,msg){var thisChar;var counter=0;var str;str=field.value
if(str==""){if(typeof(msg)!="undefined"){alert(msg)
field.focus()}
return true;}
for(var i=0;i<str.length;i++){thisChar=str.substring(i,i+1);if(thisChar==" ")
counter++;}
if(counter==str.length){if(typeof(msg)!="undefined"){alert(msg);field.focus();}
return true;}
return false;}
function isCampoVazio(oForm,msg)
{for(i=0;i<oForm.length;i++)
{if(oForm.elements[i].id=="validar")
{if(!oForm.elements[i].disabled)
{if((oForm.elements[i].value=='')||(oForm.elements[i].value==' ')||(oForm.elements[i].value=='  '))
{alert(msg);oForm.elements[i].focus();return false;}}}}
return true;}
function isChecked(field,msg)
{checado=false
for(i=0;i<field.length;i++)
{if(field[i].checked)
checado=true;}
if(!checado)
{alert(msg);return false;}
return true;}
function isDateTimeCompara(p_data1,p_hora1,p_data2,p_hora2,p_msg)
{var dia,mes,ano
dia=p_data1.value.substr(0,2);mes=p_data1.value.substr(3,2);ano=p_data1.value.substr(6,4);var hora1,hora2,minuto1,minto2
hora1=p_hora1.value.substr(0,2);hora2=p_hora2.value.substr(0,2);minuto1=p_hora1.value.substr(3,2);minuto2=p_hora2.value.substr(3,2);var dtinicio=new Date(ano+"/"+mes+"/"+dia+" "+hora1+":"+minuto1);dia=p_data2.value.substr(0,2);mes=p_data2.value.substr(3,2);ano=p_data2.value.substr(6,4);var dtfinal=new Date(ano+"/"+mes+"/"+dia+" "+hora2+":"+minuto2);if(dtinicio>=dtfinal){alert(p_msg);p_data1.focus();return false;}
else
return true;}
function isSelected(field,msg)
{if(field.selectedIndex=='')
{alert(msg);field.focus();return false;}
return true;}
function isZero(field,msg){str=field.value
if(str==0){alert(msg)
field.focus()
return true;}
return false;}
function isEmail(str){var supported=0;if(window.RegExp){var tempStr="a";var tempReg=new RegExp(tempStr);if(tempReg.test(tempStr))supported=1;}
if(!supported)
return(str.indexOf(".")>2)&&(str.indexOf("@")>0);var r1=new RegExp("(@.*@)|(\\.\\.)|(@\\.)|(^\\.)");var r2=new RegExp("^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,3}|[0-9]{1,3})(\\]?)$");return(!r1.test(str)&&r2.test(str));}
function mask_numero_decimal(field)
{if((field.value.length==2)&&(event.keyCode==44))
return(true);if((event.keyCode>64&&event.keyCode<91)||(event.keyCode>96&&event.keyCode<123))
return(false);if(((event.keyCode)>47)&&((event.keyCode)<58)){NumDig=field.value;TamDig=NumDig.length;Contador=0;if((TamDig>0)&&(TamDig<field.maxLength)){numer="";for(i=TamDig;(i>=0);i--){if((parseInt(NumDig.substr(i,1))>=0)&&(parseInt(NumDig.substr(i,1))<=9)){Contador++;if((Contador==2)&&((TamDig-i)<4)){numer=","+numer;Contador=0;}else if(Contador==3){numer="."+numer;Contador=0;}
numer=NumDig.substr(i,1)+numer;}}
field.value=numer;return(true);}}else return(false);}
function mask_numero_natural(field){var caracter=event.keyCode;if(caracter==13)
return true;if((caracter<48)||(caracter>57)){field.focus();return false}
return true;}
function maskdata(field,teclapres){var caracter=teclapres.keyCode;if(caracter==13)
return true;if(((field.value.length==2)||(field.value.length==5))&&(caracter==47))
field.value=field.value+'/';if((caracter<48)||(caracter>57)){field.focus();return false}
else{if(((field.value.length==2)||(field.value.length==5))&&(caracter!=8))
field.value=field.value+'/';}
return true;}
function maskhora(field,teclapres){var caracter=teclapres.keyCode;if(caracter==13)
return true;if((field.value.length==2)&&(caracter==47))
field.value=field.value+':';if((caracter<48)||(caracter>57)){field.focus();return false;}
else{if((field.value.length==0)&&(caracter>50))
return false;if((field.value.length==1)&&(field.value.charAt(field.value.length-1)=='2')&&(caracter>51))
return false;if((field.value.length==2)&&(caracter!=8))
field.value=field.value+':';if((field.value.length==3)&&(caracter>53))
return false;if(field.value.length==5)
return false;}
return true;}
function maskdata_mesano(field,teclapres){var caracter=teclapres.keyCode;if(caracter==13)
return true;if((field.value.length==2)&&(caracter==47))
field.value=field.value+'/';if((caracter<48)||(caracter>57)){field.focus();return false}
else{if((field.value.length==2)&&(caracter!=8))
field.value=field.value+'/';}
return true;}
function isDate(objdata){if((objdata.value.length<10)||(objdata.value.length=="")){alert("Data inválida. Formato indicado: dd/mm/aaaa. Ex: 01/01/2002");objdata.focus();return false;}
dia=objdata.value.substr(0,2);mes=objdata.value.substr(3,2);ano=objdata.value.substr(6,4);if((isNaN(parseInt(dia))||isNaN(parseInt(mes))||isNaN(parseInt(ano)))||(ano<1900||ano>9999)||(mes<1||mes>12)||(dia<1||dia>31)||(mes==2&&dia>28&&(ano%4!=0))||(mes==2&&dia>29&&(ano%4==0))||(dia>30&&(mes==4||mes==6||mes==9||mes==11))){alert("Data inválida! Informe uma data válida.");objdata.focus();return false;}else{return true;}}
function mascara_generica(codigo,mascara){str=mascara;fim=str.length;valor=codigo.value;posicao=valor.length-1;tipo=str.charAt(posicao);if((tipo=="a")||(tipo=="A")){if((valor.charCodeAt(posicao)>=48)&&(valor.charCodeAt(posicao)<=57)||(valor.charCodeAt(posicao)>=65)&&(valor.charCodeAt(posicao)<=90)||(valor.charCodeAt(posicao)>=97)&&(valor.charCodeAt(posicao)<=122)){tipo=str.charAt(posicao+1);cont=posicao+1;while((tipo!="a")&&(tipo!="A")&&(tipo!="9")&&(tipo!="")){codigo.value=codigo.value+tipo;cont=cont+1;tipo=str.charAt(cont);}}else{codigo.value=codigo.value.substr(0,posicao);}}else{if(tipo=="9"){if((valor.charCodeAt(posicao)>=48)&&(valor.charCodeAt(posicao)<=57)){tipo=str.charAt(posicao+1);cont=posicao+1;while((tipo!="a")&&(tipo!="A")&&(tipo!="9")&&(tipo!="")){codigo.value=codigo.value+tipo;cont=cont+1;tipo=str.charAt(cont);}}else{codigo.value=codigo.value.substr(0,posicao);}}else{tipo=str.charAt(posicao+1);cont=posicao+1;while((tipo!="a")&&(tipo!="A")&&(tipo!="9")&&(tipo!="")){codigo.value=codigo.value+tipo;cont=cont+1;tipo=str.charAt(cont);}}}
codigo.value=codigo.value.substr(0,fim-1);return true;}
function MM_reloadPage(init){if(init==true)with(navigator){if((appName=="Netscape")&&(parseInt(appVersion)==4)){document.MM_pgW=innerWidth;document.MM_pgH=innerHeight;onresize=MM_reloadPage;}}
else if(innerWidth!=document.MM_pgW||innerHeight!=document.MM_pgH)location.reload();}
MM_reloadPage(true);var velo_scroll=40;var pixel_scroll=10;var window_width=0;var isNav;var isIE;var coll="";var styleObj="";if(parseInt(navigator.appVersion)>=4){if(navigator.appName=="Netscape"){isNav=true;}else{isIE=true;coll="all.";styleObj=".style";}}
function getObjWidth(obj){var theObj=eval("document."+coll+obj);if(isNav){return theObj.clip.width;}else{return theObj.clientWidth;}}
function getObject(obj){if(typeof obj=="string"){theObj=eval("document."+coll+obj+styleObj);}else{theObj=obj;}
return theObj;}
function getInsideWindowWidth(){if(isNav){return window.innerWidth;}else{return document.body.clientWidth;}}
function getObjectLeft(obj){var theObj=getObject(obj);if(isNav){return theObj.left;}else{return theObj.pixelLeft;}}
function shiftBy(obj,x,y){var theObj=getObject(obj);if(isNav){theObj.left=theObj.left+x;theObj.top=theObj.top+y;}else{theObj.pixelLeft=theObj.pixelLeft+x;theObj.pixelTop=theObj.pixelTop+y;}}
var tim=0;var noScroll=true;function mLeft(obj){obj="menu"
if(!noScroll&&getObjectLeft(obj)<window_width){shiftBy(obj,pixel_scroll,0);tim=setTimeout("mLeft()",velo_scroll);}}
function mRight(obj){obj="menu"
if(!noScroll&&getObjectLeft(obj)>-(getObjWidth(obj)-(getInsideWindowWidth()))-window_width){shiftBy(obj,-pixel_scroll,0);tim=setTimeout("mRight()",velo_scroll);}}
function noMove(){clearTimeout(tim);noScroll=true;currentScroll='parar'}
if(document.layers)ns=true;else ns=false;if(document.all)ie=true;else ie=false;var scrollMargin=0;var scrollPos=0;var scrollStep=8;var scrollSpeedStep=100;var currentScroll=null;var continueFlag=false;var scrollEnable=false;var nmbox;var nmlist;function init(box,list){nmbox=box;nmlist=list;document.onmouseup=mouseUp;if(ns)document.layers['Rolagem1'].onmouseup=mouseUp;if(ns)document.layers['Rolagem2'].onmouseup=mouseUp;if(ns)document.captureEvents(Event.MOUSEUP);if(ie)scrolldiff=nmlist.scrollHeight-nmbox.offsetHeight;if(ns)scrolldiff=document.nmbox.document.layers.nmlist.document.height-
document.layers.nmbox.clip.height;if(scrolldiff>0){scrollEnable=true;}}
function mouseUp(e){if(!continueFlag)currentScroll=false;continueFlag=false;setTimeout("scrollFlag=false;",100);}
function scrollFunc(nmbox,nmlist,direction,type){init(nmbox,nmlist)
if(scrollEnable){continueFlag=true;if((currentScroll==direction)&&(type=="step")){currentScroll=null;}
else{currentScroll=direction;scrollExec(direction,type);}}}
function scrollExec(direction,type){if(currentScroll==direction){if((type=="step")&&(currentScroll)){setTimeout("scrollExec('"+direction+"', '"+type+"');",scrollSpeedStep);}
else currentScroll=null;if(ie){boxheight=nmbox.offsetHeight;maxscroll=nmlist.scrollHeight-boxheight;}
if(ns){boxheight=document.nmbox.clip.height;maxscroll=document.nmbox.document.layers.nmlist.document.height-boxheight+25;}
if(type=="page")delta=boxheight-scrollMargin;else delta=scrollStep;if(direction=="up")delta=-delta;scrollPos+=delta;if(scrollPos<0)scrollPos=0;if(scrollPos>maxscroll)scrollPos=maxscroll;if(ie)nmlist.style.top=-scrollPos;if(ns)document.nmbox.document.nmlist.top=-scrollPos;}}
function ValidaAno(field){if(field.value!=''){if(!isNumber(field,'Ano deve ser numérico'))
{return false;}
if((field.value.length<4)&&(field.value.length>=1))
{alert('O Ano deve ser de 4 dígitos');field.focus();return false;}}
return true;}
function PreviewIMG(txUpload)
{if(txUpload.value==''){alert('Selecione a Imagem para Visualizar');txUpload.focus();return false;}
else
{document.imgPreview.src=oForm.url_img.value+txUpload;}
return true;}
function popula_combo_dependente(p_nmFuncao,p_nmFrame_escondido,p_nmForm,p_nmCampo,p_codigoSQL,p_ordemform)
{p_nmForm.target=p_nmFrame_escondido;p_nmForm.action='../include/ap_popula_filtros.asp?p_nmFuncao='+p_nmFuncao+'&p_NmCombo='+p_nmCampo+'&p_codigoSQL='+p_codigoSQL+'&p_ordemform='+p_ordemform;p_nmForm.submit();return true;}
function PopulaCombo(origem,destino)
{var qtdexiste=0;if(origem.selectedIndex>=0)
{for(lnx=0;lnx<origem.length;lnx++)
{if((origem.options[lnx].selected)&&(!fn_procuravalor(destino,origem.options[lnx].value)))
{destino.length=destino.length+1;destino.options[destino.length-1].value=origem.options[lnx].value;destino.options[destino.length-1].text=origem.options[lnx].text;}
else
{qtdexiste++;}}}}
function removeItemCombo(campo)
{if(campo.selectedIndex>=0)
campo.options[campo.selectedIndex]=null;}
function fn_procuravalor(objeto,valor)
{existe=false;for(lny=0;((lny<objeto.length)&&(!existe));lny++)
{if(objeto.options[lny].value==valor)
{existe=true;}}
return existe;}
function ordenaCombo(field,acao)
{var tmp=0;var retorno=false;if((acao.toLowerCase()=='cima')&&(field.options[field.selectedIndex].index!=0)){tmp=tmp-1;retorno=true;}
else{if((acao.toLowerCase()=='baixo')&&(field.options[field.selectedIndex].index!=field.options.length-1)){tmp=tmp+1;retorno=true;}}
if(retorno){txselected=field.options[((field[field.selectedIndex].index))].text;txprox=field.options[((field[field.selectedIndex].index)+tmp)].text;vlselected=field.options[((field[field.selectedIndex].index))].value;vlprox=field.options[((field[field.selectedIndex].index)+tmp)].value;field.options[((field.options[field.selectedIndex].index))].text=txprox;field.options[((field.options[field.selectedIndex].index)+tmp)].text=txselected;field.options[((field.options[field.selectedIndex].index))].value=vlprox;field.options[((field.options[field.selectedIndex].index)+tmp)].value=vlselected;field.selectedIndex=field.selectedIndex+tmp;}}
function MM_reloadPage(init){if(init==true)with(navigator){if((appName=="Netscape")&&(parseInt(appVersion)==4)){document.MM_pgW=innerWidth;document.MM_pgH=innerHeight;onresize=MM_reloadPage;}}
else if(innerWidth!=document.MM_pgW||innerHeight!=document.MM_pgH)location.reload();}
MM_reloadPage(true);function MM_findObj(n,d){var p,i,x;if(!d)d=document;if((p=n.indexOf("?"))>0&&parent.frames.length){d=parent.frames[n.substring(p+1)].document;n=n.substring(0,p);}
if(!(x=d[n])&&d.all)x=d.all[n];for(i=0;!x&&i<d.forms.length;i++)x=d.forms[i][n];for(i=0;!x&&d.layers&&i<d.layers.length;i++)x=MM_findObj(n,d.layers[i].document);if(!x&&d.getElementById)x=d.getElementById(n);return x;}
function MM_showHideLayers(){var i,p,v,obj,args=MM_showHideLayers.arguments;for(i=0;i<(args.length-2);i+=3)if((obj=MM_findObj(args[i]))!=null){v=args[i+2];if(obj.style){obj=obj.style;v=(v=='show')?'visible':(v=='hide')?'hidden':v;}
obj.visibility=v;}}
function RetornaPercentual_restante(Field,p_crme_pr_pagamento_total,p_msg)
{if(parseFloat(Field.value.replace(",","."))>parseFloat(p_crme_pr_pagamento_total))
{alert(p_msg);Field.focus();return false;}
return true;}
function ModalWindow(pagina,formelement,campo,titulo)
{if(formelement==""){janela=abreJanelaModal(pagina,titulo,220,250,-1,-1,campo);}
else{var data;if(!isDate(campo)){return false;}
data=formelement.split("/");janela=abreJanelaModal(""+pagina+"?diam="+data[0]+"&mesa="+data[1]+"&anoa="+data[2]+"",titulo,220,250,-1,-1,campo);}}
function mascara_moeda(field){field.value=(Math.round((parseFloat(field.value))*100))/100;var cont=0;var tam=(field.value).length;var flag_negativo=false;if((tam==0)||(field.value=='')||(isNaN(field.value)))
{field.value='0,00';return false;}else if(field.value<0){field.value=(field.value)*(-1)
flag_negativo=true;}
for(i=1;i<=tam;i++)
{if((field.value).substring(i-1,i)=='.'){field.value=(field.value).replace(".",",");cont=0;}
cont++;}
if(cont==tam)
field.value=field.value+',00';else
if(cont==2)
field.value=field.value+'0';tam=(field.value).length
cont=0;for(j=tam-3;j>1;j--)
{cont++;if((cont%3)==0){field.value=((field.value).substring(0,j-1))+'.'+((field.value).substring(j-1,(field.value).length+1));}}
if(flag_negativo)
field.value='-'+field.value;}
function replaceAll(p_valor,p_char,p_charNew){p_valor_old='';while(p_valor_old!=p_valor){p_valor_old=p_valor;p_valor=p_valor.replace(p_char,p_charNew);}
return p_valor;}
function limpa_combo(p_field,p_descricao){p_field.length=1;p_field.options[p_field.length-1].text=p_descricao;p_field.options[p_field.length-1].value='';}
function abreJanelaModal_dois_retornos(pPagina,pnmJanela,pLargura,pAltura,pTopo,pEsquerda,campo,campo_hd,pscroll){var ltxtaux;var i=0;if((pAltura==-1)||(pEsquerda==-1))
ltxtaux=";center:1";else
ltxtaux=";dialogTop:"+pTopo+"px;dialogLeft:"+pEsquerda+"px";rvalor=window.showModalDialog(pPagina,pnmJanela,"dialogWidth:"+pLargura+"px;dialogHeight:"+pAltura+"px;scroll:"+pscroll+";help:0;status:0"+ltxtaux);if((rvalor!="")&&(rvalor!=null)){while((i<rvalor.length)&&(rvalor.charAt(i)!='#'))
i++;campo.value=rvalor.substring(0,i);campo_hd.value=rvalor.substring(i+1,rvalor.lenght)}}
function isDateMesAno(objdata){if((objdata.value.length<7)||(objdata.value.length=="")){alert("Data inválida. Formato indicado: mm/aaaa. Ex: 01/2002");objdata.focus();return false;}
mes=objdata.value.substr(0,2);ano=objdata.value.substr(3,7);if((isNaN(parseInt(mes))||isNaN(parseInt(ano)))||(ano<1900||ano>9999)||(mes<1||mes>12)){alert("Data inválida! Informe uma data válida.");objdata.focus();return false;}else{return true;}}
function ModalWindowMesAno(pagina,formelement,campo,titulo)
{if(formelement==""){janela=abreJanelaModal(pagina,titulo,200,230,-1,-1,campo);}
else{var data;if(!isDateMesAno(campo)){return false;}
data=formelement.split("/");janela=abreJanelaModal(""+pagina+"?mesa="+data[0]+"&anoa="+data[1]+"",titulo,200,230,-1,-1,campo);}}
var marked_row=new Array;function setPointer(theRow,theRowNum,theAction,theDefaultColor,thePointerColor,theMarkColor)
{var theCells=null;if((thePointerColor==''&&theMarkColor=='')||typeof(theRow.style)=='undefined'){return false;}
if(typeof(document.getElementsByTagName)!='undefined'){theCells=theRow.getElementsByTagName('td');}
else if(typeof(theRow.cells)!='undefined'){theCells=theRow.cells;}
else{return false;}
var rowCellsCnt=theCells.length;var domDetect=null;var currentColor=null;var newColor=null;if(typeof(window.opera)=='undefined'&&typeof(theCells[0].getAttribute)!='undefined'){currentColor=theCells[0].getAttribute('bgcolor');domDetect=true;}
else{currentColor=theCells[0].style.backgroundColor;domDetect=false;}
if(currentColor==''||currentColor.toLowerCase()==theDefaultColor.toLowerCase()){if(theAction=='over'&&thePointerColor!=''){newColor=thePointerColor;}
else if(theAction=='click'&&theMarkColor!=''){newColor=theMarkColor;marked_row[theRowNum]=true;}}
else if(currentColor.toLowerCase()==thePointerColor.toLowerCase()&&(typeof(marked_row[theRowNum])=='undefined'||!marked_row[theRowNum])){if(theAction=='out'){newColor=theDefaultColor;}
else if(theAction=='click'&&theMarkColor!=''){newColor=theMarkColor;marked_row[theRowNum]=true;}}
else if(currentColor.toLowerCase()==theMarkColor.toLowerCase()){if(theAction=='click'){newColor=(thePointerColor!='')?thePointerColor:theDefaultColor;marked_row[theRowNum]=(typeof(marked_row[theRowNum])=='undefined'||!marked_row[theRowNum])?true:null;}}
if(newColor){var c=null;if(domDetect){for(c=0;c<rowCellsCnt;c++){theCells[c].setAttribute('bgcolor',newColor,0);}}
else{for(c=0;c<rowCellsCnt;c++){theCells[c].style.backgroundColor=newColor;}}}
return true;}
function setVerticalPointer(theRow,theRowNum,theAction,theDefaultColor1,theDefaultColor2,thePointerColor,theMarkColor){var theCells=null;if((thePointerColor==''&&theMarkColor=='')||typeof(theRow.style)=='undefined'){return false;}
if(typeof(document.getElementsByTagName)!='undefined'){theCells=theRow.getElementsByTagName('td');}
else if(typeof(theRow.cells)!='undefined'){theCells=theRow.cells;}
else{return false;}
var rowCellsCnt=theCells.length;var domDetect=null;var currentColor=null;var newColor=null;if(typeof(window.opera)=='undefined'&&typeof(theCells[0].getAttribute)!='undefined'){currentColor=theCells[0].getAttribute('bgcolor');domDetect=true;}
else{domDetect=false;}
var c=null;for(c=0;c<rowCellsCnt;c++){if(domDetect){currentColor=theCells[c].getAttribute('bgcolor');}else{currentColor=theCells[c].style.backgroundColor;}
if(currentColor==''||currentColor.toLowerCase()==theDefaultColor1.toLowerCase()||currentColor.toLowerCase()==theDefaultColor2.toLowerCase()){if(theAction=='over'&&thePointerColor!=''){newColor=thePointerColor;}else if(theAction=='click'&&theMarkColor!=''){newColor=theMarkColor;marked_row[theRowNum]=true;}}
else if(currentColor.toLowerCase()==thePointerColor.toLowerCase()&&(typeof(marked_row[theRowNum])=='undefined'||!marked_row[theRowNum])){if(theAction=='out'){if(c%2){newColor=theDefaultColor1;}else{newColor=theDefaultColor2;}}
else if(theAction=='click'&&theMarkColor!=''){newColor=theMarkColor;marked_row[theRowNum]=true;}}
else if(currentColor.toLowerCase()==theMarkColor.toLowerCase()){if(theAction=='click'){newColor=(thePointerColor!='')?thePointerColor:((c%2)?theDefaultColor1:theDefaultColor2);marked_row[theRowNum]=(typeof(marked_row[theRowNum])=='undefined'||!marked_row[theRowNum])?true:null;}}
if(newColor){if(domDetect){theCells[c].setAttribute('bgcolor',newColor,0);}
else{theCells[c].style.backgroundColor=newColor;}}}
return true;function MM_reloadPage(init){if(init==true)with(navigator){if((appName=="Netscape")&&(parseInt(appVersion)==4)){document.MM_pgW=innerWidth;document.MM_pgH=innerHeight;onresize=MM_reloadPage;}}
else if(innerWidth!=document.MM_pgW||innerHeight!=document.MM_pgH)location.reload();}
MM_reloadPage(true);}
function writeFlash(targetFlash,widthFlash,heightFlash,backFlash){document.write('<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="'+widthFlash+'" height="'+heightFlash+'">');document.write('<param name="allowScriptAccess" value="sameDomain" />');document.write('<param name="movie" value="'+targetFlash+'">');document.write('<param name="quality" value="high">');document.write('<param name="menu" value="false">');if(backFlash){document.write('<param name="bgcolor" value="'+backFlash+'">');document.write('<embed src="'+targetFlash+'" quality="high" bgcolor="'+backFlash+'" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="'+widthFlash+'" height="'+heightFlash+'"></embed>');}else{document.write('<param name="wmode" value="transparent">');document.write('<embed src="'+targetFlash+'" quality="high" wmode="transparent" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="'+widthFlash+'" height="'+heightFlash+'"></embed>');}
document.write('</object>');}