xevent = new Object();function eventCompat(xevent){if (!xevent){xevent=window.event;}else{xevent.srcElement=xevent.target;xevent.toElement=xevent.currentTarget;xevent.fromElement=xevent.relatedTarget;}return (xevent);}if(!window.execScript){window.execScript = function execScript(cmd){eval(cmd)}}
var sList = '';
var sList2 = '';
function trataErro(err,sFunctionName){
  JSDirectErrorPage2 = eval(JSDirectErrorPage2);
  var sParametros = '';
  sParametros = sParametros + 'TpErro=' + getParamDelimited( JSDirectErrorPage2, '&', 1 ) + '||';
  sParametros = sParametros + 'JSFunction=' + getParamDelimited( JSDirectErrorPage2, '&', 2 ) + '||';
  sParametros = sParametros + 'JSTipo=' + getParamDelimited( JSDirectErrorPage2, '&', 3 ) + '||';
  sParametros = sParametros + 'JSMens=' + getParamDelimited( JSDirectErrorPage2, '&', 4 ) + '||';
  sParametros = sParametros + 'JSURL=' + getParamDelimited( JSDirectErrorPage2, '&', 5 ) + '||';
  document.frmSubmitTela.Parametros.value=sParametros;
  document.frmSubmitTela.action = pathJS + 'Errors/500-100.asp';
  document.frmSubmitTela.submit();
}

function fBodyOnLoad(obj) {
	if (typeof(fBodyOnLoad_Local) == 'function'){
		fBodyOnLoad_Local(obj);
	}
}

// ID CREF
function SubmitSock(sIP, sPORTA, StrEnv){
  var sFunctionName='SubmitSock';
  try{

    var time = new Date();
    var sTime = fStrZero(time.getHours(),2)+fStrZero(time.getMinutes(),2)+fStrZero(time.getSeconds(),2);

    document.frmWebSock.WEB_SOCK_INI.value = sTime + StrEnv;
    document.frmWebSock.action = 'http://' + sIP + ':' + sPORTA + '/';
    document.frmWebSock.submit();

  }catch(err){
    trataErro(err,sFunctionName);
  }
}

// Get the left and the top of the element.
function ds_getleft(el) {
    var tmp = el.offsetLeft;
    el = el.offsetParent
    while(el) {
        tmp += el.offsetLeft;
        el = el.offsetParent;
    }
    return tmp;
}
function ds_gettop(el) {
    var tmp = el.offsetTop;
    el = el.offsetParent
    while(el) {
        tmp += el.offsetTop;
        el = el.offsetParent;
    }
    return tmp;
}


function goEnter(xevent,sFuncao,pIE){
	var sFunctionName='BotaoEnter';
	if (pIE=="S"){
		xevent = '';
	}
	xevent=eventCompat(xevent);
	try{
		var Tecla = xevent.keyCode;
		if (Tecla == 13){
			window.execScript(sFuncao);
		}
	}catch(err){
		trataErro(err,sFunctionName);
	}
}

function fSetChkBox(oChk){
	var sFunctionName='fSetChkBox';
	try{
		var cChecked = getParamDelimited( oChk.getAttribute('chkval'), '||', 1 );
		var cNotChecked = getParamDelimited( oChk.getAttribute('chkval'), '||', 2 );
	  if (oChk.checked){oChk.value = cChecked;}else{oChk.value = cNotChecked;}
	}catch(err){
	  trataErro(err,sFunctionName);
	}
}  

function trim(str){
  return str.replace(/^\s*|\s*$/g,"");
}

function fRecuperaDadosXML(){
  var strXML = '';
  var colecao = document.all;
  var input, i;
  for (i=0;i<colecao.length;i++){
    obj = colecao[i];
    tag = obj.tagName;
    type = obj.type;

    if (typeof(obj.dataFld) == 'string'){
      if (obj.dataFld != ''){
        if (tag == 'INPUT' || tag == 'TEXTAREA'){
          if (type == 'checkbox'){
            if (obj.checked){
              strXML += '<'+obj.dataFld+'>1</'+obj.dataFld+'>';
            }

          }else if (type == 'radio' && obj.checked){
            strXML += '<'+obj.dataFld+'>' +obj.value+ '</'+obj.dataFld+'>';
          }else if (type == 'text' || type == 'textarea'){
            if (obj.value != ''){
              strXML += '<'+obj.dataFld+'>' +obj.value+ '</'+obj.dataFld+'>';
            }
          }
        }else if(tag == 'SELECT'){
          if (obj.value != ''){
            strXML += '<'+obj.dataFld+'>' +obj.value+ '</'+obj.dataFld+'>';
          }
        }
      }
    }
  }
  return(strXML);
}

