var cstObject='object';var cstFunction='function';var cstBoolean='boolean';var cstCheckBox='checkbox';function AnexarObjeto(strFonte){var objElementoScript=document.createElement('script');var arrOpcaoTAGAnexo=new Array('head','body','form','div','span');objElementoScript.setAttribute('language','javascript');objElementoScript.setAttribute('type','text/javascript');objElementoScript.setAttribute('src',strFonte);for(var lngCont=0;lngCont<arrOpcaoTAGAnexo.length;lngCont++){var objTag=document.getElementsByTagName(arrOpcaoTAGAnexo[lngCont])[0];try{if(objTag){objTag.appendChild(objElementoScript);break;}}catch(err){}}}atachamentoDinamico("objIdioma","Globalizacao/objIdioma.js");atachamentoDinamico("InicializarCaixaMensagem","Recursos/CaixaMensagem/CaixaMensagem.js");function PermitirCaracteres(objEvento,blnNumeros,strPermitidas){var objFrameWork=new LEBJSFrameWork();var lngCaracter=0;var strCaracter='';var blnRetorno=false;var blnTeclaControl=false;var blnTeclaShift=false;var cstTipoBoolen="boolean";var objExpressaoRegular;if(objEvento.keyCode)lngCaracter=objEvento.keyCode;else if(objEvento.which)lngCaracter=objEvento.which;else if(objEvento.charCode)lngCaracter=objEvento.charCode;else lngCaracter=void(0);blnTeclaControl=objEvento.ctrlKey;blnTeclaShift=objEvento.shiftKey;strCaracter=String.fromCharCode(lngCaracter).toUpperCase();if(blnNumeros){objExpressaoRegular=/^[CXA]$/;}else{ objExpressaoRegular=/^[CVXA]$/;}if(blnTeclaControl&&objExpressaoRegular.test(strCaracter)){blnRetorno=true;}if((!blnTeclaShift)&&lngCaracter==8){blnRetorno=true;}var objExpressaoRegular=/^(45|46)$/;if((!(blnTeclaControl||blnTeclaShift))&&objExpressaoRegular.test(lngCaracter)){blnRetorno=true;}var objExpressaoRegular=/^(9|35|36|37|39)$/;if(objExpressaoRegular.test(lngCaracter)){blnRetorno=true;}if(blnNumeros&&typeof(blnNumeros)==cstTipoBoolen){var objExpressaoRegular=/^(4[8-9]|5[0-7]|9[6-9]|10[0-5])$/;if((!(blnTeclaShift||blnTeclaControl))&&objExpressaoRegular.test(lngCaracter)){blnRetorno=true;}}if(!objFrameWork.pIsEmpty(strPermitidas)){strPermitidas=strPermitidas.replace(/\s/g,'');strPermitidas=strPermitidas.replace(/^[,]|[,]$/g,'');if(!objFrameWork.pIsEmpty(objFrameWork.pTrim(strPermitidas))){var arrPermitidas=strPermitidas.split(',');for(var i=0;i<arrPermitidas.length;i++){if(arrPermitidas[i].indexOf("16+")>=0){arrPermitidas[i]=arrPermitidas[i].split("+")[1];if(blnTeclaShift&&lngCaracter==arrPermitidas[i]){blnRetorno=true;break;}}else{if((!blnTeclaShift)&&lngCaracter==arrPermitidas[i]){blnRetorno=true;break;}}}}}if(blnRetorno){return blnRetorno;}try{objEvento.returnValue=false;objEvento.cancelBubble=true;if(document.all){objEvento.keyCode=0;}else{objEvento.preventDefault();objEvento.stopPropagation();}}catch(err){}return blnRetorno;}function FormataData(Campo,teclapres,blnPodeEditarReadOnly){teclapres=(teclapres==0?event.keyCode:teclapres);Campo=(typeof(Campo)=="string"?$Id(Campo):Campo);if(Campo.readOnly&&blnPodeEditarReadOnly!=true){alert('O calendário não pode ser exibido pois o campo de destino está definido como somente leitura.');return;}if(teclapres==72||teclapres==104||teclapres==43||teclapres==45||teclapres==107||teclapres==109){vr=Campo.value;vr=vr.replace(".","/");vr=vr.replace("-","/");if(VerificaData(vr)){if(teclapres==72||teclapres==104){Campo.value=montaDataFormatada(formataNewDate());return true;}if(teclapres==43||teclapres==45||teclapres==107||teclapres==109){if(Campo.value!=""){Campo.value=montaDataFormatada(Calcula_Data(vr,1,(teclapres==43||teclapres==107?true:false)));return true;}else{var strDataAdicionaSubtrai=montaDataFormatada(formataNewDate());strDataAdicionaSubtrai=Calcula_Data(strDataAdicionaSubtrai,1,(teclapres==43||teclapres==107?true:false));Campo.value=montaDataFormatada(strDataAdicionaSubtrai);return true;}}}}vr=Campo.value;vr=vr.replace(".","");vr=vr.replace("-","");vr=vr.replace("/","");tam=vr.length+1;if(teclapres!=9&&teclapres!=8&&teclapres!=111&&teclapres!=223&&teclapres!=47){if(tam==3)Campo.value=vr.substr(0,2)+'/'+vr.substr(5,tam);if(tam==5){Campo.value=vr.substr(0,2)+'/'+vr.substr(2,2)+'/'+vr.substr(5,tam)};}}function montaDataFormatada(strData){strData=strData.replace(".","/");strData=strData.replace("-","/");var strDiaFormatado=(100+parseInt(Dia(strData))).toString().substring(1,3);var strMesFormatado=(100+parseInt(Mes(strData))).toString().substring(1,3);var strAnoFormatado=(10000+parseInt(Ano(strData))).toString().substring(1,5);return dataFormatada=strDiaFormatado+"/"+strMesFormatado+"/"+strAnoFormatado;}function Dia(Data_DDMMYYYY){strData=Data_DDMMYYYY.toString();strData=Data_DDMMYYYY.replace("-","/").replace(".","/");posicao_barra=strData.indexOf("/");if(posicao_barra!=-1){dia=strData.substring(0,posicao_barra);return dia;}else{return false;}}function Mes(Data_DDMMYYYY){strData=Data_DDMMYYYY.toString();strData=Data_DDMMYYYY.replace("-","/").replace(".","/");posicao_barra=strData.indexOf("/");if(posicao_barra!=-1){dia=strData.substring(0,posicao_barra);strMes=strData.substring(posicao_barra+1,strData.length);posicao_barra=strMes.indexOf("/");if(posicao_barra!=-1){mes=strMes.substring(0,posicao_barra);mes=Math.floor(mes);return mes;}else{return false;}}else{return false;}}function Ano(Data_DDMMYYYY){strData=Data_DDMMYYYY.toString();strData=Data_DDMMYYYY.replace("-","/").replace(".","/");posicao_barra=strData.indexOf("/");if(posicao_barra!=-1){dia=strData.substring(0,posicao_barra);strMes=strData.substring(posicao_barra+1,strData.length);posicao_barra=strMes.indexOf("/");if(posicao_barra!=-1){mes=strMes.substring(0,posicao_barra);mes=Math.floor(mes);ano=strMes.substring(posicao_barra+1,strMes.length);return ano;}else{return false;}}else{return false;}}function AtualizarTamanhoKBytes(strSinal,lngAtual,lngPasso,lngLimite){try{lngPasso*=1024;lngLimite*=1024;if((lngAtual>0&&strSinal=='-')||(lngAtual<lngLimite&&strSinal=='+')){var lngValor=eval(lngAtual+strSinal+lngPasso);if(lngValor<=0){lngValor=0;}if(lngValor>=lngLimite){lngValor=lngLimite;}return lngValor;}return lngAtual;}catch(err){return lngAtual;}}function RedimensionarImagens(strNomeImagens,lngAlturaPadrao,lngLarguraPadrao){var objFrameWork=new LEBJSFrameWork();var lngDiferencaAltura=0;var lngPorcentagemReducao=0;var lngDiferencaLargura=0;var lngAlturaImagem=0;var lngLarguraImagem=0;if((!objFrameWork.pIsEmpty(objFrameWork.pTrim(strNomeImagens)))&&objFrameWork.pIsNumeric(lngAlturaPadrao)&&lngAlturaPadrao>=0&&objFrameWork.pIsNumeric(lngLarguraPadrao)&&lngLarguraPadrao>=0){var arrNomeImagens=strNomeImagens.split(';');for(var lngCont=0;lngCont<arrNomeImagens.length;lngCont++){var objImagem=$Id(arrNomeImagens[lngCont]);if(objFrameWork.pIsObject(objImagem)){lngAlturaImagem=objImagem.height;lngLarguraImagem=objImagem.width;if(lngAlturaImagem>lngAlturaPadrao){lngDiferencaAltura=lngAlturaImagem-lngAlturaPadrao;lngPorcentagemReducao=(lngDiferencaAltura*100)/lngAlturaImagem;lngDiferencaLargura=Math.round((lngLarguraImagem*lngPorcentagemReducao)/100);lngAlturaImagem=lngAlturaPadrao;lngLarguraImagem-=lngDiferencaLargura;}if(lngLarguraImagem>lngLarguraPadrao){lngDiferencaLargura=lngLarguraImagem-lngLarguraPadrao;lngPorcentagemReducao=(lngDiferencaLargura*100)/lngLarguraImagem;lngDiferencaAltura=Math.round((lngAlturaImagem*lngPorcentagemReducao)/100);lngLarguraImagem=lngLarguraPadrao;lngAlturaImagem-=lngDiferencaAltura;}objImagem.style.height=parseInt(lngAlturaImagem)+'px';objImagem.style.width=parseInt(lngLarguraImagem)+'px';}}}}function MascararDataHora(_objCampo,_objEvento,_strFormato,_blnOnKeyUp){var cstTeclasAdicionais="38,39,40,41,65,80,16+65,16+80";if(!PermitirCaracteres(_objEvento,true,cstTeclasAdicionais)||_objEvento.keyCode==8){return false;}var blnDigitandoTeclaEspecial=false;var arrTeclasEspeciais=["8","9","45","46","36","35","37","39"];var blnDigitandoAuxiliarHora=false;var arrAuxiliarHora=["65","80","16+65","16+80"];var blnDigitandoNumeros=false;for(var i=0;i<arrTeclasEspeciais.length;i++){if(arrTeclasEspeciais[i]==_objEvento.keyCode){blnDigitandoTeclaEspecial=true;}}for(var i=0;i<arrAuxiliarHora.length;i++){if(arrAuxiliarHora[i]==_objEvento.keyCode){blnDigitandoAuxiliarHora=true;}}if(PermitirCaracteres(_objEvento,true,cstTeclasAdicionais)&&!blnDigitandoAuxiliarHora&&!blnDigitandoTeclaEspecial){blnDigitandoNumeros=true;}if(_blnOnKeyUp!=true){_blnOnKeyUp=false;}var objFrameWork=new LEBJSFrameWork();var cstFormatoData="FORMATODATA";var cstFormatoHora="FORMATOHORA";var cstFormatoHoraCompleta="FORMATOHORACOMPLETA";var cstFormatoDataHora="FORMATODATAHORA";var cstFormatoDataHoraCompleta="FORMATODATAHORACOMPLETA";var cstPadraoHoraIngles="HH:MM:SS AM/PM";var cstPadraoHoraPortugues="HH:MM:SS";var cstPadrao24HAntigo="HH24:MI";var cstPadrao12hAntigo="HH:MI";var cstValorDia="D";var cstValorMes="M";var cstValorAno="A";var lngKeyCode;var strPadraoData=objFrameWork.pToUpper(objFrameWork.pGetLanguageParams("3"));var strPadraoHora=objFrameWork.pToUpper(objFrameWork.pGetLanguageParams("4"));var objRegExp=new RegExp("[^0-9]","ig");with(objFrameWork){Value=strPadraoData;ToUpper();Replace(cstValorDia,"@#");Replace(cstValorMes,"@#");Replace(cstValorAno,"@#");var strSeparador=Value.split("@#")[1];}var strPossivelSeparador=strPadraoData.replace(strSeparador,"");strPossivelSeparador=strPossivelSeparador.replace(strSeparador,"");strPossivelSeparador=strPossivelSeparador.replace(cstValorDia,"");strPossivelSeparador=strPossivelSeparador.replace(cstValorMes,"");strPossivelSeparador=strPossivelSeparador.replace(cstValorAno,"");if((!_objEvento||_objEvento==null)&&document.all){_objEvento=event;}else if((!_objEvento||_objEvento==null)&&!document.all){return;}lngKeyCode=_objEvento.keyCode;if(strPadraoHora==cstPadrao24HAntigo){strPadraoHora=cstPadraoHoraPortugues;}else if(strPadraoHora==cstPadrao12hAntigo){strPadraoHora=cstPadraoHoraIngles;}var blnPadraoIngles=(strPadraoHora.indexOf("AM")!=-1);var arrOrdemPadrao=strPadraoData.split(strSeparador);for(i=0;i<arrOrdemPadrao.length;i++){objFrameWork.Value=arrOrdemPadrao[i];objFrameWork.ToUpper().Trim();if(objFrameWork.Value==cstValorAno||objFrameWork.Value==cstValorAno+strPossivelSeparador){var lngPosicaoAno=i;break;}}var strValorCampo=_objCampo.value.replace(objRegExp,"");objFrameWork.Value=strValorCampo;var lngTamanhoCampo=objFrameWork.Length();var strValorTratado='';if(!_blnOnKeyUp){for(var x=0;x<=strValorCampo.length;x++){switch(_strFormato){case cstFormatoData:PermitirCaracteres(_objEvento,true,"");if(((x==4||x==6)&&lngPosicaoAno==0)||((x==2||x==4)&&lngPosicaoAno!=0)){strValorTratado+=strSeparador;}else if(x>=8){PermitirCaracteres(_objEvento,false,"");}if(strPossivelSeparador!=''&&x==8){strValorTratado+=strPossivelSeparador;}break;case cstFormatoHora:case cstFormatoHoraCompleta:PermitirCaracteres(_objEvento,true,cstTeclasAdicionais);if(lngTamanhoCampo<4||lngTamanhoCampo==5){PermitirCaracteres(_objEvento,true,"");}else if(lngTamanhoCampo==4){if(_strFormato!=cstFormatoHoraCompleta&&!blnDigitandoAuxiliarHora){PermitirCaracteres(_objEvento,false,"");return;}if(blnPadraoIngles){PermitirCaracteres(_objEvento,true,cstTeclasAdicionais);}else{PermitirCaracteres(_objEvento,true,"");}}else if(lngTamanhoCampo==6&&blnDigitandoAuxiliarHora&&blnPadraoIngles){PermitirCaracteres(_objEvento,false,cstTeclasAdicionais);}else{PermitirCaracteres(_objEvento,false,"");return;}if(x==2&&(lngTamanhoCampo>2||blnDigitandoNumeros)){strValorTratado+=":";}else if(x==4){if(lngTamanhoCampo>4||blnDigitandoNumeros){strValorTratado+=":";}else if(lngTamanhoCampo==4&&blnDigitandoAuxiliarHora){if(_strFormato==cstFormatoHoraCompleta){strValorTratado+=":00";}if(blnPadraoIngles){strValorTratado+=" ";}}}else if((x==6&&blnPadraoIngles)&&((_objCampo.value.indexOf(" ")==-1&&blnDigitandoAuxiliarHora)||lngTamanhoCampo==6)){strValorTratado+=" ";}break;case cstFormatoDataHora:case cstFormatoDataHoraCompleta:PermitirCaracteres(_objEvento,true,cstTeclasAdicionais);if(lngTamanhoCampo<12||lngTamanhoCampo==13){PermitirCaracteres(_objEvento,true,"");}else if(lngTamanhoCampo==12&&_objCampo.value.split(" ").length>=2){if(_strFormato!=cstFormatoDataHoraCompleta&&!blnDigitandoAuxiliarHora){PermitirCaracteres(_objEvento,false,"");return;}if(blnPadraoIngles){PermitirCaracteres(_objEvento,true,cstTeclasAdicionais);}else{PermitirCaracteres(_objEvento,true,"");}}else if(lngTamanhoCampo==14&&blnDigitandoAuxiliarHora&&blnPadraoIngles){PermitirCaracteres(_objEvento,false,cstTeclasAdicionais);}else{PermitirCaracteres(_objEvento,false,"");return;}if(((x==4||x==6)&&lngPosicaoAno==0)||((x==2||x==4)&&lngPosicaoAno!=0)){strValorTratado+=strSeparador;}else if(x==8&&(lngTamanhoCampo>=8||blnDigitandoNumeros)){if(strPossivelSeparador!=''&&x==8){strValorTratado+=strPossivelSeparador;}if(lngTamanhoCampo>=8){strValorTratado+=" ";}}else if(x==10&&(lngTamanhoCampo>10||blnDigitandoNumeros)){strValorTratado+=":";}else if(x==12){if(lngTamanhoCampo>12||blnDigitandoNumeros){strValorTratado+=":";}else if(lngTamanhoCampo==12&&blnDigitandoAuxiliarHora){if(_strFormato==cstFormatoDataHoraCompleta){strValorTratado+=":00";}if(blnPadraoIngles){strValorTratado+=" ";}}}else if((x==14&&blnPadraoIngles)&&((_objCampo.value.split(" ").length>=2&&blnDigitandoAuxiliarHora)||lngTamanhoCampo==14)){strValorTratado+=" ";}break;}strValorTratado+=strValorCampo.substr(x,1);}_objCampo.value=strValorTratado;}else{var cstUltimoAM="A";var cstUltimoPM="P";_objCampo.value=_objCampo.value.toUpperCase();if(_strFormato!=cstFormatoData){if(!objFrameWork.pIsNumeric(_objCampo.value.substr(0,1))){_objCampo.value=objFrameWork.pRight(_objCampo.value,_objCampo.value.length-1)+objFrameWork.pLeft(_objCampo.value,1);}var strUltimo=_objCampo.value.substr(_objCampo.value.length-1,1);if(strUltimo==cstUltimoPM||strUltimo==cstUltimoAM){_objCampo.value+='M';}}else{var arrConteudo=_objCampo.value.split(strSeparador);with(objFrameWork){Value=strPadraoData;ToUpper();Replace(cstValorDia,"@#");Replace(cstValorMes,"@#");Replace(cstValorAno,"@#");var strUltimoSeparador=Value.split("@#")[Value.split("@#").length-1];}if(objFrameWork.pIsNumeric(strUltimoSeparador)){strUltimoSeparador='';}var strDataTratada='';for(i=0;i<arrConteudo.length;i++){if(!objFrameWork.pIsEmpty(arrConteudo[i])){strDataTratada+=arrConteudo[i].replace(objRegExp,"")+strSeparador;}}strDataTratada=objFrameWork.pTrim(strDataTratada.substring(0,((strDataTratada.length)-strSeparador.length)));if(strPossivelSeparador!=''&&lngTamanhoCampo==8){_objCampo.value=strDataTratada+strUltimoSeparador;}}}return;}function ValidarFormPadrao(objForm,blnExibirCaixaMensagem){var blnRetorno=true;var blnMarcadoGrupo=true;var objElementosGrupo;var objElementoPrimeiroErro;var objHidden;var strFuncaoHidden;var objFrameWork=new LEBJSFrameWork();var cstSelect="SELECT";var cstOpcao="OPCAO";var cstInput="INPUT";var cstHidden="HIDDEN";var cstFile="FILE";var cstTrue="TRUE";var strMensagemPadrao=objIdioma("E006578");var strMensagemRetorno;var strRetornoFuncaoAtachada;var blnConteudoVazio;var blnExisteCampoFile=false;var i,j;blnExibirCaixaMensagem=blnExibirCaixaMensagem==undefined?true:blnExibirCaixaMensagem;for(i=0;i<objForm.elements.length;i++){strRetornoFuncaoAtachada="";if(!objFrameWork.pIsEmpty(objForm.elements[i].getAttribute("preenchimentoobrigatorio"))&&objFrameWork.pToUpper(objForm.elements[i].getAttribute("preenchimentoobrigatorio"))==cstTrue){if(objFrameWork.pToUpper(objForm.elements[i].getAttribute("tipocampo"))==cstOpcao){blnMarcadoGrupo=false;objElementosGrupo=objForm.elements[i].parentNode.parentNode.parentNode.getElementsByTagName(objForm.elements[i].tagName);for(j=0;j<objElementosGrupo.length;j++){if(objElementosGrupo[j].getAttribute("tipocampo")==cstOpcao&&objElementosGrupo[j].checked){blnMarcadoGrupo=true;break;}}}if(objFrameWork.pToUpper(objForm.elements[i].tagName)==cstInput&&objFrameWork.pToUpper(objForm.elements[i].type)==cstFile){blnConteudoVazio=objFrameWork.pIsEmpty(objForm.elements[i].value)?objFrameWork.pIsEmpty($Id("spnLink"+objForm.elements[i].name)):false;}else{blnConteudoVazio=objFrameWork.pIsEmpty(objFrameWork.pTrim(objForm.elements[i].value))||(objForm.elements[i].tagName==cstSelect&&objForm.elements[i].selectedIndex==0);}if(blnConteudoVazio||!blnMarcadoGrupo){blnRetorno=false;objElementoPrimeiroErro=objForm.elements[i];break;}}if((objFrameWork.pToUpper(objForm.elements[i].tagName)==cstInput&&objFrameWork.pToUpper(objForm.elements[i].type)==cstFile)&&(!objFrameWork.pIsEmpty(objForm.elements[i].value)||!objFrameWork.pIsEmpty($Id("spnLink"+objForm.elements[i].name)))){blnExisteCampoFile=true;}strRetornoFuncaoAtachada="";if(!objFrameWork.pIsEmpty(objForm.elements[i].getAttribute("funcaoatachada"))){strRetornoFuncaoAtachada=eval(objFrameWork.pReplace(objForm.elements[i].getAttribute("funcaoatachada"),"this","objForm.elements[i]"));}else if(!objFrameWork.pIsEmpty(objForm.elements[i].getAttribute("validacaoespecial"))){strRetornoFuncaoAtachada=eval(objFrameWork.pReplace(objForm.elements[i].getAttribute("validacaoespecial"),"this","objForm.elements[i]"));}strRetornoFuncaoAtachada=strRetornoFuncaoAtachada==undefined?"":strRetornoFuncaoAtachada;if(!objFrameWork.pIsEmpty(objFrameWork.pTrim(strRetornoFuncaoAtachada))){blnRetorno=false;objElementoPrimeiroErro=objForm.elements[i];break;}}if(!blnRetorno){if(objFrameWork.pIsEmpty(objFrameWork.pTrim(strRetornoFuncaoAtachada))){strMensagemRetorno=objFrameWork.pReplace(strMensagemPadrao,"[NOMECAMPO]",objElementoPrimeiroErro.getAttribute("nomevisual"));}else{strMensagemRetorno=strRetornoFuncaoAtachada;}ExibirCaixaMensagemRPC('',strMensagemRetorno);if(!(objFrameWork.pToUpper(objElementoPrimeiroErro.tagName)==cstInput&&objFrameWork.pToUpper(objElementoPrimeiroErro.type)==cstHidden)){AlterarCorLabelFormularioPadrao(objElementoPrimeiroErro.name,"#FF0000");}}else if(blnExisteCampoFile&&blnExibirCaixaMensagem){blnRetorno=BarraDeProgresso(objForm);}return blnRetorno;}function ValidarFormExclusao(objForm){var objFrameWork=new LEBJSFrameWork();var lngContador=0;var blnRegistroSelecionado=false;var blnExisteCampoOpcao=false;var blnRetorno=false;var cstCampoOpcao="OPCAO";var cstCampoHidden="HIDDEN";var cstCampoMensagemPersonalizada="HDNMENSAGEMPERSONALIZADA";var strMsgErro="";var strRetornoFuncaoAtachada;with(objFrameWork){for(lngContador=0;lngContador<objForm.elements.length;lngContador++){if(pToUpper(objForm.elements[lngContador].getAttribute("TipoCampo"))==cstCampoOpcao){blnExisteCampoOpcao=true;if(objForm.elements[lngContador].checked){blnRegistroSelecionado=true;}}if(pToUpper(objForm.elements[lngContador].getAttribute("TipoCampo"))==cstCampoHidden){if(pToUpper(objForm.elements[lngContador].id)==cstCampoMensagemPersonalizada){if(!pIsEmpty(objForm.elements[lngContador].value))strMsgErro=pReplace(objForm.elements[lngContador].value,"\\n","\n");}}strRetornoFuncaoAtachada="";if(!pIsEmpty(objForm.elements[lngContador].getAttribute("funcaoatachada"))){strRetornoFuncaoAtachada=eval(pReplace(objForm.elements[lngContador].getAttribute("funcaoatachada"),"this","objForm.elements[lngContador]"));}else if(!pIsEmpty(objForm.elements[lngContador].getAttribute("validacaoespecial"))){strRetornoFuncaoAtachada=eval(pReplace(objForm.elements[lngContador].getAttribute("validacaoespecial"),"this","objForm.elements[lngContador]"));}if(!pIsEmpty(pTrim(strRetornoFuncaoAtachada))){blnRetorno=false;objElementoPrimeiroErro=objForm.elements[lngContador];break;}}if(!blnExisteCampoOpcao){ExibirCaixaMensagemRPC('',objIdioma("E001914"));}else if(!blnRegistroSelecionado){ExibirCaixaMensagemRPC('',objIdioma("E001912"));}else{if(pIsEmpty(strMsgErro)){strMsgErro=objIdioma("E001913");}blnRetorno=confirm(strMsgErro);}}return blnRetorno;}function ValidarCampoURL(objCampo,strSiteUrlExterno,blnTipoURLArquivo,blnSalvando){var objFrameWork=new LEBJSFrameWork();var objImagem=$Id('img'+objCampo.id);var strURL='/ArquivosCompartilhados/rpcUrlChecker.asp?url=';var strURLInformada=objFrameWork.pToLower(objFrameWork.pTrim(objCampo.value));var strRetornoRPC='';var cstOK='OK';var cstBoolean='boolean';var lngSplit=2;var strMsgURLInvalida=objIdioma("E008117");if(objFrameWork.pIsEmpty(strURLInformada)){objImagem.src='/Gestor/Imagens/erro.gif';objImagem.alt=strMsgURLInvalida;return "";}if(blnTipoURLArquivo&&typeof(blnTipoURLArquivo)==cstBoolean){lngSplit=3;if(strURLInformada.lastIndexOf(".")<strURLInformada.lastIndexOf("/")||objFrameWork.pReplace(strURLInformada,'http://','').lastIndexOf("/")<1){objImagem.src='/Gestor/Imagens/erro.gif';objImagem.alt=strMsgURLInvalida;return objIdioma("E004632");}}var objExpressaoRegular=/^(http(s)?:[/]{2})/;if(!objExpressaoRegular.test(strURLInformada)){strURLInformada=objFrameWork.pReplace(strURLInformada,'../','');if(strURLInformada.split('.').length>=lngSplit){strURLInformada='http://'+strURLInformada;}else{strURLInformada=strSiteUrlExterno+strURLInformada;}}function TratarRetornoRPC(strRetorno){if(objFrameWork.pToUpper(strRetorno)==cstOK){objImagem.src='/Gestor/Imagens/certo.gif';objImagem.alt=strRetorno;}else{objImagem.src='/Gestor/Imagens/erro.gif';objImagem.alt=strRetorno;}}if(blnSalvando&&typeof(blnSalvando)==cstBoolean){strRetornoRPC=objFrameWork.pRPC(strURL+strURLInformada);if(strRetornoRPC==cstOK){return "";}else{return strRetornoRPC;}}else{objCampo.value=strURLInformada;objImagem.src='/Gestor/Imagens/carregandoconteudo.gif';objImagem.alt=objIdioma("E008119");objFrameWork.pRPC(strURL+strURLInformada,TratarRetornoRPC);}}function MarcarOpcaoLabel(objElemento,objFuncaoAtachada){var objFrameWork=new LEBJSFrameWork();if(!objElemento.disabled&&!objElemento.readonly){AlterarCorLabelFormularioPadrao(objElemento.id,'#000000');if(objElemento.type==cstCheckBox){objElemento.checked=!objElemento.checked;}else{objElemento.checked=true;}if(objFrameWork.pIsFunction(objFuncaoAtachada)||objFrameWork.pIsObject(objFuncaoAtachada)){objFuncaoAtachada();}}}function ExecutarFuncaoAtachadaEvento(objCampo){var strRetornoFuncaoAtachada;var objFrameWork=new LEBJSFrameWork();strRetornoFuncaoAtachada=eval(objFrameWork.pReplace(objCampo.getAttribute("funcaoatachada"),"this","objCampo"));if(!objFrameWork.pIsEmpty(strRetornoFuncaoAtachada)){AlterarCorLabelFormularioPadrao(objCampo.name,"#FF0000");ExibirCaixaMensagemRPC('',strRetornoFuncaoAtachada);}}function ValidarCampoPadraoData(objCampoPadraoData,blnRetornarErro){var objFrameWork=new LEBJSFrameWork();if(!blnRetornarErro==true){blnRetornarErro=false;}if(!objFrameWork.pIsEmpty(objCampoPadraoData.value)&&!objFrameWork.pIsDate(objCampoPadraoData.value,true)){AlterarCorLabelFormularioPadrao(objCampoPadraoData.name,"#FF0000");if(!blnRetornarErro){ExibirCaixaMensagemRPC('',objIdioma("E000655"));}else{return objIdioma("E000655");}}else if(blnRetornarErro){return "";}}function ValidarCampoPadraoDataHora(objCampoPadraoDataHora,blnRetornarErro){var objFrameWork=new LEBJSFrameWork();if(!blnRetornarErro==true){blnRetornarErro=false;}var lngFimData=(objCampoPadraoDataHora.value.indexOf(":")!=-1)?objCampoPadraoDataHora.value.indexOf(":")-3:objCampoPadraoDataHora.value.length;var strData=objCampoPadraoDataHora.value.substr(0,lngFimData);var strHora=objCampoPadraoDataHora.value.substr(lngFimData+1);if(!objFrameWork.pIsEmpty(objCampoPadraoDataHora.value)&&(!objFrameWork.pIsDate(strData,true)||!objFrameWork.pIsHour(strHora,true))){AlterarCorLabelFormularioPadrao(objCampoPadraoDataHora.name,"#FF0000");if(!blnRetornarErro){ExibirCaixaMensagemRPC('',objIdioma("E011063"));}else{return objIdioma("E011063");}}else if(blnRetornarErro){return "";}}function ValidarCampoPadraoHora(objCampoPadraoHora,blnRetornarErro){var objFrameWork=new LEBJSFrameWork();if(!blnRetornarErro==true){blnRetornarErro=false;}if(!objFrameWork.pIsEmpty(objCampoPadraoHora.value)&&!objFrameWork.pIsHour(objCampoPadraoHora.value,true)){AlterarCorLabelFormularioPadrao(objCampoPadraoHora.name,"#FF0000");if(!blnRetornarErro){ExibirCaixaMensagemRPC('',objIdioma("E000656"));}else{return objIdioma("E000656");}}else if(blnRetornarErro){return "";}}function AlterarCorLabelFormularioPadrao(strNomeCampo,strCor){var objSpanLabel=$Id("spnLabel"+strNomeCampo);var objCampo,objTdAtual;var cstCampoOpcao="OPCAO";var cstCorAlerta="#FFFFBF";var cstCorPreta="#000000";try{if(objSpanLabel){objSpanLabel.style.color=strCor;}else{objCampo=document.getElementsByName(strNomeCampo)[0];if(objCampo.getAttribute("tipocampo")==cstCampoOpcao){objCampo=objCampo.parentNode.parentNode.parentNode;}if(strCor==cstCorPreta){objCampo.style.backgroundColor=objCampo.getAttribute("CorDeFundoAnterior");}else{objCampo.setAttribute("CorDeFundoAnterior",objCampo.style.backgroundColor);objCampo.style.backgroundColor=cstCorAlerta;}}}catch(e){}}function AlterarTextoLabelFormularioPadrao(strNomeCampo,strTipoCampo,strEstilosLabel,strClasseLabel,strTextoHint){var cstOpcao="OPCAO";var cstTrue="TRUE";var objCampo;var objTdAtual;var objTdAnterior;var objTrAtual;var objTrAnterior;var strNovaLabel="";var objFrameWork=new LEBJSFrameWork();if(objFrameWork.pIsEmpty(strEstilosLabel)){strEstilosLabel="";}if(objFrameWork.pIsEmpty(strClasseLabel)){strClasseLabel="";}if(objFrameWork.pToUpper(strTipoCampo)==cstOpcao){objCampo=$Id(strNomeCampo);objTdAtual=objCampo.parentNode.parentNode.parentNode.parentNode.parentNode;}else{objCampo=$Id(strNomeCampo);objTdAtual=objCampo.parentNode;}objTdAnterior=objTdAtual.previousSibling;while(objTdAnterior&&objTdAtual.tagName!=objTdAnterior.tagName){objTdAnterior=objTdAnterior.previousSibling;}if(!objTdAnterior){objTrAtual=objTdAtual.parentNode;objTrAnterior=objTrAtual.previousSibling;while(objTrAnterior&&objTrAtual.tagName!=objTrAnterior.tagName){objTrAnterior=objTrAnterior.previousSibling;}if(objTrAnterior){objTdAnterior=objTrAnterior.lastChild;while(objTdAnterior&&objTdAtual.tagName!=objTdAnterior.tagName){objTdAnterior=objTdAnterior.previousSibling;}}}if(!objFrameWork.pIsEmpty(objFrameWork.pTrim(objCampo.getAttribute("nomevisual")))){if(objTdAnterior){strNovaLabel="<span id='spnLabel"+objCampo.name+"' class='"+strClasseLabel+"' style='"+strEstilosLabel+"'>"+objCampo.getAttribute("nomevisual");if(!objFrameWork.pIsEmpty(objCampo.getAttribute("preenchimentoobrigatorio"))&&objFrameWork.pToUpper(objCampo.getAttribute("preenchimentoobrigatorio"))==cstTrue){strNovaLabel+="*";}strNovaLabel+="</span>";}}if(!objFrameWork.pIsEmpty(objFrameWork.pTrim(strTextoHint))){var strScriptHint="<img src=\"/imagens/px.gif\" width=\"7\" height=\"1\"/>";strScriptHint+="<img src=\"/imagens/ico_ajuda.gif\" style='vertical-align:bottom;margin-bottom:-2px;margin-top:2px;' onmouseover=\"callHint('"+(strTextoHint).replace("'","\\\'")+"');\" onmouseout=\"callHint();\"/>";if(!objFrameWork.pIsEmpty(strNovaLabel)){strNovaLabel+=strScriptHint;}else{objTdAnterior.innerHTML+=strScriptHint;}}if(!objFrameWork.pIsEmpty(strNovaLabel)){objTdAnterior.innerHTML=strNovaLabel;}}function MascararCampoNumerico(objCampo,lngCasasDecimais){var objFrameWork=new LEBJSFrameWork();if(!objFrameWork.pIsEmpty(objCampo.value)){var strValorFormatado=objFrameWork.pReplace(objFrameWork.pFormatNumber(objCampo.value,lngCasasDecimais,false,true,false),".","");var lngTamanhoCampo=objFrameWork.pLength(strValorFormatado);var lngTamanhoMaximo=objCampo.maxLength;var lngDiferencaCaracteres=lngTamanhoMaximo-lngCasasDecimais;if(lngTamanhoCampo>lngTamanhoMaximo){objCampo.value=objFrameWork.pFormatNumber(strValorFormatado.substr(0,lngDiferencaCaracteres)+"."+strValorFormatado.substr(lngDiferencaCaracteres,lngCasasDecimais),lngCasasDecimais,false,false,true);}else{if(lngCasasDecimais==0){strValorFormatado=objFrameWork.pFormatNumber(objFrameWork.pReplace(objCampo.value,".",""),lngCasasDecimais,false,false,true);}else{strValorFormatado=objFrameWork.pFormatNumber(objCampo.value,lngCasasDecimais,false,false,true);}objCampo.value=strValorFormatado;}}}function ExibirHintDataHora(strFormato){var dtmDataExemplo=new Date(2008,0,31);var objFrameWork=new LEBJSFrameWork();var strMensagem=objIdioma("E006677");dtmDataExemplo.setHours(13,59,59);strMensagem=objFrameWork.pReplace(strMensagem,"[DATA_EXEMPLO]",objFrameWork.pFormatDate(dtmDataExemplo,strFormato));callHint(strMensagem);}function ProibirCaracteres(objEvento,strProibidas,blnCaixaMensagem){var objFrameWork=new LEBJSFrameWork();var lngCaracter=0;var strCaracter='';var blnRetorno=true;var blnTeclaControl=false;var blnTeclaShift=false;if(objEvento.keyCode)lngCaracter=objEvento.keyCode;else if(objEvento.which)lngCaracter=objEvento.which;else if(objEvento.charCode)lngCaracter=objEvento.charCode;else lngCaracter=void(0);blnTeclaControl=objEvento.ctrlKey;blnTeclaShift=objEvento.shiftKey;if(!objFrameWork.pIsEmpty(strProibidas)){strProibidas=strProibidas.replace(/\s/g,'');strProibidas=strProibidas.replace(/^[,]|[,]$/g,'');if(!objFrameWork.pIsEmpty(objFrameWork.pTrim(strProibidas))){var arrProibidas=strProibidas.split(',');var strTeclaProibida="";for(var i=0;i<arrProibidas.length;i++){strTeclaProibida=arrProibidas[i].split("+")[1];if(arrProibidas[i].indexOf("16+")>=0||arrProibidas[i].indexOf("17+")>=0){if(blnTeclaShift&&lngCaracter==strTeclaProibida){blnRetorno=false;break;}}else{if((!blnTeclaShift)&&lngCaracter==strTeclaProibida){blnRetorno=false;break;}}if(arrProibidas[i].indexOf("17+")>=0||arrProibidas[i].indexOf("16+")>=0){if(blnTeclaControl&&lngCaracter==strTeclaProibida){blnRetorno=false;break;}}else{if((!blnTeclaControl)&&lngCaracter==strTeclaProibida){blnRetorno=false;break;}}}}}if(blnRetorno){return blnRetorno}try{objEvento.returnValue=false;objEvento.cancelBubble=false;if(document.all){objEvento.keyCode=0;}else{objEvento.preventDefault();objEvento.stopPropagation();}if(blnCaixaMensagem){ExibirCaixaMensagemRPC("",objIdioma("E006088"));}}catch(err){}return blnRetorno;}function fecharPopup(strIdentificador){var objFrameWork=new LEBJSFrameWork();if(!strIdentificador){strIdentificador='divPopup';}if(window.opener){self.close();}else{if(objFrameWork.pIsFunction(parent.fecharDivPopup)||objFrameWork.pIsObject(parent.fecharDivPopup)){parent.fecharDivPopup(strIdentificador);}}}function validaDataHoraFinal(strIdInicio,strIdFim,strMsg,strTipo,strOperador){var cstTipoData="DATA";var cstTipoHora="HORA";var cstTipoDataHora="DATAHORA";var strValidacaoInicio;var strValidacaoFinal;if(strOperador==undefined){strOperador='<';}if($Id(strIdInicio)&&$Id(strIdFim)){var objInicio=$Id(strIdInicio);var objFim=$Id(strIdFim);strTipo=objFrameWork.pIsEmpty(strTipo)?cstTipoData:strTipo;switch(objFrameWork.pTrim(objFrameWork.pToUpper(strTipo))){case cstTipoData:strValidacaoInicio=objFrameWork.pTrim(ValidarCampoPadraoData(objInicio,true));strValidacaoFinal=objFrameWork.pTrim(ValidarCampoPadraoData(objFim,true));break;case cstTipoHora:strValidacaoInicio=objFrameWork.pTrim(ValidarCampoPadraoHora(objInicio,true));strValidacaoFinal=objFrameWork.pTrim(ValidarCampoPadraoHora(objFim,true));break;case cstTipoDataHora:strValidacaoInicio=objFrameWork.pTrim(ValidarCampoPadraoDataHora(objInicio,true));strValidacaoFinal=objFrameWork.pTrim(ValidarCampoPadraoDataHora(objFim,true));break;}if(objFrameWork.pIsEmpty(strValidacaoInicio)&&objFrameWork.pIsEmpty(strValidacaoFinal)){var dtmInicio=objFrameWork.pCDate(objInicio.value);var dtmFim=objFrameWork.pCDate(objFim.value);return eval("dtmFim "+strOperador+"dtmInicio")?strMsg:"";}else{strValidacao=objFrameWork.pLength(strValidacaoInicio)!=0?strValidacaoInicio:strValidacaoFinal;return strValidacao;}}return "";}function criticaCampoNumerico(objValorOrigem,dblValorMinimo,dblValorMaximo,blnRetornaValorFormatado){var dblValorOriginal=objValorOrigem.value;var lngCasasDecimais=2;if(!objFrameWork.pIsEmpty(dblValorOriginal)){dblValorOriginal=objFrameWork.pFormatNumber(dblValorOriginal,lngCasasDecimais,false,true);}if(!objFrameWork.pIsNumeric(dblValorMinimo)){strValorMinimo=0;}else{dblValorMinimo=parseFloat(dblValorMinimo);}if(!objFrameWork.pIsNumeric(dblValorMaximo)){dblValorMaximo=100;}else{dblValorMaximo=parseFloat(dblValorMaximo);}if(blnRetornaValorFormatado!=false){blnRetornaValorFormatado=true;}if(objFrameWork.pIsNumeric(dblValorOriginal)){if(parseFloat(dblValorOriginal)>=dblValorMinimo&&parseFloat(dblValorOriginal)<=dblValorMaximo){if(blnRetornaValorFormatado){objValorOrigem.value=objFrameWork.pFormatNumber(dblValorOriginal,lngCasasDecimais,false,false,blnRetornaValorFormatado);}return "";}else{objValorOrigem.value="";return objIdioma("E005311").replace("[VALOR_MIN]",dblValorMinimo).replace("[VALOR_MAX]",dblValorMaximo);}}else{objValorOrigem.value="";return objIdioma("E005312").replace("[VALOR_MIN]",dblValorMinimo).replace("[VALOR_MAX]",dblValorMaximo);}}function setaObrigatoriedade(strId,strIdTD,blnCampoObrigatorio){try{var strObrigatoriedade=blnCampoObrigatorio?"*":"";var obj=document.getElementsByName(strId)[0];var objTD=$Id(strIdTD);obj.setAttribute("preenchimentoobrigatorio",blnCampoObrigatorio);objTD.innerHTML="<span id='spnLabel"+strId+"'>"+obj.getAttribute("nomevisual")+strObrigatoriedade+"</span>";}catch(e){}}function getSession(strNomeSession,lngPosicao){var objFrameWork=new LEBJSFrameWork();var strURL="/rpcGetSession.asp?"+"Session="+strNomeSession+"&Posicao="+(lngPosicao==undefined?"":lngPosicao);return objFrameWork.pRPC(strURL);}function setSession(strNomeSession,strValorSession){var objFrameWork=new LEBJSFrameWork();var strURL="/rpcSetSession.asp?"+"Session="+strNomeSession+"&Valor="+strValorSession;objFrameWork.pRPC(strURL);}function fecharJanela(objJanela){try{objJanela.close();}catch(e){}}function atachamentoDinamico(strObjeto,strPath,strJanela){strJanela=(strJanela==undefined?"window":strJanela);var cstObject="object";var cstFunction="function";var cstJS="js";var cstComplete="complete";var arrPath=strPath.split(".");var blnJS=(arrPath[arrPath.length-1]==cstJS);var strTipo=eval("typeof("+strJanela+"."+strObjeto+");");var objJanela=eval(strJanela);var blnCSS=false;if(!blnJS){for(var i=0;i<document.styleSheets.length;i++){if(document.styleSheets[i].href&&document.styleSheets[i].href.indexOf(strObjeto+".css")!=-1){blnCSS=true;break;}}}if((!blnJS&&!blnCSS)||(blnJS&&strTipo!=cstObject&&strTipo!=cstFunction)){if(document.all&&blnJS&&(objJanela.document.readyState!=cstComplete)){objJanela.document.write('<scr'+'ipt language="javascript" type="text/javascript" src="/'+strPath+'"></scr'+'ipt>');}else{var objScript;if(blnJS){objScript=document.createElement("script");objScript.setAttribute("language","javascript");objScript.setAttribute("type","text/javascript");objScript.setAttribute("src","/"+strPath);}else{objScript=document.createElement("link");objScript.setAttribute("rel","stylesheet");objScript.setAttribute("type","text/css");objScript.setAttribute("href","/"+strPath);}try{objJanela.document.getElementsByTagName("head")[0].appendChild(objScript);}catch(e){try{objJanela.document.getElementsByTagName("body")[0].appendChild(objScript);}catch(e){}}}}}function navegador(){var arrNavegadores=["MSIE","FIREFOX","SAFARI"];var strNavegador=navigator.userAgent.toUpperCase();for(var i=0;i<arrNavegadores.length;i++){if(strNavegador.lastIndexOf(arrNavegadores[i])!=-1){return arrNavegadores[i];}}}function BuscarOrdemAba(strEnderecoExibicao){var strRetorno;var lngCodOrdemAba;var objFrameWork=new LEBJSFrameWork();var strURL="/rpcVerificarAbaAtiva.asp?Endereco="+strEnderecoExibicao;lngCodOrdemAba=objFrameWork.pRPC(strURL);return lngCodOrdemAba;}function validarCaracterEspecial(campo){var objFrameWork=new LEBJSFrameWork;var valorcampo=campo.value;var lngMaxCaracters;var strMensagemRetorno="NaoExibe";atachamentoDinamico("verificaTamanhoNomeArquivo","javascript/inputfile.js");if(campo.getAttribute("maxCaracters")){lngMaxCaracters=parseInt(campo.getAttribute("maxCaracters"));}else{lngMaxCaracters=150;}if(valorcampo.indexOf("'")>0){return objIdioma("E006088");}if(!objFrameWork.pIsEmpty(objFrameWork.pTrim(valorcampo))){if(!verificaTamanhoNomeArquivo(campo,lngMaxCaracters,strMensagemRetorno)){return objIdioma("E016122");}}}var strIndiceAnterior="0";function criarNovoAnexo(strIdArquivo){var objFrameWork=new LEBJSFrameWork();var objArquivo=$Id(strIdArquivo);var objTD=objArquivo.parentNode;var objTR=objTD.parentNode;var objTable=objTR.parentNode;var objLixeira=document.createElement("img");var objNovaTR=document.createElement("tr");var objNovaTD=document.createElement("td");var objTDLixeira=document.createElement("td");var objNovoArquivo=document.createElement("input");var strIndice=(parseInt(strIndiceAnterior)+1).toString();var objAnterior,lngContador,strIndiceArquivo;objArquivo.name="txtArquivo";objArquivo.id=(strIndiceAnterior=="0")?"txtArquivo_0":objArquivo.id;objNovoArquivo.id="txtArquivo_"+strIndice;objNovoArquivo.type="file";objNovoArquivo.name=objArquivo.name;objNovoArquivo.style.cssText=objArquivo.style.cssText;objNovoArquivo.onchange=function(){criarNovoAnexo("txtArquivo_"+strIndice)};strIndiceArquivo=objFrameWork.pMid(objArquivo.id,objArquivo.id.lastIndexOf("_")+1,objArquivo.id.length);objLixeira.id="imgLixeira_"+strIndiceAnterior;objLixeira.src="/Imagens/Idiomas/NaoOk.gif";objLixeira.title="Remover";objLixeira.onclick=function(){objArquivo=null;objTable.removeChild(objTR);};for(lngContador=0;lngContador<parseInt(strIndiceAnterior);lngContador++){objAnterior=$Id("txtArquivo_"+lngContador.toString());if(lngContador.toString()==strIndiceArquivo){objAnterior=null;}if(!objFrameWork.pIsEmpty(objAnterior)&&!objFrameWork.pIsEmpty(objArquivo)){if(objArquivo.value==objAnterior.value){objArquivo=null;objTable.removeChild(objTR);ExibirCaixaMensagemRPC("",objIdioma("E027739"));if(strIndiceArquivo!=strIndiceAnterior){return false;}}}}objNovaTD.width="100%";objTDLixeira.align="left";objNovoArquivo.size=(window.screen.width<1280)?157:250;if(strIndiceArquivo==strIndiceAnterior){objTDLixeira.appendChild(objLixeira);objTR.appendChild(objTDLixeira);objNovaTD.appendChild(objNovoArquivo);objNovaTR.appendChild(objNovaTD);objTable.appendChild(objNovaTR);strIndiceAnterior=strIndice;}}function $Id(strId){ return document.getElementById(strId);}function $Name(strName){ return document.getElementsByName(strName);}