function nvl(p1,p2){return(!p1)?p2:p1;}
function f_placa(fld){fld.value=(fld.value.replace('-','')).toUpperCase();}
function f_verifica_separador(fld){if((fld.value).indexOf(',')!=-1){fld.value=fld.value.substr(0,fld.value.length-1);fld.value=fld.value+'.';}
if(isNaN(fld.value)){alert("Digite somente números neste campo.");fld.value=fld.value.substr(0,fld.value.length-1);}}
function f_habilitar_botao(p_botao,p_evo_click){try{v_img=eval("document.getElementById('img_"+p_botao+"')");v_botao=eval("document.getElementById('btn_"+p_botao+"')");v_img.src='/_imagens/botoes/16x16/'+p_botao+'.gif';v_botao.onclick=function(){eval(p_evo_click);};v_botao.disabled=false;}catch(e){with(parent){try{v_img=document.getElementById('img_'+p_botao);v_botao=document.getElementById('btn_'+p_botao);v_img.src='/_imagens/botoes/16x16/'+p_botao+'.gif';v_botao.onclick=function(){eval(p_evo_click);};v_botao.disabled=false;}catch(e){}}}}
function f_desabilitar_botao(p_botao){try{v_img=document.getElementById('img_'+p_botao);v_botao=document.getElementById('btn_'+p_botao);v_img.src='/_imagens/botoes/16x16/'+p_botao+'_disable.gif';v_botao.onclick='';v_botao.disabled=true;}catch(e){with(parent){v_img=document.getElementById('img_'+p_botao);v_botao=document.getElementById('btn_'+p_botao);v_img.src='/_imagens/botoes/16x16/'+p_botao+'_disable.gif';v_botao.onclick='';v_botao.disabled=true;}}}
function f_formata_numero_decimal(objeto,p_event){var k=-1;if(f_formata_numero_decimal.arguments.length==2){ev=p_event;}
if(window.event&&window.event.keyCode){k=window.event.keyCode;}else{if(p_event){k=p_event.charCode;}
if(k==0){k=-1;}}
if(k==44&&((window.event)||(objeto.value.indexOf('.')==-1))){k=46;if(window.event){window.event.keyCode=46;}else{return false;}
if(document.selection)
document.selection.createRange().text='';}
return(k>-1?((k>47&&k<58)||(k==8||(k==46&&objeto.value.indexOf('.')==-1))):true);}
function f_verifica_tipo(p_campo){switch(p_campo.type){case'text':case'select-one':case'select-multiple':case'textarea':case'password':return true;default:return false;}}
function show_popup(current,e,comentario){var oPopup=window.createPopup();var oPopupBody=oPopup.document.body;oPopupBody.style.backgroundColor="lightyellow";oPopupBody.style.border="solid black 1px";oPopupBody.style.fontFamily="Verdana, Geneva, Arial, Helvetica, sans-serif";oPopupBody.style.fontSize="10px";oPopupBody.scroll="yes";var altura=1;var largura=320;var deslocamento=(parseInt(current.offsetHeight)+5);if(comentario.length>45)
altura=Math.ceil(comentario.length/45);else
largura=Math.ceil(comentario.length*8);oPopupBody.innerHTML=comentario;if((current.type=='select-one')||(current.type=='select-multiple')){if(altura==1)
deslocamento=-1*(parseInt(current.offsetHeight)+5);else
deslocamento=-1*(parseInt(current.offsetHeight)+(10*altura));}
oPopup.show(0,deslocamento,largura,15*altura,current);}
function showhide(fld){var campo=document.createElement("tr");campo=eval(fld);if(campo.style.display=='none')
campo.style.display='';else
campo.style.display='none';return false;}
function f_formata(obj,p_event,p_mask){if(obj.readOnly||obj.disabled)
return;if(f_formata.arguments.length==2){mask=p_event;}else{mask=p_mask;ev=p_event;}
var k=-1;var v_tipos='0XxAa';if(window.event&&window.event.keyCode){k=window.event.keyCode;}else{if(f_formata.arguments.length!=2){k=ev.charCode;if(k==0){return true;}}}
while(v_tipos.indexOf(mask.substring(obj.value.length,obj.value.length+1))==-1&&obj.value.length<mask.length){obj.value=obj.value+mask.substring(obj.value.length,obj.value.length+1);}
var v_numeros='0123456789';var v_letras_maius='ABCDEFGHIJKLMNOPQRSTUVWXYZ';if(document.selection)
document.selection.createRange().text='';if(mask.substring(obj.value.length,obj.value.length+1)=='0'){ret=(k>-1?(v_numeros.indexOf(String.fromCharCode(k))!=-1):true);}else if(mask.substring(obj.value.length,obj.value.length+1)=='x'){ret=(k>-1?(v_letras_maius.indexOf(String.fromCharCode(k).toUpperCase())!=-1):true);}else if(mask.substring(obj.value.length,obj.value.length+1)=='X'){if(window.event&&window.event.keyCode){window.event.keyCode=String.fromCharCode(k).toUpperCase().charCodeAt(0);}else if(f_formata.arguments.length!=2){ev.charCode=String.fromCharCode(k).toUpperCase().charCodeAt(0);}
ret=(k>-1?(v_letras_maius.indexOf(String.fromCharCode(k).toUpperCase())!=-1):true);}else if(mask.substring(obj.value.length,obj.value.length+1)=='a'){ret=true;}else if(mask.substring(obj.value.length,obj.value.length+1)=='A'){if(window.event&&window.event.keyCode){window.event.keyCode=String.fromCharCode(k).toUpperCase().charCodeAt(0);}else if(f_formata.arguments.length!=2){ev.charCode=String.fromCharCode(k).toUpperCase().charCodeAt(0);}
ret=true;}
return((!(obj.value.length>(mask.length-1)))&&ret);}
function FCKeditor_OnComplete(editorInstance)
{editorInstance.Events.AttachEvent('OnStatusChange',f_fckeditor_readonly);}
var counter=0;function f_fckeditor_readonly(editorInstance)
{if(FCK_STATUS_COMPLETE==2){try{window[oEditor.Name+'___Frame'].document.getElementById('xEditingArea').childNodes[0].style.visibility='hidden';window[oEditor.Name+'___Frame'].focus();}catch(e){}}}
function f_desabilita_todos_campos(){for(var i=0;i<document.forms[0].elements.length;i++){var v_elem=document.forms[0].elements[i];if(!v_elem.getAttribute('sempre_ativo')||v_elem.getAttribute('sempre_ativo')!=1){v_elem.disabled=true;if(v_elem.getAttribute("rte")==1)
disableRTE(document.forms[0].elements[i].name);if(v_elem.getAttribute("fckeditor")==1){try{window[oEditor.Name+'___Frame'].document.getElementById('xEditingArea').childNodes[0].style.visibility='hidden';window[oEditor.Name+'___Frame'].focus();}catch(e){oEditor=FCKeditorAPI.GetInstance(v_elem.name);FCKeditor_OnComplete(oEditor);}}}}}
function f_habilita_todos_campos(){var v_focus=true;for(var i=0;i<document.forms[0].elements.length;i++){var v_elem=document.forms[0].elements[i];if(!v_elem.getAttribute('ativo')||v_elem.getAttribute('ativo')!=0){v_elem.disabled=false;if(v_elem.getAttribute("rte")==1)
enableRTE(v_elem.name);if(v_elem.getAttribute("fckeditor")==1)
window[oEditor.Name+'___Frame'].document.getElementById('xEditingArea').childNodes[0].style.visibility='visible';}
if(((v_elem.type=='select-multiple')||(v_elem.type=='select-one')||(v_elem.type=='text'))&&v_focus&&!v_elem.disabled&&!v_elem.readOnly){try{v_elem.focus();v_focus=false;}catch(e){}}}}
function f_limpar_campos(){for(var i=0;i<document.forms[0].elements.length;i++){var v_elem=document.forms[0].elements[i];if(!v_elem.getAttribute("fixo")){switch(v_elem.type){case'select-one':case'select-multiple':case'hidden':case'text':case'textarea':v_elem.value='';break;case'checkbox':case'radio':v_elem.checked=false;break;}
if(v_elem.getAttribute("rte")==1)
enableDesignMode(v_elem.name,'',v_elem.disabled);if(v_elem.getAttribute("fckeditor")==1)
FCKeditorAPI.GetInstance(v_elem.name).Commands.GetCommand('NewPage').Execute();}}}
function insertAfter(referenceNode,newNode){referenceNode.parentNode.insertBefore(newNode,referenceNode.nextSibling);}
function f_controla_campos(num_forms){if(!window.event)
return;var v_controla_tab_index=false;var args=f_controla_campos.arguments;if(args.length>1)
v_controla_tab_index=true;for(var j=0;j<num_forms;j++){for(var i=0;i<document.forms[j].elements.length;i++){var v_elem=document.forms[j].elements[i];if(f_verifica_tipo(v_elem)&&Number(v_elem.getAttribute('obrigatorio'))==1)
v_elem.className='requerido_form';if(v_controla_tab_index)
v_elem.tabIndex=0;if(v_elem.onfocus)
v_elem.v_funcao_focus=v_elem.onfocus;v_elem.onfocus=function(){if(this.v_funcao_focus)
this.v_funcao_focus();if(f_verifica_tipo(this)&&this.type!='select-one'&&this.type!='select-multiple'){this.style.backgroundColor='#FFFFDD';this.style.color='#000000';}
if(this.getAttribute('hint'))
show_popup(this,event,this.getAttribute('hint'));};if(v_controla_tab_index)
v_elem.tabIndex=i+1;if(f_verifica_tipo(v_elem)){v_elem.onhelp=function(){show_popup(event.srcElement,event,event.srcElement.getAttribute('hint'));}
if(v_elem.onblur)
v_elem.v_funcao_blur=v_elem.onblur;v_elem.onblur=function(){if(this.v_funcao_blur)
this.v_funcao_blur();this.style.backgroundColor='';this.style.color='';window.status='';};}}}
window.status='';}
function f_marca_todos(p_check_name){for(var i=0;i<document.forms[0].elements.length;i++){if((document.forms[0].elements[i].type=='checkbox')&&(p_check_name==document.forms[0].elements[i].name))
document.forms[0].elements[i].checked=true;}}
function initAbas(v_id,v_aba_inicial,p_ativa_crtl_tab){var tbl=document.getElementById(v_id);var abas=tbl.rows[0].cells
var nro_abas=abas.length;var corpos=new Array();for(var i=0;i<tbl.rows.length;i++){if(i!=0){corpos[corpos.length]=tbl.rows[i];tbl.rows[i].cells[0].className='td_aba_corpo';}}
var nro_corpos=corpos.length;if(nro_abas<nro_corpos){}
for(var i=0;i<abas.length;i++){if(i<nro_corpos){if(v_aba_inicial==i){abas[i].className='td_aba_up';}else{abas[i].className='td_aba_down';}
abas[i].f_old=abas[i].onclick;abas[i].onclick=function(){mudaAba(corpos,abas,this);if(this.f_old)
this.f_old(event);}}else{abas[i].className='td_aba_none';}}
for(var i=0;i<corpos.length;i++){if(v_aba_inicial==i){corpos[i].style.display='';}else{corpos[i].style.display='none';}}
if(p_ativa_crtl_tab){document.onkeydown=function(event){if(((window.event)?window.event:event).ctrlKey)
if(((window.event)?window.event:event).keyCode==9){mudaAbaSequencia(v_id);return false;}}}}
function mudaAba(v_tbody,v_tr,obj){tb=v_tbody;tr=v_tr;var sel=-1;for(var i=0;i<tr.length;i++){if(i<tb.length){if(tr[i]==obj){sel=i;tr[i].className='td_aba_up';}else{tr[i].className='td_aba_down';}}}
for(var i=0;i<tb.length;i++){if(i==sel){tb[i].style.display='';}else{tb[i].style.display='none';}}}
function f_erro(p_mensagem,p_campo,form){try{alert(p_mensagem);if(p_campo.type=='select-one')
p_campo.focus();if(p_campo.type=='text')
p_campo.select();}catch(e){}
return false;}
function NewWindow(mypage,myname,w,h,scroll){mypage=mypage.replace('http%3A','http:').replace('https%3A','https:');if(mypage!=''&&mypage.replace(/ /g,'').toLowerCase()!='about:blank'&&mypage.indexOf('/')!=0&&(mypage.indexOf('http://')!=0&&mypage.indexOf('https://')!=0)){init='';t=window.location.toString().split('/');for(var i=0;i<t.length-1;i++){init+=t[i]+'/';}
mypage=init+mypage;}
var winl=(screen.width-w)/2;var wint=(screen.height-h)/2;winprops='height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable,status'
win=window.open(mypage,myname,winprops)
if(parseInt(navigator.appVersion)>=4){win.window.focus();}}
function f_verifica_form(formulario){var args=f_verifica_form.arguments;var secao=false;var v_formulario_valor=false;if(args.length==2)secao=true;for(var i=0;i<formulario.elements.length;i++){var v_elem=formulario.elements[i];if(!v_elem.disable){if((!secao&&!v_elem.getAttribute("secao"))||args[1]==v_elem.getAttribute("secao")){if(v_elem.getAttribute("texto_interno")){if(v_elem.value==v_elem.getAttribute("texto_interno"))
v_formulario_valor=false;else if(v_elem.value)
v_formulario_valor=true;else
v_formulario_valor=false;}else if(v_elem.value)
v_formulario_valor=true;else
v_formulario_valor=false;if((v_elem.getAttribute("obrigatorio")==1)&&(!v_formulario_valor)&&(!v_elem.disable)){return f_erro('O campo '+v_elem.getAttribute("display")+' '+String.fromCharCode(233)+' requerido.',v_elem,formulario);}}
if((!secao&&!v_elem.getAttribute("secao"))||args[1]==v_elem.getAttribute("secao")){if(v_elem.value){var v_display=v_elem.getAttribute("display");switch(String(v_elem.getAttribute("tipo")).toLowerCase().trim()){case'numerico':v_elem.value=v_elem.value.replace(',','.');if(!v_elem.value.isNumber())
return f_erro('O valor do campo '+v_display+' deve ser num'+String.fromCharCode(233)+'rico.',v_elem,formulario);break;case'data':if(!v_elem.value.substr(0,10).isDate())
return f_erro('O valor do campo '+v_display+' deve ser uma data v'+String.fromCharCode(225)+'lida.',v_elem,formulario);break;case'data_hora':if(!v_elem.value.isDataHora())
return f_erro('O valor do campo '+v_display+' deve ser uma data e hora v'+String.fromCharCode(225)+'lida, no formato (dia/m'+String.fromCharCode(234)+'s/ano hora:minuto).',v_elem,formulario);break;case'cpf':if(!v_elem.value.isCPF())
return f_erro('O valor do campo '+v_display+' deve ser um nº v'+String.fromCharCode(225)+'lido de CPF.',v_elem,formulario);break;case'cnpj':if(!v_elem.value.isCNPJ())
return f_erro('O valor do campo '+v_display+' deve ser um CNPJ v'+String.fromCharCode(225)+'lido.',v_elem,formulario);break;case'cnpjcpf':case'cnpj_cpf':if(!v_elem.value.isCNPJCPF())
return f_erro('O valor do campo '+v_display+' deve ser um CNPJ ou CPF v'+String.fromCharCode(225)+'lido.',v_elem,formulario);break;case'email':if(!v_elem.value.isMail())
return f_erro('O valor do campo '+v_display+' deve ser um e-mail.',v_elem,formulario);break;case'placa':v_elem.value=v_elem.value.replace('-','').trim();if(!v_elem.value.isPlaca())
return f_erro('O valor do campo '+v_display+' deve ser uma placa v'+String.fromCharCode(225)+'lida.',v_elem,formulario)
break;}}}}}
return true;}
function f_cria_botao(p_nome,p_label,p_click,p_barra){if(!p_barra){p_barra=parent.document.getElementById('barra_botoes_top');}
if(p_barra.id=='barra_botoes_bottom'){p_barra=parent.document.getElementById('barra_botoes_bottom_sp');}
var obj=parent.document.createElement('button');if(p_label=='Localizar'){obj.accessKey='l';p_label='<u>L</u>ocalizar';}
if(p_label=='Imprimir'){obj.accessKey='p';p_label='Im<u>p</u>rimir';}
if(p_label=='Filtro'){obj.accessKey='f';p_label='<u>F</u>iltro';}
obj.temp=1;obj.id='btn_'+p_nome;obj.name='btn_'+p_nome;if(p_barra.id=='barra_botoes_bottom_sp'){obj.className='botao';obj.style.marginLeft='4px';}else{obj.className='botao_cab';}
obj.innerHTML='<img src="_imagens/botoes/16x16/'+p_nome+'.gif" id="img_'+p_nome+'" width="16" height="16" align="absmiddle"> '+p_label;obj.onclick=function(){eval(p_click);}
obj.temp=1;p_barra.appendChild(obj);}
function f_img_check(obj,img_check,img_uncheck,v_field){if(obj.src.indexOf(img_check)!=-1){v_field.value=0;obj.src=img_uncheck;}else{v_field.value=1;obj.src=img_check;}}
function testacnpj(cnpj)
{while(cnpj.indexOf('.')>0)
{cnpj=cnpj.replace('.','');}
while(cnpj.indexOf('-')>0)
{cnpj=cnpj.replace('-','');}
while(cnpj.indexOf('/')>0)
{cpnj=cnpj.replace('/','');}
res=false;digito=0;if(cnpj.length==14)
{cnpjdv=cnpj.substring(12,14);digito=0;controle="";for(i=0;i<2;i++)
{soma=0;for(j=0;j<12;j++)
{soma+=(cnpj.substring(j,j+1)*1)*((11+i-j)%8+2);}
if(i==1)
{soma+=digito*2;}
digito=11-soma%11;if(digito>9)
{digito=0;}
controle=controle+""+digito;}
if(controle==cnpjdv)
{res=true;}}
return res;}
function testacpf(cpf)
{while(cpf.indexOf('.')>0)
{cpf=cpf.replace('.','');}
while(cpf.indexOf('-')>0)
{cpf=cpf.replace('-','');}
while(cpf.indexOf('/')>0)
{cpf=cpf.replace('/','');}
if(cpf=='00000000000')
{return true;}
digito1=0;digito2=0;if(cpf.length==11)
{for(i=0;i<9;i++)
{digito1+=(cpf.substring(i,i+1)*1)*(10-i);}
if((digito1%11==1)||(digito1%11==0))
{digito1=0;}
else
{digito1=11-(digito1%11);}
for(i=0;i<10;i++)
{digito2+=(cpf.substring(i,i+1)*1)*(11-i);}
if((digito2%11==1)||(digito2%11==0))
{digito2=0;}
else
{digito2=11-(digito2%11);}
return((digito1+""+digito2)==cpf.substring(9,11));}
else
{return false;}}
function testacpfcnpj(cpfcnpj)
{if(cpfcnpj.length==14)
{return testacnpj(cpfcnpj);}
else
{return testacpf(cpfcnpj);}}
function f_carrega_imagem(v_file_input,v_image_preview){if(v_file_input.value!=""){v_image_preview.style.display='';v_image_preview.src=v_file_input.value;}else{v_image_preview.style.display='none';}}
function f_erro_imagem(v_image_preview,display){v_image_preview.style.display='none';if(display){alert('Nao foi possivel carregar esta imagem!');}}
function f_limita_imagem(v_image,v_width,v_height){larga=((v_image.width/v_image.height)>(v_width/v_height));if(v_image.height>v_height||v_image.width>v_width){if(larga){v_image.width=v_width;}else{v_image.height=v_height;}}}
function showModal(p_pagina,p_target,p_resize,p_scroll,p_status,p_width,p_height)
{var path=p_pagina.split('/');var pagina=path[path.length-1].split('?');resize=(p_resize!=null||p_resize!=0)?p_resize:false;scrol=(p_scroll!=null||p_scroll!=0)?p_scroll:false;status=(p_status!=null||p_status!=0)?p_status:'';width=(p_width!=null||p_width!=0)?p_width:0;height=(p_height!=null||p_height!=0)?p_height:0;esquerda=(screen.width)?(screen.width-parseInt(width))/2:0;topo=(screen.height)?(screen.height-parseInt(height))/2:0;win=window.open(p_pagina,p_target,'height='+height+', width='+width+', left='+esquerda+', top='+topo+', toolbar=0, location=0,directories=0,status='+status+',menuBar=0,scrollBars='+scrol+',resizable='+resize+'');win.focus();}
function toCurrency(v_valor){v_valor=Math.round(Number(v_valor)*100)/100;var partes=String(v_valor).split('.');if(partes.length>1){partes[1]=String(partes[1]);if(partes[1].length==0){partes[1]='00';}
if(partes[1].length==1){partes[1]=partes[1]+'0';}
if(partes[1].length>2){if(Number(partes[1].substr(0,2))<10){partes[1]='0'+Math.round(partes[1].substr(0,4)/100);}else{partes[1]=String(partes[1]).substr(0,2);}}
var dec=partes[1];}else{var dec='00';}
var result=0;if((v_valor>=0&&Math.round(v_valor)>v_valor)||(v_valor<=0&&Math.round(v_valor)<v_valor)){result=(Math.round(v_valor)-1)+'.';}else{result=Math.round(v_valor)+'.';}
return result+dec;}
function f_valor_campo(p_campo,p_form){var value='';var j=0;for(var i=0;i<p_form.elements.length;i++){if(p_form.elements[i].name==p_campo&&!p_form.elements[i].disabled){switch(p_form.elements[i].type){case'radio':if(p_form.elements[i].checked){return p_form.elements[i].value;}
break;case'checkbox':if(p_form.elements[i].checked){if(j!=0){value+=',';}
value+=p_form.elements[i].value;j++;}
break;case'select-multiple':if(j!=0){value+=',';}
z=0;for(var k=0;k<p_form.elements[i].options.length;k++){if(p_form.elements[i].options[k].selected){if(z!=0)
value+=',';value+=p_form.elements[i].options[k].value;z++;}}
j++;break;default:if(j!=0){value+=',';}
value+=p_form.elements[i].value;j++;break;}}}
return value;}
function f_cria_option(p_value,p_text,p_select){var v_opt=document.createElement('option');v_opt.value=p_value;v_opt.text=p_text;try{p_select.add(v_opt,null);}catch(e){p_select.add(v_opt);}
return v_opt;}
function f_limpa_select(obj){while(obj.options.length>0)
obj.options[0]=null;while(obj.childNodes.length>0)
obj.removeChild(obj.childNodes[0]);}
String.prototype.isCNPJ=function(){return testacnpj(this);}
String.prototype.isMail=function(){var test
var emails=this.split(';');for(var em=0;em<emails.length;em++){var pt1=emails[em].split('@');var valid='.-_@';if((pt1.length!=2)||(pt1[0].length==0)||(pt1[1].length==0))return(false);else{for(var i=0;i<valid.length-1;i++){if(pt1[0].split(valid.charAt(i)).hasEmptyElements())return(false);if(pt1[1].split(valid.charAt(i)).hasEmptyElements())return(false);}}
for(var i=0;i<emails[em].length;i++){var v_char=emails[em].toUpperCase().charCodeAt(i);if(valid.indexOf(String.fromCharCode(v_char))==-1)
if(!(((v_char>=65)&&(v_char<=90))||((v_char>=48)&&(v_char<=57))))return(false);}}
return(true);}
String.prototype.isCPF=function(){return testacpf(this);}
String.prototype.isDataHora=function(){var pt=this.split('/');var dt=new Date();var dd=Number(pt[0]);var mm=Number(pt[1]);var yy=Number(this.substr(6,4));var hh=this.substr(11,2);var mi=this.substr(14,2);if(this.length<15)return false;if(this.length>15)
var ss=this.substr(17,2);else
var ss='00';if(!((hh>=00)&&(hh<24)&&(mi>=00)&&(mi<60)&&(ss>=00)&&(ss<60)))
return(false);if(pt.length<3)return(false);if((mm==1||mm==3||mm==5||mm==7||mm==8||mm==10||mm==12)&&(dd<=0||dd>31))return false;if((mm==4||mm==6||mm==9||mm==11)&&(dd<=0||dd>30))return false;if((mm==2)&&(dd<=0||(yy%4==0&&dd>29)||(yy%4!=0&&dd>28)))return false;if(yy<1900||yy>2100)return false;return true;}
String.prototype.isDate=function(){var pt=this.split('/');var dt=new Date();var dd=Number(pt[0]);var mm=Number(pt[1]);var yy=Number(pt[2]);if(pt.length!=3)return(false);if((mm==1||mm==3||mm==5||mm==7||mm==8||mm==10||mm==12)&&(dd<=0||dd>31))return false;if((mm==4||mm==6||mm==9||mm==11)&&(dd<=0||dd>30))return false;if((mm==2)&&(dd<=0||(yy%4==0&&dd>29)||(yy%4!=0&&dd>28)))return false;if(yy<1900||yy>2100)return false;if(mm<01||mm>12)return false;return true;}
String.prototype.isPlaca=function(){if(this.replace('-','').length!=7)return(false);v_num=this.replace('-','').substr(3,4);if(isNaN(v_num))return(false);return(true);}
String.prototype.isNumber=function(){return(!isNaN(this.split('.').join('').split(',').join('').split('-').join('')));}
String.prototype.trim=function(){return this.replace(/^\s+|\s+$/g,"");}
Array.prototype.hasEmptyElements=function(){for(var i=0;i<this.length;i++)
if((this[i]=='')||(this[i]==null)||(this[i]==undefined))
return(true);return(false);}
Date.prototype.Dtos=function(){var dd=this.getDate();var mm=this.getMonth()+1;var yy=this.getFullYear();return([yy,(mm<10?'0':'')+mm,(dd<10?'0':'')+dd].join(''));}
function min(){if(arguments.length<=0){alert('Não foram fornecidos parâmetros para a função!');}
var v_menor=arguments[0];for(var i=1;i<arguments.length;i++){v_menor=((v_menor<=arguments[i])?v_menor:arguments[i]);}
return v_menor;}
function f_marcar_todos_check(v_form,v_name,v_marca){for(var i=0;i<v_form.elements.length;i++){if(v_form.elements[i].type=='checkbox'&&v_form.elements[i].name==v_name){v_form.elements[i].checked=v_marca;}}}
function f_organizar_colunas(p_table_id,p_cookie){NewWindow('/_consultas/organizar_colunas.cfm?TABELA_ID='+p_table_id+'&COOKIE='+p_cookie,'org_colunas',600,500,'yes');}
function initFiltros(p_tbl_id){var v_tbl=document.getElementById(p_tbl_id);for(var i=0;i<v_tbl.tHead.rows.length;i++){for(var j=0;j<v_tbl.tHead.rows[i].cells.length;j++){var celula=v_tbl.tHead.rows[i].cells[j];if(celula.filtro){celula.index=j;index=j;var v_div=document.createElement('div');v_div.style.position='absolute';v_div.style.width=celula.width;v_div.className='titulo_3';v_div.style.display='none';var v_list=document.createElement("select");opcoes=celula.filtro.split(',');f_cria_option('','-- Tudo --',v_list);for(k=0;k<opcoes.length;k++){if(opcoes[k].replace(' /g','')!=''){f_cria_option(opcoes[k],opcoes[k],v_list);}}
v_list.size=5;v_list.onclick=function(){this.parentNode.style.display='none';f_filtra_celula(v_tbl,this.parentNode.parentNode.index,this.value);}
v_div.appendChild(v_list);celula.appendChild(v_div);var v_btn=document.createElement('button');v_btn.value='<img src="/_imagens/botoes/16x16/seta_down.gif" width="8" height="4" align="absmiddle" />';v_btn.className='botao-16x16';v_btn.style.height=16;v_btn.title='Filtrar...';v_btn.onclick=function(){var scrOfY;var scrOfX;if(typeof(window.pageYOffset)=='number'){scrOfY=window.pageYOffset;scrOfX=window.pageXOffset;}else{if(document.body&&(document.body.scrollLeft||document.body.scrollTop)){scrOfY=document.body.scrollTop;scrOfX=document.body.scrollLeft;}else{if(document.documentElement&&(document.documentElement.scrollLeft||document.documentElement.scrollTop||document.documentElement.scrollTop==0)){scrOfY=document.documentElement.scrollTop;scrOfX=document.documentElement.scrollLeft;}}}
this.parentNode.div_filtro.style.top=event.clientY+scrOfY;this.parentNode.div_filtro.style.left=event.clientX;this.parentNode.div_filtro.style.display=((this.parentNode.div_filtro.style.display=='none')?'':'none');}
celula.insertBefore(v_btn,celula.childNodes[0]);celula.div_filtro=v_div;}}}}
function f_filtra_celula(p_tbl,p_cell,p_filtro){for(var i=0;i<p_tbl.tBodies.length;i++){for(var j=0;j<p_tbl.tBodies[i].rows.length;j++){if(p_tbl.tBodies[i].rows[j].cells[p_cell]!=null){if(p_filtro==''){p_tbl.tBodies[i].rows[j].style.display='';}else{if(p_tbl.tBodies[i].rows[j].cells[p_cell].innerHTML==p_filtro){p_tbl.tBodies[i].rows[j].style.display='';}else{p_tbl.tBodies[i].rows[j].style.display='none';}}}}}}
function f_input_atributo(p_tipo,p_nome,p_valores,p_function){switch(p_tipo.toUpperCase()){case'NUMERO':v_str='<input type="text" name="'+p_nome+'" id="'+p_nome+'" tipo="numerico" onKeyPress="return f_formata_numero_decimal(this)">';if(p_function){p_function(v_str);}else{document.write(v_str);}
break;case'INTEIRO':v_str='<input type="text" name="'+p_nome+'" id="'+p_nome+'" onKeyPress="return f_formata(this, \'0000000000000000000000000\')">';if(p_function){p_function(v_str);}else{document.write(v_str);}
break;case'COR(HEXA)':v_str='<input type="text" name="'+p_nome+'" id="'+p_nome+'" onKeyPress="return f_formata(this, \'#AAAAAA\')">';if(p_function){p_function(v_str);}else{document.write(v_str);}
break;case'CARACTER':v_str='<input type="text" name="'+p_nome+'" id="'+p_nome+'">';if(p_function){p_function(v_str);}else{document.write(v_str);}
break;case'TEXTO_LONGO':v_str='<textarea name="'+p_nome+'" id="'+p_nome+'" style="width:100%; height: 60px"></textarea>';if(p_function){p_function(v_str);}else{document.write(v_str);}
break;case'HORA':v_str='<input type="text" name="'+p_nome+'" id="'+p_nome+'" onKeyPress="return f_formata(this, \'00:00\')">';if(p_function){p_function(v_str);}else{document.write(v_str);}
break;case'DATA':v_str='<input type="text" name="'+p_nome+'" id="'+p_nome+'" style="width: 80px" onKeyPress="return f_formata(this, \'00/00/0000\')"><button class="botao-16x16" id="btn_'+p_nome+'"><img src="/_imagens/botoes/16x16/calendario.gif" width="16" height="16" align="absmiddle" /></button>';if(p_function){p_function(v_str);}else{document.write(v_str);}
Calendar.setup({inputField:p_nome,ifFormat:"%d/%m/%Y",button:"btn_"+p_nome,range:[2001,2050]});break;case'DATA_HORA':v_str='<input type="text" name="'+p_nome+'" id="'+p_nome+'" style="width: 110px" onKeyPress="return f_formata(this, \'00/00/0000 00:00\')"><button class="botao-16x16" id="btn_'+p_nome+'"><img src="/_imagens/botoes/16x16/calendario.gif" width="16" height="16" align="absmiddle" /></button>';if(p_function){p_function(v_str);}else{document.write(v_str);}
Calendar.setup({inputField:p_nome,ifFormat:"%d/%m/%Y %H:%M",button:"btn_"+p_nome,range:[2001,2050],showsTime:true});break;case'LISTA':if(p_valores==undefined){alert('Não foram fornecidos os valores para o preechimento da lista "'+p_nome+'"!');return;}
var v_str='<select name="'+p_nome+'" id="'+p_nome+'">';v_str+='<option value="">-- Selecione --</option>';v_valores=p_valores.split(',');for(var i=0;i<v_valores.length;i++){v_str+='<option value="'+v_valores[i]+'">'+v_valores[i]+'</option>';}
v_str+='</select>';if(p_function){p_function(v_str);}else{document.write(v_str);}
break;case'FLAG':var v_str='<select name="'+p_nome+'" id="'+p_nome+'">';v_str+='<option value="">-- Selecione --</option>';v_str+='<option value="1">Sim</option>';v_str+='<option value="0">N'+String.fromCharCode(227)+'o</option>';v_str+='</select>';if(p_function){p_function(v_str);}else{document.write(v_str);}
break;default:alert('Tipo "'+p_tipo.toUpperCase()+'" não implementado para os atributos!');break;}}
function f_formata_decimal_milhar(_v)
{var _dollars=parseInt(_v);var _cents=parseInt((_v-_dollars)*100);var _negative=_dollars<0;if(_negative){_dollars=-_dollars;_cents=-_cents;}
while(_cents.toString().length<2)_cents="0"+_cents;var _dA=_dollars.toString().split("");var _d="";for(var i=_dA.length-1;i>=0;i--)
{var _comma="";if((_dA.length-i)%3==0&&i!=0)_comma=".";_d=_comma+_dA[i]+_d;}
var _neg_sign=_negative?"-":"";var _result=_neg_sign+_d+","+_cents;return _result;}
function f_open_ajax(){var ajax;try{ajax=new XMLHttpRequest();}catch(ee){try{ajax=new ActiveXObject("Msxml2.XMLHTTP");}catch(e){try{ajax=new ActiveXObject("Microsoft.XMLHTTP");}catch(E){ajax=false;}}}
return ajax;}
function f_query_ajax(p_url,p_fnc_result,p_fnc_carregando,p_synchronous){var ajax=f_open_ajax();if(p_url.indexOf('?')!=-1)
p_url+='&rnddate='+(new Date());else
p_url+='?rnddate='+(new Date());ajax.open("GET",p_url,!p_synchronous);ajax.onreadystatechange=function(){if(ajax.readyState==1){if(p_fnc_carregando){p_fnc_carregando();}else{p_fnc_result({texto:'<img src="/_imagens/uteis/carregando.gif">',ajax:ajax,toString:function(){return this.texto;}});}}
if(ajax.readyState==4){var resultado=ajax.responseText;resultado=unescape(resultado);p_fnc_result({texto:resultado,ajax:ajax,toString:function(){return this.texto;}});}}
ajax.send(null);}
function f_get_query_string(p_form){var res='';with(p_form){for(var i=0;i<p_form.elements.length;i++){if(!p_form.elements[i].disabled&&p_form.elements[i].name){if(p_form.elements[i].type=='radio'||p_form.elements[i].type=='checkbox'){if(p_form.elements[i].checked){res+=p_form.elements[i].name+'='+escape(p_form.elements[i].value)+'&';}}else{res+=p_form.elements[i].name+'='+escape(f_valor_campo(p_form.elements[i].name,p_form))+'&';}}}}
res=res.substr(0,res.length-1);return res;}
function f_query_wddx(p_url,p_arguments,p_fnc_result,p_not_show_carregando,p_referencia,p_synchronous){if(!p_not_show_carregando)
f_cria_carregando_ajax();v_meta='<META NAME="ColdFusionMXEdition" CONTENT="ColdFusion DevNet Edition - Not for Production Use.">';var ajax=f_open_ajax();if(p_url.indexOf('?')!=-1)
p_url+='&rnddate='+(new Date());else
p_url+='?rnddate='+(new Date());ajax.open("POST",p_url,!p_synchronous);ajax.setRequestHeader('Content-Type','application/x-www-form-urlencoded');ajax.send(p_arguments);ajaxRef=p_referencia;ajax.onreadystatechange=function(){rObj=null;resultado='';if(ajax.readyState==4){v_status_error=false;try{var v_status=ajax.status;}catch(e){v_status_error=true;}
if(v_status_error||ajax.status==200){var resultado=ajax.responseText;resultado=resultado.replace(/\+/g," ");resultado=unescape(resultado);if(resultado.toString().replace(v_meta,'').length>0){rObj=parseWDDX(resultado.toString().replace(v_meta,''));}
if(!p_not_show_carregando){f_hide_carregando_ajax();}}else{f_cria_erro_ajax();document.getElementById("div_erro").style.display='';document.getElementById("div_erro_interno").style.display='';document.getElementById("td_erro").innerHTML=ajax.responseText;if(!p_not_show_carregando)
f_hide_carregando_ajax();}}
p_fnc_result({texto:resultado.toString().replace(v_meta,''),struct:rObj,ajax:ajax,referencia:ajaxRef,toString:function(){return this.texto;}});}}
function f_carregando_ajax(){if(document.getElementById('div_carregando')){ns=(document.layers)?1:0;if(ns){Ypos=window.pageYOffset;Xpos=window.pageXOffset+window.innerWidth-200;}
else{Ypos=document.body.scrollTop;Xpos=document.body.scrollLeft+window.document.body.clientWidth-200;}
with(document.getElementById('div_carregando')){style.top=Ypos;style.left=Xpos;style.width='182px';style.height='35px';style.display='';}}}
function f_hide_carregando_ajax(){v_ajax_running--;if(document.getElementById('div_carregando')&&v_ajax_running==0){window.clearInterval(v_timeoutId);v_timeoutId=0;document.getElementById('div_carregando').style.display='none';}}
var v_timeoutId=0;var v_ajax_running=0;function f_cria_carregando_ajax(){if(!document.getElementById('div_carregando')){var v_div=document.createElement('DIV');document.body.appendChild(v_div);v_div.id="div_carregando";v_div.style.position="absolute";v_div.innerHTML='<img height="35" width="182" src="/_imagens/uteis/processando_1.gif">';}
if(v_timeoutId==0){v_timeoutId=window.setInterval(f_carregando_ajax,50);}
v_ajax_running++;}
function f_ajax_running(){return v_ajax_running;}
function f_cria_erro_ajax(){if(!document.getElementById('div_erro')){var v_div_interno=document.createElement('DIV');v_div_interno.id="div_erro_interno";v_div_interno.style.position="absolute";v_div_interno.style.top=15;v_div_interno.style.left=10;v_div_interno.style.width=600;v_div_interno.style.height=265;v_div_interno.style.display='none';v_div_interno.style.zIndex=1;v_div_interno.innerHTML='<iframe frameborder="0" style="width:600px; height:265px;"></iframe>';var v_div=document.createElement('DIV');v_div.id="div_erro";v_div.style.position="absolute";v_div.style.top=15;v_div.style.left=10;v_div.style.width=600;v_div.style.height=265;v_div.style.display='none';v_div.style.zIndex=1000;v_div.innerHTML='<table width="600" height="265" border="0" cellpadding="3" cellspacing="2">'+'  <tr id="barra_botoes_top">'+'      <td height="25">Erro!</td>'+'   </tr>'+'   <tr class="obrigatorio">'+'      <td height="215"><div id="td_erro" style="overflow:scroll;vertical-align:top; width:596; height:215"></div></td>'+'   </tr>'+'   <tr id="barra_botoes_bottom">'+'      <td height="25"><button type="button" onClick="document.getElementById(\'div_erro\').style.display=\'none\'; document.getElementById(\'div_erro_interno\').style.display=\'none\'" class="botao"><img src="/_imagens/botoes/16x16/fechar_tela.gif" alt="" width="16" height="16" align="absmiddle">&nbsp;Fechar</button>'+'      </td>'+'   </tr>'+'</table>';document.body.appendChild(v_div_interno);document.body.appendChild(v_div);}}
function f_cf_date_format(p_date,p_format){var date=new Date(p_date);var MONTH_NAMES=new Array('January','February','March','April','May','June','July','August','September','October','November','December');var DAY_NAMES=new Array('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');var ret=p_format.replace(/dd/g,((date.getDate()<10)?'0':'')+date.getDate());var ret=ret.replace(/mm/g,((Number(date.getMonth())+1<10)?'0':'')+(Number(date.getMonth())+1));var ret=ret.replace(/yyyy/g,date.getFullYear());var ret=ret.replace(/hh/g,((date.getHours()<10)?'0':'')+date.getHours());var ret=ret.replace(/mi/g,((date.getMinutes()<10)?'0':'')+date.getMinutes());var ret=ret.replace(/ss/g,((date.getSeconds()<10)?'0':'')+date.getSeconds());return ret;}
function f_exportar_excel(p_table){v_span=document.createElement('span');p_table.parentNode.insertBefore(v_span,p_table);v_span.appendChild(p_table);v_html=v_span.innerHTML;v_span.removeNode();v_form=document.createElement('form');v_form.action='/_consultas/exportar_excel.cfm';v_form.method='post';v_form.target='consultas';v_input=document.createElement('input');v_input.name='CONTEUDO';v_input.value=v_html;v_form.appendChild(v_input);document.body.appendChild(v_form);v_form.submit();v_input.removeNode();v_form.removeNode();}
function f_gera_scroll(p_name,p_min,p_max,p_position,p_on_change,p_on_move){var MIN_X=3;var MAX_X=103;document.write('<div class="barra_rolagem" id="'+p_name+'_div" style="float:left"></div><input type="hidden" name="'+p_name+'" id="'+p_name+'" value="'+p_position+'" />');v_div_scroll=document.getElementById(p_name+'_div');v_div_cursor=document.createElement('img');v_div_cursor.className='barra_rolagem_cursor';v_div_cursor.style.position='relative';v_left=Math.round(((p_position-p_min)/(p_max-p_min)*(MAX_X-MIN_X))+MIN_X);v_div_cursor.style.left=v_left+'px';v_div_cursor.style.top='1px';v_div_scroll.appendChild(v_div_cursor);v_input=document.getElementById(p_name);v_div_cursor.onChangePosition=function(){v_atual=(Number(String(this.style.left).replace('px',''))-MIN_X)/(MAX_X-MIN_X);v_input.value=(p_max-p_min)*v_atual;if(p_on_move){p_on_move(v_input.value);}}
v_div_scroll.onmousedown=function(){f_get_scroll();var v_posicao=window.event.clientX-5-scrOfX-f_posicao_objeto(this,true);this.childNodes[0].style.left=(v_posicao<MIN_X)?MIN_X:((v_posicao>MAX_X)?MAX_X:v_posicao);this.dragging=true;this.childNodes[0].onChangePosition();}
v_div_scroll.onmousemove=function(){if(this.dragging){f_get_scroll();var v_posicao=window.event.clientX-5-scrOfX-f_posicao_objeto(this,true);this.childNodes[0].style.left=(v_posicao<MIN_X)?MIN_X:((v_posicao>MAX_X)?MAX_X:v_posicao);this.childNodes[0].onChangePosition();}
this.dragging=((v_posicao>=MIN_X)&&(v_posicao<=MAX_X));}
v_div_scroll.onmouseup=function(){this.dragging=false;}
v_div_cursor.onmousedown=function(){f_get_scroll();var v_posicao=window.event.clientX-5-scrOfX-f_posicao_objeto(this,true);this.style.left=(v_posicao<MIN_X)?MIN_X:((v_posicao>MAX_X)?MAX_X:v_posicao);this.dragging=((v_posicao>=MIN_X)&&(v_posicao<=MAX_X));this.onChangePosition();}
v_div_cursor.onmousemove=function(){if(this.dragging){f_get_scroll();var v_posicao=window.event.clientX-5-scrOfX-f_posicao_objeto(this,true);this.style.left=(v_posicao<MIN_X)?MIN_X:((v_posicao>MAX_X)?MAX_X:v_posicao);this.onChangePosition();}
this.dragging=((v_posicao>=MIN_X)&&(v_posicao<=MAX_X));}
v_div_cursor.onmouseup=function(){this.dragging=false;}}
var v_get_scroll_element=null;function f_get_scroll(){if(typeof(window.pageYOffset)=='number'){scrOfY=window.pageYOffset;scrOfX=window.pageXOffset;scrOfHeight=document.body.offsetHeight;scrOfWidth=document.body.offsetWidth;}else if(document.body&&(document.body.scrollLeft||document.body.scrollTop)){scrOfY=document.body.scrollTop;scrOfX=document.body.scrollLeft;scrOfHeight=document.body.offsetHeight;scrOfWidth=document.body.offsetWidth;}else if(document.documentElement&&(document.documentElement.scrollLeft||document.documentElement.scrollTop||document.documentElement.scrollTop==0)){if(v_get_scroll_element==null){scrOfY=document.documentElement.scrollTop;scrOfX=document.documentElement.scrollLeft;scrOfHeight=document.documentElement.offsetHeight;scrOfWidth=document.documentElement.offsetWidth;}else{scrOfY=v_get_scroll_element.scrollTop;scrOfX=v_get_scroll_element.scrollLeft;scrOfHeight=v_get_scroll_element.offsetHeight;scrOfWidth=v_get_scroll_element.offsetWidth;}}}
function f_posicao_objeto(p_obj,p_left){var total=0;while(p_obj!=null){total+=p_obj["offset"+(p_left?"Left":"Top")];p_obj=p_obj.offsetParent;}
return total;}
function f_html_to_js(texto){text=texto;text=text.replace(/&quot;/g,unescape('%22'));text=text.replace(/&amp;/g,unescape('%26'));text=text.replace(/&lt;/g,unescape('%3C'));text=text.replace(/&gt;/g,unescape('%3E'));text=text.replace(/&nbsp;/g,unescape('%A0'));text=text.replace(/&iexcl;/g,unescape('%A1'));text=text.replace(/&cent;/g,unescape('%A2'));text=text.replace(/&pound;/g,unescape('%A3'));text=text.replace(/&yen;/g,unescape('%A5'));text=text.replace(/&brvbar;/g,unescape('%A6'));text=text.replace(/&sect;/g,unescape('%A7'));text=text.replace(/&uml;/g,unescape('%A8'));text=text.replace(/&copy;/g,unescape('%A9'));text=text.replace(/&ordf;/g,unescape('%AA'));text=text.replace(/&laquo;/g,unescape('%AB'));text=text.replace(/&not;/g,unescape('%AC'));text=text.replace(/&shy;/g,unescape('%AD'));text=text.replace(/&reg;/g,unescape('%AE'));text=text.replace(/&macr;/g,unescape('%AF'));text=text.replace(/&deg;/g,unescape('%B0'));text=text.replace(/&plusmn;/g,unescape('%B1'));text=text.replace(/&sup2;/g,unescape('%B2'));text=text.replace(/&sup3;/g,unescape('%B3'));text=text.replace(/&acute;/g,unescape('%B4'));text=text.replace(/&micro;/g,unescape('%B5'));text=text.replace(/&para;/g,unescape('%B6'));text=text.replace(/&middot;/g,unescape('%B7'));text=text.replace(/&cedil;/g,unescape('%B8'));text=text.replace(/&sup1;/g,unescape('%B9'));text=text.replace(/&ordm;/g,unescape('%BA'));text=text.replace(/&raquo;/g,unescape('%BB'));text=text.replace(/&frac14;/g,unescape('%BC'));text=text.replace(/&frac12;/g,unescape('%BD'));text=text.replace(/&frac34;/g,unescape('%BE'));text=text.replace(/&iquest;/g,unescape('%BF'));text=text.replace(/&Agrave;/g,unescape('%C0'));text=text.replace(/&Aacute;/g,unescape('%C1'));text=text.replace(/&Acirc;/g,unescape('%C2'));text=text.replace(/&Atilde;/g,unescape('%C3'));text=text.replace(/&Auml;/g,unescape('%C4'));text=text.replace(/&Aring;/g,unescape('%C5'));text=text.replace(/&AElig;/g,unescape('%C6'));text=text.replace(/&Ccedil;/g,unescape('%C7'));text=text.replace(/&Egrave;/g,unescape('%C8'));text=text.replace(/&Eacute;/g,unescape('%C9'));text=text.replace(/&Ecirc;/g,unescape('%CA'));text=text.replace(/&Euml;/g,unescape('%CB'));text=text.replace(/&Igrave;/g,unescape('%CC'));text=text.replace(/&Iacute;/g,unescape('%CD'));text=text.replace(/&Icirc;/g,unescape('%CE'));text=text.replace(/&Iuml;/g,unescape('%CF'));text=text.replace(/&ETH;/g,unescape('%D0'));text=text.replace(/&Ntilde;/g,unescape('%D1'));text=text.replace(/&Ograve;/g,unescape('%D2'));text=text.replace(/&Oacute;/g,unescape('%D3'));text=text.replace(/&Ocirc;/g,unescape('%D4'));text=text.replace(/&Otilde;/g,unescape('%D5'));text=text.replace(/&Ouml;/g,unescape('%D6'));text=text.replace(/&times;/g,unescape('%D7'));text=text.replace(/&Oslash;/g,unescape('%D8'));text=text.replace(/&Ugrave;/g,unescape('%D9'));text=text.replace(/&Uacute;/g,unescape('%DA'));text=text.replace(/&Ucirc;/g,unescape('%DB'));text=text.replace(/&Uuml;/g,unescape('%DC'));text=text.replace(/&Yacute;/g,unescape('%DD'));text=text.replace(/&THORN;/g,unescape('%DE'));text=text.replace(/&szlig;/g,unescape('%DF'));text=text.replace(/&agrave;/g,unescape('%E0'));text=text.replace(/&aacute;/g,unescape('%E1'));text=text.replace(/&acirc;/g,unescape('%E2'));text=text.replace(/&atilde;/g,unescape('%E3'));text=text.replace(/&auml;/g,unescape('%E4'));text=text.replace(/&aring;/g,unescape('%E5'));text=text.replace(/&aelig;/g,unescape('%E6'));text=text.replace(/&ccedil;/g,unescape('%E7'));text=text.replace(/&egrave;/g,unescape('%E8'));text=text.replace(/&eacute;/g,unescape('%E9'));text=text.replace(/&ecirc;/g,unescape('%EA'));text=text.replace(/&euml;/g,unescape('%EB'));text=text.replace(/&igrave;/g,unescape('%EC'));text=text.replace(/&iacute;/g,unescape('%ED'));text=text.replace(/&icirc;/g,unescape('%EE'));text=text.replace(/&iuml;/g,unescape('%EF'));text=text.replace(/&eth;/g,unescape('%F0'));text=text.replace(/&ntilde;/g,unescape('%F1'));text=text.replace(/&ograve;/g,unescape('%F2'));text=text.replace(/&oacute;/g,unescape('%F3'));text=text.replace(/&ocirc;/g,unescape('%F4'));text=text.replace(/&otilde;/g,unescape('%F5'));text=text.replace(/&ouml;/g,unescape('%F6'));text=text.replace(/&divide;/g,unescape('%F7'));text=text.replace(/&oslash;/g,unescape('%F8'));text=text.replace(/&ugrave;/g,unescape('%F9'));text=text.replace(/&uacute;/g,unescape('%FA'));text=text.replace(/&ucirc;/g,unescape('%FB'));text=text.replace(/&uuml;/g,unescape('%FC'));text=text.replace(/&yacute;/g,unescape('%FD'));text=text.replace(/&thorn;/g,unescape('%FE'));text=text.replace(/&yuml;/g,unescape('%FF'));return text;}
function f_compara_data(p_data1,p_data2)
{if(!p_data1.isDataHora()&&!p_data1.isDate())
return-2;if(!p_data2.isDataHora()&&!p_data2.isDate())
return-3;var v_data1=new Date(p_data1.substr(6,4),p_data1.substr(3,2)-1,p_data1.substr(0,2),p_data1.substr(11,2),p_data1.substr(14,2),00);var v_data2=new Date(p_data2.substr(6,4),p_data2.substr(3,2)-1,p_data2.substr(0,2),p_data2.substr(11,2),p_data2.substr(14,2),00);;if(v_data1>v_data2)
return-1;else if(v_data1<v_data2)
return 1;else
return 0;}
function f_abrir_janela(p_url,p_refresh,p_width,p_height){if(!p_height)p_height=600;if(!p_width)p_width=800;if(p_refresh&&p_refresh!=''){p_url=p_url+((p_url.indexOf('?')!=-1)?'&':'?')+'atualiza_combo=top.opener.'+p_refresh+'&janela=1';}
NewWindow('/janela.cfm?url='+escape(p_url),'_blank',p_width,p_height,'yes');}
function f_seleciona_todos(p_select)
{for(var i=0;i<p_select.options.length;i++)
if(p_select.options[i].value.length>0)
p_select.options[i].selected=true;else
p_select.options[i]=null;}
function f_seleciona_grupo(p_select)
{for(i=0;i<p_select.options.length;i++)
{v_grupo=p_select.options[i].value.split('||');if(v_grupo.length==2)
{if(p_select.value==parseInt(v_grupo[0]))
p_select.options[i].selected=true;}}}
function f_deleta_componente(p_obj_origem,j)
{p_obj_origem.options[j]=null;}
function f_adiciona_componente(p_obj_origem,p_texto,p_valor)
{var componente=new Option(p_texto,p_valor,true,false);p_obj_origem.options[p_obj_origem.length]=componente;}
function f_copia_todos(p_obj_origem,p_obj_destino)
{for(var i=0,l=p_obj_origem.options.length;i<l;i++)
f_adiciona_componente(p_obj_destino,p_obj_origem.options[i].text,p_obj_origem.options[i].value);for(var i=p_obj_origem.options.length-1;i>-1;i--)
f_deleta_componente(p_obj_origem,i);}
function f_adiciona_selecionado(p_obj_origem,p_obj_destino)
{for(var i=0,l=p_obj_origem.options.length;i<l;i++)
if(p_obj_origem.options[i].selected)
f_adiciona_componente(p_obj_destino,p_obj_origem.options[i].text,p_obj_origem.options[i].value);for(var i=p_obj_origem.options.length-1;i>-1;i--)
if(p_obj_origem.options[i].selected)
f_deleta_componente(p_obj_origem,i);}
function f_mover_cima(p_combo)
{for(i=0;i<p_combo.options.length;i++)
{if(p_combo.options[i].selected)
{if(i!=0&&!p_combo.options[i-1].selected)
{f_mudar_posicao(p_combo,i,i-1);p_combo.options[i-1].selected=true;}}}}
function f_mover_baixo(p_combo)
{for(i=p_combo.options.length-1;i>=0;i--)
{if(p_combo.options[i].selected)
{if(i!=(p_combo.options.length-1)&&!p_combo.options[i+1].selected)
{f_mudar_posicao(p_combo,i,i+1);p_combo.options[i+1].selected=true;}}}}
function f_mudar_posicao(p_combo,i,j)
{var o=p_combo.options;var i_selected=o[i].selected;var j_selected=o[j].selected;var temp=new Option(o[i].text,o[i].value,o[i].defaultSelected,o[i].selected);var temp2=new Option(o[j].text,o[j].value,o[j].defaultSelected,o[j].selected);o[i]=temp2;o[j]=temp;o[i].selected=j_selected;o[j].selected=i_selected;}
function f_get_texto_campo(p_campo){switch(p_campo.type){case'select-one':return p_campo.options[p_campo.selectedIndex].text;case'checkbox':return((p_campo.checked)?'Sim':'Nao');default:return p_campo.value;}}
function f_desabilita_tela(value,frame){if(!frame){frame=window;}
if(frame.vDivDisable&&value){f_desabilita_tela(false,frame);}
if(value){frame.vDivDisable=frame.document.createElement("div");frame.vDivDisable.vShield=frame.document.createElement("iframe");frame.document.body.appendChild(frame.vDivDisable);frame.document.body.appendChild(frame.vDivDisable.vShield);frame.oldOverflowX=frame.document.body.style.overflowX;frame.oldOverflowY=frame.document.body.style.overflowY;frame.document.body.style.overflowX='hidden';frame.document.body.style.overflowY='hidden';with(frame.vDivDisable){zIndex=100000;innerHTML='';style.position='absolute';v_get_scroll_element_old=v_get_scroll_element;v_get_scroll_element=null;f_get_scroll();v_get_scroll_element=v_get_scroll_element_old;style.top=scrOfY+'px';style.left=scrOfX+'px';style.height=frame.document.body.offsetHeight;style.width=frame.document.body.offsetWidth;style.backgroundColor='#000000';style.opacity=0.40;style.filter="alpha(opacity=40)";}
with(frame.vDivDisable.vShield){zIndex=99999;style.position='absolute';style.top=scrOfY+'px';style.left=scrOfX+'px';style.height=frame.document.body.offsetHeight;style.width=frame.document.body.offsetWidth;style.backgroundColor='#000000';style.opacity=0.40;style.filter="alpha(opacity=40)";}
frame.vDivDisable.innerHTML='<iframe width="100%" height="100%" style=" opacity = 0.05;filter: alpha(opacity=05) "></iframe>';frame.vDivDisable.interval=setInterval(function(){with(frame.vDivDisable){zIndex=100000;innerHTML='';style.position='absolute';v_get_scroll_element_old=v_get_scroll_element;v_get_scroll_element=null;f_get_scroll();v_get_scroll_element=v_get_scroll_element_old;style.top=scrOfY+'px';style.left=scrOfX+'px';style.height=frame.document.body.offsetHeight;style.width=frame.document.body.offsetWidth;}
with(frame.vDivDisable.vShield){zIndex=99999;style.position='absolute';style.top=scrOfY+'px';style.left=scrOfX+'px';style.height=frame.document.body.offsetHeight;style.width=frame.document.body.offsetWidth;}},200);}else{if(frame.vDivDisable){clearInterval(frame.vDivDisable.interval);frame.vDivDisable.innerHTML='';if(frame.vDivDisable.vShield.parentNode)
frame.vDivDisable.vShield.parentNode.removeChild(frame.vDivDisable.vShield);frame.vDivDisable.parentNode.removeChild(frame.vDivDisable);frame.document.body.style.overflowX=frame.oldOverflowX;frame.document.body.style.overflowY=frame.oldOverflowY;}}}
function f_janela_modal(enabled,frame,div){if(!frame)
frame=window;f_desabilita_tela(enabled,frame);if(enabled){frame.vDivWindowModal=frame.document.createElement('div');div.style.display='block';div.style.visibility='visible';frame.vDivWindowModal.appendChild(div);with(frame.vDivWindowModal.style){position='absolute';height=200;width=400;v_get_scroll_element_old=v_get_scroll_element;v_get_scroll_element=null;f_get_scroll();v_get_scroll_element=v_get_scroll_element_old;top=(((frame.document.body.offsetHeight-div.style.height.replace('px',''))/2)-50)+scrOfY;left=(((frame.document.body.offsetWidth-div.style.width.replace('px',''))/2)-50)+scrOfX;zIndex=1001;}
frame.document.body.appendChild(frame.vDivWindowModal);}else{frame.document.body.appendChild(div);frame.vDivWindowModal.parentNode.removeChild(frame.vDivWindowModal);div.style.display='none';div.style.visibility='hidden';}}
function f_campo_query(p_obj,p_event,p_descricao,p_url,p_arguments,p_fnc_retorno,p_min_chars){if(!p_min_chars){p_min_chars=0;}
try{if(!v_div_cons){}}catch(e){v_div_cons=null;}
if(!v_div_cons){v_div_cons=document.createElement('div');v_div_cons.style.position='absolute';v_div_cons.style.width=p_obj.offsetWidth;v_div_cons.style.display='none';v_div_cons.changeRecord=function(key){if(key==38||key==40){if(this.currentRow==-1){row=0;}else{row=this.currentRow;if((key==38&&row>0)||(key==40&&row<this.childNodes[0].tBodies[0].rows.length-1))
row+=(key==38)?-1:1;else
return;}
for(var i=0;i<this.childNodes[0].tBodies[0].rows.length;i++){this.childNodes[0].tBodies[0].rows[i].className='linha_2';}
this.childNodes[0].tBodies[0].rows[row].className='linha_over';this.currentRow=row;this.childNodes[0].tBodies[0].rows[row].cells[0].onclick();}}
document.body.appendChild(v_div_cons);}
if(!p_obj.onblurfnc){if(p_obj.onblur){old_blur_fnc=p_obj.onblur;}else{old_blur_fnc=function(){};}
p_obj.onblur=function(){setTimeout("v_div_cons.style.display = 'none'",200);old_blur_fnc();}
p_obj.onblurfnc=true;}
p_left=f_posicao_objeto(p_obj,true);p_top=f_posicao_objeto(p_obj,false)+p_obj.offsetHeight;v_div_cons.style.top=p_top;v_div_cons.style.left=p_left+1;v_div_cons.obj_ctrl=p_obj;var CHARSCONSULTA='ABCDEFGHIJKLMNOPQRSTUVWXYZ,./;[]1234567890-=+_ ';if(window.event&&window.event.keyCode){key=window.event.keyCode;}else{key=p_event.charCode;}
v_div_cons.changeRecord(key);if(CHARSCONSULTA.indexOf(String.fromCharCode(key).toUpperCase())==-1&&p_obj.value.length>=p_min_chars&&key!=13&&key!=10&&key!=9){return;}
if(p_obj.value.length>=p_min_chars&&key!=13&&key!=10){v_div_cons.innerHTML='';f_query_wddx(p_url,p_arguments,function(obj){if(obj.ajax.readyState==4){var v_tbl=document.createElement('table');v_tbl.className='borda';v_tbl.cellPadding='3';v_tbl.cellSpacing='1';v_tbl.width='100%';var v_tb=document.createElement('tbody');for(var i=0;i<obj.struct[p_descricao].length;i++){var v_tr=document.createElement('tr');var v_td=document.createElement('td');v_td.innerHTML='<nobr>'+obj.struct[p_descricao][i]+'</nobr>';v_td.index=i;v_td.struct=obj.struct;v_tr.className='linha_2';v_td.onclick=function(){v_div_cons.obj_ctrl.value=this.struct[p_descricao][this.index];p_fnc_retorno(this.struct,this.index);}
v_tr.appendChild(v_td);v_tb.appendChild(v_tr);}
v_tbl.appendChild(v_tb);v_div_cons.currentRow=-1;v_div_cons.innerHTML='';v_div_cons.appendChild(v_tbl);}});v_div_cons.style.display='';v_div_cons.changeRecord(key);}else{v_div_cons.style.display='none';}}
function f_marca_check(p_form,p_name,p_checked){for(var i=0;i<p_form.elements.length;i++){if(p_form.elements[i].name==p_name&&p_form.elements[i].type=='checkbox'){p_form.elements[i].checked=p_checked;}}}
function f_format_date(str){var data=new Date(str);var v_result=((String(data.getDate()).length==1)?'0':'')+data.getDate();v_result+='/'+((String(data.getMonth()+1).length==1)?'0':'')+(data.getMonth()+1);v_result+='/'+data.getYear();return v_result;}
function f_cria_optgroup(p_label,p_select){var v_opt=document.createElement('optgroup');v_opt.label=p_label;p_select.appendChild(v_opt);return v_opt;}
function mudaAbaSequencia(v_id){var tbl=document.getElementById(v_id);var abas=tbl.rows[0].cells
var nro_abas=abas.length;var corpos=new Array();var v_marcar_aba=0;for(var i=0;i<tbl.rows.length;i++){if(i!=0){corpos[corpos.length]=tbl.rows[i];tbl.rows[i].cells[0].className='td_aba_corpo';}}
var nro_corpos=corpos.length;for(var i=0;i<abas.length;i++){if(i<nro_corpos){if(abas[i].className=='td_aba_up'){abas[i].className='td_aba_down';if(i+1==abas.length||abas[i+1].className=='td_aba_none')
v_marcar_aba=0;else v_marcar_aba=i+1;}}else{abas[i].className='td_aba_none';}}
abas[v_marcar_aba].className='td_aba_up';for(var i=0;i<corpos.length;i++){if(v_marcar_aba==i){corpos[i].style.display='';}else{corpos[i].style.display='none';}}}
var startSz=2;function f_textsize(trgt,inc,value){try{if(!value)
value=false;}catch(e){}
var tgs=new Array('div','td','tr','table','span','p');var szs=new Array('8','10','11','14','18','22','24');if(!document.getElementById)return
var d=document,cEl=null,sz,i,j,cTags;cEl=trgt;sz=startSz;if(!value){sz+=inc;}
if(sz<0)sz=0;if(sz>6)sz=6;startSz=sz;cEl.style.fontSize=szs[sz];for(i=0;i<tgs.length;i++){cTags=cEl.getElementsByTagName(tgs[i]);for(j=0;j<cTags.length;j++){f_textsize(cTags[j],inc,true);}}}
String.prototype.isCNPJCPF=function(){if(this.length==14)
return testacnpj(this);else
return testacpf(this);}
function f_get_query_string_list(p_form,p_lista_campos){var res='';with(p_form){var arraylist=p_lista_campos.split(",");for(var i=0;i<arraylist.length;i++){if(!eval(arraylist[i]).disabled&&eval(arraylist[i]).name){if(eval(arraylist[i]).type=='radio'||eval(arraylist[i]).type=='checkbox'){if(eval(arraylist[i]).checked){res+=eval(arraylist[i]).name+'='+escape(eval(arraylist[i]).value)+'&';}}else{res+=eval(arraylist[i]).name+'='+escape(f_valor_campo(eval(arraylist[i]).name,p_form))+'&';}}}}
res=res.substr(0,res.length-1);return res;}
function f_limpa_acentos(text){var i,ac,nc;ac='áäâàãéëêèíïîìóöôòõúüûùçñýÿÁÄÂÀÃÉËÊÈÍÏÎÌÓÖÔÒÕÚÜÛÙÇÑÝ';nc='aaaaaeeeeiiiiooooouuuucnyyAAAAAEEEEIIIIOOOOOUUUUCNY';for(i=0;i<ac.length;i++){text=text.replace(ac.charAt(i),nc.charAt(i));}
return text;}
function f_exibir_mensagem(text,totalDelay,position){if(!document.dvMensagem){document.dvMensagem=document.createElement("div");with(document.dvMensagem){style.position='absolute';style.padding='3px 3px 3px 3px'
style.backgroundColor='#FF0000';style.color='#ffffff';style.display='none';}
document.body.appendChild(document.dvMensagem);}
document.dvMensagem.innerHTML=text;document.dvMensagem.countDelay=0;document.dvMensagem.delay=50;document.dvMensagem.totalDelay=totalDelay;if(position){with(document.dvMensagem){style.top=position.top;style.left=position.left;style.display='';}}
document.dvMensagem.interval=setInterval(function(){if(!position){if(document.layers){Ypos=window.pageYOffset;Xpos=window.pageXOffset+window.innerWidth-200;}
else{Ypos=document.body.scrollTop;Xpos=document.body.scrollLeft+window.document.body.clientWidth-200;}
with(document.dvMensagem){style.top=Ypos;style.left=Xpos;style.display='';}}
document.dvMensagem.countDelay+=Number(document.dvMensagem.delay);if(Number(document.dvMensagem.totalDelay)<=Number(document.dvMensagem.countDelay)){clearInterval(document.dvMensagem.interval);document.dvMensagem.style.display='none';}},50);}
function f_seleciona_select(input,list){var v_list=','+String(list)+',';for(var i=0;i<input.options.length;i++){input.options[i].selected=(v_list.indexOf(','+input.options[i].value+',')!=-1);}}
Number.prototype.format=function(mask){var normal=String(mask).split('.')[0];var decimal=(String(mask).split('.').length>1)?String(mask).split('.')[1]:'';var v_valor;if(decimal.length>0&&decimal.replace(/0/g,'')!=''){alert('Formato inválido para a maskara: "'+mask);return null;}
if(decimal.length==0&&String(mask).indexOf('.')!=-1){v_valor=this;}else if(decimal.length==0&&String(mask).indexOf('.')==-1){v_valor=Math.round(this);}else if(decimal.length>0){v_multiplicador=1;for(var i=0;i<decimal.length;i++){v_multiplicador*=10;}
v_valor=Math.round(this*v_multiplicador)/v_multiplicador;if(String(v_valor).indexOf('.')==-1){v_valor=String(v_valor)+'.'+String('').rpad(decimal.length,'0');}else if(String(v_valor).split('.')[1].length<decimal.length){v_valor=String(v_valor).rpad(String(v_valor).length+(decimal.length-String(v_valor).split('.')[1].length),'0');}}else{alert('Não foi possível determinar a formatação decimal!');return null;}
if(String(normal).replace(/,/g,'').replace(/0/g,'')!=''){alert('Formato inválido para a maskara: "'+mask);return null;}
if(String(normal).replace(/,/g,'').length>String(v_valor).split('.')[0].length){var v_diferenca=String(normal).replace(/,/g,'').length-String(v_valor).split('.')[0].length;v_valor=String(v_valor).lpad(String(v_valor).length+v_diferenca,'0');}
v_valor=String(v_valor);if(String(normal).indexOf(',')!=-1){v_resultados=[];while(v_valor.length>0){if(v_valor.indexOf('.')!=-1){if(v_valor.indexOf('.')>=2){v_resultados.push(v_valor.substring(v_valor.indexOf('.')-3,v_valor.length));v_valor=v_valor.substr(0,v_valor.split('.')[0].length-3);}else{v_resultados=v_valor;v_valor='';}}else{v_resultados.splice(0,0,v_valor.substring((v_valor.length>=3)?v_valor.length-3:0,v_valor.length));v_valor=v_valor.substr(0,(v_valor.length>=3)?v_valor.length-3:0);}}
v_valor=v_resultados.join(',');}
return v_valor;}
String.prototype.lpad=function(length,str){var v_result=this;while(v_result.length<length){v_result=str+v_result;}
return v_result;return String(v_result).substr(v_result.length-length,length);}
String.prototype.rpad=function(length,str){var v_result=this;while(v_result.length<length){v_result=v_result+str;}
return String(v_result).substr(v_result.length-length,length);}
Number.prototype.lsformat=function(mask){var v_result=this.format(mask);return v_result.replace(/,/g,'@').replace('.',',').replace(/@/g,'.');}
String.prototype.getDate=function(){if(!this.isDate()){return null;}
return new Date(this.split('/')[2],this.split('/')[1],this.split('/')[0]);};Date.prototype.format=function(mask){if(!mask)
return String(this.getDate()).lpad(2,'0')+'/'+String(this.getMonth()).lpad(2,'0')+'/'+String(this.getYear()).lpad(4,'0');else{var result=String(mask);result=result.replace(/dd/g,String(this.getDate()).lpad(2,'0'));result=result.replace(/mm/g,String(this.getMonth()+1).lpad(2,'0'));result=result.replace(/yyyy/g,String(this.getYear()).lpad(4,'0'));result=result.replace(/hh24/g,String(this.getHours()).lpad(2,'0'));result=result.replace(/mi/g,String(this.getMinutes()).lpad(2,'0'));result=result.replace(/ss/g,String(this.getSeconds()).lpad(2,'0'));return result;}}
String.prototype.getDateTime=function(){v_parts=this.split(' ');if(this==''){return null;}
if(v_parts.length>2){return null;}
if(v_parts.length>1){return new Date(v_parts[0].split('/')[2],v_parts[0].split('/')[1]-1,v_parts[0].split('/')[0],nvl(v_parts[1].split(':')[0],0),nvl(v_parts[1].split(':')[1],0),nvl(v_parts[1].split(':')[2],0),0);}else{return new Date(v_parts[0].split('/')[2],v_parts[0].split('/')[1]-1,v_parts[0].split('/')[0],0,0,0,0);}}
function f_dump(obj,nivel){var v_nivel;if(!nivel){v_nivel=0;}else{v_nivel=nivel;}
v_result='';for(x in obj){v_ident='';for(var i=0;i<v_nivel;i++){v_ident+='  ';}
try{if(x=='dump'){}else if(typeof(obj[x])=='function'){}else if(typeof(obj[x])=='object'){v_result+=v_ident+x+": \n"+obj[x].dump(v_nivel+1);}else{v_result+=v_ident+x+": "+obj[x]+" tipo: "+typeof(obj[x])+'\n';}}catch(e){}}
return v_result;}
function f_seta_botao_atalho(botao,accessKey){botao.accessKey=accessKey;try{var v_texto=botao.childNodes[1].nodeValue.replace('&nbsp;',' ');if(v_texto.indexOf(accessKey.toUpperCase())!=-1){if(v_texto.indexOf(accessKey.toLowerCase())!=-1&&v_texto.indexOf(accessKey.toUpperCase())<v_texto.indexOf(accessKey.toLowerCase())){v_texto=v_texto.replace(accessKey.toUpperCase(),'<u>'+accessKey.toUpperCase()+'</u>');}else if(v_texto.indexOf(accessKey.toLowerCase())==-1){v_texto=v_texto.replace(accessKey.toUpperCase(),'<u>'+accessKey.toUpperCase()+'</u>');}}
if(v_texto.indexOf(accessKey.toLowerCase())!=-1){if(v_texto.indexOf(accessKey.toUpperCase())!=-1&&v_texto.indexOf(accessKey.toLowerCase())<v_texto.indexOf(accessKey.toUpperCase())){v_texto=v_texto.replace(accessKey.toLowerCase(),'<u>'+accessKey.toLowerCase()+'</u>');}else if(v_texto.indexOf(accessKey.toUpperCase())==-1){v_texto=v_texto.replace(accessKey.toLowerCase(),'<u>'+accessKey.toLowerCase()+'</u>');}}
botao.childNodes[1].removeNode();botao.innerHTML=botao.innerHTML+v_texto;}catch(e){}}
function f_get_style_rule(v_selector){for(var i=document.styleSheets.length-1;i>=0;i--){v_rules=(document.styleSheets[i].rules)?(document.styleSheets[i].rules):(document.styleSheets[i].cssRules);for(var j=v_rules.length-1;j>=0;j--){if(v_rules[j].selectorText==v_selector)
return v_rules[j];}}
return null;}
function f_query_ajax_inner(url,obj){f_query_ajax(url,function(obj2){obj.innerHTML=String(obj2).replace('<NOSCRIPT>','').replace('</NOSCRIPT>','');});}
function f_atualizar(){window.location.reload();}
function f_form_read_only(p_form,value){with(p_form){for(var i=0;i<p_form.elements.length;i++){switch(p_form.elements[i].type){case'select-one':case'select-multiple':case'radio':case'checkbox':p_form.elements[i].disabled=value;break;default:p_form.elements[i].readOnly=value;break;}}}}
function f_controle_preenchimento(p_obj){if(p_obj.getAttribute('texto_interno')){p_obj.value=p_obj.getAttribute('texto_interno');}
p_obj.onkeypress=function(){if(p_obj.value==p_obj.getAttribute('texto_interno'))
p_obj.value='';}
p_obj.onfocus=function(){p_obj.style.backgroundColor='#FFFFBF';}
p_obj.onblur=function(){p_obj.style.backgroundColor='#FFFFFF';if(!p_obj.value){p_obj.value=p_obj.getAttribute('texto_interno');}}}
function window_open(url){window.open(url);}
function f_run_defer_scripts_text(text){var v_div=document.createElement('div');v_div.innerHTML=text;f_run_defer_scripts(v_div);}
function f_run_defer_scripts(element){for(var i=0;i<element.childNodes.length;i++){if(element.childNodes[i].tagName&&element.childNodes[i].tagName.toUpperCase()=='SCRIPT'){if(element.childNodes[i].getAttribute('defer')){eval(element.childNodes[i].innerHTML);continue;}}
if(element.childNodes[i].childNodes&&element.childNodes[i].childNodes.length>0){f_run_defer_scripts(element.childNodes[i]);}}}
function currencyFormat(fld,milSep,decSep,TamMax,e)
{valor_campo=eval(fld);valor_campo=valor_campo.value.length;max_campo=eval(TamMax);if(valor_campo<max_campo)
{var sep=0;var key='';var i=j=0;var len=len2=0;var strCheck='0123456789';var aux=aux2='';var whichCode=(window.Event)?e.which:e.keyCode;if(whichCode==13)
return true;key=String.fromCharCode(whichCode);if(strCheck.indexOf(key)==-1)
return false;len=fld.value.length;for(i=0;i<len;i++)
if((fld.value.charAt(i)!='0')&&(fld.value.charAt(i)!=decSep))
break;aux='';for(;i<len;i++)
if(strCheck.indexOf(fld.value.charAt(i))!=-1)
aux+=fld.value.charAt(i);aux+=key;len=aux.length;if(len==0)
fld.value='';if(len==1)
fld.value='0'+decSep+'0'+aux;if(len==2)
fld.value='0'+decSep+aux;if(len>2)
{aux2='';for(j=0,i=len-3;i>=0;i--)
{if(j==3)
{aux2+=milSep;j=0;}
aux2+=aux.charAt(i);j++;}
fld.value='';len2=aux2.length;for(i=len2-1;i>=0;i--)
fld.value+=aux2.charAt(i);fld.value+=decSep+aux.substr(len-2,len);}
return false;}
else
{return false;}}
function f_inner_flash(object,inner){object.innerHTML=inner;}