function fGetInputs(objdocument){
  var sFunctionName='fGetInputs';
  try{
		var retorno = '';
		var i;
		var colecao = objdocument.getElementsByTagName('INPUT');
		var input;
		for (i=0;i<colecao.length;i++){
			input = colecao[i];
			if (typeof(input) == 'object'){
				if (subleft(input.name,3)=='opt'){
					if (input.checked){
						retorno = retorno + input.id+'=1@@';
					}else{
						retorno = retorno + input.id+'=0@@';
					}
				}else{
					retorno = retorno + input.id+'='+input.value+'@@';
				}
			}
		}
		return(retorno);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function GID(s){
	var sFunctionName='GID';
	try{
		var sRand = ""
		var no = ""
		//1
		no=Math.round(Math.random()*10);
		sRand = sRand + no;
		//2
		no=Math.round(Math.random()*10);
		sRand = sRand + no;
		//3
		no=Math.round(Math.random()*10);
		sRand = sRand + no;
		//4
		no=Math.round(Math.random()*10);
		sRand = sRand + no;
		//5
		no=Math.round(Math.random()*10);
		sRand = sRand + no;
		return(s+sRand);

  }catch(err){
		trataErro(err,sFunctionName);
  }
}

function fSNNS(pSN){
	var sFunctionName='fSNNS';
  try{
		if (pSN == 'S'){
			return('N');
		}else if (pSN == 'N'){
			return('S');
		}
  }catch(err){
		trataErro(err,sFunctionName);
  }
}

//VERIFICA SE O CAMPO INFORMADO ESTÁ VAZIO
function EValorVazio(input){
  var sFunctionName='EValorVazio';
  try{
    var valInput = input.value;
    if ((valInput=='')||(valInput==0)||(valInput=='0,00')||(valInput.length==0)){
      return true;
    }else{
      return false;
    }
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//******************************
function getParamDelimited( strPrinc, sDelim, numParam ){
	var sFunctionName='getParamDelimited';
  try{
		var nPosf = 0
		var nPosi = 0
		var nVezes = 1
		var sPedaco = ''
		if (strPrinc.length>0){
			strPrinc = strPrinc + sDelim
		}
		while (true){
			if (nVezes > numParam){
				break;
			}
			nPosf = inStr(strPrinc,sDelim)
			if (nPosf < 0){
				nPosf = strPrinc.length;
			}
			nPosi = 0
			sPedaco = strPrinc.substr(nPosi,nPosf-nPosi)
			nPosi = nPosf + sDelim.length;
			nVezes = nVezes + 1
			strPrinc = strPrinc.substr(nPosi,(strPrinc.length)-nPosi)
		}
		return sPedaco;
  }catch(err){
		trataErro(err,sFunctionName);
  }	
}

//******************************
function setParamDelimited(strPrinc,sDelim,numParam,sParam){
	var sFunctionName='fSetParamDelimited';
	try{
		var strPrincOrig = strPrinc;
		var nIniReplace = 0;
		var nFimReplace = 0;
		var nPar;
		var nPosF;
		nPar = 1;
		while (true){
			nPosF = inStr(strPrinc,sDelim);
			strPrinc = strPrinc.substr(nPosF + (sDelim.length), (strPrinc.length) - nPosF);
			nFimReplace += nPosF;
			if (nPar == numParam){
				break;
			}
			nIniReplace += nPosF + (sDelim.length);
			nFimReplace += (sDelim.length);
			++nPar;
		}
		return('' + strPrincOrig.substr(0,nIniReplace) + sParam + strPrincOrig.substr(nFimReplace,strPrincOrig.length - nFimReplace));
	}catch(err){
		trataErro(err,sFunctionName);
	}
}

//******************************
function fEventFunctions(strPrinc){
	var sFunctionName='fEventFunctions';
	try{		
		if (strPrinc=='undefined'){
			return( '' );
		}
		var nPosI = inStr(strPrinc,'{');
		if (nPosI <= 0){
			return( '' );			
		}
		return( '' + strPrinc.substr(nPosI+1, (strPrinc.length) - nPosI) );

	}catch(err){
		trataErro(err,sFunctionName);
	}
}

function FData(pdata,pformato){
	var sFunctionName='FData';
  try{
		if (pdata != ''){
			if (pformato == 'AAAAMMDD'){
				pdata = pdata.substr(6,2) + "/" + pdata.substr(4,2) + "/" + pdata.substr(0,4)
			}
		}
		return(pdata);
  }catch(err){
		trataErro(err,sFunctionName);
  }
}

function fDigitaNome(obj,xevent){
	var sFunctionName='fDigitaNome';
  try{
  	return disableCtrlKeyCombination(xevent,Array('a','n','x','d','j','c','v'));
  }catch(err){
		trataErro(err,sFunctionName);
  }
}

function fConsisteNome(oObj){
	var sFunctionName='fConsisteNome';
  try{
		var retorno = true;
		if (oObj.value.length > 0){
			oObj.value = fTransform(oObj.value,'  ',' ');
			if (subleft(oObj.value,1) == ' '){
				oObj.value = oObj.value.substr(1);
			}
			pos = inStr(oObj.value,' ') + 1;
			if (pos > 0){
				if (pos == oObj.value.length){
					alert('Obrigatório dois nomes (Nome + Sobrenome)!');
					retorno = false;
				}
			}else{
				alert('Obrigatório dois nomes (Nome + Sobrenome)!');
				retorno = false;
			}
			if (retorno){
  			if ((oObj.value.substr(0,1) >= '0' && oObj.value.substr(0,1) <= '9') ||
  			    (oObj.value.substr(1,1) >= '0' && oObj.value.substr(1,1) <= '9') ||
  			    (oObj.value.substr(2,1) >= '0' && oObj.value.substr(2,1) <= '9')){
  				alert('Este nome não é válido!');
  				retorno = false;
        }
      }
		}
		if (!retorno){
		  oObj.focus();
		}
		return retorno;
  }catch(err){
		trataErro(err,sFunctionName);
  }
}

function fTransform(cStr,cStrFind,cStrReplace){
	var sFunctionName='fTransform';
  try{
		var re = new RegExp(cStrFind+'+','g');
		return(cStr.replace(re, cStrReplace));
  }catch(err){
		trataErro(err,sFunctionName);
  }
}

function fValida_NumPlaca(oObjPlaca,pnQtdeAlfa){
	var sFunctionName='fValida_NumPlaca';
  try{
		var placa = oObjPlaca.value;
		var lsNumero;
		var lsAlfa;
		var i;
		var retorno;
		if (placa != ''){
			lsAlfa = subleft(placa,pnQtdeAlfa);
			lsNumero = subright(placa, placa.length - pnQtdeAlfa);
			if (lsNumero.length < 4){
				alert('Placa Inválida !');
				oObjPlaca.focus();
				return false;
			}
			for (i=0;i<=lsAlfa.length-1;i++) {
				if (!(lsAlfa.substr(i,1) >= 'A' && lsAlfa.substr(i,1) <= 'Z') ){
					alert('Placa Inválida !');
					oObjPlaca.focus();
					return false;
					break;
				}
			}
			for (i=0;i<=lsNumero.length-1;i++) {
				if (!(lsNumero.substr(i,1) >= '0' && lsNumero.substr(i,1) <= '9') ){
					alert('Placa Inválida !');
					oObjPlaca.focus();
					return false;
					break;
				}
			}
		}
		return true;
  }catch(err){
		trataErro(err,sFunctionName);
  }
}

function fValidaEmail(oObjEmail){
	var sFunctionName='fValidaEmail';
  try{
  	retorno = true;
		var email = oObjEmail.value;
		if (email != ''){
	  	retorno = false;
	  	if (inStr(email,'@.') < 0){
		  	if (inStr(email,'.@') < 0){
					if (inStr(email,'@') > 0){
						if (inStr(email,'.') > 0){
							retorno = true;
						}
					}
		  	}
		  }
		}
		if (!retorno){
			alert('E-Mail Inválido!');
			oObjEmail.focus();
		}
  }catch(err){
		trataErro(err,sFunctionName);
  }
}

function fVerificaIdade(obj){
	var sFunctionName='fVerificaIdade';
	try{
		var dateStr;
		var retorno;
		if (obj == null || obj == "") {
			return false;
		}
		dateStr = obj.value;
		if (dateStr == null || dateStr == "") {
			return false;
		}
		pDay = dateStr.substr(0,2)*1;
		pMonth = dateStr.substr(3,2)*1;
		pYear = dateStr.substr(6,4)*1;

		hDay = strDataAtualGlobal.substr(0,2)*1;
		hMonth = strDataAtualGlobal.substr(3,2)*1;
		hYear = strDataAtualGlobal.substr(6,4)*1;
		rAnos = hYear - pYear;

		if (pMonth > hMonth){
		 	rAnos = rAnos - 1;
		}else{
			if (pMonth == hMonth){
				if (pDay > hDay){
					rAnos = rAnos - 1;
				}else{
					rAnos = rAnos + 1;
				}
			}else{
				rAnos = rAnos + 1;
			}
		}
		if (rAnos < IDADE_MIN_CLIENTE){
			alert('Idade Mínima definida de ' + IDADE_MIN_CLIENTE + ' anos!');
			obj.value = '';
			obj.focus();
		}
		if (IDADE_MAX_CLIENTE > 0){
			if (rAnos > IDADE_MAX_CLIENTE){
				alert('Cliente tem '+ rAnos +' anos de idade. Idade não Permitida!');
				obj.value = '';
				obj.focus();
			}
		}
	}catch(err){
	  trataErro(err,sFunctionName);
	}
}

function fAbreHelp(){
	var sFunctionName='fAbreHelp';
	try{
		var sWidth = window.screen.availWidth*1;
		var sHeight = window.screen.availHeight*1;
		var tWidth  = 400;
		var tHeight = 200;
		var tTop  = parseInt((sHeight-tHeight)/2);
		var tLeft = parseInt((sWidth-tWidth)/2);
		var Help = window.open(pathJS+'help.asp','Help','toolbar=no, menubar=no, location=no, directories=no, scrollbars=yes, top='+tTop+', left='+tLeft+', width='+tWidth+', height='+tHeight+', resizeable=no',1);
	}catch(err){
		trataErro(err,sFunctionName);
	}
}

function fStrZero(valor,tam){
  var sFunctionName='fStrZero';
	try{
    valor=valor+'';
		while(valor.length < tam){
		  valor = '0' + valor;
		}
		return(valor);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fStrBlank(str,tam){
  var sFunctionName='fStrBlank';
	try{
    str += '';
    if (str.length > tam){
      str = subleft(str,tam)
    }else{
		  while(str.length < tam){
		    str += ' ';
		  }
    }
		return(str);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fBlink(tdObj,pTempo){
  var sFunctionName='fBlink';
	try{
		if (typeof(tdObj) == 'object'){
			if (tdObj.style.visibility == ''){
				tdObj.style.visibility = 'hidden';
			}else{
				tdObj.style.visibility = '';
			}
			var tdObjName = 'document.all.'+tdObj.id;
			setTimeout("fBlink("+tdObjName+","+pTempo+")",pTempo);
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fBodyOnBeforeUnLoad(xevent){
  var sFunctionName='fBodyOnBeforeUnLoad';
	try{
		if (typeof(MakeImageButtonClick) == 'undefined'){
			MakeImageButtonClick = 0;
		}
		if ((document.all || window.location.href != 'undefined') && MakeImageButtonClick == 0){
			if (isIE){
				xevent = window.event;
			}
			if (xevent.clientY){
				if (xevent.clientY < 0){
					MakeImageButtonClick = 0;
				}else{
					MakeImageButtonClick = 1;
				}
			}else{
				if (xevent.pageY){
					if (xevent.pageY < 0){
						MakeImageButtonClick = 0;
					}else{
						MakeImageButtonClick = 1;
					}
				}
			}
		}
		if (MakeImageButtonClick == 0){
			//pag = 'TCentralCredito/Include/DeleteFila.asp?param1='+mycloseparam1+'&param2='+mycloseparam2+'&param3='+mycloseparam3 + '&xparmx=' + ID_COOKIE_KEY
			//DeleteFila = window.showModalDialog(pathJS+pag,window,'status:no;help:no;resizable:no;scroll:no;dialogTop:5000px;dialogLeft:5000px;dialogWidth:1px;dialogHeight:1px;');
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fBodyOnUnLoad(){
  var sFunctionName='fBodyOnUnLoad';
  try{
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//Antes de Chamar Função Setar Variavel SetNow
// var SetNow = new Date();
function WaitThen(pSegundos,pAcao){
	var Agora = new Date();
	var Dif = parseInt( (Agora - SetNow) /1000 );
	if (Dif > pSegundos){
		eval(pAcao);
	}else{
		setTimeout("WaitThen("+pSegundos+","+pAcao+")",(pSegundos*1000));
	}
}

// reload situacao controle;
function ReloadSit(Msg){
	window.parent.iframeTSITUAControle.document.location.reload();
	window.parent.document.all.tdMessage.style.color = '#FFFF00';
	window.parent.document.all.tdMessage.style.fontSize = '19';
	window.parent.document.all.tdMessage.style.fontFamily = 'Arial';
	if (Msg == 1){
		window.parent.document.all.tdMessage.innerHTML = 'AGUARDANDO ANÁLISE';
	}else if (Msg == 2){
		window.parent.document.all.tdMessage.innerHTML = 'EM ANÁLISE';
	}
}

//fecha sessao no servidor
function OnUnload(){
  var sFunctionName = 'OnUnload';
  try{
		//Logout = window.open(pathJS+'Logout.asp','Logout','toolbar=no, menubar=no, location=no, directories=no, scrollbars=yes, top=5000, left=5000, width=1, height=1, resizeable=no',1);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//Funcao Para Insersão de Informação de Carregando
function fShowAguarde(){
  var sFunctionName='fShowAguarde';
  try{
		if (typeof(document.all.tdTitulo) == 'object'){
			document.all.tdTitulo.align='right';
			if (typeof(document.all.tdTitulo.conteudo) == 'string'){
			  document.all.tdTitulo.innerHTML = document.all.tdTitulo.conteudo;
			}
			document.all.tdTitulo.conteudo = document.all.tdTitulo.innerHTML;
			document.all.tdTitulo.innerHTML = '<img src="'+pathJS+'images/tdAguarde.gif">';
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//Funcao Para Desinsersão de Informação de Carregando
function fHideAguarde(){
  var sFunctionName='fHideAguarde';
  try{
		if (typeof(document.all.tdTitulo) == 'object'){
			if (typeof(document.all.tdTitulo.conteudo) == 'string'){
				document.all.tdTitulo.align = 'left';
				document.all.tdTitulo.innerHTML = document.all.tdTitulo.conteudo;
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}
  
//Funcao Generica de Pesquisa de Telefones ImageButton-Lupa(Window.Open).
function fPesqTel_click(obj){
  var sFunctionName='fPesqTel_click';
  try{
		if ( typeof(eval('document.all.'+obj.DDD)) == 'object' ){
			var numDDD = eval('document.all.'+obj.DDD+'.value');
		}else{
			var numDDD = 0;
		}
		var numTEL = obj.value;
		alert('Telefone: '+numDDD+'/'+numTEL);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

// Funções do AuxMakeMenuButton
function fMMB_MouseOver(obj,clrOver){
  var sFunctionName='fMMB_MouseOver';
  try{
	  var objName = obj.id;
	  var tableName = 'table'+objName;
	  var objTable = document.getElementById(tableName);
	  if (obj.getAttribute('ondi') != 'Desabilitado'){
	    obj.style.cursor = 'hand';
	    objTable.style.backgroundColor  = clrOver;
	  }
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fMMB_MouseOut(obj,clrIn) {
  var sFunctionName='fMMB_MouseOut';
  try{
	  var objName = obj.id;
	  var tableName = 'table'+objName;
	  var objTable = eval(tableName);
	  if (obj.getAttribute('ondi') != 'Desabilitado'){
	    obj.style.cursor = 'default';
	    objTable.style.backgroundColor  = clrIn;
	  }
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fMMB_MouseClick(obj,acao){
  var sFunctionName='fMMB_MouseClick';
  try{
	  if (obj.getAttribute('ondi') != 'Desabilitado'){
	    eval(acao);
	  }
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

// FUNÇÃO QUE EXIBE A TELA DE FINALIZACAO DO SISTEMA
function FinalizaSistema(Sistema){
  var sFunctionName='FinalizaSistema';
  try{
 	/*
 	If (typeof(SysinWin) != "object"){
 		var w = 434;
 		var h = 151;
 		var l = (screen.width - w)/2;
 		var t = (screen.height - h)/2;
		var Finalizacao = window.open(pathJS+'Finalizacao.asp?Sistema=' + Sistema+ '&xparmx=' + ID_COOKIE_KEY,'','toolbar=no, menubar=no, location=no, directories=no, scrollbars=no, width='+ w +', height=' + h +',left='+ l +',top='+ t +', resizeable=no',1);
		Finalizacao.focus();
 	}
 	*/
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ FUNCAO RETORNA PARA O KEYPRESS TRUE OU FALSE DEPENDENDO DA TECLA PRESSIONADA.
function validos(charValidos,xevent){
  var sFunctionName='validos';
  try{
  	if (charValidos==""){
  	  return true;
  	}
		var keypress;
    if (typeof(xevent.charCode) == 'undefined'){
		  keypress = xevent.keyCode;
    }else{
		  keypress = xevent.charCode;
		  if (keypress==0){
  		  //keypress = xevent.keyCode;
		  }
		}
		
    if (keypress==0){
      return true;
    }
    var carac = String.fromCharCode(keypress);
    //window.status = keypress + ' ' + carac;
    if (findChar(charValidos,carac) == -1){
      if (xevent){
        xevent.returnValue = false;
      }
      if (typeof(xevent.preventDefault) != 'undefined'){
    	  xevent.preventDefault();
      }
	    return false;
	  }
	  return true;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ FUNCAO QUE LOCALIZA CARACTER DENTRO DA STRING
function findChar(s,c){
  var sFunctionName='findChar';
  try{
    var i;
    for (i=0; i<s.length; i++){
      if (s.charAt(i) == c){
        return i;
      }
    }
    return -1;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ FUNCAO QUE SÓ PERMITE LETRAS MAIÚSCULAS NO OBJETO
function UpperKeyValid(obj,strValida,xevent){
	var sFunctionName='UpperKeyValid';
  try{
		if (obj.InGrid == 'S'){
			var linha = obj.parentElement.parentElement;
			linha.InFocus = 'N';
		}
		if (obj.readOnly){
		    xevent.returnValue = false;
        if (typeof(xevent.preventDefault) != 'undefined'){
          xevent.preventDefault();
        }
		    return false;			
		}
		var keypress;
	 if (typeof(xevent.charCode) == 'undefined'){
		  keypress = xevent.keyCode;
    }else{
		  keypress = xevent.charCode;
	 }
    if (keypress==0){
      return true;
    }
		var carac = String.fromCharCode(keypress);
		var objName = obj.id.toUpperCase();
		if (keypress >= jsKeyA && keypress <= jsKeyZ){
		  keypress = keypress - 32;
		  carac = String.fromCharCode(keypress);
		}
		if (strValida == '' || subleft(strValida,1) == '+'){
		  if (subleft(strValida,1) == '+'){
				 strValida = strValida.substr(1,strValida.length);
		  }
		  strValida = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789.' + strValida
		  if (inStr(objName,'EMAIL') > -1){
		 	 strValida = strValida + '@-_'
		  }
		}
		if (keypress != jsKeyReturn && strValida != ''){
		  if (findChar(strValida,carac) == -1){
		    xevent.returnValue = false;
        if (typeof(xevent.preventDefault) != 'undefined'){
          xevent.preventDefault();
        }
		    return false;
		  }
		}
		if (typeof(xevent.preventDefault) != 'undefined'){
      xevent.preventDefault();
      var oldSelectionStart = obj.selectionStart;
      var oldSelectionEnd = obj.selectionEnd;
      var selectedText = obj.value.substring(oldSelectionStart,oldSelectionEnd);
      obj.value = obj.value.substring(0, oldSelectionStart) +
                  carac +
                  obj.value.substring(oldSelectionEnd);
                  obj.setSelectionRange(oldSelectionStart + 1,oldSelectionStart + 1);
		}else{
  		xevent.keyCode = keypress;
  		if (subleft(obj.value,1) == ' '){
  			obj.value = obj.value.substr(1);
  		}
		}
		//Se obj for campo de email não repetir o arroba	
		if ((obj.datatype == "eml") && (carac == "@")){
		  if (findChar(obj.value,carac) > 0 ){
		    xevent.returnValue = false;			
	      if (typeof(xevent.preventDefault) != 'undefined'){
	    	  xevent.preventDefault();
	      }
		  }					
		}
		return true;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function NumeroData(obj,xevent){
  var sFunctionName='NumeroData';
  try{
		return(validos('0123456789/',xevent));
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fValidaTexto(obj,xevent){
  var sFunctionName='fValidaTexto';
  try{
		return(UpperKeyValid(obj,'ABCDEFGHIJKLMNOPQRSTUVWXYZ ',xevent));
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fValidaTextoUsuario(obj,xevent,pCliente){
  var sFunctionName='fValidaTexto';
  try{
	 // ID CREF
	 if (pCliente==37 || pCliente==36){
		 return(UpperKeyValid(obj,'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_ ',xevent));
	 }else{
		 return(UpperKeyValid(obj,'ABCDEFGHIJKLMNOPQRSTUVWXYZ ',xevent));
	 }
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fNumeroTexto(obj,xevent){
  var sFunctionName='fNumeroTexto';
  try{
		return(UpperKeyValid(obj,'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ',xevent));
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fTextoLivre(obj,xevent){
  var sFunctionName='fNumTexEsp';
  try{
		return(UpperKeyValid(obj,'',xevent));
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function Number(obj,xevent){
  var sFunctionName='Number';
  try{
		validos('0123456789',xevent);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fDigEmail(obj,xevent){
  var sFunctionName='fDigEmail';
  try{
		return(UpperKeyValid(obj,'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ@._-',xevent));
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//FUNÇÕES P/ FORMATAR E VALIDAR OS CAMPOS TIPO "VAL -> MOEDA"
function NumeroMoeda(obj,xevent){
  var sFunctionName='NumeroMoeda';
  try{

		var keypress;

    if (typeof(xevent.charCode) == 'undefined'){
		  keypress = xevent.keyCode;
    }else{
		  keypress = xevent.charCode;
		}
    
    if (keypress==0){
      return true;
    }

		if (xevent.keyCode == jsKeyDotch){
		  if (typeof(xevent.preventDefault) == 'undefined'){
			  xevent.keyCode = jsKeyComma;
		  }
		}
		validos('0123456789,',xevent);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function ValidaMoeda(valor,qtde_decimal){
  var sFunctionName='ValidaMoeda';
  try{
		var result  = '';
		var caracter = '';
		var i;
		var qtdevirgula = 0;
		var pos_virgula = 0;
		var val_inteiro = 0;
		var val_decimal = 0;
		valor = valor + '';
		if (valor != ''){
			for (i=0; i < valor.length; i++){
				caracter=valor.charAt(i);
				if (caracter == ','){
					qtdevirgula = qtdevirgula + 1
					if (qtdevirgula <= 1){
						if (i==0){
							result = '0' + caracter;
							pos_virgula = 1
						}else{
							result = result + caracter;
							pos_virgula = i
						}
					}
				}else{
					result = result + caracter;
				}
			}
			if ((qtdevirgula == 0) && (result != '')){
				val_inteiro = result.substr(0,valor.length);
				val_decimal = subleft("0000000000",qtde_decimal);
			}else{
				val_inteiro = result.substr(0,pos_virgula);
				val_decimal = subleft(result.substr(pos_virgula+1,qtde_decimal) + "0000000000",qtde_decimal);
			}
			val_inteiro = FormataInteiro(val_inteiro);
			result = val_inteiro + ',' + val_decimal;
		}else{
			result = '0000000000000000';
			result = '0,' + subleft(result,qtde_decimal);
		}
		return(result);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function FormataInteiro(valor){
  var sFunctionName = 'FormataInteiro';
  try{
		var result='';
		var valor1='';
		var i = 0;
		var v;
		var arrfinal = new Array();
		var primeiro_array='';
		var val_array='';
		arrfinal[10] = new Array(10);
		valor1 = sonumero(valor);
		while (valor1.length > 0){
			i++;
			arrfinal[i] = subright(valor1,3);
			valor1 = subleft(valor1,valor1.length - 3);
		}
		primeiro_array = i
		for (v=i; v>=1; v--){
			val_array = arrfinal[v];
			if ((val_array.length == 3) && (v < primeiro_array)){
				arrfinal[v] = '.' + arrfinal[v];
			}
			result += arrfinal[v];
		}
		return(result);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//Funcao Para Insersão de Informação de Carregando.
function fShowAguarde(){
  var sFunctionName='fShowAguarde';
  try{
		if (typeof(document.all.tdTitulo) == 'object'){
			document.all.tdTitulo.align='right';
			if (typeof(document.all.tdTitulo.conteudo) == 'string'){
			  document.all.tdTitulo.innerHTML = document.all.tdTitulo.conteudo;
			}
			document.all.tdTitulo.conteudo = document.all.tdTitulo.innerHTML;
			document.all.tdTitulo.innerHTML = '<img src="'+pathJS+'images/tdAguarde.gif">';
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//Funcao Para Tirar a Informação de Carregando.
function fHideAguarde(){
  var sFunctionName='fHideAguarde';
  try{
		if (typeof(document.all.tdTitulo) == 'object'){
			if (typeof(document.all.tdTitulo.conteudo) == 'string'){
				document.all.tdTitulo.align = 'left';
				document.all.tdTitulo.innerHTML = document.all.tdTitulo.conteudo;
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//Desabilita os botoes da tela tipo imagem
function DesabilitaBotoes(sOpt){
  var sFunctionName='DesabilitaBotoes';
  try{
		if (sOpt!='KeepOnScreen'){
			fShowAguarde();
		}
		MakeImageButtonClick = 1;
		var i;
		var Botao;
		var ColImg = document.getElementsByTagName('IMG');
		var NomeBotao;
		for (i=0;i<ColImg.length;i++){
			Botao = ColImg[i];
			if (typeof(Botao) == 'object'){
				NomeBotao = Botao.id;
				if(subleft(NomeBotao,3) == 'cmd' || subleft(NomeBotao,3) == 'btn'){
					if (Botao.style.visibility != 'hidden' && Botao.style.display != 'none'){
						DisabledImageButton2(Botao,true);
					}
				}
			}
		}
		var ColOptButton = document.getElementsByTagName('LABEL');
		for (i=0;i<ColOptButton.length;i++){
			Botao = ColOptButton[i];
			if (typeof(Botao) == 'object'){
				NomeBotao = Botao.id;
				if(subleft(NomeBotao,3) == 'cmd' || subleft(NomeBotao,3) == 'btn'){
					if (Botao.style.visibility != 'hidden' && Botao.style.display != 'none'){
						DisabledOptionButton(Botao,true);
					}
				}
			}
		}
		var ColDIVs = document.getElementsByTagName('DIV');
		for (i=0;i<ColDIVs.length;i++){
			Botao = ColDIVs[i];
			if (typeof(Botao) == 'object'){
				NomeBotao = Botao.id;
				if (subleft(NomeBotao,3) == 'cmd'){
					if (Botao.style.visibility != 'hidden' && Botao.style.display != 'none'){
						DisabledObj(Botao,true);
					}
				}
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//Habilita os botoes da tela tipo imagem
function HabilitaBotoes(){
  var sFunctionName='HabilitaBotoes';
  try{
		fHideAguarde();
		var i, Botao, NomeBotao;
		var ColImg = document.getElementsByTagName('IMG');
		for (i=0;i<ColImg.length;i++){
			Botao = ColImg[i];
			if (typeof(Botao)=="object"){
				NomeBotao = Botao.id;
				if(subleft(NomeBotao,3) == 'cmd' || subleft(NomeBotao,3) == 'btn'){
					if (Botao.style.visibility != 'hidden' && Botao.style.display != 'none'){
						DisabledImageButton2(Botao,false);
					}
				}
			}
		}
		var ColOptButton = document.getElementsByTagName('LABEL');
		for (i=0;i<ColOptButton.length;i++){
			Botao = ColOptButton[i];
			if (typeof(Botao) == 'object'){
				NomeBotao = Botao.id;
				if(subleft(NomeBotao,3) == 'cmd' || subleft(NomeBotao,3) == 'btn'){
					if (Botao.style.visibility != 'hidden' && Botao.style.display != 'none'){
						DisabledOptionButton(Botao,false);
					}
				}
			}
		}
		var ColDIVs = document.getElementsByTagName('DIV');
		for (i=0;i<ColDIVs.length;i++){
			Botao = ColDIVs[i];
			if (typeof(Botao) == 'object'){
				NomeBotao = Botao.id;
				if (subleft(NomeBotao,3) == 'cmd'){
					if (Botao.style.visibility != 'hidden' && Botao.style.display != 'none'){
						DisabledObj(Botao,false);
					}
				}
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//Desabilita os botoes da tela tipo imagem para um determinado ID
function HabilitaBotoesID(oID,bHabilita){
	// MOZILLA - KIMBLE
	// AS VEZES O PARAMETRO oID NÃO É OBJETO, POREM O OBJETO EXISTE
  var sFunctionName='HabilitaBotoesID';
  try{
		var i;
		var Botao;
		var ColImg;
		var NomeBotao;
		var sTag, x;

    for (x=0;x<2;x++){
      if (x==0){
        sTag = 'IMG'
      }else{
        sTag = 'LABEL'
      }
		  var ColImg = oID.getElementsByTagName(sTag);
		  for (i=0;i<ColImg.length;i++){
		  	Botao = ColImg[i];
		  	if (typeof(Botao) == 'object'){
		  		NomeBotao = Botao.id;
		  		if(subleft(NomeBotao,3) == 'cmd' || subleft(NomeBotao,3) == 'btn'){
		  			if (Botao.style.visibility != 'hidden' && Botao.style.display != 'none' && Botao.getAttribute('imgStatus') != 'D' ){
		  				if (sTag == 'IMG'){
		  				  DisabledImageButton2(Botao,!bHabilita);
		  				}else{
		  				  DisabledOptionButton(Botao,!bHabilita);
		  				}
		  			}
		  		}
		  	}
		  }
    }
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

// ARREDONDA O NUMERO PARA AS CASAS DECIMAIS PASSADAS COMO PARAMETRO - url
function round(number,X){
  var sFunctionName='round';
  try{
    // rounds number to X decimal places, defaults to 2
	  X = (!X ? 0 : X);
	  return Math.round(number*Math.pow(10,X))/Math.pow(10,X);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

// FORMATA UMA STRING  - url
function FormataMoeda(valor, blnUnidade){
  var sFunctionName='FormataMoeda';
  try{
	  var indPontoDec;                                // localizacao do ponto decimal
	  var valorLimpo = "";                        // valor filtrado (apenas numeros e virgula)
	  var cont = 0;                                // contador
	  var indPonto = 0;                        // localizacao do último ponto
	  var indVirgula = 0;                        // localizacao da última virgula
	  var numero = "0123456789";        // domínio de dígitos válidos
	  var qtPonto = 0;                                // qtde de pontos de milhar
	  var qtResto = 0;                                // resto de indPontoDec / 3
	  var limite = 0;                                // limite da colocação do ponto de milhar
	  valor = valor + '';

		// descobre qual o último separador que está sendo utilizado
	  indVirgula = valor.lastIndexOf(',');
	  indPonto = valor.lastIndexOf('.');
	  if (indVirgula == indPonto)
	    indPontoDec = -1;
	  else
	    if (indVirgula > indPonto)
	      indPontoDec = indVirgula;
	    else
	      indPontoDec = indPonto;

	  //Arredonda os números com mais de duas casas decimais para cima
	  if (indPontoDec < valor.length - 3 && indPontoDec > -1){
	    aux = parseFloat (valor) + 0.01;
	    valor = "0" + aux;

	    indVirgula = valor.lastIndexOf(',');
	    indPonto = valor.lastIndexOf('.');
	    if (indVirgula == indPonto)
	      indPontoDec = -1;
	    else
	      if (indVirgula > indPonto)
	        indPontoDec = indVirgula;
	      else
	        indPontoDec = indPonto;
	    valor = valor.substring (0, indPontoDec + 3)
	  }

		// limpa dígitos não numéricos do valor
	  for (cont=0; cont < valor.length; cont++){
	    if (numero.indexOf(valor.charAt(cont)) != -1)
	      valorLimpo += valor.charAt(cont);
      // substitui ponto decimal por vírgula
	    if (cont+1 == indPontoDec){
	      cont++;
	      valorLimpo += ',';
      }else
	      if ((cont==0) && (indPontoDec==0))
	        valorLimpo += ',';
	  }

	  if (valorLimpo.indexOf(",") == -1)
	    valorLimpo += ",00";
	  if (valorLimpo.indexOf(",") == valorLimpo.length-1)
	    valorLimpo += "00";
	  if (valorLimpo.indexOf(",") == valorLimpo.length-2)
	    valorLimpo += "0";

		// retira zeros à esquerda
		while (valorLimpo.charAt(0)=='0')
		  valorLimpo = valorLimpo.substring(1, valorLimpo.length);

    // transforma ",xx" em "0,xx"
	  if (valorLimpo.charAt(0)==',')
	    valorLimpo = '0' + valorLimpo;

    // coloca separação de milhar
	  indPontoDec = valorLimpo.lastIndexOf(',');
	  qtPonto = Math.floor(indPontoDec/3);
	  qtResto = indPontoDec%3;
	  if (qtResto==0)
	    limite=1;
	  else
	    limite=0;
	  for (cont=qtPonto-1; cont >= limite; cont--)
	    valorLimpo = valorLimpo.substring(0, qtResto + cont*3) + '.' + valorLimpo.substring(qtResto + cont*3, valorLimpo.length);
	  return valorLimpo;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function FormataDecimal(valor, blnUnidade){
  var sFunctionName='FormataDecimal';
  try{
	  var indPontoDec;                                // localizacao do ponto decimal
	  var valorLimpo = "";                        // valor filtrado (apenas numeros e virgula)
	  var cont = 0;                                // contador
	  var indPonto = 0;                        // localizacao do último ponto
	  var indVirgula = 0;                        // localizacao da última virgula
	  var numero = "0123456789";        // domínio de dígitos válidos
	  var qtPonto = 0;                                // qtde de pontos de milhar
	  var qtResto = 0;                                // resto de indPontoDec / 3
	  var limite = 0;                                // limite da colocação do ponto de milhar

	  // descobre qual o último separador que está sendo utilizado
		indPontoDec = valor.lastIndexOf(',');

		// limpa dígitos não numéricos do valor
	  for (cont=0; cont < valor.length; cont++){
	    if (numero.indexOf(valor.charAt(cont)) != -1)
	      valorLimpo += valor.charAt(cont);
        // substitui ponto decimal por vírgula
	      if (cont+1 == indPontoDec){
	        cont++;
	        valorLimpo += '.';
	      }else
	        if ((cont==0) && (indPontoDec==0))
	          valorLimpo += '.';
	  }
	  if (valorLimpo.indexOf(".") == -1)
	    valorLimpo += ",00";
	  if (valorLimpo.indexOf(".") == valorLimpo.length-1)
	    valorLimpo += "00";
	  if (valorLimpo.indexOf(".") == valorLimpo.length-2)
	    valorLimpo += "0";

	  // retira zeros à esquerda
	  while (valorLimpo.charAt(0)=='0')
	    valorLimpo = valorLimpo.substring(1, valorLimpo.length);

		// transforma ",xx" em "0,xx"
	  if (valorLimpo.charAt(0)=='.')
	    valorLimpo = '0' + valorLimpo;
	  return valorLimpo;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

// FORMATA UM NÚMERO JAVASCRIPT COM X CASAS DECIMAIS.
function FormataTaxa(valor, nDigDec){
  var sFunctionName='FormataTaxa';
  try{
		valor = round(valor,nDigDec);
	  var indPontoDec;                                // localizacao do ponto decimal
	  var valorLimpo = "";                        // valor filtrado (apenas numeros e virgula)
	  var cont = 0;                                // contador
	  var indPonto = 0;                        // localizacao do último ponto
	  var indVirgula = 0;                        // localizacao da última virgula
	  var numero = "0123456789";        // domínio de dígitos válidos
	  var qtPonto = 0;                                // qtde de pontos de milhar
	  var qtResto = 0;                                // resto de indPontoDec / 3
	  var limite = 0;                                // limite da colocação do ponto de milhar
	  valor = valor + '';

		// descobre qual o último separador que está sendo utilizado
	  indVirgula = valor.lastIndexOf(',');
	  indPonto = valor.lastIndexOf('.');
	  if (indVirgula == indPonto){
	    indPontoDec = -1;
	  }else if (indVirgula > indPonto){
			indPontoDec = indVirgula;
		}else{
			indPontoDec = indPonto;
		}

		// limpa dígitos não numéricos do valor
	  for (cont=0; cont < valor.length; cont++){
	    if (numero.indexOf(valor.charAt(cont)) != -1){
	      valorLimpo += valor.charAt(cont);
			}
      // substitui ponto decimal por vírgula
	    if (cont+1 == indPontoDec){
	      cont++;
	      valorLimpo += ',';
      }else if ((cont==0) && (indPontoDec==0)){
	      valorLimpo += ',';
			}
	  }

		// retira zeros à esquerda
		while (valorLimpo.charAt(0)=='0'){
		  valorLimpo = valorLimpo.substring(1, valorLimpo.length);
		}

    // transforma ",xx" em "0,xx"
	  if (valorLimpo.charAt(0)==','){
	    valorLimpo = '0' + valorLimpo;
		}

    // coloca separação de milhar
	  indPontoDec = valorLimpo.lastIndexOf(',');
	  qtPonto = Math.floor(indPontoDec/3);
	  qtResto = indPontoDec%3;
	  if (qtResto==0){
	    limite=1;
	  }else{
	    limite=0;
		}
	  for (cont=qtPonto-1; cont >= limite; cont--){
	    valorLimpo = valorLimpo.substring(0, qtResto + cont*3) + '.' + valorLimpo.substring(qtResto + cont*3, valorLimpo.length);
		}

		//formata casas decimais
	  indPontoDec = valorLimpo.lastIndexOf(',');
		if (nDigDec == null || nDigDec == 0){
			valorLimpo = valorLimpo.substring(0,indPontoDec);
		}else{
			strDigDec = valorLimpo.substring(indPontoDec+1,valorLimpo.length);
			for (cont=0; cont < nDigDec-strDigDec.length; cont++){
				valorLimpo += '0';
			}
			valorLimpo = valorLimpo.substring(0,indPontoDec+1+nDigDec);
		}
	  return valorLimpo;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ FUNÇÃO QUE TROCA O CURSOR DO MOUSE
function CursorWait(acao){
  var sFunctionName='CursorWait';
  try{
		if (acao == "N"){
			window.document.body.style.cursor='auto';
		}else{
			window.document.body.style.cursor='wait';
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//*************************************************
function WaitingON(){
  var sFunctionName='WaitingON';
  try{
		document.onmousemove=newPos;
		document.all.CUR0.style.visibility='visible';
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

// ABRE UMA NOVA JANELA PARA O ENDEREÇO - url
function abre(url){
  var sFunctionName='abre';
  try{
		var newWindow;
		newWindow = window.open(url);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

// DESLIGA CURSOR DE WAITING SERVER
function WaitingOFF(){
  var sFunctionName='WaitingOFF';
  try{
		document.all.CUR0.style.visibility='hidden';
		//document.layers.visibility='hidden';
		document.onmousemove=mouseMove;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

// BOTAO HOME DA TOOLBAR
function goHome(raiz){
  var sFunctionName='goHome';
  try{
    //SSI 18086 - DANILO - 26/11/2009
		//document.location.replace(raiz + 'EntradaSistema.asp'+'?xparmx=' + ID_COOKIE_KEY);
		document.location.replace(raiz + 'EntradaSistema.asp');
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

// BOTAO ENCONTRAR CLIENTES DA TOOLBAR
function goFindPeople(raiz,tipoNavegacao){
  var sFunctionName='goFindPeople';
  try{ 
		if (tipoNavegacao == "N"){
			//SSI 18086 - DANILO - 26/11/2009
			//document.location.replace(raiz + 'TCentralCredito/SelecaoCliente.asp'+'?xparmx=' + ID_COOKIE_KEY);
			document.location.replace(raiz + 'TCentralCredito/SelecaoCliente.asp');
		}else{
			if (tipoNavegacao == "P"){
				//SSI 18086 - DANILO - 26/11/2009
				//document.location.replace(raiz + 'TCentralCredito/MultiLoja.asp'+'?xparmx=' + ID_COOKIE_KEY);
				document.location.replace(raiz + 'TCentralCredito/MultiLoja.asp');
			}else{
				if (tipoNavegacao == "Q"){
					//SSI 18086 - DANILO - 26/11/2009
					//document.location.replace(raiz + 'QCaixa/SelecaoCliente.asp'+'?xparmx=' + ID_COOKIE_KEY);
					document.location.replace(raiz + 'QCaixa/SelecaoCliente.asp');
				}else{
					if (tipoNavegacao == "C"){
						//SSI 18086 - DANILO - 26/11/2009
						//document.location.replace(raiz + 'SPCCheques/ConsultaCheques.asp'+'?xparmx=' + ID_COOKIE_KEY);
						document.location.replace(raiz + 'SPCCheques/ConsultaCheques.asp');
					}
				}
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//Procura variavel codigo dentro da matriz
function fGetCodigoByValor(aArray,nI,xValor){
  var sFunctionName='fGetCodigoByValor';
  try{
	  var idx,tam;
	  tam = aArray.length;
	  for (idx=0; idx<tam; idx++){
	    if (aArray[idx][nI] == xValor){
	      return(idx);
	    }
	  }
	  return(-1);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fSetProperty(oObj,sProperty,pValue){
  var sFunctionName='fSetProperty';
  try{
	  var sAux = '';
		var nIni = 1;
		var nFim = 1;
		if (typeof(oObj) == 'object'){
			if (typeof(oObj.id) == 'undefined'){
				nFim = oObj.length;
			}else{
				if (subleft(oObj.id,2) != 'cm'){
  				if (typeof(oObj.length) == 'number'){
  					nFim = oObj.length;
  				}
				}
			}
			for (nObj=nIni;nObj<=nFim;nObj++){
				if (nFim > 1){
					objTemp = oObj[nObj-1];
				}else{
					objTemp = oObj;
				}
				bObj = true;
				if (objTemp.tagName == 'DIV'){
				  objTemp = eval('td'+objTemp.id);
				  bObj = (typeof(objTemp) == 'object');
				}
				if (bObj){
				  if ((inStr(sProperty,'.') > -1) || (sProperty == "value")){
  				  if (typeof(pValue) == 'string'){
  				     sAux = "objTemp." +  sProperty + " = '" + pValue + "'";
  				  }else{
  				     sAux = "objTemp." +  sProperty + " = " + pValue;
				    }
				    eval(sAux);
				  }else{
				    objTemp.setAttribute(sProperty,pValue);
				  }
				}
			}
		}
		return true;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fGetProperty(oObj,sProperty){
  var sFunctionName='fGetProperty';
  try{
	  var sGet = '';
	  var sAux = '';
		var nIni = 1;
		var nFim = 1;
		if (typeof(oObj) == 'object'){
			if (typeof(oObj.id) == 'undefined'){
				nFim = oObj.length;
			}else{
				if (subleft(oObj.id,2) != 'cm'){
  				if (typeof(oObj.length) == 'number'){
  					nFim = oObj.length;
  				}
				}
			}
			for (nObj=nIni;nObj<=nFim;nObj++){
				if (nFim > 1){
					objTemp = oObj[nObj-1];
				}else{
					objTemp = oObj;
				}
				bObj = true;
				if (bObj){
  				if (sProperty == 'value'){
  				  sGet = objTemp.value;
  				}else if (sProperty == 'checked'){
  				  sGet = objTemp.checked;
  				}else if (sProperty == 'selected'){
  				  sGet = objTemp.selected;
  				}else if (inStr(sProperty,'.') > 0){
  				  eval('sGet = objTemp.' +  sProperty);
  				}else{
  					sAux = objTemp.getAttribute(sProperty);
						if (nFim > 1){
							sAux = sAux + ';';
						}else{
							sGet = sAux;
  					}
  				}
  			}
  		}
		}
		return sGet;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fGetValue(oObj){
  var sFunctionName='fGetValue';
  try{
	  var sGet = '';
		if (typeof(oObj) == 'object'){
		  sGet = oObj.value;
		}
		return sGet;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fExecMethod(oObj,sMethod){
  var sFunctionName='fExecMethod';
  try{
  	var lRet = false;
		if (typeof(oObj) == 'object'){
			if (sMethod == 'focus()'){
				if (oObj.focus){
		      eval('oObj.' +  sMethod);
  		    lRet = true;
				}
			}else{
				eval('oObj.' +  sMethod);
				lRet = true;
			}
		}
 		return(lRet);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function DisabledButton(Obj,pAcao){
  var sFunctionName='DisabledButton';
  try{
		if (typeof(Obj) == 'object'){
			if (pAcao){
				Obj.style.cursor = 'default';
			}else{
				Obj.style.cursor = 'hand';
			}
			Obj.disabled = pAcao;
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function DisabledChkGrid(Obj,pAcao){
  var sFunctionName='DisabledChkGrid';
  try{
		if (typeof(Obj) == 'object'){
			if (pAcao){
				Obj.style.cursor = 'default';
			}else{
				Obj.style.cursor = 'crosshair';
			}
			Obj.disabled = pAcao;
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function ObjVisible(Obj){
  var sFunctionName='ObjVisible';
  try{
		if (typeof(Obj) == 'object'){
			if (Obj.style.display == 'none'){
				return false;
			}else{
				return true;
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function ObjDisabled(obj){
  var sFunctionName='ObjDisabled';
  try{
		if (typeof(Obj) == 'object'){
			if (obj.style.filter == 'gray'){
				return false;
			}else{
				return true;
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}


// FUNÇÃO ESCONDE CAMPOS
function HideObj(Obj,pAcao){
  var sFunctionName='HideObj';
  try{
		if (typeof(Obj) == 'object'){
			var nomeCampo = Obj.id;
			Label = eval('document.all.lbl' + nomeCampo);
			if (typeof(Label) != 'object'){
				Label = eval('document.all.lblpos' + nomeCampo);
			}
			if (typeof(Label) == 'object'){
				if (pAcao){
					//Label.style.visibility = 'hidden';
					Label.style.display = 'none';
				}else{
					//Label.style.visibility = 'visible';
					Label.style.display = '';
				}
			}
			if (pAcao){
				Obj.style.display = 'none';
			}else{
				Obj.style.display = '';
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function DisabledObjIfEmpty(objCampo,Acao){
  var sFunctionName='DisabledObjIfEmpty';
  try{
		if (typeof(objCampo) == 'object'){
			if (objCampo.value != ''){
				DisabledObj(objCampo,Acao);
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function DisableObjByType2(tag,acao){
  DisableObjByTypeNew(tag,acao,false);
}

function RestauraStatusVisivel(obj,tag){
  var sFunctionName='RestauraStatusVisivel';
  try{
		var i, sProperty;
		var colecao = obj.getElementsByTagName(tag);
		for (i=0;i<colecao.length;i++){
		  sProperty = fGetProperty(colecao[i],'StatusVisivel');
			if (sProperty == 'S'){
				DisabledObj( colecao[i], false );
        fSetProperty(colecao[i],'StatusVisivel', '');
      }else if (sProperty == 'N'){
				DisabledObj( colecao[i], true );
        fSetProperty(colecao[i],'StatusVisivel', '');
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//Habilita/Desabilita colecao de objetos pelo tipo
function DisableObjByTypeNew(tag,acao,salva){
  var sFunctionName='DisableObjByTypeNew';
  try{
		var i;
		var colecao = document.getElementsByTagName(tag);
		for (i=0;i<colecao.length;i++){
			if (colecao[i].type != 'hidden'){
				if (acao){
					if (colecao[i].readOnly || colecao[i].disabled){
						//nada a fazer
					}else{
						DisabledObj( colecao[i], true );
						if (salva){
              fSetProperty(colecao[i],'StatusVisivel', 'S');
						}
					}
				}else{
					if (colecao[i].readOnly || colecao[i].disabled){
						DisabledObj( colecao[i], false );
						// ID 036 30012009 - MAYCK
						/*if (salva){
              fSetProperty(colecao[i],'StatusVisivel', 'N');
						}*/
						if(salva && fGetProperty(colecao[i],'StatusVisivel') != 'S'){
              fSetProperty(colecao[i],'StatusVisivel', 'N');
						}
					}else{
						//nada a fazer
					}
				}
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}


// FUNÇÃO DESABILITA/HABILITA CAMPOS
function DisabledObj(objCampo,Acao){
  var sFunctionName='DisabledObj';
  try{
		var color;
		var nomeLabel,objLabel;
		var nomeCampo,tipoCampo;
		var tipoObj;
		var sufixo;
		if (typeof(objCampo) == 'object'){
			tipoCampo = subleft(objCampo.id,3);		
		  if (objCampo.tagName == 'DIV'){
		    if ( typeof(eval('document.all.td'+objCampo.id)) == 'object'){
		      var objtd = eval('document.all.td'+objCampo.id);
		    }else{
		      var objtd = eval('window.parent.document.all.td'+objCampo.id);
		    }
		    if (Acao){
		      objtd.style.fontStyle = 'italic';
		      objtd.style.color = '#c0c0c0';
		      objCampo.setAttribute('ondi','Desabilitado');
		      objCampo.onmouseover = new Function("this.style.cursor='default';");
		      objCampo.onmouseout = new Function("this.style.cursor='hand';");
		    }else{
		      objCampo.onmouseover = new Function("this.style.cursor='hand';");
		      objCampo.onmouseout = new Function("this.style.cursor='default';");
		      objtd.style.fontStyle = 'normal';
		      objtd.style.color = '#ffffff';
		      objCampo.setAttribute('ondi','');
		    }
		    return true;
		  }else{
				if (objCampo.tagName != 'LABEL'){
					tipoObj = objCampo.type;
					tipoObj = tipoObj.toUpperCase();
					if (tipoCampo != 'lbl'){
						if (tipoObj.substr(0,6) == 'SELECT' || tipoObj == 'CHECKBOX' || tipoObj == 'RADIO' || tipoObj == 'BUTTON' || tipoCampo == 'btn' || tipoCampo == 'cmd'){
							objCampo.disabled = Acao;
						}else{
							objCampo.readOnly = Acao;
						}
					}
				}
		  }
			nomeClass = objCampo.className;
			if ((objCampo.type == "text") || (objCampo.type == "password")){
				sufixo = subright(nomeClass,4);
				if (sufixo != 'Left'){
				  sufixo = subright(nomeClass,5);
				  if (sufixo != 'Right'){
				    sufixo = subright(nomeClass,6);
				  }
				}
			}
		  nomeCampo = objCampo.id;
			if (tipoCampo != 'lbl'){
				objLabel = eval('document.all.lbl' + nomeCampo);
				if (typeof(objLabel) != 'object'){
					//SSI 18686 - DANILO - 01/07/2010
					objLabel = eval('document.all.lbl' + nomeCampo);
				}
				objImgPesquisa = eval('document.all.img' + nomeCampo);
				if (typeof(objImgPesquisa) != 'object'){
					//SSI 18686 - DANILO - 01/07/2010
					objImgPesquisa = eval('document.all.img' + nomeCampo);
				}
			}else{
				objLabel = objCampo;
			}
			if (Acao){
				if (tipoCampo != 'lbl'){
					if (tipoCampo != 'opt' && tipoCampo != 'chk'){
						if (tipoCampo == 'tex'){
							objCampo.className = 'textDisable';
						}else if (subleft(nomeClass,4) == 'make'){
						  if (nomeClass != 'makeButton'){
							  objCampo.className = 'makeDisable' + sufixo;
						  }
						}
						if (nomeClass != 'makeButton'){
						  objCampo.style.color = '#555555';
      			  objCampo.style.backgroundColor = '#EBEBEB';
            }
					}else{
      			objCampo.style.backgroundColor = '#C0C0C0';
          }
				}
				if (typeof(objLabel) == 'object'){
					objLabel.className = 'makeLabelDisable';
				}
				if (typeof(objImgPesquisa) == 'object'){
					DisabledImageButton('document.all',objImgPesquisa.id,'S');
				}
			}else{
				if (tipoCampo != 'lbl'){
					if ((tipoCampo != 'opt') && (tipoCampo != 'chk')){
						if (tipoCampo == 'tex'){
							objCampo.className = 'textDescription';
						}else if (subleft(nomeClass,4) == 'make'){
						  if (nomeClass != 'makeButton'){
							  objCampo.className = 'makeEnable' + sufixo;
							}
						}
						if (nomeClass != 'makeButton'){
						  objCampo.style.color = '#000000';
						  objCampo.style.backgroundColor = '#ffffff';
            }
					}else{
						objCampo.style.backgroundColor = 'transparent';
					}
				}
				if (typeof(objLabel) == 'object'){
					objLabel.className = 'makeLabelEnable';
				}
				if (typeof(objImgPesquisa) == 'object'){
					DisabledImageButton('document.all',objImgPesquisa.id,'N');
				}
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//Desabilita colecao de objetos pelo tipo
function DisableObjByType(tag){
  var sFunctionName='DisableObjByType';
  try{
		var i;
		var colecao = document.getElementsByTagName(tag);
		for (i=0;i<colecao.length;i++){
			if (colecao[i].type != 'hidden'){
				DisabledObj( colecao[i], true );
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function EnableObjByType(tag){
  var sFunctionName='EnableObjByType';
  try{
		var i;
		var colecao = document.getElementsByTagName(tag);
		for (i=0;i<colecao.length;i++){
			if (colecao[i].type != 'hidden'){
				DisabledObj( colecao[i], false );
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//Seleciona Option do Combo Delimitado
function selecionaComboDelimitado(valor,delim,param,obj){
  var sFunctionName='selecionaComboDelimitado';
  try{
		var i,tam;
		var opt;
		var found = -1;
		if (typeof(obj) == 'object'){
			if (valor != null && valor != '' && obj != null && obj != ''){
				tam = obj.length;
				for (i = 0; i < tam; i++){
					if (valor == getParamDelimited(obj[i].value,delim,param)){
						found = i;
						break;
					}
				}
			}
			obj.selectedIndex = found;
		}
		return found;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//Seleciona Option do Combo
function selecionaCombo(valor,obj){
  var sFunctionName='selecionaCombo';
  try{
		var i,tam;
		var opt;
		var found = '';
		if (typeof(obj) == 'object'){
			if (valor != null && valor != '' && obj != null && obj != ''){
				tam = obj.length;
				for (i = 0; i < tam; i++){
					if (valor == obj[i].value){
						found = i;
						break;
					}
				}
			}
			obj.selectedIndex = found;
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//Seleciona Option do Combo qdo o valor do combo é composto por outros valores
// lado = L -> subleft   R-> subright
function selecionaComboEspecial(valor,obj,lado,casas){
  var sFunctionName='selecionaComboEspecial';
  try{
		var i,tam;
		var opt;
		var found = '';
		var ValorObj ='';
		var novoValorObj ='';
		if (typeof(obj) == 'object'){
		if (valor != null && valor != '' && obj != null && obj != ''){
			tam = obj.length;
			for (i = 0; i < tam; i++){
				if ((lado == 'L') && (casas != '')){
					ValorObj = obj[i].value;
					novoValorObj = subleft(ValorObj,casas)	;
				}else{
					if ((lado == 'R') && (casas != '')){
						ValorObj = obj[i].value;
						novoValorObj = subright(ValorObj,casas)	;
					}
				}
				if (valor == novoValorObj){
					found = i;
					break;
				}
			}
		}
		obj.selectedIndex = found;
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//Adiciona Option do Combo
function addCombo(Documento,Texto,Valor,Obj){
  var sFunctionName='addCombo';
  try{
		var oOption = Documento.createElement("OPTION");
		oOption.text = Texto;
		oOption.value = Valor;
		Obj.options.add(oOption);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//Limpa Option do Combo
function clearCombo(Obj){
  var sFunctionName='clearCombo';
  try{
		var qtdeOption = Obj.length;
		for (i=0;i < qtdeOption; i++){
			Obj.remove(0);
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//FUNCAO DE SELECAO DO INPUT
function selecionaCheck(valor,obj){
  var sFunctionName='selecionaCheck';
  try{
		var i,tam;
		var opt, item, pos;
		if (valor != null && valor != '' && obj != null && obj != ''){
			tam = obj.length;
			while(valor.length > 0){
				pos = valor.search(";");
				if (pos < 0){
					return
				}
				item = valor.substring(0,pos);
				for (i = 0; i < tam; i++){
					if (item == obj[i].value){
						obj[i].checked = true;
					}
				}
				valor = valor.substring(pos+1,valor.length)
			}
		}
	}catch(err){
    trataErro(err,sFunctionName);
  }
}

function selecionaRadio(valor,obj){
  var sFunctionName='selecionaRadio';
  try{
	  var i,tam,collection;
		if (valor != null && valor != '' && obj != null && obj != ''){
			collection = document.getElementsByName(obj);
			tam = collection.length;
			for (i=0; i<tam ;i++) {
				if(collection[i].value == valor){
					collection[i].checked = true;
				}
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ FUNCAO QUE RETORNA SE A DATA É VALIDA OU NAO
function isdate(obj){
   var sFunctionName='isdate';
   try{
 		var dateStr
 		var retorno
 		if (obj == null || obj == ''){
 			return false;
 		}
 		dateStr = obj.value;
 		if (dateStr == null || dateStr == ''){
 			return false;
 		}
 		day = dateStr.substr(0,2)*1;
 		month = dateStr.substr(3,2)*1;
 		year = dateStr.substr(6,4)*1;
 		var bFormatAno=0;
 		if (year < 100){
 			bFormatAno=1;
 			if (year < 30){
 				if (year < 10){
 					year="0"+year;
 				}
 				year=("20"+year)*1;
 			}else{
 				year=("19"+year)*1;
 			}
 		}
 		if (day < 1 || day > 31) {
 			alert('Data Inválida !');
 			obj.value = '';
 			obj.focus();
 			return false;
 		}
 		if (month < 1 || month > 12) {
 			alert('Data Inválida !');
 			obj.value = '';
 			obj.focus();
 			return false;
 		}
 		if ((month==4 || month==6 || month==9 || month==11) && day==31) {
 			alert('Data Inválida !');
 			obj.value = '';
 			obj.focus();
 			return false;
 		}
 		if (month == 2) {
 			var isleap = (year % 4 == 0 && (year % 100 != 0 || year % 400 == 0));
 			if (day>29 || (day==29 && !isleap)) {
 				alert('Data Inválida !');
 				obj.value = '';
 				obj.focus();
 				return false;
 			}
 		}
 		if (year < 1800 || year > 2100 ) {
 			alert('Data Inválida !');
 			obj.value = '';
 			obj.focus();
 			return false;
 		}
 		if (bFormatAno == 1){
 			if (day<10){day="0"+day}
 			if (month<10){month="0"+month}
 			obj.value = day+"/"+month+"/"+year;
 		}
 		return true;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ Funcao de conversão de String para Data
function CtoD(cData,cMask){
  var sFunctionName='CtoD';
  try{
	  var dRetorno;
	  var nDia,nMes,nAno;
	  var nHora, nMinuto;
	  cData = '00000000'+sonumero(cData);

		nHora = 0;
		nMinuto = 0;

	  cData = subright(cData,8);
	  if (cMask == "DD/MM/YYYY"){
	    nDia = cData.substr(0,2) * 1;
	    nMes = cData.substr(2,2) * 1;
	    nAno = cData.substr(4,4) * 1;
	  }
	  if (cMask == "MM/DD/YYYY"){
	    nDia = cData.substr(2,2) * 1;
	    nMes = cData.substr(0,2) * 1;
	    nAno = cData.substr(4,4) * 1;
	  }
	  if (cMask == "YYYYMMDD"){
	    nDia = cData.substr(6,2) * 1;
	    nMes = cData.substr(4,2) * 1;
	    nAno = cData.substr(0,4) * 1;
	  }
	  dRetorno = new Date( nAno, nMes-1, nDia, nHora, nMinuto, 0, 0 );
	  return(dRetorno);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ Funcao de Data para String
function DtoC(dData,cMask){
  var sFunctionName='DtoC';
	try{
	  var cRetorno;
	  var nDia,nMes,nAno;
	  cDia = "0"+dData.getDate();
	  cMes = "0"+(dData.getMonth()+1);
	  cAno = dData.getFullYear();
	  if (cMask == "DD/MM/YYYY"){
	    cRetorno = subright(cDia,2)+"/"+subright(cMes,2)+"/"+cAno
	  }
	  if (cMask == "MM/DD/YYYY"){
	    cRetorno = subright(cMes,2)+"/"+subright(cDia,2)+"/"+cAno
	  }
	  if (cMask == "YYYYMMDD"){
	    cRetorno = cAno+subright(cMes,2)+subright(cDia,2)
	  }
	  return(cRetorno)
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ Funcao Remove formatação de Data
function RmFData(data,formato){
  var sFunctionName='RmFData';
  try{
		if (data != ""){
			switch(formato){
				case "AAAAMMDD":
					data = data.substr(6,4) + data.substr(3,2) + data.substr(0,2);
					break;
				case "DDMMAAAA":
					data = data.substr(0,2) + data.substr(3,2) + data.substr(6,4);
					break;
				case "AAAAMM":
					data = data.substr(3,4) + data.substr(0,2);
					break;
				case "MMAAAA":
					data = data.substr(0,2) + data.substr(3,4);
					break;
			}
		}
		return data;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ Funcao Data Atual para String
function DtStr(cMask){
  var sFunctionName='DtStr';
  try{
	  var cRetorno,dData;
	  var nDia,nMes,nAno;
	  dData = new Date();
	  cDia = "0"+dData.getDate();
	  cMes = "0"+(dData.getMonth()+1);
	  cAno = dData.getFullYear();
	  if (cMask == "DD/MM/YYYY"){
	    cRetorno = subright(cDia,2)+"/"+subright(cMes,2)+"/"+cAno
	  }
	  if (cMask == "MM/DD/YYYY"){
	    cRetorno = subright(cMes,2)+"/"+subright(cDia,2)+"/"+cAno
	  }
	  return(cRetorno)
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ Retorna a diferenca em dias entre duas datas.
function fDifDatas(dFirst,dSecond){
  var sFunctionName='fDifDatas';
  try{
	  var nSegundoMili = 1000;
	  var nMinutoMili = (nSegundoMili * 60);
	  var nHoraMili = (nMinutoMili * 60);
	  var nDiaMili = (nHoraMili * 24);
	  var nRetorno = (dFirst - dSecond);
	  //ajuste de horas para o horário de verão
	  if (dSecond.getTimezoneOffset() != dFirst.getTimezoneOffset()){
			var nDiferenca = Math.abs((dSecond.getTimezoneOffset() - dFirst.getTimezoneOffset()) / 60);
			if (dSecond.getTimezoneOffset() < dFirst.getTimezoneOffset()){
				nRetorno -= (nHoraMili * nDiferenca);
			}else{
				nRetorno += (nHoraMili * nDiferenca);
			}
	  }
		return(Math.floor(nRetorno / nDiaMili));
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ VALIDA NUMEROS - TELEFONE
function ValidaNumeroLength(objNumero,nLen,sMsg,sTipo){
  var sFunctionName='ValidaNumeroLength';
  try{
		var bErro = false;
		var sNum;
		if (objNumero.value.length > 0){
			if (objNumero.value.length < nLen){
				bErro = true;
      }else if(objNumero.value.length > 8 && sTipo != 'CCR') {
        bErro = true;
      }else if(objNumero.value.length > 16 && sTipo == 'CCR') {
        bErro = true;
      }else{
        //SSI 20999 - DANILO - 23/08/2011
        if(objNumero.value.length == 8){
				sNum = objNumero.value.substr(0,1);
        if (sTipo == 'TEL'){
          if ( sNum == '0' || sNum == '1' || sNum == '7' || sNum == '8' || sNum == '9' ){
						bErro = true;
					}
				}else if (sTipo == 'CEL'){
					//SSI 21023 - DANILO - 27/07/2011 - INSERIDA A VALIDACAO - sNum != '5'
					if ( sNum != '5' && sNum != '6' && sNum != '7' && sNum != '8' && sNum != '9' ){
						bErro = true;
					}
				}else if (sTipo == 'TELCEL'){
					if ( sNum == '0' || sNum == '1'){
						bErro = true;
					}
				}else if (sTipo == ''){
					bErro = false;
				}
  			//SSI 20999 - DANILO - 23/08/2011
  			}else{
  			  bErro = true;
  			}
			}
		}
    if (bErro) {
			sMsg=fTransform(sMsg,"_"," ")
			alert(sMsg);
			objNumero.focus();
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ VALIDA NUMEROS - CARTAO DE CREDITO
function ValidaNumeroLengthCartao(objNumero,nLenMin,nLenMax,sMsg,sTipo){
  var sFunctionName='ValidaNumeroLengthCartao';
  try{
		  var bErro = false;
		  var sNum;
    if (objNumero.value.length > 0){
			if (objNumero.value.length < nLenMin){
        bErro = true;
      }else if(objNumero.value.length > nLenMax) {
      	bErro = true;
      }else if(objNumero.value.length > 8 && sTipo != 'CCR') {
        bErro = true;
      }else if(objNumero.value.length > 16 && sTipo == 'CCR') {
        bErro = true;
      }
		}
    if (bErro) {
			sMsg=fTransform(sMsg,"_"," ")
			alert(sMsg);
			objNumero.focus();
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ FUNCAO QUE RETORNA SE MES/ANO É VALIDO OU NAO
function ComparaMesAno(objMesAno,TipoMesAno,MesAnoComparado,Cliente){
  var sFunctionName='ComparaMesAno';
  try{
		var MesAno = objMesAno.value;
		if (MesAno != "") {
			var Mes = subleft(MesAno,2);
			var Ano = subright(MesAno,4);
			var MesAtual = (objDataAtualGlobal.getMonth() + 1);
			var AnoAtual = objDataAtualGlobal.getFullYear();
			switch (TipoMesAno){
				case "Validade":
						if ((Ano < AnoAtual) && (Ano != AnoAtual)){
							if (Cliente == 21){
								alert("Validade do Cartão Inválido!");
							}else{
								alert("Ano de validade deve ser maior que Ano Atual!");
							}
							objMesAno.value="";
							objMesAno.focus();
						}else {
							if ((Ano == AnoAtual)&&(Mes < MesAtual)) {
								if (Cliente == 21){
									alert("Validade do Cartão Inválido!");
								}else{
									alert("Mês de Validade deve ser maior que Mês Atual!");
								}
								objMesAno.value="";
								objMesAno.focus();
							}
						}
					break;
				case "ContaCorrente":
						if (Ano > AnoAtual){
							if (Cliente == 21){
								alert("Abertura da Conta Inválido!");
							}else{
								alert("Ano de Abertura da Conta deve ser menor ou igual ao Ano Atual!");
							}
							objMesAno.value="";
							objMesAno.focus();
						}else {
							if ((Ano == AnoAtual) && (Mes > MesAtual)) {
								if (Cliente == 21){
									alert("Abertura da Conta Inválido!");
								}else{
									alert("Mês de Abertura da Conta deve ser maior que Mês Atual!");
								}
								objMesAno.value="";
								objMesAno.focus();
							}
						}
					break;
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ FUNCAO QUE VALIDA MES/ANO
function isMesAno(obj){
   var sFunctionName='isMesAno';
   try{
		var MesAnoStr
		var retorno
		if (obj == null || obj == ""){
			return false;
		}
		MesAnoStr = obj.value;
		if (MesAnoStr == null || MesAnoStr == ""){
			return false;
		}
		month = MesAnoStr.substr(0,2)*1;
		year = MesAnoStr.substr(3,4)*1;
		if (year < 100){
			if (year < 60){
				if (year < 10){
					year="0"+year;
				}
				year=("20"+year)*1;
			}else{
				year=("19"+year)*1;
			}
		}
		if (month < 1 || month > 12){
			alert('Mês Inválido !');
			obj.value='';
			obj.focus();
			return false;
		}
		if (year < 1800 || year > 2100 ) {
			alert('Ano Inválido !');
			obj.value='';
			obj.focus();
			return false;
		}
		if (month<10){month="0"+month}
		obj.value = month+"/"+year;
		return true;
   }catch(err){
     trataErro(err,sFunctionName);
   }
 }

//************ FUNCAO QUE FORMATA MES/ANO
function dMesAno(valor){
  var sFunctionName='dMesAno';
  try{
		var aceita = '0123456789';
		var resultado = '';
		for (i=0; i<=valor.length; i++){
			for (j=0; j<=aceita.length; j++){
				if (valor.charAt(i)==aceita.charAt(j)){
					if ((i==0)&&(valor.charAt(i)=='/')){
					alert(valor.charAt(i));
					}else{
						if ((i==1)&&(valor.charAt(i)=='/')){
							resultado = '0' + resultado;
						}
						if ((i==3)&&(valor.charAt(i)=='/')){
						}else{
							if ((i>=3)&&(valor.charAt(i)=='/')){
							}else{
								resultado = resultado + valor.charAt(i);
							}
						}
					}
				}
			}
		}
		valor = resultado;
		resultado = '';
		for (i=0; i<=valor.length; i++){
			if ((i==2)&&(valor.charAt(2)!='/')&&(valor.charAt(2)!='')){
				resultado = resultado + '/';
			}
				resultado = resultado + valor.charAt(i);
		}
		return(resultado);

  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ FUNCAO COMPARA DATAS: (MAIOR QUE DATA DE NASCIMENTO E/OU DATA MENOR QUE DATA ATUAL)
function ComparaData(objData,TipoData,vCompDataNasc){
  var sFunctionName='ComparaData';
  try{
		var Data = objData.value;
		if (!objData.readOnly && Data != ''){
			switch (TipoData){
				case "Nas":
					if (vCompDataNasc != ''){
						if (CtoD(Data,"DD/MM/YYYY") >= objDataAtualGlobal){
							alert("Data de Nascimento deve ser menor que a Data Atual!");
							objData.value="";
							objData.focus();
						}
						fVerificaIdade(objData);
					}
					break;
				case "Filho":
					if (vCompDataNasc != ''){
						if (CtoD(Data,"DD/MM/YYYY") > objDataAtualGlobal){
							alert("Data de Nascimento deve ser menor ou igual que a Data Atual!");
							objData.value="";
							objData.focus();
						}
					}
					break;
				case "Exp":
					//SSI 22143 - SUELLEN 28/12/2011 - PERMITIR DATA DE EXPEDIÇÃO IGUAL A DATA ATUAL
					if (CtoD(Data,"DD/MM/YYYY") > objDataAtualGlobal) {
						alert("Data de Expedição deve ser menor que a Data Atual!");
						objData.value="";
						objData.focus();
					}else{
						if (CtoD(Data,"DD/MM/YYYY") <= CtoD(vCompDataNasc,"DD/MM/YYYY")) {
							alert("Data de Expedição deve ser maior que a Data de Nascimento!");
							objData.value="";
							objData.focus();
						}
					}
					break;
				case "Adm":
					//SSI 21233 - SUELLEN 13/01/2012 - PERMITIR DATA DE ADMISSÃO IGUAL A DATA ATUAL
					if (CtoD(Data,"DD/MM/YYYY") > objDataAtualGlobal) {
						alert("Data de Admissão deve ser menor ou igual a Data Atual!");
						objData.value="";
						objData.focus()
					}else{
						if (CtoD(Data,"DD/MM/YYYY") <= CtoD(vCompDataNasc,"DD/MM/YYYY")) {
							alert("Data de Admissão deve ser maior que a Data de Nascimento!");
							objData.value="";
							objData.focus();
						}
					}
					break;
				case "AdmDes":
					if (CtoD(Data,"DD/MM/YYYY") < CtoD(vCompDataNasc,"DD/MM/YYYY")) {
						alert("Data de Admissão deve ser Maior que a Data de Desligamento do Emprego anterior!");
						objData.value="";
						objData.focus();
					}
					break;
				case "Des":
					if (CtoD(Data,"DD/MM/YYYY") >= objDataAtualGlobal) {
						alert("Data de Desligamento deve ser menor que a Data Atual!");
						objData.value="";
						objData.focus()
					}else{
					  if (vCompDataNasc != ''){
						  if (CtoD(Data,"DD/MM/YYYY") <= CtoD(vCompDataNasc,"DD/MM/YYYY")) {
						  	alert("Data de Desligamento deve ser maior que a Data de Admissão!");
						  	objData.value="";
						  	objData.focus();
						  }
						}
					}
					break;
				//SSI 21233 - aline - 26/10/2011
				case "DesAtual":
					if (CtoD(Data,"DD/MM/YYYY") <= objDataAtualGlobal) {
						alert("Data de Desligamento deve ser maior que a Data Atual!");
						objData.value="";
						objData.focus()
					
					}
					break;
				case "DesNas":
					if (CtoD(Data,"DD/MM/YYYY") >= objDataAtualGlobal) {
						alert("Data de Desligamento deve ser Menor que a Data Atual!");
						objData.value = '';
						objData.focus();
					}else{
					  if (vCompDataNasc != ''){
						  if (CtoD(Data,"DD/MM/YYYY") < CtoD(vCompDataNasc,"DD/MM/YYYY")) {
						  	alert("Data de Desligamento deve ser Maior que a Data de Nascimento!");
						  	objData.value = '';
						  	objData.focus();
						  }
						}
					}
					break;
				case "Abe":
					if (CtoD(Data,"DD/MM/YYYY") >= objDataAtualGlobal) {
						alert("Data de Abertura deve ser menor que a Data Atual!");
						objData.value="";
						objData.focus();
					}else{
						if (vCompDataNasc!=''){
						if (CtoD(Data,"DD/MM/YYYY") <= CtoD(vCompDataNasc,"DD/MM/YYYY")) {
							alert("Data de Abertura deve ser maior que a Data de Nascimento!");
							objData.value="";
							objData.focus();
						}
						}
					}
					break;
				case "OutDoc":
					if (CtoD(Data,"DD/MM/YYYY") >= objDataAtualGlobal) {
						alert("Data de Documento deve ser menor que a Data Atual!");
						objData.value="";
						objData.focus()
					}else{
					  if (vCompDataNasc != ''){
						  if (CtoD(Data,"DD/MM/YYYY") <= CtoD(vCompDataNasc,"DD/MM/YYYY")) {
						  	alert("Data de Documento deve ser maior que a Data de Nascimento!");
						  	objData.value="";
						  	objData.focus();
						  }
						}
					}
					break;
				case "Emp":
					if (CtoD(Data,"DD/MM/YYYY") >= objDataAtualGlobal) {
						alert("Data de Atividade deve ser menor que a Data Atual!");
						objData.value="";
						objData.focus()
					}else{
					  if (vCompDataNasc != ''){
						  if (CtoD(Data,"DD/MM/YYYY") <= CtoD(vCompDataNasc,"DD/MM/YYYY")){
						  	alert("Data deve ser maior que a Data de Nascimento!");
						  	objData.value="";
						  	objData.focus();
						  }
						}
					}
					break;
				case "Deslig":
					if (CtoD(Data,"DD/MM/YYYY") >= objDataAtualGlobal) {
						alert("Data de Atividade deve ser menor que a Data Atual!");
						objData.value="";
						objData.focus()
					}else{
					  if (vCompDataNasc != ''){
						  if (CtoD(Data,"DD/MM/YYYY") >= CtoD(vCompDataNasc,"DD/MM/YYYY")){
						  	alert("Desligamento do Emprego Anterior deve ser Antes da Admissão no Novo Emprego!");
						  	objData.value="";
						  	objData.focus();
						  }
						}
					}
					break;

			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function ComparaTempoData(sTpComp,objAnos,objMeses,DataParametro){
  var sFunctionName='ComparaTempoData';
  try{

    if (objAnos.value==''){
      return true;
    }
	  var Agora = new Date();
	  var nDia, nMes, nAno, nAux;
	  var dTempo, dDtParam;

		if (typeof(DataParametro) == 'object'){
			dDtParam = DataParametro.value;
		}else{
		 	dDtParam = DataParametro;
		}

	  nDia = Agora.getDate();
	  nMes = (Agora.getMonth()+1);
	  nAno = Agora.getFullYear();

    if ( sTpComp == 'REFAbeConta' ){
      nDia = (dDtParam.substr(0,2) * 1);
	    nMes = (objAnos.value.substr(0,2) * 1);
      nAno = (objAnos.value.substr(3,4) * 1);
    }else{
      nAno -= objAnos.value;
      nMes -= objMeses.value;
      if (nMes < 1){
        nAno -= 1;
        nMes += 12;
      }
    }

	  dTempo = new Date( nAno, nMes-1, nDia, 0, 0, 0, 0 );
	  
    if (dTempo < CtoD(dDtParam,"DD/MM/YYYY")){
      if ( sTpComp == 'Res' ){
			  alert("Tempo de Residência maior que a idade do cliente!");
      }else if ( sTpComp == 'Emp' ){
			  alert("Tempo de Atividade maior que a idade do cliente!");
			}else if ( sTpComp == 'REFAbeConta' ){
			  alert("Tempo de Abertura da Conta maior que a idade do cliente!");
			}else if ( sTpComp == 'EmpConj' ){
			  alert("Tempo de Atividade maior que a idade do conjuge!");
			}else if ( sTpComp == 'EmpCoob' ){
			  alert("Tempo de Atividade maior que a idade do coobrigado!");
			}else if ( sTpComp == 'Deslig' ){
			  alert("Desligamento do Emprego Anterior deve ser Antes da Admissão no Novo Emprego!");
			}
			if (typeof(DataParametro) == 'object'){
				DataParametro.value='';
				DataParametro.focus();
			}else{
				objAnos.value='';
				objAnos.focus();
			}
	  }

  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ FUNCAO VALIDA QTDE MÁXIMA DE MESES
function validaQtdeMeses(QtdeAno,objQtdeMeses){
  var sFunctionName='validaQtdeMeses';
  try{
		var QtdeMeses = objQtdeMeses.value;

		if ((QtdeMeses == "")&&(QtdeAno > 0)){
			objQtdeMeses.value = 0;
		}else{
			if (QtdeMeses >= 12){
				alert(' Qtde. de meses não pode ser maior que 11! ');
				objQtdeMeses.value = "";
				objQtdeMeses.focus();
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ FUNCAO QUE FORMATA A DATA
function data(valor){
  var sFunctionName='data';
  try{
		var aceita = '0123456789/';
		var resultado = '';
		for (i=0; i<=valor.length; i++){
			for (j=0; j<=aceita.length; j++){
				if (valor.charAt(i)==aceita.charAt(j)){
					if ((i==0)&&(valor.charAt(i)=='/')){
					}else{
						if ((i==1)&&(valor.charAt(i)=='/')){
							resultado = '0' + resultado;
						}
						if ((i==3)&&(valor.charAt(i)=='/')){
						}else{
							if ((i==3)&&(valor.charAt(4)=='/')){
								resultado = resultado + '0';
							}
							if ((i>=6)&&(valor.charAt(i)=='/')){
							}else{
								resultado = resultado + valor.charAt(i);
							}
						}
					}
				}
			}
		}
		valor = resultado;
		resultado = '';
		for (i=0; i<=valor.length; i++){
			if ((i==2)&&(valor.charAt(2)!='/')&&(valor.charAt(2)!='')){
				resultado = resultado + '/';
			}
			if ((i==5)&&(valor.charAt(5)!='/')&&(valor.charAt(5)!='')){
				resultado = resultado + '/';
			}
				resultado = resultado + valor.charAt(i);
		}
		return(resultado);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ FUNCAO QUE FORMATA A Hora
function hora(valor){
  var sFunctionName='hora';
  try{
		var aceita = '0123456789:';
		var resultado = '';
		for (i=0; i<=valor.length; i++){
			for (j=0; j<=aceita.length; j++){
				if (valor.charAt(i)==aceita.charAt(j)){
					if ((i==0)&&(valor.charAt(i)==':')){
					}else{
						if ((i==1)&&(valor.charAt(i)==':')){
							resultado = '0' + resultado;
						}
						if ((i==3)&&(valor.charAt(i)==':')){
						}else{
							if ((i==3)&&(valor.charAt(4)==':')){
								resultado = resultado + '0';
							}
							if ((i>=6)&&(valor.charAt(i)==':')){
							}else{
								resultado = resultado + valor.charAt(i);
							}
						}
					}
				}
			}
		}
		valor = resultado;
		resultado = '';
		for (i=0; i<=valor.length; i++){
			if ((i==2)&&(valor.charAt(2)!=':')&&(valor.charAt(2)!='')){
				resultado = resultado + ':';
			}
			if ((i==5)&&(valor.charAt(5)!=':')&&(valor.charAt(5)!='')){
				resultado = resultado + ':';
			}
				resultado = resultado + valor.charAt(i);
		}
		return(resultado);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ FUNCAO QUE VALIDA  HORA
function ishour(obj){
  var sFunctionName='ishour';
  try{
		var hourStr;
		var retorno;
		var hour = "";
		var minute = "";
		var second = "";

		if (obj == null || obj == "") {
			return false;
		}
		hourStr = obj.value;
		if (hourStr == null || hourStr == "") {
			return false;
		}
		hour = hourStr.substr(0,2)*1;
		minute = hourStr.substr(3,2)*1;
		if (hourStr.length > 5){
			second = hourStr.substr(6,2)*1;
		}

		if (hour > 23){
			alert('Hora Inválida !');
			obj.value=""
			obj.focus();
			return false;
		}
		if (minute > 59){
			alert('Hora Inválida !');
			obj.value=""
			obj.focus();
			return false;
		}
		if (second != ""){
			if (second > 59){
				alert('Hora Inválida !');
				obj.value=""
				obj.focus();
				return false;
		  }					
		}
		return true;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ FUNCAO QUE SÓ PERMITE NUMEROS NO OBJETO
function numero(obj){
  var sFunctionName='numero';
  try{
		if (!obj.readOnly){
			var numero = '0123456789';
			var resultado = '';
			w_valor = obj.value + ''
			for (i=0; i < w_valor.length; i++){
				var temp1=w_valor.charAt(i);
				for (j=0; j < numero.length; j++){
					var temp2=numero.charAt(j);
					if (temp1==temp2){
						 resultado = resultado + w_valor.charAt(i);
					}
				}
			}
			obj.value = resultado;
			return resultado;
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ FUNCAO QUE SÓ PERMITE NUMEROS NUMA EXPRESSAO
function sonumero(xExp){
  var sFunctionName='sonumero';
  try{

		var numero = '0123456789';
		var resultado = '';
		w_valor = xExp + ''
		for (i=0; i < w_valor.length; i++){
			var temp1=w_valor.charAt(i);
			for (j=0; j < numero.length; j++){
				var temp2=numero.charAt(j);
				if (temp1==temp2){
					 resultado = resultado + w_valor.charAt(i);
				}
			}
		}
		return resultado;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ FUNCAO QUE SÓ PERMITE NUMEROS E O SINAL NEGATIVO NUMA EXPRESSAO
function sonumeroNEG(xExp){
  var sFunctionName='sonumeroNEG';
  try{

		var numero = '-0123456789';
		var resultado = '';
		w_valor = xExp + ''
		for (i=0; i < w_valor.length; i++){
			var temp1=w_valor.charAt(i);
			for (j=0; j < numero.length; j++){
				var temp2=numero.charAt(j);
				if (temp1==temp2){
					 resultado = resultado + w_valor.charAt(i);
				}
			}
		}
		return resultado;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}


//************ FUNCAO QUE FORMATA PARA DECIMAL (FORMATO BRASILEIRO)
function moeda(w_valor){
  var sFunctionName='moeda';
  try{
		var numero  = '0123456789';
		var result  = '';
		var result1 = '';
		var zero = 'N';
		var i;
		var j;
		var negativo = '';
		w_valor = w_valor + '';

		for (i=0; i < w_valor.length; i++){
			var temp1=w_valor.charAt(i);
			for (j=0; j < numero.length; j++){
				var temp2=numero.charAt(j);
				if (temp1==temp2){
					 result = result + temp1;
				}else{
				   if (temp1 == '-'){
				    negativo = '-';
				   }
				}
			}
		}
		while (result.charAt(0)=='0'){
			result = result.substring(1, result.length);
		}
		var tamanho = result.length;
		if (tamanho>2){
			for (k=0; k < tamanho; k++){
				if (k==(tamanho-2)){
					result1 = result1 + ',';
				}
				if (((k==(tamanho-5))&&(tamanho!==5))||((k==(tamanho-8))&&(tamanho!==8))||((k==(tamanho-11))&&(tamanho!==11))){
					result1 = result1 + '.';
				}
				result1 = result1 + result.charAt(k);
			}
		}else{
			if (tamanho==2){
				result1 = '0,' + result;
			}else{
				result1 = '0,0' + result;
			}
		}
		if (result1=='0,0'){
			result1='0,00';
		}
		return(negativo + result1);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ FUNCAO QUE FORMATA PARA DECIMAL (FORMATO BRASILEIRO)
function taxa(w_valor,dec){
  var sFunctionName='taxa';
  try{
		var numero  = '0123456789';
		var result  = '';
		var result1 = '';
		var zero = 'N';
		var i;
		var j;
		w_valor = w_valor + '';
		for (i=0; i < w_valor.length; i++){
			var temp1=w_valor.charAt(i);
			for (j=0; j < numero.length; j++){
				var temp2=numero.charAt(j);
				if (temp1==temp2){
					 result = result + temp1;
				}
			}
		}
		while (result.charAt(0)=='0'){
			result = result.substring(1, result.length);
		}
		var tamanho = result.length;
		if (tamanho>dec){
			for (k=0; k < tamanho; k++){
				if (k==(tamanho-dec)){
					result1 = result1 + ',';
				}
				result1 = result1 + result.charAt(k);
			}
		}
		if (tamanho == dec){
		  result1 = '0,' + result;
		}else{
		  if (tamanho < dec){
	      result1 = result;
	      for (k=tamanho; k < dec; k++){
		      result1 = '0' + result1;
		    }
		    result1 = '0,' + result1;
  	  }
	  }
		return(result1);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ FUNCAO QUE FORMATA PARA DECIMAL (FORMATO AMERICANO)
function moedaUS(w_valor){
  var sFunctionName='moedaUS';
  try{
		var numero  = '0123456789';
		var result  = '';
		var result1 = '';
		var zero = 'N';
		for (i=0; i < w_valor.length; i++){
			var temp1=w_valor.charAt(i);
			for (j=0; j < numero.length; j++){
				var temp2=numero.charAt(j);
				if (temp1==temp2){
					 result = result + w_valor.charAt(i);
				}
			}
		}
		while (result.charAt(0)=='0'){
			result = result.substring(1, result.length);
		}
		var tamanho = result.length;
		if (tamanho>2){
			for (k=0; k < tamanho; k++){
				if (k==(tamanho-2)){
					result1 = result1 + '.';
				}
				result1 = result1 + result.charAt(k);
			}
		}else{
			if (tamanho==2){
				result1 = '0.' + result;
			}else{
				result1 = '0.0' + result;
			}
		}
		if (result1=='0.0'){
			result1='0.00';
		}
		return(result1);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************ FUNCAO QUE FORMATA PARA DECIMAL
function decimal(D_Valor){
  var sFunctionName='decimal';
  try{
		var D_Tamanho = D_Valor.length;
		var D_Posicao = 1;
		for (D_I = D_Tamanho; D_I >= D_Tamanho-3; D_I--){
			if	((D_Valor.charAt(D_I)==',')||(D_Valor.charAt(D_I)=='.')){
				D_Posicao = D_Tamanho - D_I
			}
		}
		for (D_I = D_Posicao; D_I <= 2; D_I++){
			D_Valor = D_Valor + '0';
		}
		return(D_Valor);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//*********** FUNCAO QUE RETIRA CARACTERES ESPECIAIS
function LimpaCE(w_valor){
  var sFunctionName='LimpaCE';
  try{
		var Valida = 'ABCDEFGHIJKLMNOPQRSTUVXYWZabcdefghijklmnopqrstuvxywz0123456789 ÀàÃãÂâÁáÊêÉéÍíÕõÔôÓóÚúÇç().,;:/\-';
		var Resultado = '';
		var i;
		var j;
		for (i=0; i < w_valor.length; i++){
			var Result1 = w_valor.charAt(i);
			for (j=0; j < Valida.length; j++){
				var Result2 = Valida.charAt(j);
				if (Result1 == Result2){
					 Resultado = Resultado + w_valor.charAt(i);
				}
			}
		}
		return(Resultado);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//*********** FUNCAO QUE EXIBE TODOS OS DADOS DAS CELULAS DE UMA TABELA
function leTable(oTable){
  var sFunctionName='leTable';
  try{
		var count=0;
		for (i=0; i < oTable.rows.length; i++) {
			for (j=0; j < oTable.rows[i].cells.length; j++) {
				alert(oTable.rows[i].cells[j].innerHTML); // = count;
		    count++;
		  }
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function max(n1,n2){
	return (n1 > n2) ? n1 : n2;
}

function min(n1,n2){
	return (n1 < n2) ? n1 : n2;
}

//*********** FUNCAO QUE RETORNA A QUANTIDADE DE CARACTERES À DIREITA
function subright(str,num){
  var sFunctionName='subright';
  try{
		return str.substr(max(0,str.length-num),min(num,str.length));
  }catch(err){
    //trataErro(err,sFunctionName);
    return '';
  }
}

//*********** FUNCAO QUE RETORNA A QUANTIDADE DE CARACTERES À ESQUERDA
function subleft(str,num){
  var sFunctionName='subleft';
  if (typeof(str) == 'string'){
		try{
			return str.substr(0,num);
		}catch(err){
	    //trataErro(err,sFunctionName);
	    return '';
	  }
  }
}

//*********** FUNCAO PARA FORMATAR CGC / CPF e CEP.
function fMascara(obj,tipo){
  var sFunctionName='fMascara';
  try{
		if (!obj.readOnly){
			var retorno,valor;
			if (obj.value != "" && obj.value != null){
			  if (tipo == "CPF" ){
				  valor = numero(obj);
				  valor = subright(("00000000000" + valor),11);
				  retorno = valor.substr(0,3)
				  retorno = retorno + ".";
				  retorno = retorno + valor.substr(3,3);
				  retorno = retorno + ".";
				  retorno = retorno + valor.substr(6,3);
				  retorno = retorno + "-";
				  retorno = retorno + valor.substr(9,2);
				  obj.value = retorno;
				}
			  if (tipo == "CGC"){
				  valor = numero(obj);
				  valor = subright(("000000000000" + valor),14);
				  retorno = valor.substr(0,2)
				  retorno = retorno + ".";
				  retorno = retorno + valor.substr(2,3);
				  retorno = retorno + ".";
				  retorno = retorno + valor.substr(5,3);
				  retorno = retorno + "/";
				  retorno = retorno + valor.substr(8,4);
				  retorno = retorno + "-";
				  retorno = retorno + valor.substr(12,2);
				  obj.value = retorno;
				}
			  if (tipo == "CEP" ){
				  valor = numero(obj);
				  valor = subright(("00000000" + valor),8);
				  retorno = valor.substr(0,5)
				  retorno = retorno + "-";
				  retorno = retorno + valor.substr(5,3);
				  obj.value = retorno;
				}
			}
			return retorno;
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//**************** FUNCAO PARA VERIFICAR O DIGITO DO CGC e CPF.
function fValCGCPF(obj,tipo,smsg){
  var sFunctionName='fValCGCPF';
  try{
		if (!obj.readOnly){
			obj.value = numero(obj);
			var num = obj.value;
			var lnCont,lnCont2,lnSomaDV,lnMult,lnSize,lsDig,lsDg,lsCGCPF,lsAux,lnAux
			if (num == '' || tipo == '' || tipo == null){
			  return;
			}
			if (tipo == 'CGCPF'){
				subtipo = 'CGC';
			  lnSize = 14;
				time = 2;
			}else{
				if (tipo == 'CGC'){
				  lnSize = 14;
				}else{
				  lnSize = 11;
				}
				subtipo = tipo;
				time = 1;
			}
			i = 1;
			lsCGCPF = '00000000000000' + num;
			lsCGCPF = subright(lsCGCPF,lnSize);
			if ( (lsCGCPF == '00000000000') || (lsCGCPF == '11111111111') || (lsCGCPF == '22222222222') || (lsCGCPF == '33333333333') || (lsCGCPF == '44444444444') || (lsCGCPF == '55555555555') || (lsCGCPF == '66666666666') || (lsCGCPF == '77777777777') || (lsCGCPF == '88888888888') || (lsCGCPF == '99999999999') ){
			  if (tipo == 'CPF'){
			    if (smsg != null){
						smsg=fTransform(smsg,"_"," ")			    
			      alert(smsg);
			    }else{
			      alert('CPF do Consumidor Inválido!');
			    }
			  }else{
					alert('CNPJ/CPF Inválido!');
				}
				obj.value = '';
				obj.focus();
				return;
			}
			lsCGCPF = '';
			while (i <= time){
				lsDig = '';
				lsCGCPF = '00000000000000' + num;
				lsCGCPF = subright(lsCGCPF,lnSize);
				lsDg = subright(lsCGCPF,2);
				lsCGCPF = subleft(lsCGCPF,lnSize-2);
				lnCont2 = 1;
				while (lnCont2 <= 2){
				  lnMult = 1;
				  lnSomaDV = 0;
				  lnCont = (lsCGCPF.length + lsDig.length);
				  while (lnCont >= 1){
				    if (subtipo == 'CGC' && lnMult == 9){
				      lnMult = 1;
				    }
				    lnMult = lnMult + 1;
				    lsAux = lsCGCPF + lsDig;
				    lsAux = lsAux.substr(lnCont-1,1);
				    lnAux = ((lsAux*1) * lnMult);
				    lnSomaDV = (lnSomaDV + lnAux);
				    lnCont = (lnCont - 1);
				  }
				  lnAux = (lnSomaDV * 10);
				  lnAux = parseInt(lnAux / 11);
				  lnAux = ((lnSomaDV * 10) - (lnAux * 11));
				  lsAux = lnAux + "";
				  lsDig = lsDig + subright( lsAux, 1 )
				  lnCont2 = lnCont2 + 1
				}
				if (lsDig == lsDg){
					if (tipo == 'CGCPF'){
						if (i == 1 && num.length > 6){
							fMascara(obj,'CGC');
						}else{
							fMascara(obj,'CPF');
						}
					}else{
						fMascara(obj,tipo);
					}
				  return;
				}else{
				  if (tipo == 'CGCPF'){
						subtipo = 'CPF';
						lnSize = 11;
						i++;
						if (i > time){
					    alert('CNPJ/CPF Inválido!');
							obj.value = '';
							obj.focus();
							return;
						}
				  }else{
						if (tipo == 'CGC'){
						  alert('CNPJ Inválido!');
						}else{
			        if (smsg != null){
								smsg=fTransform(smsg,"_"," ")
			          alert(smsg);
			        }else{
						    alert('CPF do Consumidor Inválido!');
						  }
						}
						obj.value = '';
						obj.focus();
						return;
					}
				}
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//**************** FUNCAO PARA LOCALIZAR UMA STRING DENTRO DE UMA STRING.
function inStrPeixe(strSearch,strFound){
  var sFunctionName='inStrPeixe';
  try{
		var re = new RegExp(strFound,'');
		return(strSearch.search(re));
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function inStr(strSearch,strFound){
  var sFunctionName='inStr';
  try{
		var i = -1;
		if(strFound.length==1){
			for(i=0;i<strSearch.length;i++){
				if (strSearch.charAt(i)==strFound){
					return i;
					break;
				}
			}
		}else{
			var nLength = strFound.length;
			for(i=0;i<strSearch.length;i++){
				if (strSearch.substr(i,nLength)==strFound){
					return i;
					break;
				}
			}
		}
		return -1;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function inStrRev(strSearch,strFound){
  var sFunctionName='inStrRev';
  try{
		var i = -1;
		if(strFound.length==1){
			for(i=strSearch.length;i>=0;i--){
				if (strSearch.charAt(i)==strFound){
					return i;
					break;
				}
			}
		}else{
			var nLength = strFound.length;
			for(i=strSearch.length;i>=0;i--){
				if (strSearch.substr(i,nLength)==strFound){
					return i;
					break;
				}
			}
		}
		return -1;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//****************** FUNCAO PARA RECUPERAR VALOR DA COMBO
function getValueCombo(combo){
  var sFunctionName='getValueCombo';
  try{
		if ((combo != null)&&(combo != "")&&(combo.selectedIndex != -1)){
			return combo[combo.selectedIndex].value;
		}else{
			return '';
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//****** FUNCAO PARA VERIFICAR SE item ESTA CONTIDO EM strValida
function verificaItem(item,strValida){
  var sFunctionName='verificaItem';
  try{
		var j;
		for (j=0; j < strValida.length; j++){
			var str = strValida.charAt(j);
			if (item == str){
				return true;
			}
		}
		return false;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

// *************************************************************
//										NOVAS FUNÇÕES
// *************************************************************
function fSetFocus(obj){
  var sFunctionName = 'fSetFocus';
  try{
    if (typeof(obj) == 'object'){
			obj.focus();
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function showFocus(obj){
  var sFunctionName='showFocus';
  try{
    if (typeof(obj) == 'object'){
		  var tag = obj.tagName;
		  var tipo = obj.type;
		  var cls = obj.className;
		  cls = cls.toUpperCase();
		  tag = tag.toUpperCase();
		  tipo = tipo.toUpperCase();
		  if ( (subleft(cls,11) != 'MAKEDISABLE') && (!obj.disabled) ){
		  	if (subleft(tag,6) != 'SELECT' && !obj.readOnly){
					obj.style.backgroundColor = '#87CEFA';
					obj.select();
				}
		  }
		  if (obj.InGrid == 'S'){
				var linha = obj.parentElement.parentElement;
				linha.InFocus = 'N';
				linha.style.backgroundColor ='#0066cc';
				if (typeof(tr_Anterior)=='object'){
				  if (tr_Anterior.id != linha.id){
						tr_Anterior.style.backgroundColor ='#c0c0c0';
				  }
					tr_Anterior = linha;
				}
		  }
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function loseFocus(obj){
  var sFunctionName='loseFocus';
  try{
    if (typeof(obj) == 'object'){
		  var tag = obj.tagName;
		  var tipo = obj.type;
		  var cls = obj.className;
		  tag = tag.toUpperCase();
		  cls = cls.toUpperCase();
		  tipo = tipo.toUpperCase();
		  if (subleft(cls,11) != 'MAKEDISABLE' && obj.disabled == false){
				if (subleft(tag,6) == 'SELECT'){
					obj.style.backgroundColor = '#FFFFFF';
				}else{
		  		if (tipo == 'CHECKBOX' || tipo == 'RADIO'){
		  			obj.style.backgroundColor = 'transparent';
		  		}else{
		  			if (obj.readOnly == false){
		  				obj.style.backgroundColor = '#FFFFFF';
		  			}
		  		}
				}
		  }
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fChangedField(obj){
  var sFunctionName = 'fChangedField';
  try{
  	if (window.document.getElementById('hidChangedControl')){
			fSetProperty(window.document.getElementById('hidChangedControl'),'value','S');
			if (typeof(fChangedField_Local) == 'function'){
				fChangedField_Local(obj);
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//NOVOS BOTOES DE OPCAO
function trocaBorda(oObj,pbOn){
  var sFunctionName='trocaBtn';
  try{
		if (pbOn){
			oObj.style.borderLeft = '1pt solid white';
			oObj.style.borderTop = '1pt solid white';
			oObj.style.borderBottom = '1pt solid #808080';
			oObj.style.borderRight = '1pt solid #808080';
		}else{
			oObj.style.border = '1pt solid #C0C0C0';
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

// VALIDA SE O CAMPO ESTÁ PREENCHIDO OU NAO
function validaNull(obj){
  var sFunctionName='validaNull';
  try{
		if (obj.value=="" || obj.value==null){
			alert("Preencha os campos obrigatórios!!!");
			obj.focus();
			return false;
		}else{
			return true;
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function Mes(nMes){
  var sFunctionName='Mes';
  try{
	return aMes[nMes-1];
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function MesAbr(nMes){
  var sFunctionName='MesAbr';
  try{
		var mes = aMes[nMes-1];
		return mes.substr(0,3);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

// FUNÇÃO QUE RETORNA O CARACTER DE UMA DETERMINADA POSICAO DE UMA STRING
//var posIdx = 0 - Variavel pública já declarada no padrao.js
function getElement(pString, pPosInit){
  var sFunctionName='getElement';
  try{
		var auxPos = pPosInit;
		var vreturn = '';
		if(typeof posIdx=='undefined'){posIdx = 0;}
		while(pString.charAt(auxPos)!=";"){
			vreturn = vreturn + pString.charAt(auxPos);
			auxPos = auxPos + 1;
		}
		posIdx = auxPos + 1;
		return(vreturn);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}


// FUNÇÃO USADA NO GRID "REFER_PESSOAL'
// FUNÇÃO QUE RETORNA O INDEX DA LINHA DO GRID QUE NÃO VAI MAIS SER DELETADA....
// DEPENDE DA FUNÇÃO 'getElement' PARA FUNCIONAR....
function ProcuraIndex(pString,pFind){
  var sFunctionName='ProcuraIndex';
  try{
		var auxElem = '';
		var vString = pString;
		if ((vString != "")&&(pString != "")){
			while (posIdx < vString.length){
				auxElem = getElement(vString,posIdx);
				if (auxElem == pFind){
					return(posIdx)
				}
			}
		}else{
		 	return(0);
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

// funções para botões criados via MakeButton
function beforeclick(obj){
  var sFunctionName='beforeclick';
  try{
		if (obj.style.color!="silver"){
			eval(obj.id+'_click();');
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fBtnMsgDisable(obj,bFlag){
  var sFunctionName='fBtnMsgDisable';
  try{
		if (obj.style.color=="silver"){
			if (bFlag==1){
				txt_esquerda('Opção Desabilitada','105');
			}else{
				nada();
			}
		}else{
			nada();
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fBtnDisabled(obj,name){
  var sFunctionName='fBtnDisabled';
  try{
		if (name=="disabled2"){
			if (obj.disabled2){
				obj.style.color="silver";
			}else{
				obj.style.color="white";
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//************************** NOVA FUNCÃO ILUMINA/VALIDA OBRIGATORIOS E DEPENDENTES *********
function IluminaValidaObrigatorios(acao){
  var sFunctionName='IluminaValidaObrigatorios';
  try{
		sList = '';
	  sList2 = '';
    return(IluminaValidaObrigatorios2(acao,document))
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function IluminaValidaObrigatorios2(acao,obj){
  var sFunctionName='IluminaValidaObrigatorios2';
  try{
		var exibeMensagem = 'N';
		var retorno, i;
		var lenframe = window.frames.length;
		if (acao == 'V'){
			exibeMensagem = 'S';
		}
		//ID CREF 13744
		retorno = (fIluminaValida(obj,'INPUT',acao))
		retorno = (fIluminaValida(obj,'SELECT',acao) && retorno);
		for (i=0;i<lenframe;i++){
			if (typeof(window.frames[i].obj) == 'object'){
				retorno = ( retorno && fIluminaValida( window.frames[i].obj,'INPUT',acao) );
				retorno = ( retorno && fIluminaValida( window.frames[i].obj,'SELECT',acao) );
			}
		}
		if (typeof(ExcessaoItem) == 'function'){
		   ExcessaoItem();
		}
		if (acao == 'LIST'){
			retorno = sList;
			//retorno = sList2;
		}else if (retorno == false && exibeMensagem == 'S'){
			alert('Preencha os Campos Obrigatórios!');
		}
		return(retorno);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fIluminaValida(objdocument,objType,acao){
  var sFunctionName='fIluminaValida';
  try{
		var retorno = true;
		var i;
		var nomeCampo, tipoCampo, colCampo, tagCampo, nomeID;
		if (!objdocument.getElementsByTagName){
			// se obj nao pode conter getElements, retorna true
			return (true);
		}
		var colecao = objdocument.getElementsByTagName(objType);
		var input, color;
		var Valor = '';
		var	disabled = false;
		for (i=0;i<colecao.length;i++){
			input = colecao[i];
			if(typeof(input) == 'object'){
				if (acao == 'LIST'){
					sList2 += '\n' + input.getAttribute('obrig') + ': ' + input.name;
				}
				if (typeof(input.getAttribute('obrig')) == 'string'){
					nomeCampo = input.name;
					nomeID = input.id;
					tagCampo = input.tagName;
					tipoCampo = subleft(nomeCampo,3);
					if(tipoCampo == 'opt'){
						colCampo = objdocument.getElementsByName(nomeCampo);
						if(colCampo.length > 0){
							input = colCampo[0];
						}
					}
					disabled = input.disabled;
					if (!(tipoCampo == 'cmb' || tipoCampo == 'cmg' || tipoCampo == 'chk' || tipoCampo == 'opt' || tagCampo == 'SELECT')){
						disabled = (disabled || input.readOnly);
					}
					if (!disabled){
						if (input.getAttribute('obrig') == 'O' || input.getAttribute('obrig') == 'A' || input.getAttribute('obrig') == 'P'){
							if (acao == 'LIST'){
								sList += '\n' + input.getAttribute('obrig') + ': ' + input.name;
							}
							color = '#FFFF00';
							ObrigNecessario = false;
							if (input.getAttribute('obrig') == 'P'){ // SOMENTE CAMPOS DEPENDENTES
								var NovoCampoPrincipal, CampoPrincipal;
								var ValorPrincipal = '';
								nomeCampoPrincipal = input.getAttribute('depend');
								if ( (nomeCampoPrincipal.length > 0) && (subright(nomeCampoPrincipal,1)!=',') ){
									nomeCampoPrincipal = nomeCampoPrincipal + ',';
								}
								pos = inStr(nomeCampoPrincipal,',');
								for (pos; pos>=0; pos = inStr(nomeCampoPrincipal,',')){
									if (pos > 0){
										NovoCampoPrincipal = subleft(nomeCampoPrincipal,pos)
										CampoPrincipal = eval('objdocument.all.' + NovoCampoPrincipal);

										if (typeof(CampoPrincipal) == 'object'){
											nomeCampoPrincipal = NovoCampoPrincipal;
											break;
										}else{
											nomeCampoPrincipal = subright(nomeCampoPrincipal,(nomeCampoPrincipal.length - (pos+1)))
										}
									}else{
										CampoPrincipal = eval('objdocument.all.' + nomeCampoPrincipal);
										break;
									}
								}
								if (typeof(CampoPrincipal) == 'object'){
									ValorPrincipal = CampoPrincipal.value;
								}
								if (subleft(nomeCampoPrincipal,3) == 'opt'){  // OPTIONS
									var colCampoPrincipal = objdocument.getElementById(nomeCampoPrincipal);
									ValorPrincipal = VerificaValorOpt(colCampoPrincipal);
								}else if (subleft(nomeCampoPrincipal,3) == 'chk'){  // CHECK BOX
									ValorPrincipal = VerificaValorChk(CampoPrincipal);
								}
								if((ValorPrincipal == '') || (ValorPrincipal == '0,00') || (ValorPrincipal == '0')){
									if (tipoCampo == 'opt'){  // ILUMINA OPTIONS
										IluminaOpt(colCampo,'');
									}else{
										input.style.backgroundColor = '';
										color = '#FFFFFF';
									}
									input = CampoPrincipal;
								}else{
									color = '#FFD1A4';
									ObrigNecessario = true;
								}
							}
							if (typeof(input) == 'object'){
							  Valor = input.value;
							  if (subleft(input.name,3) == 'opt'){  // OPTIONS
							  	Valor = VerificaValorOpt(colCampo);
							  }else if(tipoCampo == 'chk'){  // CHECK BOX
							  	Valor = VerificaValorChk(input);
							  }
								if ((input.style.backgroundColor == 'rgb(255, 255, 255)')||(input.style.backgroundColor == '') || (input.style.backgroundColor == '#ffffff') || (input.style.backgroundColor == 'transparent')){
									nao_preenchidos = false;
									if (tipoCampo == 'txt'){
										if ((acao == '') || (Valor == '')){
											nao_preenchidos = true;
										}
									//ID CREF 13744
									}else if ((acao == '') || (Valor == '') || (Valor == '0,00') || (Valor == '0') || (Valor == '0,0000')){
										nao_preenchidos = true;
									}
									if (nao_preenchidos){
										if (acao == 'V' && ( (input.getAttribute('obrig') == 'O' || input.getAttribute('obrig') == 'A') || (ObrigNecessario)) ){
											retorno = false;
										}
										if (tipoCampo == 'opt'){  // ILUMINA OPTIONS
											IluminaOpt(colCampo,color);
										}else{
											input.style.backgroundColor = color;
										}
									}else{
										if (tipoCampo == 'opt'){  // ILUMINA OPTIONS
											IluminaOpt(colCampo,'');
										}else	if (tipoCampo == 'chk'){
							 				input.style.backgroundColor = '';
										}else	if (acao == 'V'){
											input.style.backgroundColor = '#FFFFFF';
										}else{
											input.style.backgroundColor = color;
										}
									}
								}else if (acao == 'V' && ( (input.getAttribute('obrig') == 'O' || input.getAttribute('obrig') == 'A') || (ObrigNecessario)) ){
									nao_preenchidos = false;
									if (tipoCampo == 'txt'){
										if (Valor == ''){
											nao_preenchidos = true;
										}
									}else if ((Valor == '') || (Valor == '0,00') || (Valor == '0')){
										nao_preenchidos = true;
									}
									if (nao_preenchidos){
										retorno = false;
									}
								}
							}
						}else{  // SE NÃO FOR "O","A","P" e HABILITADO
							color = '#FFFFFF';
							if (tipoCampo == 'opt'){  // ILUMINA OPTIONS
								IluminaOpt(colCampo,'');
							}else if (tipoCampo == 'chk'){
								input.style.backgroundColor = '';
							}else{
								input.style.backgroundColor = color;
							}
						}
					}
				}
			}
		}
		return (retorno);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function VerificaValorChk(Campo){
  var sFunctionName='VerificaValorChk';
  try{
		var valor;
		if (!Campo.checked){
			valor = "";
		}else{
			valor = Campo.value;
		}
		return(valor);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function VerificaValorOpt(colCampo){
  var sFunctionName='VerificaValorOpt';
  try{
		var j,valor;
		for(j=0; j <=colCampo.length-1; j++){
			if (colCampo[j].checked == true){
				valor = colCampo[j].value;
				break;
			}else{
				valor = '';
			}
		}
		return(valor);
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function IluminaOpt(colCampo,color){
  var sFunctionName='IluminaOpt';
  try{
		var j;
		for(j=0; j <=colCampo.length-1; j++){
			colCampo[j].style.backgroundColor = color;
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function disableCtrlKeyCombination(e,aKeys){
	var forbiddenKeys = aKeys;    //new Array('a','n','x','d','j');
	var key, isCtrl;
	//IE
	if (window.event){
		key = window.event.keyCode;
		isCtrl = (window.event.ctrlKey);

	//firefox
		}else{
		//key = e.which; 
		key = e.charCode;
		isCtrl = (e.ctrlKey);
	}
	
	if (isCtrl){
	  for (i=0;i<forbiddenKeys.length;i++){
		  if (forbiddenKeys[i].toLowerCase() == String.fromCharCode(key).toLowerCase()){
				//SSI 21191 - Barbezani - 22/09/2011 - abrindo mensagem na intenção de inibir ação do usuário ficar digitando Ctrl+P freneticamente!!!!
				alert('Uso do CTRL + ' + String.fromCharCode(key) + ' não permitido!');
		    e.returnValue = false;
		    //SSI 21191 - DANILO - 25/08/2011 - INSERIDOS OS CONTROLES e.cancelBubble = true; E e.keyCode=0;
		    e.cancelBubble = true;
		    e.keyCode=0;
	      if (typeof(e.preventDefault) != 'undefined'){
	        e.preventDefault();
	      }
				return false;
			}
		}
	}
	return true;
}

//CONJUNTO DE FUNCOES DO HEADERPAGE
function exibeExibeStringCobol(event){
  var sFunctionName='exibeExibeStringCobol';
  try{  
   
    //SSI 21191 - DANILO - 25/08/2011 - INSERIDO NO ARRAY A TECLA 'P'
    if (disableCtrlKeyCombination(event,Array('a','n','x','d','j','p'))){ 
      
  		if(event.keyCode == jsKeyF2){
				sRet = 'Campos Obrigatórios:\n' + IluminaValidaObrigatorios('LIST'); 
				alert(sRet);
				//document.all.panelERROR.innerHTML = sRet;
			}
			//SSI 18847 - DANILO - 14/06/2010
			//SUELLEN - RETIRADA FUNCIONALIDADE DO BOTÃO F5
			if(vSeforServidor == 'N'){
			  if (event.keyCode == jsKeyF5){
  				//var Logout = window.open(pathJS+'Logout.asp','Logout','toolbar=no, menubar=no, location=no, directories=no, scrollbars=yes, top=0, left=0, width=1, height=1, resizeable=no',1);            				  							    
			    //window.document.location.replace(pathJS+'Logout.asp');
  			  event.returnValue = false;
          event.cancelBubble = true;
          event.keyCode = 0;			    

  		}
  			//SUELLEN - RETIRADA FUNCIONALIDADE DO BOTÃO F6
  			if (event.keyCode == jsKeyF11 || event.keyCode == jsKeyF6) {
  			  //alert('Opção não permitida!');
  			  event.returnValue = false;
          event.cancelBubble = true;
          event.keyCode = 0;
  			}
  	    
  	  //SSI 20686 - DIEGO
			if (event.keyCode == 8){ 
         // event.returnValue = false;
			}

			if ((event.ctrlKey)&&(event.keyCode == 82)){
          event.returnValue = false;
			}

  	  
			if ((event.ctrlKey)&&(event.keyCode == 114)){
          event.returnValue = false;
			}
      //FIM SSI 20686 - DIEGO
			if (event.keyCode == jsKeyF7){
				var ExibeStringCobol = window.open(pathJS+'ExibeStringCobol.asp'+ '?xparmx=' + ID_COOKIE_KEY,'ExibeStringCobol','toolbar=no, menubar=no, location=no, directories=no, scrollbars=yes, top=0, left=0, width=300, height=350, resizeable=no',1);
				ExibeStringCobol.focus();
			}
			if (event.keyCode == jsKeyF8){
				var StatusUsuario = window.open(pathJS+'Status_Usuario.asp'+ '?xparmx=' + ID_COOKIE_KEY,'StatusUsuario','toolbar=no, menubar=no, location=no, directories=no, scrollbars=yes, top=0, left=0, width=600, height=450, resizeable=no',1);
				StatusUsuario.focus();
			}
			if (event.keyCode == jsKeyF9){
				if (typeof(WEBPrint_Read) == 'function'){
					 WEBPrint_Read();
				}
			}
			if (event.ctrlKey && event.altKey && event.keyCode != jsKeyControl && event.keyCode != jsKeyAlt){
				if (typeof(tbwebsysin) == 'object'){
					if (window.parent.document.all.tbwebsysin.style.display == ''){
						window.parent.document.all.tbwebsysin.style.display = 'none';
					}else{
						window.parent.document.all.tbwebsysin.style.display = '';
					}
				}
			}
			if(event.keyCode == jsKeyControl || event.keyCode == jsKeyAlt){
				//event.keyCode = false;
				return false;
			}
		}
		}
  }catch(err){
    //trataErro(err,sFunctionName);
  }
}

function showmenuie5(){
  var sFunctionName='showmenuie5';
  try{
		var rightedge=document.body.clientWidth-event.clientX;
		var bottomedge=document.body.clientHeight-event.clientY;
		if (rightedge<ie5menu.offsetWidth){
			ie5menu.style.left=document.body.scrollLeft+event.clientX-ie5menu.offsetWidth-2;
		}else{
			ie5menu.style.left=document.body.scrollLeft+event.clientX-2;
		}
		if (bottomedge<ie5menu.offsetHeight){
			ie5menu.style.top=document.body.scrollTop+event.clientY-ie5menu.offsetHeight-3;
		}else{
			ie5menu.style.top=document.body.scrollTop+event.clientY-3;
		}
		ie5menu.style.visibility="visible";
		return false;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function hidemenuie5(){
  var sFunctionName='hidemenuie5';
  try{
		ie5menu.style.visibility = 'hidden';
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function highlightie5(){
  var sFunctionName='highlightie5';
  try{
		if (event.srcElement.className == 'menuitems'){
			event.srcElement.style.backgroundColor = 'highlight';
			event.srcElement.style.color = 'white';
			if (display_url == 1){
				window.status = event.srcElement.url;
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function lowlightie5(){
  var sFunctionName='lowlightie5';
  try{
		if (event.srcElement.className == 'menuitems'){
			event.srcElement.style.backgroundColor = '';
			event.srcElement.style.color = 'black';
			window.status = '';
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function jumptoie5(){
  var sFunctionName='jumptoie5';
  try{
		if (event.srcElement.className == 'menuitems'){
			window.location = event.srcElement.url;
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function clickIE(){
  var sFunctionName='clickIE';
  try{
		if(document.all){
			(message);
			return false;
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function clickNS(e){
  var sFunctionName='clickNS';
  try{
		if(document.layers||(document.getElementById&&!document.all)){
			if(e.which==2||e.which==3){
				(message);
				return false;
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function noBack(){
  var sFunctionName='noBack';
  try{
		alert("Você não pode voltar pelo botão VOLTAR do browser! Tente no sistema.");
		return false;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function pressIEUp(){
  var sFunctionName='pressIEUp';
  try{
		var tecla;

    if (typeof(xevent.charCode) == 'undefined'){
		  tecla = xevent.keyCode;
    }else{
		  tecla = xevent.charCode;
		  if (keypress==0){
  		  //tecla = xevent.keyCode;
		  }
		}

		if((tecla==jsKeyEscape)||(tecla==jsKeyMenu)||(tecla==jsKeyControl)){
			return false;
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function pressIEPress(){
  var sFunctionName='pressIEPress';
  try{
		var tecla;
    if (typeof(xevent.charCode) == 'undefined'){
		  tecla = xevent.keyCode;
    }else{
		  tecla = xevent.charCode;
		  if (keypress==0){
  		  //tecla = xevent.keyCode;
		  }
		}
		if((tecla==jsKeyEscape)||(tecla==jsKeyMenu)||(tecla==jsKeyControl)){
			return false;
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function pressIEDown(){
  var sFunctionName='pressIEDown';
  try{
		var tecla;

    if (typeof(xevent.charCode) == 'undefined'){
		  tecla = xevent.keyCode;
    }else{
		  tecla = xevent.charCode;
		  if (keypress==0){
  		  //tecla = xevent.keyCode;
		  }
		}
		if ((tecla==jsKeyF11)){
			xevent.keyCode = false;
			return false;
		}
		if((tecla==jsKeyEscape)||(tecla==jsKeyMenu)||(tecla==jsKeyControl)){
			return false;
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function Valida_Renavam(obj){
  var sFunctionName = 'Valida_Renavam';
  try{
		var lsCod_Renavam;
		var lnResto, lnDigito_Informado, lnDigito_Calculado
		lsCod_Renavam = subright(("000000000" + obj.value),9);
		lnDigito_Informado = subright(lsCod_Renavam,1);
		lnResto = Sysin_CalcModulo11(subleft(lsCod_Renavam,8), 'P');
		if (lnResto == 0 || lnResto == 1){
			lnDigito_Calculado = 0;
		}else{
			lnDigito_Calculado = 11 - lnResto;
		}
		if (lnDigito_Informado != lnDigito_Calculado){
			alert('Código Renavam inválido!');
			obj.focus();
			return(false);
		}else{
			return(true);
		}
	}catch(err){
    trataErro(err,sFunctionName);
  }
}

function Sysin_CalcModulo11(psValue, pTipoRet){
  var sFunctionName='Sysin_CalcModulo11';
  try{
		var lnAcumula,lnMultiplicador,lnPosicao,lnResto,lnResto_Puro;
		lnMultiplicador = 2;
		lnPosicao = psValue.length;
		lnAcumula = 0;
		for (i=lnPosicao; i>=1; i--){
			lnAcumula = lnAcumula + (lnMultiplicador * psValue.substr(i-1,1));
			lnMultiplicador = lnMultiplicador + 1;
			if (lnMultiplicador > 9){
				lnMultiplicador = 2;
			}
		}
		lnResto_Puro = (lnAcumula % 11);
		lnResto = (11 - lnResto_Puro);
		if ( (lnResto == 0) || (lnResto > 9) ){
			lnResto = 1;
		}
		if (pTipoRet == 'P'){
			return(lnResto_Puro);
		}else{
			return(lnResto);
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function trocaImagem(objImg,imagem){
  var sFunctionName='trocaImagem';
  try{
		objImg.src = imagem;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function DisabledImageButton(pCaminho,pName,pAcao){
  var sFunctionName='DisabledImageButton';
  try{
		var Obj = eval(pCaminho + '.' + pName);
		var ok = false;
		if (typeof(Obj) == 'object') {
			ok = true;
		}else{
			//pCaminho = pCaminho.replace('.all','.getElementById');
			//Obj = eval(pCaminho + "('" + pName + "')");
			if ( inStr(pCaminho,'parent') >= 0 ){
				Obj = window.parent.document.getElementById(pName);
			}else{
				Obj = document.getElementById(pName);
			}
			if ( (typeof(Obj) == 'object') && (Obj!=null) ) {
				ok = true;
			}
		}
		if (ok){
			if (Obj.tagName == 'LABEL'){
				DisabledOptionButton(Obj,(pAcao == 'S'));
			}else{
				DisabledImageButton2(Obj,(pAcao == 'S'));
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function DisabledImageButton2(Obj,bAcao){
  var sFunctionName='DisabledImageButton2';
  try{
		var newImage = new Image();
		var stronmouseover;
		var stronmouseout;
		var stronclick;
		var strstyle;
		var path, srclen;
		var nObj;
		if (typeof(Obj) == 'object') {
			var nIni = 1;
			var nFim = 1;
			if (typeof(Obj.length) == 'number'){
				var nFim = Obj.length;
			}
			for (nObj=nIni;nObj<=nFim;nObj++){
				if (typeof(Obj.length) == 'number'){
					objTemp = Obj[nObj-1];
				}else{
					objTemp = Obj;
				}
				if (Obj.style.display != 'none'){ //Ricardo- Mesmo sendo hidden o objeto aparecia
					if (bAcao && objTemp.getAttribute('imgStatus') =='N'){
						nada();
						objTemp.setAttribute('imgStatus','D');
						//Salva Situacao Atual
						stronmouseover			= objTemp.onmouseover;
						stronmouseout				= objTemp.onmouseout;
						stronclick					= objTemp.onclick;
						strstyle						= objTemp.style.cssText;
						objTemp.onmouseover			= new Function("return true;");
						objTemp.onmouseout			= new Function("return true;");
						objTemp.onclick					= new Function("return true;");
						objTemp.style.cssText		= objTemp.tmpstyle;
						objTemp.style.cursor		= 'default';
						objTemp.style.filter		= 'gray';
						objTemp.style.opacity = .3;

						//Salva Situacao Anterior
						objTemp.tmponmouseover = stronmouseover;
						objTemp.tmponmouseout = stronmouseout;
						objTemp.tmponclick = stronclick ;
						//objTemp.setAttribute('tmponclick',stronclick);
						objTemp.tmpstyle = strstyle;
					}else if (!(bAcao) && Obj.getAttribute('imgStatus') =='D'){
						//Salva Situacao Atual
						objTemp.setAttribute('imgStatus','N');
						stronmouseover			= objTemp.onmouseover;
						stronmouseout				= objTemp.onmouseout;
						stronclick					= objTemp.onclick;
						strstyle						= objTemp.style.cssText;
						objTemp.onmouseover		= objTemp.tmponmouseover;
						objTemp.onmouseout		= objTemp.tmponmouseout;

						objTemp.onclick			= objTemp.tmponclick; //new Function('event',tmp) ;
						objTemp.style.cssText		= objTemp.tmpstyle;
						objTemp.style.cursor		= 'hand';
						objTemp.style.filter		= 'none';
						objTemp.style.opacity = 1;
						//Salva Situacao Anterior
						objTemp.tmponmouseover = stronmouseover;
						objTemp.tmponmouseout = stronmouseout;
						objTemp.tmponclick = stronclick;
						objTemp.tmpstyle = strstyle;
					}
				}
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function DisabledOptionButton(Obj,bAcao){
  var sFunctionName='DisabledOptionButton';
  try{
		var stronmouseover;
		var stronmouseout;
		var stronclick;
		var strstyle;
		var path, srclen;
		if (typeof(Obj) == 'object'){
			if (bAcao && Obj.getAttribute('btnStatus') == 'N'){
				nada();
				//Salva Situacao Atual
				stronmouseover			= Obj.onmouseover;
				stronmouseout				= Obj.onmouseout;
				stronclick					= Obj.onclick;
				strstyle						= Obj.style.cssText;
				Obj.onmouseover			= new Function("return true;");
				Obj.onmouseout			= new Function("return true;");
				Obj.onclick					= new Function("return true;");
				Obj.style.cssText		= Obj.tmpstyle;
				Obj.style.cursor		= 'default';
				Obj.setAttribute('btnStatus','D');
				Obj.childNodes[0].style.color = '#808080';
				Obj.childNodes[1].style.color = '#808080';
				//Salva Situacao Anterior
				Obj.tmponmouseover = stronmouseover;
				Obj.tmponmouseout = stronmouseout;
				Obj.tmponclick = stronclick;
				Obj.tmpstyle = strstyle;
			}else if (!(bAcao) && Obj.getAttribute('btnStatus') == 'D'){
				//Salva Situacao Atual
				stronmouseover			= Obj.onmouseover;
				stronmouseout				= Obj.onmouseout;
				stronclick					= Obj.onclick;
				strstyle						= Obj.style.cssText;
				Obj.onmouseover			= Obj.tmponmouseover;
				Obj.onmouseout			= Obj.tmponmouseout;
				Obj.onclick			= Obj.tmponclick;
				Obj.style.cssText		= Obj.tmpstyle;
				Obj.style.cursor		= 'hand';
				Obj.setAttribute('btnStatus','N');
				Obj.childNodes[0].style.color = '#ff0000';
				Obj.childNodes[1].style.color = '#000000';
				//Salva Situacao Anterior
				Obj.tmponmouseover = stronmouseover;
				Obj.tmponmouseout = stronmouseout;
				Obj.tmponclick = stronclick;
				Obj.tmpstyle = strstyle;
			}
		}
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function LimpaInputByID(oID){
  var sFunctionName='LimpaImputByID';
  try{

		var i;
		var ColInput;
		var sInput;

	  var ColInput = oID.getElementsByTagName('INPUT');
	  for (i=0;i<ColInput.length;i++){
	  	sInput = ColInput[i];
	  	sInput.value='';
	  }
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fMouseOver(obj,clrOver){
  var sFunctionName='fMouseOver';
  try{
    obj.style.cursor = 'hand';
    obj.style.backgroundColor  = clrOver;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fMouseOut(obj,clrOut){
  var sFunctionName='fMouseOut';
  try{
    obj.style.cursor = 'default';
    obj.style.backgroundColor  = clrOut;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function fCMC7( psCMC7 ){
  var sFunctionName='fCMC7';
  try{
    var lsGrupo;
    var lnArray;
    var lnNumber;
    var lnInicio;
    var lnPar;
    var lnValor;
    var lnVetor;
    var lnSoma;
    var lnDigito;
    var lnPos;
    var lnCount;
    var lnLimite;
    var lbErro;
    var lnGrupoErro;
    var lsRetorno;
    var lnResto;
    var lsValor;

    lsRetorno = 'S';

    psCMC71 = psCMC7.substr(0,8);
    psCMC72 = psCMC7.substr(8,10);
    psCMC73 = psCMC7.substr(18,12);

    lbErro = false;

    if (psCMC71 != '' && psCMC72 != '' && psCMC73 != ''){
      lnCount = 1;
      lnGrupoErro = 0;

      while (lnCount <= 3 && !lbErro){
        lnValor = 0;
        lnVetor = 0;
        lnPos = 0;
        lnSoma = 0;
        if (lnCount == 1){
          lsGrupo = psCMC72;
          lnPar = 1;
          lnInicio = 0;
          lnLimite = 10;
        }else if (lnCount == 2){
          lsGrupo = psCMC71;
          lnPar = 2;
          lnInicio = 0;
          lnLimite = 7;
        }else if (lnCount == 3){
          lsGrupo = psCMC73;
          lnPar = 1;
          lnInicio = 1;
          lnLimite = 10;
        }

        lnArray = new Array(21);
        while (parseInt(lnPos) < parseInt(lnLimite)){
          lnValor = parseInt(lsGrupo.substr(lnInicio,1));
          if (lnPar == 1){
            lnPar = 2;
            lnArray[lnVetor] = lnValor;
          }else{
            lnValor = lnValor * 2;
            lsValor = lnValor + '';
            if (lsValor.length == 2){
              lnArray[ lnVetor ] = parseInt(subleft(lsValor,1));
              lnSoma = lnSoma + lnArray[ lnVetor ];
              ++lnVetor;
              lnArray[ lnVetor ] = parseInt(subright(lsValor,1));
            }else{
              lnArray[ lnVetor ] = lnValor;
            }
            lnPar = 1;
          }
          lnSoma = lnSoma + lnArray[ lnVetor ];
          ++lnVetor;
          ++lnInicio;
          ++lnPos;
        }

        lnResto = (lnSoma % 10)
        if (lnResto == 0){
          lnDigito = 0;
        }else{
          lnDigito = (10 - lnResto);
        }
        if (lnCount == 1){
          if (subright( psCMC71, 1 ) != lnDigito + ''){
            lnGrupoErro = 1;
            lbErro = true;
          }
        }else if (lnCount == 2){
          if (subleft( psCMC73, 1 ) != lnDigito + ''){
            lnGrupoErro = 2;
            lbErro = true;
          }
        }else if (lnCount == 3){
          if (subright( psCMC73, 1 ) != lnDigito + ''){
            lnGrupoErro = 3;
            lbErro = true;
          }
        }
        ++lnCount;
      }
      if (lbErro){
        lsRetorno = 'N';
      }
    }
    return lsRetorno;
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

function RestricaoPesquisa( RESTRICAOINI, AREA_CCF, AREA_ALERTA, AREA_ATRASO, AREA_ORGAO ){
  var sFunctionName='RestricaoPesquisa';
	try{
		var strHead='<font color="#FFFFFF" face="Tahoma" size=1>'
		var strFarol = '';
		var colorblack			= '#000000';
		var colorwhite			= '#ffffff';
		var coloryellow			= '#FFFF00';
		var colorred				= '#E64040';
		var colorgreen			= '#00FF00';
		var colordarkgreen	= '#4FA650';
		var colorblue				= '#4448E2';
		var colorpink				= '#e94cb4';
		var colordarkblue		= '#4668e4';
		var colorlightblue	= '#9db8f8';
		var colorgray				= '#c0c0c0';
		var	habilitaRaioOrg = false;
		var	habilitaSetaOrg = false;

		var COD_COR_CCF = colorblack;
		var COD_COR_ALERTA = colorblack;
		var COD_COR_ATRASO = colorblack;
		var COD_COR_ORGAO = colorblack;

		var FLAG_APROV_CCF		= RESTRICAOINI.substr(0,1);
		var FLAG_APROV_ALERTA	= RESTRICAOINI.substr(1,1);
		var FLAG_APROV_ATRASO	= RESTRICAOINI.substr(2,1);
		var FLAG_APROV_SPC		= RESTRICAOINI.substr(3,1);
		var FLAG_ACAO					= RESTRICAOINI.substr(4,1);

		var strColor = '';
		/*
		Rejane pediu para tirar esta imformacao - 07/01/2005
		if (FLAG_ACAO=='1'){
			strColor = strColor + " <font color='#00ff00'>VERDE</font>";
		}else if (FLAG_ACAO=='2'){
			strColor=strColor + " <font color='#ffff00'>AMARELO</font>";
		}else if (FLAG_ACAO=='3'){
			//Rejane pediu para tirar - 30/09/2004 - strBody = strBody + " <font color='#ffff00'>AMARELO (Com Consulta)</font>";
			strColor = strColor + " <font color='#ffff00'>AMARELO</font>";
		}else if (FLAG_ACAO=='4'){
			strColor = strColor + " <font color='#ff0000'>VERMELHO (Restrição Externa)</font>";
		}else if (FLAG_ACAO=='5'){
			strBody = strColor + " <font color='#ff0000'>VERMELHO (Restrição Interna)</font>";
		}else if (FLAG_ACAO=='6'){
			strColor = strColor + " <font color='#000000'>PRETO</font>";
		}
		*/

		strDescColor = '';
		entrou=0;
		if (FLAG_APROV_CCF == "N"){
			if (AREA_CCF == 9992){
				strDescColor = strDescColor + ' - Cliente em CCF. Operação Recusada.<br>';
				COD_COR_CCF = colorred;
			}else if (AREA_CCF > 0){
				COD_COR_CCF = coloryellow;
			}else{
				COD_COR_CCF = colorgray;
			}
		}	
		else if (FLAG_APROV_CCF == "P"){
		  COD_COR_CCF = colorgray;
		}else{
			COD_COR_CCF = colorgreen;
		}
		if (FLAG_APROV_ALERTA == "N"){
			if (AREA_ALERTA == 9992){
				strDescColor = strDescColor + ' - Cliente em ALERTA. Operação Recusada.<br>';
				COD_COR_ALERTA = colorred;
			}else if (AREA_ALERTA > 0){
				COD_COR_ALERTA = coloryellow;
			}else{
				COD_COR_ALERTA = colorgray;
			}
		}	
		else if (FLAG_APROV_ALERTA == "P"){
		  COD_COR_ALERTA = colorgray;	
		}else{
			COD_COR_ALERTA = colorgreen;
		}
		if (FLAG_APROV_ATRASO == "N"){
			if (AREA_ATRASO == 9992){
				strDescColor = strDescColor + ' - Cliente em ATRASO. Operação Recusada.<br>';
				COD_COR_ATRASO = colorred;
			}else if (AREA_ATRASO > 0){
				COD_COR_ATRASO = coloryellow;
			}else{
				COD_COR_ATRASO = colorgray;
			}
		}
		else if (FLAG_APROV_ATRASO == "P"){
		  COD_COR_ATRASO = colorgray;
		}else{
			COD_COR_ATRASO = colorgreen;
		}
		if (FLAG_APROV_SPC == "N"){
			if (AREA_ORGAO == 9992){
				strDescColor = strDescColor + ' - Cliente em SPC. Operação Recusada.<br>';
				COD_COR_ORGAO = colorred;
			}else if (AREA_ORGAO > 0){
				COD_COR_ORGAO = coloryellow;
			}else{
				COD_COR_ORGAO = colorgray;
			}
		}
		else if (FLAG_APROV_SPC == "P"){
		  COD_COR_ORGAO = colorgray;	
		}else{
			COD_COR_ORGAO = colorgreen;
		}

		strBody = '<table class="tabelainvisivel" width=100%><tr><td><strong>';
		if (strColor.length > 0){
			strBody = strBody + '<hr>Situação: ' + strColor;
		  if (strDescColor.length > 0){
		  	strBody = strBody + strDescColor;
		  }
		}
		var QTDE_ORGAOS = RESTRICAOINI.substr(5,2)*1;
		var pos=7;

		COD_COR_SPC = colorgray;
		COD_COR_SERASA = colorgray;
		habilitaRaio = false;
		habilitaSeta = false;

		for (i=0; i < QTDE_ORGAOS; i++){
			COD_COR_ORGAO = colorblack;
			TIPO_CONSULTA      =  RESTRICAOINI.substr(pos,1);
			pos=pos+1;
			FLAG_CONSULTA      =  RESTRICAOINI.substr(pos,1);
			pos=pos+1;
			DATA_ULT_CONSULTA  =  FData(RESTRICAOINI.substr(pos,8),'AAAAMMDD');
			pos=pos+8;
			FAZER_CONSULTA     =  RESTRICAOINI.substr(pos,1);
			pos=pos+1;
			TEM_RESTRICAO      =  RESTRICAOINI.substr(pos,1);
			pos=pos+1;
			NUM_CONSULTA       =  RESTRICAOINI.substr(pos,12);
			pos=pos+12;
			if (TEM_RESTRICAO == 'N' && FAZER_CONSULTA == 'N'){
				COD_COR_ORGAO = colorgreen;
				habilitaRaioOrg = false;
				habilitaSetaOrg = true;
			}else if (TEM_RESTRICAO == 'S'){
				COD_COR_ORGAO = colorred;
				habilitaRaioOrg = true;
				habilitaSetaOrg = false;
			}else if (TEM_RESTRICAO == 'P'){
				COD_COR_ORGAO = colorgray;	
			}else if (FAZER_CONSULTA == 'S'){
				COD_COR_ORGAO = coloryellow;
				habilitaRaioOrg = true;
				habilitaSeta = false;
			}else if (TEM_RESTRICAO == 'E'){
				COD_COR_ORGAO = colorblack;
				habilitaRaioOrg = true;
				habilitaSetaOrg = false;
			}
			if (i == 0){
				habilitaRaio = habilitaRaioOrg;
				habilitaSeta = habilitaSetaOrg;
			}else{
				if (habilitaRaio == false && habilitaRaioOrg == true){
					habilitaRaio = true;
				}
				if (habilitaSeta == true && habilitaSetaOrg == false){
					habilitaSeta = false;
				}
			}
			if (TIPO_CONSULTA=="1"){
				TIPO_CONSULTA="SPC";
				COD_COR_SPC = COD_COR_ORGAO;
			}else if (TIPO_CONSULTA=="2"){
				TIPO_CONSULTA="TELECHEQUE";
			}else if (TIPO_CONSULTA=="3"){
				TIPO_CONSULTA="SERASA";
				COD_COR_SERASA = COD_COR_ORGAO;
			}else if (TIPO_CONSULTA=="6"){
				TIPO_CONSULTA="CREDIT BUREAU";
				COD_COR_SERASA = COD_COR_ORGAO;
			}else{
				TIPO_CONSULTA="ORG.EXT."+TIPO_CONSULTA;
			}
			strBody=strBody+'<hr>';
			strBody=strBody+'*** '+TIPO_CONSULTA+' ***'+'<BR>';
			strBody=strBody+'&nbsp;Data Última Consulta: '+DATA_ULT_CONSULTA+'<BR>';
			strBody=strBody+'&nbsp;Efetuar Consulta: '+FAZER_CONSULTA+'<BR>';
			strBody=strBody+'&nbsp;Tem Restrição: '+TEM_RESTRICAO;
		}
		strFarol = strFarol + '<table class="tabelainvisivel" cellpadding=0 cellspacing=0 style="border-collapse:collapse;table-layout:fixed;">';
		strFarol = strFarol + '<tr style="height:10pt">';
		strFarol = strFarol + '<td style="width:10pt" bgcolor="'+COD_COR_CCF+'"><img height=11 src="'+pathJS+'images/transp.gif" width=11 border=1><br></td>';
		strFarol = strFarol + '<td>&nbsp;<b>CCF</b></td>';
		strFarol = strFarol + '<td style="width:10pt" bgcolor="'+COD_COR_ALERTA+'"><img height=11 src="'+pathJS+'images/transp.gif" width=11 border=1><br></td>';
		strFarol = strFarol + '<td>&nbsp;<b>ALERTA</b></td>';
		strFarol = strFarol + '<td style="width:10pt" bgcolor="'+COD_COR_ATRASO+'"><img height=11 src="'+pathJS+'images/transp.gif" width=11 border=1><br></td>';
		strFarol = strFarol + '<td>&nbsp;<b>ATRASO</b></td>';
		strFarol = strFarol + '<td style="width:10pt" bgcolor="'+COD_COR_SERASA+'"><img height=11 src="'+pathJS+'images/transp.gif" width=11 border=1><br></td>';
		strFarol = strFarol + '<td>&nbsp;<b>SERASA/CB</b></td>';
		strFarol = strFarol + '<td style="width:10pt" bgcolor="'+COD_COR_SPC+'"><img height=11 src="'+pathJS+'images/transp.gif" width=11 border=1><br></td>';
		strFarol = strFarol + '<td>&nbsp;<b>SPC</b></td>';
		strFarol = strFarol + '</tr>';
		strFarol = strFarol + '</table>';
		var strBottom = "</strong></table></font>";
		//return(strHead+strFarol+strBottom);
		return(strHead+strFarol+strBody+strBottom);
	}catch(err){
    trataErro(err,sFunctionName);
  }
}

function none(){
  return true;
}

function fVBSCaller(psFile_Exec,psFuncao_Param_Exec){
  var sFunctionName='fVBSCaller';
	try{
		var oObjXMLHttp;
		try{
			oObjXMLHttp = new XMLHttpRequest();
		}catch(e){
			try{
				oObjXMLHttp = new ActiveXObject("Msxml2.XMLHTTP");
			}catch(ee){
				try{
					oObjXMLHttp = new ActiveXObject("Microsoft.XMLHTTP");
				}catch(eee){
					return '';
				}
			}
		}
		oObjXMLHttp.open('POST',psFile_Exec,false);
		oObjXMLHttp.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
		oObjXMLHttp.send('fn='+escape(psFuncao_Param_Exec)+ '&xparmx=' + ID_COOKIE_KEY);
		if (oObjXMLHttp.statusText == 'OK'){
			return(oObjXMLHttp.responseText);
		}else{
			alert('Problemas na chamada da rotina:\n'+psFile_Exec+' ('+psFuncao_Param_Exec+')\n\nStatus: '+oObjXMLHttp.statusText);
			document.frmSubmitTela.Parametros.value = oObjXMLHttp.responseText;
			document.frmSubmitTela.action = pathJS + 'Errors/vbsErro.asp';
			document.frmSubmitTela.submit();
			return('');
		}
	}catch(err){
    trataErro(err,sFunctionName);
  }
}

//***************************************
//	FUNCAO PARA CORRIGIR BUG DO FIREFOX
//***************************************
function FixOnChange(target){
  target.originalOnBlur = target.onblur;
  target.originalOnChange = target.onchange;
	target.originalOnFocus = target.onfocus;

  function Target_OnFocus(){
		target.setAttribute('oldvalue',target.value);
  	target.onfocus = target.originalOnFocus;
  		//target.onfocus();
		setTimeout('target.onfocus();',0);
  }

 	function Target_OnBlur(){
    target.onblur = target.originalOnBlur;
		target.onblur();
		target.onblur = Target_OnBlur;
		var newValue = target.value;
		if (newValue != target.getAttribute('oldvalue')){
			target.setAttribute('oldvalue',newValue);
			target.onchange = target.originalOnChange;
			//target.onchange();
		  setTimeout('target.onchange();',0);
			target.onchange = null;
		}
	}
	target.onfocus = Target_OnFocus;
  target.onblur = Target_OnBlur;
  target.onchange = null;
}   

//SSI 17841 - Verifica o número de caracteres máximo para digitação       
function LimitaCaracterRefBancaria(idx_linha,QTD_DIG_AGENCIA,QTD_DIG_DV_AG,QTD_DIG_CONTA,QTD_DIG_DV_CC){ 
          var tabela = window.parent.document.all.grdTREFER_BANCARIA;   

          var colLinha = tabela.rows;
          var colColuna = colLinha[idx_linha].cells;
          
          //verifica caracteres da agência
          var id=colColuna[3].childNodes[0].id;
           
          if (QTD_DIG_AGENCIA>'0'){      
              window.parent.document.getElementById(id).setAttribute('maxLength', QTD_DIG_AGENCIA); 
              window.parent.document.getElementById(id).disabled=false; 
              //se for o conteúdo que já está no campo tiver mais caracteres que o permitido limpa o campo - caso haja alteração no banco escolhido
              if  (window.parent.document.getElementById(id).value.length>QTD_DIG_AGENCIA){
                   window.parent.document.getElementById(id).value='';
              }
          }else{ 
              window.parent.document.getElementById(id).disabled=true; 
              window.parent.document.getElementById(id).value='';
          } 
            
          //verifica caracteres do digito da agência
          id=colColuna[4].childNodes[0].id;             
          if (QTD_DIG_DV_AG>0){
            window.parent.document.getElementById(id).setAttribute('maxLength', QTD_DIG_DV_AG); 
            window.parent.document.getElementById(id).disabled=false;  
            //se for o conteúdo que já está no campo tiver mais caracteres que o permitido limpa o campo - caso haja alteração no banco escolhido
              if  (window.parent.document.getElementById(id).value.length>QTD_DIG_DV_AG){
                   window.parent.document.getElementById(id).value='';
              }
          }else{
            window.parent.document.getElementById(id).disabled=true;
            window.parent.document.getElementById(id).value=''; 
          }
          
          id=colColuna[5].childNodes[0].id;      
          if (QTD_DIG_CONTA>0) {    
             window.parent.document.getElementById(id).setAttribute('maxLength', QTD_DIG_CONTA); 
             window.parent.document.getElementById(id).disabled=false;   
             //se for o conteúdo que já está no campo tiver mais caracteres que o permitido limpa o campo - caso haja alteração no banco escolhido
              if  (window.parent.document.getElementById(id).value.length>QTD_DIG_CONTA){
                   window.parent.document.getElementById(id).value='';
              }
          }else{   
              window.parent.document.getElementById(id).disabled=true; 
              window.parent.document.getElementById(id).value='';
          }
              
          id=colColuna[6].childNodes[0].id;      
          if (QTD_DIG_DV_CC>0){   
             window.parent.document.getElementById(id).setAttribute('maxLength', QTD_DIG_DV_CC); 
             window.parent.document.getElementById(id).disabled=false;   
             //se for o conteúdo que já está no campo tiver mais caracteres que o permitido limpa o campo - caso haja alteração no banco escolhido
              if  (window.parent.document.getElementById(id).value.length>QTD_DIG_DV_CC){
                   window.parent.document.getElementById(id).value='';
              }
          }else{ 
              window.parent.document.getElementById(id).disabled=true; 
              window.parent.document.getElementById(id).value='';
          }  
          

}



//SSI 17841 - Verifica o número de caracteres máximo para digitação       
function LimitaCaracterRefBancariaDOC(idx_linha,QTD_DIG_AGENCIA,QTD_DIG_DV_AG,QTD_DIG_CONTA,QTD_DIG_DV_CC){

          var tabela = window.parent.document.all.grdTDOC_MULTI; 
          var colLinha = tabela.rows 
          var colColuna = colLinha[idx_linha].cells;
          //verifica caracteres da agência
          var id=colColuna[16].childNodes[0].id; 
          
          
          if (QTD_DIG_AGENCIA>'0'){ 
             window.parent.document.getElementById(id).setAttribute('maxLength', QTD_DIG_AGENCIA);
              window.parent.document.getElementById(id).disabled=false;
              //se for o conteúdo que já está no campo tiver mais caracteres que o permitido limpa o campo - caso haja alteração no banco escolhido
              if  (window.parent.document.getElementById(id).value.length>QTD_DIG_AGENCIA){
                   window.parent.document.getElementById(id).value='';  
                   
              }
          }else{ 
              window.parent.document.getElementById(id).disabled=true; 
              window.parent.document.getElementById(id).value='';
          } 
          //verifica caracteres do digito da agência
          id=colColuna[17].childNodes[0].id;             
          if (QTD_DIG_DV_AG>0){
            window.parent.document.getElementById(id).setAttribute('maxLength', QTD_DIG_DV_AG); 
            window.parent.document.getElementById(id).disabled=false;  
            //se for o conteúdo que já está no campo tiver mais caracteres que o permitido limpa o campo - caso haja alteração no banco escolhido
              if  (window.parent.document.getElementById(id).value.length>QTD_DIG_DV_AG){
                   window.parent.document.getElementById(id).value='';
              }
          }else{
            window.parent.document.getElementById(id).disabled=true;
            window.parent.document.getElementById(id).value=''; 
          }
          
          id=colColuna[18].childNodes[0].id;      
          if (QTD_DIG_CONTA>0) {    
             window.parent.document.getElementById(id).setAttribute('maxLength', QTD_DIG_CONTA); 
             window.parent.document.getElementById(id).disabled=false;   
             //se for o conteúdo que já está no campo tiver mais caracteres que o permitido limpa o campo - caso haja alteração no banco escolhido
              if  (window.parent.document.getElementById(id).value.length>QTD_DIG_CONTA){
                   window.parent.document.getElementById(id).value='';
              }
          }else{   
              window.parent.document.getElementById(id).disabled=true; 
              window.parent.document.getElementById(id).value='';
          }
              
          id=colColuna[19].childNodes[0].id;      
          if (QTD_DIG_DV_CC>0){   
             window.parent.document.getElementById(id).setAttribute('maxLength', QTD_DIG_DV_CC); 
             window.parent.document.getElementById(id).disabled=false;   
             //se for o conteúdo que já está no campo tiver mais caracteres que o permitido limpa o campo - caso haja alteração no banco escolhido
              if  (window.parent.document.getElementById(id).value.length>QTD_DIG_DV_CC){
                   window.parent.document.getElementById(id).value='';
              }
          }else{ 
              window.parent.document.getElementById(id).disabled=true; 
              window.parent.document.getElementById(id).value='';
          }  
}

//SSI 18847 - DANILO - 18/06/2010
function fClick(){   
  if(vSeforServidor == 'N'){
    if (event.button==2||event.button==3) {
      alert('Opção não permitida!');
    }
  }
}

//SSI 21146 - DANILO - 11/08/2011    
//SSI 20999 - DANILO - 23/08/2011
function fValidaDDD(obj){
  var sFunctionName='fValidaDDD';
  try{
    pDDD = obj.value;
    if ((pDDD.length > 2)||(pDDD.length == 1)){
      alert('DDD Inválido!');
      fSetProperty(obj,'value','');
      obj.focus();
    }else{
      if(pDDD.substr(0,1) == '0'){
        alert('DDD Inválido!');
        fSetProperty(obj,'value','');
        obj.focus();
      }
    }
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//SSI 21146 - DANILO - 11/08/2011
//SSI 21146 - SUELLEN - 20/10/2011 - Incluida variável mGBURLProcon
function fRecuperaBloqueioProcon(pTelefone, pDataReferencia){
  try{
    
	  var strWSReturn;
	  var sResposta;
    var AsmxUrl = mGBURLProcon + 'TWSClienteProcon.asmx';
    var pacSoap = "<?xml version='1.0' encoding='utf-8'?> ";
    pacSoap += '<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">';
    pacSoap += '<soap:Body>';
    pacSoap += '<ClienteProcon xmlns="' + mGBURLProcon + 'TWSClienteProcon.asmx">';
    pacSoap += '<_fDDDTel>string</_fDDDTel>';
    pacSoap += '<_dDataReferencia>string</_dDataReferencia>';
    pacSoap += '</ClienteProcon>';
    pacSoap += '</soap:Body>';
    pacSoap += '</soap:Envelope>';
    var SoapActionUrl = mGBURLProcon + 'TWSClienteProcon.asmx/ClienteProcon';
    var objDom = new ActiveXObject('MSXML2.DOMDocument');
    var objXmlHttp = new ActiveXObject('MSXML2.XMLHTTP');
    var objDOMDocumentReturn = new ActiveXObject('MSXML2.DOMDocument');
    var xmlDoc = new ActiveXObject("Microsoft.XMLDOM");
    
    objDom.async = false;
    objDom.loadXML(pacSoap);
    
    //Define o valor do node sData
    objDom.selectSingleNode('soap:Envelope/soap:Body/ClienteProcon/_fDDDTel').text = pTelefone;
    objDom.selectSingleNode('soap:Envelope/soap:Body/ClienteProcon/_dDataReferencia').text = pDataReferencia;

    //Abre o webservice
    objXmlHttp.open('POST', AsmxUrl, false);

    //Cria headings
    objXmlHttp.setRequestHeader('Content-Type', 'text/xml; charset=utf-8');
    objXmlHttp.setRequestHeader('SOAPAction', SoapActionUrl);
    
    //Envia o comando XML
    objXmlHttp.send(objDom.xml);

    //Obtem a resposta XML do WebServices
    strWSReturn = objXmlHttp.responseText;
    
    xmlDoc.async="false";
    xmlDoc.loadXML(strWSReturn);
    
    if(xmlDoc.parseError.errorCode!=0){
      
      var pMsgError = 'Erro no retorno do WebService (ClienteProcon)!\n\n';
      pMsgError += 'Error Code: ' + xmlDoc.parseError.errorCode + '\n';
      pMsgError += 'Error Reason: ' + xmlDoc.parseError.reason;
      pMsgError += 'Error Line: ' + xmlDoc.parseError.line;
      
      alert(pMsgError);
      return false;
      
    }else{      
      
      sErro = fExtractXML(strWSReturn,'faultcode');
      
      if(sErro == 'undefined'){
        alert('Erro no retorno do WebService (Cliente Procon)!\n\nString XML:\n\n' + strWSReturn);
        sResposta = false;
      }else{
        objDom.loadXML(strWSReturn);
        sResposta = objDom.selectSingleNode('soap:Envelope/soap:Body/ClienteProconResponse/ClienteProconResult').text;        
      }
      return sResposta;
      
    }
    
    objDom = null;
    xmlDoc = null;
    
  }catch(err){
  	alert(err.message);
	}	
}

//SSI 21146 - DANILO - 11/08/2011
//SSI 21241 SUELLEN
function fExtractXML(sConteudo, sTag){
  var i, f, li, lf, l;
  var sCampoI, sCampoF;
  var sParte1, sParte2;

  
  sCampoI = '<' + sTag + '>';
  sCampoF = '</' + sTag + '>';

  li = sCampoI.length;
  lf = sCampoF.length;

  i = sConteudo.indexOf(sCampoI);
  
  if (i > 0){

    f = sConteudo.indexOf(sCampoF);
    
    l = f - (i + li);
    
    sRetorno = sConteudo.substr(i + li, l);
    
    return sRetorno;
  }
}      

//SSI 21146 - DANILO - 11/08/2011
function fVerificaBloqProcon(pObj,pObjCorresp,pChamada,pObjMsgProcon){
  var sFunctionName='fVerificaBloqProcon';
  try{

    var objDom = new ActiveXObject('MSXML2.DOMDocument');
    objDom.async = false;   
    
    if(pChamada != ''){
      
      var pObjMsgProcon;
      var pHabilitaMsg = false;
      var pNomeCampo = pObj.name
      var pVerifCampo = pNomeCampo.indexOf('DDD');
      
      if(pVerifCampo > 0){
        pNumDDD = pObj.value;
        pNumTel = pObjCorresp.value;
      }else{
        pNumTel = pObj.value;
        pNumDDD = pObjCorresp.value;
      }
      
      if(pNumDDD != '' && pNumTel != ''){
        var pDDDTel = pNumDDD + pNumTel;
        var sRetorno4 = fRecuperaBloqueioProcon(pDDDTel, mGB_DataReferencia);
        if(sRetorno4 != 'undefined' && sRetorno4){
        	objDom.loadXML(sRetorno4);
          try{
          	var pSituacao4 = objDom.selectSingleNode('ClienteProcon/Situacao').text;
          }catch(err){
          	alert('Erro ao recuperar Tag Situacao - WebService (ClienteProcon)!!');
          }

          if(pSituacao4 != 'undefined'){
	          pSituacao4 = fExtractXML(sRetorno4,'Situacao');
	          if(pSituacao4 == 'BLOQUEADO'){
  	          pObj.style.backgroundColor = '#FF0000';
  	          pObjCorresp.style.backgroundColor = '#FF0000';
  	          pHabilitaMsg = true;
  	        }else{
  	          pObj.style.backgroundColor = '#FFFFFF';
  	          pObjCorresp.style.backgroundColor = '#FFFFFF';
  	          pHabilitaMsg = false;
  	        }
	        }else{
            alert('Erro ao recuperar os dados do XML - WebService (ClienteProcon)!!');
          }
	      }
	      if(pHabilitaMsg){
          pObjMsgProcon.style.display = '';
        }else{
          pObjMsgProcon.style.display = 'none';
        }
      //SSI 21146 - DANILO - 03/10/2011
      }else{
        pObj.style.backgroundColor = '#FFFFFF';
        pObjCorresp.style.backgroundColor = '#FFFFFF';
        pObjMsgProcon.style.display = 'none';
      }
      
    }else{
      
      var pHabilitaMsg = false;
      var pObjDDD;
      var pObjTel;
      var pObjDDDCel;
      var pObjCel;
      
      if(mGB_pVer == 'TCADAP'){
        pObjDDD = document.all.numTCADAPDDD;
        pObjTel = document.all.numTCADAPTelefone;
      }else if(mGB_pVer == 'TCALCS'){
        pObjDDD = document.all.numTCALCSRESDDD;
        pObjTel = document.all.numTCALCSRESTelefone;
      }else if(mGB_pVer == 'TCADRE'){ 
        pObjDDDCel = document.all.numTCADREDDDCelular;
        pObjCel = document.all.numTCADRECelular;
        pObjDDD = document.all.numTCADREDDD;
        pObjTel = document.all.numTCADRETelefone;
      }else if(mGB_pVer == 'TDADBA'){
        pObjDDDCel  = document.all.numTDADBADDDCelular;
        pObjCel     = document.all.numTDADBACelular;
        pObjDDD     = document.all.numTDADBADDD;
        pObjTel     = document.all.numTDADBATelefone;
      }else if(mGB_pVer == 'TCADSI'){
        pObjDDDCel = document.all.numTCADSIDDDCelular;
        pObjCel = document.all.numTCADSICelular;
        pObjDDD = document.all.numTCADSIRESDDD;
        pObjTel = document.all.numTCADSIRESTelefone;
      }else if(mGB_pVer == 'TCADCA'){
        pObjDDDCom = document.all.numTCADCACOMDDD;
        pObjCom = document.all.numTCADCACOMTelefone;
        pObjDDD = document.all.numTCADCARESDDD;
        pObjTel = document.all.numTCADCARESTelefone;
      }
      if(typeof(pObjDDD) == 'object'){
        if(pObjDDD.value != '' && pObjTel.value != ''){
          var pDDDTel = pObjDDD.value + pObjTel.value;
          var sRetorno = fRecuperaBloqueioProcon(pDDDTel, mGB_DataReferencia);
          if(sRetorno != 'undefined' && sRetorno){
  	        objDom.loadXML(sRetorno);
  	        var pErro = objDom.selectSingleNode('ClienteProcon/Erro');
  	        var pErroXML = false;
  	        if(pErro == null){
  	        	try{
              	var pSituacao = objDom.selectSingleNode('ClienteProcon/Situacao').text;
		          }catch(err){
		          	alert('Erro ao recuperar Tag Situacao - WebService (ClienteProcon)!');
		          }              
    	        if(pSituacao != 'undefined'){
    	          if(pSituacao == 'BLOQUEADO'){
    	            pObjDDD.style.backgroundColor = '#FF0000';
      	          pObjTel.style.backgroundColor = '#FF0000';
      	          pHabilitaMsg = true;
      	        }else{
      	          pObjDDD.style.backgroundColor = '#FFFFFF';
      	          pObjTel.style.backgroundColor = '#FFFFFF';
      	        }
    	        }else{
    	          alert('Erro ao recuperar os dados do XML - WebService (ClienteProcon)!!');
    	        }
    	      }else{
    	        pErroXML = true;
	            alert('Erro ao recuperar os dados do XML - WebService (ClienteProcon)!!!');
    	      }
          }else{
            if(sRetorno){
              alert('Erro ao recuperar os dados do XML - WebService (ClienteProcon)!!!!');
            }
  	        pErroXML = true;
            
  	      }
        }
      }
      if(typeof(pObjDDDCel) == 'object' && !pErroXML){
        if(pObjDDDCel.value != '' && pObjCel.value != ''){
          var pDDDCel = pObjDDDCel.value + pObjCel.value;
          var sRetorno2 = fRecuperaBloqueioProcon(pDDDCel, mGB_DataReferencia);
          if(sRetorno2 != 'undefined' && sRetorno2){
          	objDom.loadXML(sRetorno2);
          	var pErro = objDom.selectSingleNode('ClienteProcon/Erro');
  	        if(pErro == null){
  	        	try{
              	var pSituacao2 = objDom.selectSingleNode('ClienteProcon/Situacao').text;
		          }catch(err){
		          	alert('Erro ao recuperar Tag Situacao - WebService (ClienteProcon)!!');
		          }              
    	        if(pSituacao2 != 'undefined'){
    	          if(pSituacao2 == 'BLOQUEADO'){
      	          if(mGB_pVer != 'TCADAP'){
      	            pObjDDDCel.style.backgroundColor = '#FF0000';
      	          }
      	          pObjCel.style.backgroundColor = '#FF0000';
      	          pHabilitaMsg = true;      	          
      	        }else{
      	          if(mGB_pVer != 'TCADAP'){
      	            pObjDDDCel.style.backgroundColor = '#FFFFFF';
      	          }
      	          pObjCel.style.backgroundColor = '#FFFFFF';
      	        }
    	        }else{
  	            alert('Erro ao recuperar os dados do XML - WebService (ClienteProcon)!!');
  	          }
  	        }else{
  	          alert('Erro ao recuperar os dados do XML - WebService (ClienteProcon)!!');
	          }
  	      }else{
  	        if(sRetorno2){
	            alert('Erro ao recuperar os dados do XML - WebService (ClienteProcon)!!');
	          }
          }
        }
      }
      if(typeof(pObjDDDCom) == 'object' && !pErroXML){
        if(pObjDDDCom.value != '' && pObjCom.value != ''){
          var pDDDCom = pObjDDDCom.value + pObjCom.value;
          var sRetorno3 = fRecuperaBloqueioProcon(pDDDCom, mGB_DataReferencia);
          if(sRetorno3 != 'undefined' && sRetorno3){
          	objDom.loadXML(sRetorno3);
            var pErro = objDom.selectSingleNode('ClienteProcon/Erro');
  	        if(pErro == null){
  	        	try{
              	var pSituacao3 = objDom.selectSingleNode('ClienteProcon/Situacao').text;
		          }catch(err){
		          	alert('Erro ao recuperar Tag Situacao - WebService (ClienteProcon)!!');
		          }              
    	        if(pSituacao3 != 'undefined'){
    	          if(pSituacao3 == 'BLOQUEADO'){
      	          pObjDDDCom.style.backgroundColor = '#FF0000';
      	          pObjCom.style.backgroundColor = '#FF0000';
      	          pHabilitaMsg = true;      	          
      	        }else{
      	          pObjDDDCom.style.backgroundColor = '#FFFFFF';
      	          pObjCom.style.backgroundColor = '#FFFFFF';
      	        }
    	        }else{
  	            alert('Erro ao recuperar os dados do XML - WebService (ClienteProcon)!!');
  	          }
  	        }else{
	            alert('Erro ao recuperar os dados do XML - WebService (ClienteProcon)!!');
	          }
  	      }else{
	          if(sRetorno3){
	            alert('Erro ao recuperar os dados do XML - WebService (ClienteProcon)!!');
	          }
          }
        }
      }
      if(pHabilitaMsg){
        document.all.trMSG_PROCON.style.display = '';
      }else{
        document.all.trMSG_PROCON.style.display = 'none';
      }
      
      objDom = null;
      
    }
    
  }catch(err){
    trataErro(err,sFunctionName);
  }
}

//SSI 21191 - aline - 05/09/2011 - inserida o onkeydown para paginas que nao chamam o header page
document.onreadystatechange = function(){
	if (document.readyState == "complete"){ 
		document.body.attachEvent("onkeydown", function(){exibeExibeStringCobol(event);});  
	}
}

//SSI 21191 - DANILO - 17/10/2011 - INSERIDA A FUNÇÃO ABAIXO PARA PAGINAS QUE NAO CHAMAM O HEADER PAGE
if (typeof(checkFocus) != 'function'){
	window.modalWin = null;
	function checkFocus(){
  	if (window.modalWin!=null && !window.modalWin.closed){
   	self.blur();
    window.modalWin.focus();
  }
}

}