// por Jefferson 

/*  Modo de Usar
    var numero = 4.667;
	 alert( numero.Arredondar(2) );
*/	  	
if( !Number.prototype.Arredondar ){ 
  Number.prototype.Arredondar = function(x) {   
  	var temp = this;   
		temp=Math.round( temp*Math.pow(10,x))/Math.pow(10,x);   
 	return temp; 
  } 
}


/*  Modo de Usar
    var texto_com_espaco = ' essa é minha variável com espaço na esquerda';
	 alert( texto_com_espaco.lTrim() );
*/	 
if (!String.prototype.lTrim) {
  String.prototype.lTrim = function (){
   return this.replace(/^\s*/, "");
  };
}

/*  Modo de Usar
    var texto_com_espaco = 'essa é minha variável com espaço na direita ';
	 alert( texto_com_espaco.rTrim() );
*/	 
if (!String.prototype.rTrim) {
  String.prototype.rTrim = function (){
   return this.replace(/\s*$/, "");
  };
}
/*  Modo de Usar
    var texto_com_espaco = ' essa é minha variável com espaço na direita e na esquerda ';
	 alert( texto_com_espaco.trim() );
*/	
if (!String.prototype.trim) {
  String.prototype.trim = function (){
    return this.lTrim().rTrim();
  };
}
/*  Modo de Usar
    var form = form('principal');
	 alert( form.length );
	 alert( form.outerHTML );
*/	 
function form( p_form ) {
  return ( document.forms[ p_form ] ); 
}

function addEvent(element, eventType, lamdaFunction, useCapture) {
  if (element.addEventListener) {
        element.addEventListener(eventType, lamdaFunction, useCapture);
        return true;
    } else if (element.attachEvent) {
        var r = element.attachEvent('on' + eventType, lamdaFunction);
        return r;
    } else {
        return false;
    }
}

function getAbsolutePos(el) {
	var r = { x: el.offsetLeft, y: el.offsetTop };
	if (el.offsetParent) {
		var tmp = getAbsolutePos(el.offsetParent);
		r.x += tmp.x;
		r.y += tmp.y;
	}
	return r;
}

function $showPreloader()
{
	$('id_espera').style.top = document.body.scrollTop;
	$show('id_espera');
}



function fnc_mostrar_tooltip(p_objeto, p_texto, p_alinhamento, p_cor_fundo) {
 if( !p_texto ) return; // se o hint não estiver disponível não executa o tooltip
 
 var deslocamento;
 var size		= ( !p_objeto.style.width.split('px')[0] )?p_objeto.size * 4:p_objeto.style.width.split('px')[0];;
 var posicao    = getAbsolutePos( p_objeto );
 var tip    	= document.createElement('div');
	 tip.id 	= 'tip';
	 tip.style.backgroundColor 	 = '#D3DCD9';
	 tip.style.color 	 		 = '#000000';
	 tip.style.border 		 	 = 'solid black 1px';    
	 tip.style.fontFamily 	 	 = 'Geneva';
	 tip.style.fontSize 		 = '10px';
	 tip.style.zIndex			 = '551';
	 tip.style.display			 = 'none';
	 tip.style.width			 = eval( p_texto.length * 5.2) + "px";
	 tip.style.height			 = ( p_texto.length > 100)?40  + "px":20+ "px";
	 tip.style.position			 = 'absolute';
	 tip.innerHTML 				 = String.fromCharCode(32,32) + p_texto;
	 
	 
 switch ( p_alinhamento.toLowerCase() ){ 
	case "top" : 
		tip.style.top  = eval(posicao.y - tip.offsetHeight) + "px";
		tip.style.left = posicao.x + "px"; 
	break;
	case "left" :
	    deslocamento = parseInt( posicao.x - tip.offsetWidth) + parseInt( size ) + 35;
		tip.style.top  = posicao.y + "px";
		tip.style.left = deslocamento + "px";
	break;
	case "bottom" :
		tip.style.top  = eval(posicao.y + tip.offsetHeight) + "px";
		tip.style.left =  posicao.x + "px";
	break;
	case "right" :
		tip.style.top  = posicao.y + "px";
		tip.style.left = eval( posicao.x + tip.offsetWidth ) + "px";
	break;
 }
 document.body.appendChild( tip );
  tip.style.display ='';
}

function fnc_ocultar_tooltip(){ 
  if(!$('tip')) return;
  document.body.removeChild(  $('tip') );
}

/*  Modo de Usar
    var campo_ou_objeto = $('id_campo_ou_objeto_captura_crossbrowser');
	 alert( campo.innerHTML );
*/	 
function $( p_id ) {
  //Netscape layers	
  if( document.layers ) 		return document.layers[ p_id ]; 
  //DOM; IE5, NS6, Mozilla, Opera
  if( document.getElementById ) return document.getElementById( p_id );
  //Proprietary DOM; IE4
  if( document.all ) return document.all[ p_id ]; 
  //Netscape alternative
  if( document[p_id] ) return document[p_id]; 

  return ( false );
}

/*  Modo de Usar
    $show( p_id ); ( só é necessário por o show q automaticamente faz o $hide, caso o objeto referenciado com show esteja expandido )
	$hide( p_id );  
*/	 
// exibe e oculta o div na mesma função
function $showHide( p_id ) {
  if( !$( p_id ) ) return;
  // visibility
  if( $( p_id ).style.visibility.length ){ 
	  $( p_id ).style.visibility = 'visible';
 } else { 
  // display
   if(  $( p_id ).style.display =='' ){ 
	   $hide(p_id);
	  return; // isso tava mangueando
   }
   
   $( p_id ).style.display = '';
 }
}

function $show( p_id ) {
  if( !$( p_id ) ) return;
  // visibility
  if( $( p_id ).style.visibility.length ){ 
	  $( p_id ).style.visibility = 'visible';
 } else { 
  // display
   $( p_id ).style.display = '';
 }
}

// ?????????? pra que isso daqui se a de cima faz tudo?
function $showDisplay( p_id ) {
   $( p_id ).style.display = '';
}
/* Modo de Usar :
  Exibe todas as linhas do grupo
  
  <table id="teste">
  	<thead>
		<th>ColunaA</th>
		<th>ColunaB</th>
	</thead>
	<tbody>
		<!--- grupo 1--->
		<tr>
           <td>Grupo 1</td>
           <td align="center"><img src="imagens/grupo.gif" onclick="$showAll('linha_<!--grupo_id-->');" alt="" border="0" style="cursor:pointer;">&nbsp;</td>
        </tr>	
		
		<!--- linha 1 --->		
		<tr id="linha_000_01" style="display:none">
			<td>ColunaA</td>
			<td>Coluna</td>
		</tr>

		<!--- linha 2 --->		
		<tr id="linha_000_02" style="display:none">
			<td>ColunaA</td>
			<td>Coluna</td>
		</tr>
		
		<!--- linha 3 --->		
		<tr id="linha_000_03" style="display:none">
			<td>ColunaA</td>
			<td>Coluna</td>
		</tr>
		
	</tbody>
  </table>
 
*/  

function $showAll( p_id_tabela, p_id_container){ 
  var tabela = $(p_id_tabela);
  
   for( var i = 0; i < tabela.tBodies.length; i++ ){
	  for( var x = 0; x < tabela.tBodies[ i ].rows.length; x++ ){
		if(tabela.tBodies[ i ].rows[ x ].id.trim() ){ 
			var grupo = tabela.tBodies[ i ].rows[ x ].id.split('_');
			
		if( p_id_container.trim()  == grupo[ 0 ].trim() ){
			$showHide( tabela.tBodies[ i ].rows[ x ].id );
		} else {
			$hide( tabela.tBodies[ i ].rows[ x ].id );
	    } 
      }
    }
  }
}
// mostra o div
function $hide( p_id ) {
  if( !$( p_id ) ) return;	
  if( $( p_id ).style.visibility.length ){ 
	  $( p_id ).style.visibility = 'hidden';
  } else {
	  $( p_id ).style.display    = 'none';
  }
}
// ? pra que?
function $hideDisplay( p_id ) {
  $( p_id ).style.display    = 'none';
}

function setBackgroundColor( e ) {
  var target;
  if (window.event) { // IE5.5 and below
    target = window.event.srcElement;
  } else if (e) {     // N4+ && DOM compliant
    target = e.target;
  } else {
    target = "unsupported";
  }
  if( target.style ) {
    target.style.backgroundColor = cor_primaria;
	fnc_mostrar_tooltip( target ,target.getAttribute('hint'),'left', target.style.backgroundColor );
  }
}
// Limpa a cor de fundo do elemento
function clearBackgroundColor( e ) {
  var target;
  if (window.event) { // IE5.5 and below
    target = window.event.srcElement;
  } else if (e) {     // N4+ && DOM compliant
    target = e.target;
  } else {
    target = "unsupported";
  }
  
  if( target.style ) {
    target.style.backgroundColor = '';
	fnc_ocultar_tooltip();
  }
}
	
			
function Lpad( p_numero ){ 	
  return (( p_numero <= 9) ? ('0' + p_numero) : p_numero ) 
}	

function limitChar( string , count ){
 var novo_texto  = ( string.length >= count )? string.substr( string, count ) + '...' : string;
		
 return ( novo_texto );
}

function swapBG( el, BG1, BG2 ) {
try{  el.style.backgroundColor = ( el.style.backgroundColor == BG1 ) ? BG2 : BG1; } catch(e){ }
}

function isYear(anoCorrente){
 var numAnosIntervalo = 150;
 var anoAtual 	 	  = Number( new Date().getFullYear() );
 var anoCorrente 	  = Number(anoCorrente);
 
 return ( anoCorrente > anoAtual - numAnosIntervalo && anoCorrente < anoAtual + numAnosIntervalo  );
}

/* fnc_compara_data( data1, New Date() + 1 ) */
function fnc_compara_data( data1, data2 ) {
 var v_ano1 = data1.getYear();
 var v_ano2 = data2.getYear();
 var v_mes1 = data1.getMonth();
 var v_mes2 = data2.getMonth();
 var v_dia1	= data1.getDate();
 var v_dia2	= data2.getDate();

	// verifica se os anos são diferentes
	if ( v_ano1 > v_ano2 ) { return -1; }
	if ( v_ano2 > v_ano1 ) { return  1; }
	// verifica se os meses são diferentes
	if ( v_mes1 > v_mes2 )  { return -1; }
	if ( v_mes2 > v_mes1 )  { return  1; }
	// verifica se os dias são diferentes
	if ( v_dia1 > v_dia2 )  { return -1; }
	if ( v_dia2 > v_dia1 )  { return  1; }

	// se a data for igual
	return ( 0 );
 }

DateFromString = function( a ) {
	var p_data  = a.split( '/' );
	
	for ( var i = 0 ; i < p_data.length ; i++ ) p_data[ i ] =  p_data[ i ] ;

	return( new Date( p_data[ 2 ] , p_data[ 1 ] - 1 , p_data[ 0 ] ) );
}

DataHoraFromString = function( a , b ) {
	var p_data  = a.split( '/' );
	var p_hora  = b.split( ':' );
	
	for ( var i = 0 ; i < p_data.length ; i++ ) p_data[ i ] =  p_data[ i ] ;
	for ( var i = 0 ; i < p_hora.length ; i++ ) p_hora[ i ] =  p_hora[ i ] ;

	return( new Date( p_data[ 2 ] , p_data[ 1 ] - 1 , p_data[ 0 ] , p_hora[ 0 ] , p_hora[ 1 ] ) );
}
// onblur="CopiarValor('f_cd_area','f_area')"
function CopiarValor( p_campo_origem, p_campo_destino ){
  var frm		   = form('principal');
  var campo_origem = frm.elements[ p_campo_origem ];
  var campo_destino= frm.elements[ p_campo_destino ];

 if(campo_origem.value.trim().length > 0 && campo_destino.value.trim().length == 0 ){ 
   campo_destino.value = campo_origem.value;
 } 
return false;
}

/*
 por marcelo em 19/10/2007
 Alteração, pois estava aparecendo na ficha clinica
*/
function fnc_contar_caracteres( p_campo, p_contador, p_max_char,p_nao_inserir_texto ) {
  
  if( p_campo.value.length > p_max_char ) {
  	  p_campo.value     = p_campo.value.substr(0, p_max_char);
	  p_contador.value = p_max_char - p_campo.value.length; 
 } else 
	  p_contador.value = p_max_char - p_campo.value.length;

 if (p_nao_inserir_texto == null ){
 	p_nao_inserir_texto=false;
 }
 var posicao    = getAbsolutePos( p_contador );
 var texto  					  = (p_nao_inserir_texto ? "" : 'Caracteres restantes');
 var comentario 				  = document.createElement('span');
 	 comentario.id				  = p_campo.name;
	 comentario.style.fontStyle	  = 'normal';
	 comentario.style.letterSpacing = '1px';
	 comentario.style.fontFamily  = 'Arial';
	 comentario.style.fontSize 	  = '10px';
	 comentario.style.zIndex	  = '551';
	 comentario.style.position	  = 'absolute';
	 comentario.innerHTML 		  = String.fromCharCode(32,32) + texto;
	 comentario.style.top  		  = eval( posicao.y + 2 ) + "px";
	 comentario.style.left 		  = eval( 37 + posicao.x + comentario.offsetWidth ) + "px";

	if( p_contador.value ==  p_max_char ) document.body.appendChild( comentario );
}

function criarElemento(p_container, p_nome_elemento) {
	
var fieldset = $( p_container );
var indice	 = fieldset.innerHTML.split('</TEXTAREA>').length + 1;

var div		 = document.createElement('div');
	div.setAttribute('id'  , 'div_' + p_nome_elemento + '_' + indice );
	div.style.margin  ='2px';

var textarea = document.createElement('textarea');
	textarea.setAttribute('name', p_nome_elemento);
	textarea.setAttribute('id'  , p_nome_elemento + '_' + indice );
	textarea.setAttribute('rows','5');
	textarea.setAttribute('cols','50');

	div.appendChild(textarea);  
	
var botao 			= new Image();
	botao.src		= 'imagens/icone_excluir.gif';
	botao.align 	='absmiddle';
	botao.border 	='0';
	botao.onclick	= function(){ removerElemento(p_container, p_nome_elemento + '_' + indice) };
	botao.style.paddingBottom = '7px';
	botao.style.cursor = 'pointer';
	
	div.appendChild(botao);
	
	fieldset.appendChild(div);
}

function removerElemento(p_container, p_id_elemento) {
 var fieldset = $( p_container );
 var linha	  = $('div_'+p_id_elemento);
 
 fieldset.removeChild(linha);
}

// onkeypress="BloqueiaLetras()"
function BloqueiaLetras(){
	var codTecla = parseInt(window.event.keyCode);
	var tecla = String.fromCharCode(codTecla);
	
	if (!(codTecla >= 48 && codTecla <= 57 ) && ( !(codTecla == 44 ) && !(codTecla == 46 ) ) ) {
		window.event.keyCode=0;
	}  
}

// getRadioSelecionado('f_radio_grupo')
function getRadioSelecionado( p_grupo ) {
  if( p_grupo[ 0 ] ) { 
	for(var i = 0; i < p_grupo.length; i++ )
		if( p_grupo[ i ].checked ) return ( i ); // returna posição do elemento do array que est' + String.fromCharCode( 224 ) + ' selecionado
  } else 
	 if( p_grupo.checked ) return ( 0 );  // retorna posição do primeiro elemento
		return ( -1 ); // retorna que não existe elemento selecionado
}

// getRadioSelecionadoValor('f_radio_grupo')
function getRadioSelecionadoValor( p_grupo ) {
  if(!p_grupo ) return;

  var vLength = p_grupo.length;

  if( typeof vLength == 'undefined' ) 
	if(p_grupo.checked)
		return p_grupo.value;
	else
		return false;

   for( var i = 0; i < vLength; i++ )
	 if( p_grupo[ i ].checked ) return p_grupo[ i ].value;
	  
   return;
}

// getCheckboxValor('f_check_grupo')
function getCheckboxValor( p_grupo ) {
	lista_valores = '0';
	if(!p_grupo )
	{ 
		return lista_valores;
	}
		
	var vLength = p_grupo.length;
	if((p_grupo.checked) && (p_grupo.length == 'undefined'))
	{
		return p_grupo.value;
	}
	else if (p_grupo.length == 'undefined')
	{
		return lista_valores;
	}
	for( var i = 0; i < vLength; i++ )
	{
		if( p_grupo[ i ].checked )
		{
			lista_valores = lista_valores + ',' + p_grupo[ i ].value;
		}
	}
	return lista_valores;
}

// setRadioValor('f_radio_grupo', 1)
function setRadioValor( p_grupo, p_valor ) {
  if(!p_grupo) return;
  
  var vLength = p_grupo.length;

  if( vLength == 'undefined' ) {
	 p_grupo.checked = (p_grupo.value == p_valor.toString());
	 return;
  }

  for( var i = 0; i < vLength; i++) {
	p_grupo[ i ].checked = false;
		
	if( p_grupo[ i ].value == p_valor.toString() )
		p_grupo[ i ].checked = true;
  }
}
// getValorCampo('f_nome_do_campo')
function getValorCampo( p_campo ){
  var campo   = form('principal').elements[ p_campo ];
  var valor   = '';
  
if(typeof campo == 'undefined') return valor;

  if( campo && ( !campo.readOnly || !campo.disabled ) )  {
	switch( campo.type ){
		case 'text'     : 
		case 'password' : 
		case 'hidden':
		case 'textarea' : 
			 valor 	 = campo.value;
		break;
		case 'select-one': 
			valor = campo.options[ campo.options.selectedIndex ].value;
		break;
		
		case 'checkbox':
			valor = getCheckboxValor(campo);
		break;
		case 'radio':
			valor = getRadioSelecionadoValor(campo);
		break;
	}
  }	
  
  return valor;
}

function setValorCampo( p_campo, p_valor ) {
 var campo = form('principal').elements[ p_campo ];

 if(typeof campo == 'undefined') return false;
 
  if( campo && ( !campo.readOnly || !campo.disabled ) )  {
	switch( campo.type ){
		case 'text'     : 
		case 'password' : 
		case 'hidden':
		case 'textarea' : 
			 campo.value = p_valor;
		break;
		case 'select-one' 	   : 
		case 'select-multiple' : 
			 for( var q = 0; q < campo.options.length; q++ )
			   if( campo.options[ q ].value  == p_valor)
				   campo.options[ q ].selected = true ;

		break;
		
		case 'checkbox':
		case 'radio':
			   campo.checked = p_valor;
		break;
	}
	if( campo.length > 1 && campo[ 1 ].type =='radio') setRadioValor( campo, p_valor );
  }
}

// SE for fora do checkbox onclick="selecionaTodosCheckbox('f_seleciona_todas_areas', 'f_area_id')"
// SE for dentro do checkbox onmousedown="selecionaTodosCheckbox('f_seleciona_todas_areas', 'f_area_id')"
function selecionaTodosCheckbox( p_campo_referencia, p_campo_destino ) {
var campo_destino = form('principal')[ p_campo_destino ];
var campo_origem  = form('principal')[ p_campo_referencia ];
var vLength		  = campo_destino.length;

 if( typeof campo_destino == 'undefined') return;

 if( typeof vLength == 'undefined'){ 
	campo_destino.checked = campo_origem.checked;
 } else {
	for( var i = 0; i < vLength; i++ )
		campo_destino[i].checked = campo_origem.checked;
 }
}

// POR JEFFERSON: Susbstituir essa função para não ter as 2 fazendo a mesma coisa
// Pois já corrigi a função de cima q não funcionava quando só havia 1 checkbox na listagem.

function selecionaTodosCheckboxFora( p_campo_referencia, p_campo_destino ) {
	var campo_destino = form('principal').elements[ p_campo_destino ];

	if (form('principal').elements[ p_campo_referencia ].checked == true)
	{
		form('principal').elements[ p_campo_referencia ].checked = false;
	}
	else
	{
		form('principal').elements[ p_campo_referencia ].checked = true;
	}

	if((campo_destino.checked == true) || (campo_destino.checked == false))
	{
		campo_destino.checked = form('principal').elements[ p_campo_referencia ].checked;
		return false;
	}

	for( var i = 0; i < campo_destino.length; i++ )
	{
		campo_destino[i].checked = form('principal').elements[ p_campo_referencia ].checked;
	}
}

/*
 MODO DE USAR : 
  CEP 	: return mascara_formulario(document.principal, 'CEP', '99.999-999', event); 
  CPF 	: return mascara_formulario(document.principal, 'CPF', '999.999.999-99', event);
  CNPJ  : return mascara_formulario(document.principal, 'CNPJ', '99.999.999/9999-99', event);
  DATA  : return mascara_formulario(document.principal, 'DATA', '99/99/9999', event);
  FONE  : return mascara_formulario(document.principal, 'FONE', '(99) 999-9999', event);
  FONE  : return mascara_formulario(document.principal, 'FONE', '(99) 9999-9999', event);
  PROC  : return mascara_formulario(document.principal, 'PROC', '99.999999999/9999-99', event);
  CONTA : return mascara_formulario(document.principal, 'CONTA', '9999-!', event);  
*/
function mascara_formulario(objForm, strField, sMask, evtKeyPress) {
     var i, nCount, sValue, fldLen, mskLen,bolMask, sCod, nTecla;

     if(document.all) { // Internet Explorer
       nTecla = evtKeyPress.keyCode; }
     else if(document.layers) { // Nestcape
       nTecla = evtKeyPress.which;
     }

     sValue = objForm[strField].value;

     // Limpa todos os caracteres de formatação que
     // já estiverem no campo.
     sValue = sValue.toString().replace( "-", "" );
     sValue = sValue.toString().replace( "-", "" );
     sValue = sValue.toString().replace( ".", "" );
     sValue = sValue.toString().replace( ".", "" );
     sValue = sValue.toString().replace( "/", "" );
     sValue = sValue.toString().replace( "/", "" );
     sValue = sValue.toString().replace( "(", "" );
     sValue = sValue.toString().replace( "(", "" );
     sValue = sValue.toString().replace( ")", "" );
     sValue = sValue.toString().replace( ")", "" );
     sValue = sValue.toString().replace( " ", "" );
     sValue = sValue.toString().replace( " ", "" );
     fldLen = sValue.length;
     mskLen = sMask.length;

     i = 0;
     nCount = 0;
     sCod = "";
     mskLen = fldLen;

     while (i <= mskLen) {
       bolMask = ((sMask.charAt(i) == "-") || (sMask.charAt(i) == ".") || (sMask.charAt(i) == "/"))
       bolMask = bolMask || ((sMask.charAt(i) == "(") || (sMask.charAt(i) == ")") || (sMask.charAt(i) == " "))

       if (bolMask) {
         sCod += sMask.charAt(i);
         mskLen++; }
       else {
         sCod += sValue.charAt(nCount);
         nCount++;
       }
       i++;
     }

     objForm[strField].value = sCod;

     if (nTecla != 8) { // backspace
       if (sMask.charAt(i-1) == "9") { // apenas números...
         return ((nTecla > 47) && (nTecla < 58)); } // números de 0 a 9
       else { // qualquer caracter...
         return true;
       } }
     else {
       return true;
     }
 }
 
// Por Zoinho e Cia Ltda

function stimed_setarcookie(nome,valor,expirarem,dominio){
	var ExpireDate = new Date ();
	ExpireDate.setTime(ExpireDate.getTime() + (expirarem * 24 * 3600 * 1000));
	document.cookie = nome + "=" + escape(valor) + (((expirarem == null) || (expirarem==0)) ? "" : "; expires=" + ExpireDate.toGMTString())+(dominio==null ?"" : ";domain="+escape(dominio));
}
/*
   Verificar se é isado em algum lugar do sistema
   nao achei em ulgar algum somente em entrada.cfm de versao
*/
function stimed_hoje(){
	var hjd=new Date();
	dia=hjd.getDate();
	mes=hjd.getMonth()+1;
	ano=hjd.getFullYear();
	if (dia<10){ dia='0'+dia;}
	if (mes<10){ mes='0'+mes;}
	retornar=dia+'/'+mes+'/'+ano;
	return retornar;
}
function sis_hora(){
	var hjd=new Date();
	hora=hjd.getHours();
	minutos=hjd.getMinutes();
	if (hora<10){ hora='0'+hora;}
	if (minutos<10){ minutos='0'+minutos;}
	retornar=hora+':'+minutos;
	return retornar;
}
/*
	stimed_retornar_um_mes 
		precisa ter uma 

	Exemplo:alert(retornar_um_mes(2006,01));
*/
function stimed_retornar_um_mes(ano,mes){
	data=new Date();
	data.setFullYear(ano,mes,1);
	mes=data.getMonth();
	data.setDate(data.getDate()+32);
	while (mes != data.getMonth()){
		data.setDate(data.getDate()-1);
	}
	mes=(data.getMonth()+1);
	if (mes < 10){
		mes="0"+mes;
	}
	return data.getDate()+'/'+mes+'/'+data.getYear();
}
/*

Exemplo
	<input type="text" name="fHora_final_alterar" size="5" value="00:00" maxlength="5" onkeypress="return formatar_com_mascara(this,event,'99:99')"  onblur="return formatar_hora(this)">
*/
function formatar_hora(n){
	if (axis_trim(n.value)){
		return false;
	}
	
	t=n.value.split(":");
	if (t.length != 2){
		alert("erro:Formato HH:MM");
		return false;
	}

	if (parseInt(t[0])>23){
		alert("Erro:Hora inválida");
		n.focus();
		return false;
	}
	if (parseInt(t[1])>59){
		alert("Erro:Minuto inválido");
		n.focus();
		return false;
	}
	return false;
}
function abrirHelp(n)
{
	var k=new String(n);
	var l=k.split("|");
	if (l[1]!=null){
		o="&acao=" + l[1];
	}else{
		o="";
	}
	if(parseInt(l[0])==0)
	{
		alert('Não existe help para este link.\nEntre em contato com o Administrador ['+n+']');
		return false;
	}
	try{
		var desktop = pop_up('ajuda.cfm?id='+l[0]+o,640,300,'Help');
	}catch(e){
		alert("Não foi possível abrir a tela porque seu browser tem um programa do tipo ANTI POP-UP. Favor desativar para que o STIMED funcione normalmente.");
	}
}

try {
	var existe_anti_popup=frames['frTopo'].carregar_validador_anti_popup();
}catch(E){
	var existe_anti_popup=false;
}


function pop_up(n,x,y,target,texto_a_escrever,novos_parametros,atributos){
	if(target==null){target="pop_up";}
	x=(x==null ? 700 : x);
	y=(y==null ? 400 : y);
    esquerda  = ( screen.width  ) ? ( screen.width  - parseInt( x )  ) / 2 : 0;
    topo	  = ( screen.height ) ? ( screen.height - parseInt( y ) ) / 2 : 0; 
	
	// incluir parametro venda.
	try{
		if (n.indexOf("sessao_sis")==-1){
			if (n.indexOf("?")==-1){
				n=n+"?sessao_sis="+document.principal.sessao_sis.value;
			}else{
				n=n+"&sessao_sis="+document.principal.sessao_sis.value;
			}
		}
	}catch(E){
	}
	try{
		if (n.indexOf("id_empresa_trabalhar")==-1){
			if (n.indexOf("?")==-1){
				n=n+"?id_empresa_trabalhar="+document.principal.id_empresa_trabalhar.value;
			}else{
				n=n+"&id_empresa_trabalhar="+document.principal.id_empresa_trabalhar.value;
			}
		}
	}catch(E){
	}	
	//
	if (atributos == null)
		atributos = 1;
 	if (existe_anti_popup){
		alert("verifique se existe um anti pop-up ativo");
	}

	try{
		if (novos_parametros==null){
			var desktop = window.open(n, target, 'width='+ x + ',height='+y +  ',left='+ esquerda + ', top=' + topo + ',toolbar=no,location=no,status=yes,directories=no,menubar=no,scrollbars='+atributos+',resizable=yes,copyhistory=no');
		}else{
			var desktop = window.open(n, target, 'width='+ x + ',height='+y +  ',left='+ esquerda + ', top=' + topo + ','+novos_parametros);
		}
		if (texto_a_escrever!=null){
			desktop.document.write(texto_a_escrever);
		}
	}catch(e){
		alert("Não foi possível abrir a tela porque seu browser tem um programa chamado ANTI POP-UP. Por favor queira desativar para que o STIMED funcione normalmente.");
	}
	return false;
}

function axis_trim(n)
{ 
 return  n.replace(/^\s+|\s+$/, '')==""; 
}
/*
	volta_tela_principal
		Esta função serve para alterar o rumo do fluxo do sistema, por uma situação inesperada. Exemplo é de que é preciso
		um médico coordenador para prosseguir com a criação da ficha, e não existe um cadastrado. Como já foi preenchido o valor
		de próximo, alteramos o valor do novo próximo para o desejado.
		É uma ampliação da função navegar
	@param ntela
		nome do formulário q iremos alterar
	@param npocao
		nome do novo próxmio
	@param campo
		nome da variável -  funciona como  a mesma variável utilizada na função navegar
	@param valor
		conteúdo da variável campo -  funciona como a mesma variável utilizada na função navegar
	exemplo
		<a href="" onclick="return volta_tela_principal('ficha_01','formmedalt.cfm')">Ok, quero fazer a atualização agora.</a>
*/

function volta_tela_principal(ntela,opcao,campo,valor)
{
	if( opcao != null && document.forms[ntela].elements['proximo'] != null)
	{
		document.forms[ntela].elements['proximo'].value=opcao;
	}
	if (campo==null){
		document.forms[ntela].submit();
		return false;
	}else{
		return navegar(ntela,campo,valor);
	}
}
/*
sti_validar_hora
	Valida a entrada de hora no sistema.
	@param horas
			é um objeto onde o seu separador é :
			
	saída:
			False -  hora inválida
			True  - Hora Ok
  
*/
function sti_validar_hora(horas){
	if (axis_trim(horas.value)){
		return true;
	}
	tmp=horas.value;
	tmp=tmp.split(":");
	h1=parseInt(tmp[0]);
	m1=parseInt(tmp[1]);
	if (!((h1>=0) && (h1<=23))){
		horas.value="";
		alert("Hora inválida!");
		return false;
	}
	if (!((m1>=0) && (m1<=59))){
		horas.value="";
		alert("Minuto inválido!");
		return false;
	}
	return true;
}

function axis_validar_data(n,msg,tem)
{	
	if (tem==null){
		tem=true;
	}
    var meses=new Array(31,28,31,30,31,30,31,31,30,31,30,31)
	if ((msg=='')|| (msg == null))
	{
		msg='Data inválida';
	}
	if (n.value=="")
	{
		return true;
	}
	var i=0;
	a=n.value.split('/');
	if (a.length!=3)
	{ 
		n.value="";
		alert(msg);
		n.focus();
		n.select();
		return false;
	}

	if (a[0].length<2){ a[0]="0"+a[0];}
	if (a[1].length<2){ a[1]="0"+a[1];}
	if (a[2]<=0) { alert(msg);n.focus();n.select();return false;}
	if ((a[2] % 4)==0)  {meses[1]=29}
	if ( (parseFloat(a[1]) <1 ) || (parseFloat(a[1])>12) )
	{ 
		alert(msg);
		//if (! data_em_branco)
			//n.value="";
		n.focus();
		n.select();
		return false;
	}
	var y=a[1]-1;
	if ( (parseFloat(a[0])<1 ) || (parseFloat(a[0]) > meses[y]) )
	{ 
		alert(msg);
		//if (! data_em_branco)
			//n.value="";
		n.focus();
		n.select();
		return false;
	}
	hj=new Date();
	// verificar se o ano é menor que 1964
	if (parseFloat(a[2])<1900){
			alert('Favor verificar ANO.');
			n.focus();
			n.select();
			return false;
	}
	if (parseFloat(a[2])>hj.getYear()+10){
			alert('Favor verificar ANO.');
			n.focus();
			n.select();
			return false;
	}
	// verificar se data é maior do que HOJE.
	if (tem){
		msg="Data inserida maior do que a data de HOJE.\n";
		msg=msg+"Deseja inserir a data de HOJE?\n\nOK - Sim\nCancelar -Nao";
		datat=hj.getYear() * 10000 + (hj.getMonth()+1) * 100 +hj.getDate();
		if ((parseFloat(a[2]+ a[1] + a[0]))>datat)
		{
			if (confirm(msg)){
				n.value=stimed_hoje();
			}else{
				n.focus();
				n.select();
			}
			return false;
		}
	}
	return true;
}


/*
	axis_validar_numero
		Função para verificar se a informação entrada somente número
	@param n
		o objeto a ser pesquisado
	@param obrigatorio
		Se este campo é obrigado ( deprecate )
	@param minimo
		Menor faixa que este número pode ser
	@param maximo
		Maior faixa que este número pode ser
	Exemplo
	<input type="text" name="teste"	 onblur="return axis_validar_numero(this)">
*/
function axis_validar_numero(n,obrigado,minimo,maximo,tem_virgula)
{
	if ((obrigado== null)||(obrigado=="null")){obrigado=false;}
	while (n.value.indexOf(',')!=-1) { n.value=n.value.replace(",",".");}
	var possiveis='.0123456789-';
	var temvirgula=0;
	var temsinal=false;
	if (tem_virgula==null)tem_virgula=false
	if (tem_virgula){
		temvirgula=1;// não aceita virgulas
	}
	for (var m=0;m<n.value.length;++m)
	{
		if (possiveis.indexOf(n.value.charAt(m))==-1)
		{
			alert('Valor inválido\nDigite apenas números e ponto');
			n.value="";
			n.focus();
			return false;
		}else if(n.value.charAt(m)=="-"){
			if (temsinal){
				alert("numero Inválido");
				n.value="";
				n.focus();
				return false;
			}
		}else if (n.value.charAt(m)=='.')
		{
			if (temvirgula==0)
			{
				temvirgula=1
			}else
			{
				alert('Valor inválido');
				n.value="";
				return false;
			}
		}
		temsinal=true;
	}
	if (n.value=="" && obrigado)
	{
		alert("Este valor não pode estar em branco");
		n.focus();
		return false;
	}
	if ((minimo==null)||(minimo=="null")){minimo=n.value;}
	if ((maximo==null)||(maximo=="null")){maximo=n.value;}
	if ((parseFloat(minimo) > parseFloat(n.value)) || (parseFloat(maximo) < parseFloat(n.value)) )
	{
		tmp=(parseFloat(minimo) > parseFloat(n.value) ? "Foi digitado um valor abaixo do valor mínimo  permitido("+minimo+")": "Foi digitado um valor acima do valor máximo permitido ("+maximo+")");
		alert("Valor fora da faixa.\n" + tmp + "\n\nFaixa de valores validos de " + minimo + " ate " + maximo);
		n.focus();
		return false;	
	}
	return true;
}
/*
 	axis_validar_email
			funcao para validar o e-mail. no formato correto de forma que não insira um e-mail inválido!
	paramtros
	@param n é o objeto em pesquisa
	
	
	Exemplo:
		 onblur="return axis_validar_email(this)"
*/
function axis_validar_email(n)
{
	if ( axis_trim(n.value) != "") 
	{ 
		return false ; 
	}
	if (! (/^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$/.test(n.value))){
		n.value="";
		alert('E-mail inválido');
		return false;		
	}
	return true;	
}
function Mover(nA,nB,objeto_hidden,obj_adicionar) {
	mover(nA,nB,objeto_hidden,obj_adicionar);
}
var lBoolean_ja_viu_a_mensagem_de_demora=false;
/*function
mover
======
definicao: a movimentacao entre dois combobox. Se desejar eviart quem um dos options fique proibido de ser alterado,
basta colocar uma tag nao_mover=true, que ela ficará bloqueada e, automaticamente será marcada com uma cor específica das
demais.

@param oOptions_origem 	- Origem dos dados
@param oOptions_destino - Destino dos dados selecionados
@param objeto_hidden 	- Campo Hidden onde encontramos todos os elementos escolhidos
@param direacao 		- informa qual a direção do objeto de A para b (true ), de B para A (False)
@param cor  			- define a cor do option qndo ele for proibido de ser alterado.

Exemplo:
<font class="texto"><b>Disponíveis</br>
<select name="Grupo_A" size="4" multiple style="width: 100%" ondblclick="mover(this.form.Grupo_A,this.form.Grupo_B,this.form.hidden_grupo_B,true)">
<OPTION VALUE="5">5
</select><BR><b>Selecionados</b>&nbsp;&nbsp;&nbsp;&nbsp;<input type="button"  value="ò"  style="font-family:wingdings" onclick="mover(this.form.Grupo_A,this.form.Grupo_B,this.form.hidden_grupo_B,true)">&nbsp;<input type="button"  value="ñ"  style="font-family:wingdings" onclick="mover(this.form.Grupo_A,this.form.Grupo_B,this.form.hidden_grupo_B,false)"><br>
<select name="Grupo_B" size="4" multiple style="width: 100%" ondblclick="mover(this.form.Grupo_A,this.form.Grupo_B,this.form.hidden_grupo_B,false)">
	<OPTION VALUE="1" >1
	<OPTION VALUE="2" nao_mover="true">2
</select><input type="hidden" name="hidden_grupo_B">
/.end
Exemplo de setas para direita e esquerda
<input type="button" value="ð" size=3 class="botao_menor" style="font-family: wingdings" onClick="Mover(document.forms['principal'].s_area_1,document.forms['principal'].s_area_2,document.forms['principal'].s_area,true)"><br><br>
<input type="button" value="ï" size=3 class="botao_menor" style="font-family: wingdings"  onClick="Mover(document.forms['principal'].s_area_1,document.forms['principal'].s_area_2,document.forms['principal'].s_area,false)">
*/
 function mover(oOptions_origem,oOptions_destino,objeto_hidden,direcao,cor) 
  {
  	  var tmp="";
	  var cont=0;
 	 
	 if (!direcao){
		tmp=oOptions_origem;
		oOptions_origem=oOptions_destino;
		oOptions_destino=tmp;
	 } 
	  if (oOptions_origem.length>1000){
	  	if (! lBoolean_ja_viu_a_mensagem_de_demora ){alert('Este processo irá demorar um pouco..');}
        lBoolean_ja_viu_a_mensagem_de_demora=true;
	  }
	  while (cont<oOptions_origem.length){
		  if ((oOptions_origem.options[cont].selected) && (!oOptions_origem.options[cont].getAttribute("nao_mover")))
		  {
		  	oOption=document.createElement("OPTION");
			oOption.text=oOptions_origem.options[cont].text;
			oOption.value=oOptions_origem.options[cont].value;
			oOptions_destino.options.add(oOption);
			oOptions_origem.options.remove(cont);
			continue;
		 }else{
		 	if (oOptions_origem.options[cont].getAttribute("nao_mover")){
				oOptions_origem.options[cont].style.backgroundColor=((cor==null)?"#ffcc99":cor);
			}
			cont++;
		 }
	 }
	 tmp="";
	 if (direcao){
	 	for (cont=0;cont<oOptions_destino.options.length;cont++)
		{
			tmp+=(tmp=="" ? "": ",") + oOptions_destino.options[cont].value;
 		}
	 }else{
	 	for (cont=0; cont < oOptions_origem.options.length ; cont++)
		{
			tmp+=(tmp=="" ? "": ",") + oOptions_origem.options[cont].value;
 		}	 
	 }
	 objeto_hidden.value=tmp;
}

function SelecioneTudo(nA,opcao) 
{
	acao=true;
	if (opcao!=null){
		acao=opcao;
	}
	nA.multiple = true;
	for (i=0; i<nA.length; i++) 
	{
		nA.options[i].selected = acao;
	}
}
/*
stimed_excluir_item_da_lista(objeto) 
  	Exclui item da do formulario de nome form dos elementos de nome objeto
@param objeto
	Define qual o nome do objeto que desejamos excvluir o iten ou os itens...
Exemplo
	<select name="f_selecionado_quimico" size="5" style="width:250px" ondblclick="return stimed_excluir_item_da_lista(this)"></select>
*/
function stimed_excluir_item_da_lista(objeto){
	if (objeto.length == 0){
		return false;
	}
		txt="Deseja realmente excluir " + (objeto.legth ==1 ? "este item" : "estes itens") + "?";
		if (confirm(txt)){
			i=0;
			while (i<objeto.length){
				if (objeto.options[i].selected){
					objeto.options.remove(i);
					continue;
				}
				i++;
			}
		}
	//}
}
/*
  return 
  			false 	- houve algum campo em aberto,
  			true	- não existe campos em aberto
*/
function stimed_validar_campos(campos,tela,validar_campos){
	var xObj=campos.split(',');
	if (validar_campos==null){
		validar_campos=true;
	}
	
	for (r=0;r<xObj.length;r++)
	{
		tmp_msg=xObj[r].split(";");
		var msg=(tmp_msg.length==1 ? "" : tmp_msg[1]);
		var tmp=tmp_msg[0];

		// por jefferson em 19/06/08. Não validar campos inativos
	  if( typeof  document.forms[tela].elements[tmp] != 'undefined' && !document.forms[tela].elements[tmp].disabled){ 
	   if( tmp.length > 0 ) { 
		tipo=new String(document.forms[tela].elements[tmp].type);
		
		if(tipo=="select-one"){
			
			var tem=false;
			
			for (j=0;j<document.forms[tela].elements[tmp].options.length;j++)
				
				 if ( (document.forms[tela].elements[tmp].options[j].selected)) {
					tem=true;
					if (document.forms[tela].elements[tmp].options[j].value=="-1" || document.forms[tela].elements[tmp].options[j].value.trim()==""){
						if (validar_campos!=false){
							if (msg =="" ){ msg="O Campo  é requerido e não foi preenchido"; }
							alert(msg);
							try{
								document.forms[tela].elements[tmp].focus();
							}catch(e){
								//alert(e);
							}
						}
						return false;
					}
				}
				
			if (validar_campos!=false)
			{
				if (! tem )
				{
					if (msg =="" ){ msg="Não selecionado nenhum item"; }
					alert(msg);				
					try{
						document.forms[tela].elements[tmp].focus();
					}catch(e){
						//alert(e);
					}
					return false;
				}
			}
		}else if(tipo=="select-multiple"){
			var tem=false;
			for (j=0;j<document.forms[tela].elements[tmp].options.length;j++)
			{
				if (document.forms[tela].elements[tmp].options[j].selected)
				{
					tem=true;
					break;
				}
			}
			if (validar_campos!=false)
			{
				if (! tem )	{
					if (msg =="" ){ msg="Não selecionado nenhum item"; }
					alert(msg);		
					try{
						document.forms[tela].elements[tmp].focus();
					}catch(e){
						//alert(e);
					}
					return false;
				}
			}
		}else if(tipo=="undefined"){
				if((document.forms[tela].elements[tmp][0].type=="radio") || (document.forms[tela].elements[tmp][0].type=="checkbox"))
				{
					var tem=false;
					for (j=0;j<document.forms[tela].elements[tmp].length;j++)
					{
						if (document.forms[tela].elements[tmp][j].checked)
						{
							tem=true;
							break;
						}
					}
					if (validar_campos!=false)
					{		
						if (! tem )	
						{
							if (msg =="" ){ msg="Não selecionado nenhum item"; }
							alert(msg);		
							try{
								document.forms[tela].elements[tmp][0].focus();
							}catch(e){
								//alert(e);
							}
							return false;
						}
					}
				}
		}else if(tipo=="radio"){
			var tem=false;
			tem=document.forms[tela].elements[tmp].checked;
			if (validar_campos!=false)
			{				
				if (! tem )	{
					if (msg =="" ){ msg="Não selecionado nenhum item"; }
					alert(msg);
					try{
						document.forms[tela].elements[tmp].focus();
					}catch(e){
						//alert(e);
					}
					return false;
				}
			} 
		}else{
			
			if (document.forms[tela].elements[tmp].type!=null){
				if ((document.forms[tela].elements[tmp].type=="checkbox")){
					var tem=false;
					if ((document.forms[tela].elements[tmp].length)){
						for (j=0;j<document.forms[tela].elements[tmp].length;j++){
							if (document.forms[tela].elements[tmp][j].checked){
									tem=true;
									break;
								}
						}
						if (validar_campos!=false)				
							if (! tem )
							{
								if (msg =="" ){ msg="Não selecionado nenhum item"; }
								alert(msg);		
								return false;
							}
					}else{
						if (! document.forms[tela].elements[tmp].checked )
						{
							if (msg =="" ){ msg="Não selecionado nenhum item"; }
							alert(msg);		
							return false;
						}
					}
				}else{
					if (document.forms[tela].elements[tmp].value.trim() == ""){
							if (validar_campos!=false){
								
								if (msg =="" ){ msg="O Campo  é requerido e não foi preenchido"; }
								alert(msg);
								try{										
									document.forms[tela].elements[tmp].value="";
									document.forms[tela].elements[tmp].style.backgroundColor="#FF8C8C";
									document.forms[tela].elements[tmp].select();
									document.forms[tela].elements[tmp].focus();
								}catch(e){
									//alert(e);
								}
							}
							return false;
					} else { 
						document.forms[tela].elements[tmp].style.backgroundColor="#D3DCD9";
					}
				}
			}else{
				if (document.forms[tela].elements[tmp].value.trim() ==""){
					if (validar_campos!=false){
						if (msg =="" ){ msg="O Campo  é requerido e não foi preenchido"; }
						alert(msg);	
						try{
							document.forms[tela].elements[tmp].value="";
							document.forms[tela].elements[tmp].style.backgroundColor="#FF8C8C";
							document.forms[tela].elements[tmp].select();						
							document.forms[tela].elements[tmp].focus();

						}catch(e){
							//alert(e);
						}
					}
					return false;
				} else {
					document.forms[tela].elements[tmp].style.backgroundColor="#D3DCD9";
				}
			}
		}
	  }
	  }
	}
	
	return true;
}
function validar_campos(campos,tela,variavel,valor,mensagem_confirmacao_ok)
{
	if (! stimed_validar_campos(campos,tela)){
		return false;
	}
	if ((mensagem_confirmacao_ok != null)&&(mensagem_confirmacao_ok != "")){
		if (! confirm(mensagem_confirmacao_ok)){
			return false; 
		}
	}
	if (valor!=null)
		return navegar(tela,variavel,valor);
	else
		return navegar(tela,variavel);
	
}
/*
  b contém uma lista onde será testado os valores carregados do iframe
*/
function validar_campos_editor(b,formulario,campos,botao,valor){
	b=b.split(",");
	for (i=0;i<b.length;i++){
	    var oEditor = FCKeditorAPI.GetInstance(b[i])
    	document.principal.elements[b[i]].value=oEditor.GetHTML();
	}
	return validar_campos(campos,formulario,botao,valor);
}
function navegar(form,variavel,valor,onde)
{
try{
		$('id_espera').style.top		= document.body.scrollTop;
//		$('id_espera').style.width 		= document.body.scrollWidth;
//		$('id_espera').style.height 	= document.body.scrollHeight;
		$('id_espera').style.display	= '';
	}catch(e){
		
	}
	if (variavel!=null)
	{
		try {
			document.forms[form].elements[0].name=variavel;
		}catch(e){
			if (document.forms[form].name == null){
				alert("Não existe o formulário "+form);
			}else{
				alert("Não existe elementos no formulário "+form)
			}
		}
	}
	
	if (valor !=null){
		document.forms[form].elements[0].value=valor
	}
	if (onde !=null){
		document.forms[form].proximo.value=onde
	}
	
	// trim all text inputs before submit por jefferson
	for(var i =0; i < document.forms[form].length; i++){
		if(	document.forms[form][i].type =='text'){
			document.forms[form][i].value = document.forms[form][i].value.trim();
		}
	}
	
	document.forms[form].method = 'POST';
	document.forms[form].submit();
	return false; 
	/*modificado por jefferson em 08/03/08 (para poder usar retorno booleano na funcção validar_campos) */
}

function Mascara_Data(field,teclapres)
{
 	var caracter = teclapres.keyCode; // Codigo Ascii
 	var tam = field.value.length;
	if (caracter  == 13)
   		return true;
	  //  ***  SE FOR <> DE NUMERO ***
	if (((caracter  < 48) || (caracter  > 57)) && ((caracter <96) || (caracter > 105 ))) //&& (caracter != 47)) "/"
	{  
   		field.focus();     
        // ***   O CAMPO VAI REcEBER ELE MESMO MENOS A ULTIMA OCORRENCIA QUE FOI UM CARACTER INVALIDO	 ***
		field.value = field.value.substring(0,(field.value.length -1))		
		return false
	}
	//alert(tam)
	if ((tam == 2) || (tam == 5))
		field.value = field.value + "/"	
	return true
}


function Check_Data(Data_Menor,Data_Maior,form,passo){
	var data_menor = Data_Menor.value.split("/"); // Variaves sao diferentes Pq eh Case Sensitive
	// ********** data_menor[0] eh o DIA
	//*********** data_menor[1] eh o MES
	//*********** data_menor[2] eh o ANO
	var data_maior = Data_Maior.value.split("/");// Variaves sao diferentes Pq eh Case Sensitive
    // ********** data_maior[0] eh o DIA
	//*********** data_maior[1] eh o MES
	//*********** data_maior[2] eh o ANO
	if (data_maior[2] < data_menor[2]){// COMPARANDO O ANO
		alert("A SEGUNDA Data tem que ser maior que a PRIMEIRA");
		Data_Maior.focus();
		Data_Maior.select();
		return false;
	}
	else{
	   if (data_maior[2] >= data_menor[2]){
	   	  if (data_maior[1] < data_menor[1]){ // COMPARANDO O MES
			alert("A SEGUNDA Data tem que ser maior que a PRIMEIRA");
			Data_Maior.focus();
			Data_Maior.select();
			return false;
		  }
		  else{
		  	  if (data_maior[1] >= data_menor[1]){
				  if (data_maior[0] < data_menor[0]){ // COMPARANDO O DIA
					alert("A SEGUNDA Data tem que ser maior que a PRIMEIRA");
					Data_Maior.focus();
					Data_Maior.select();
					return false;
		  		  }
				  else{
				  	  if (data_maior[1] >= data_menor[1]){
					  		navegar(form,passo);		
							return true;		
					  }
				  }  	  	
			  }		
		  }		
	   }	 
	}
}


/*
  function formatar_com_mascara
  	Formata a saida de um INPUT do tipo text.
	
  @param field
  	é o objeto ( this )
  @param teclapres 
    é a tecla pressionada trnsformada em ASCII
  @param mascara
  	A mascara da saida.. Onde, na mascara conter o numro 9, só terá numero ali de 0 a 9, 
	Onde conter a letra A, qualquer coisa pode ser digitado naquela posição.
	Os demais caracteres serão repetido no texto qndo chegar na posicao dele indicada na mascara
	
  Exemplo:
    <input type="text" onkeypress="return formatar_com_mascara(this,event,'99/99/9999')">

	 onkeypress="return formatar_com_mascara(this,event,'99/99/9999')" onblur="return axis_validar_data(this,'',false)"
*/
function formatar_com_mascara(field,teclapres,mascara)
{
	function getIndex(input) {
		var index = -1, i = 0, found = false;
		while (i < input.form.length && index == -1)
			if (input.form[i] == input)index = i;
		else i++;
		return index;
	}
	var comandos="A9";
 	var caracter = teclapres.keyCode; // Codigo Ascii
 	var tam = field.value.length;
	if (comandos.indexOf(mascara.charAt(tam))==-1){
		field.value+=mascara.charAt(tam);
		tam++;
	}
	if (mascara== null ){
		alert('Erro na configuracao da funcao.onkeypress="return formatar_com_mascara(this,event,\'99/99/9999\')"');
		return false;
	}
	
	if (caracter==13){
			try{ 
				field.form[(getIndex(field)+1) % field.form.length].focus();
			} catch(e){ };
		return false;
	}
	if (mascara.charAt(tam)=='9'){
		if (caracter  == 13){
			try{ 
				field.form[(getIndex(field)+1) % field.form.length].focus();
			} catch(e){ };
	   		return false;
		}
		if ((caracter  < 48) || (caracter  > 57)) 
		{  
			return false
		}
	}
	if (tam >= mascara.length){
		try{ 
		 	field.form[(getIndex(field)+1) % field.form.length].focus();
		} catch(e){ };
		return false;
	}
	return true
}

/*
  function uppercase
  	Transformar todo texto em caixa-alta
	@param obj
		é o parametro this
		
	Exemplo: 
		 onblur="uppercase(this)"
*/
function uppercase(obj){
	obj.value=obj.value.toUpperCase();
}


function ativar_desativar_display(lista_desativar,lista_ativar){
	lista_desativar = lista_desativar.split( "," );
	lista_ativar = lista_ativar.split( "," );
	
	if ( lista_desativar.length > 0 && lista_desativar != '' ){
		for ( r = 0; r < lista_desativar.length; r++ ) {
			try {
				//$hide( lista_desativar[ r ] );
				document.getElementById(lista_desativar[ r ]).style.display="none";
			} catch( e ) {
				alert( "Não Localizado: " + lista_desativar[ r ] );
			}
		}
	}
	
	if ( lista_ativar.length > 0 ) {	
		for ( r = 0; r < lista_ativar.length; r++ ) {
			//$show( lista_ativar[ r ] );
			document.getElementById(lista_ativar[ r ]).style.display="";
		}
	}
	
	return false;
}

function ativar_desativar_display2(a,b){
	return ativar_desativar_display(a,b);
}
function ativar_desativar_ativar_display(lista,objeto){
	s=lista.split(",");
	for (r=0;r<s.length;r++){
		if ($(s[r]).style.display=="none"){
			//$show(s[r]);
			document.getElementById(s[ r ]).style.display="";
		}else{
			//$hide(s[r]);
			document.getElementById(s[ r ]).style.display="none";
		}		
	}
	
	if (objeto != null){
		
		if (objeto.trocar != null){
			b=objeto.innerHTML;
			objeto.innerHTML=objeto.trocar;
			objeto.trocar=b;
		}
	}

	return false;
}

/*
    funcao ativar_desativar
		visualiza e esconde códigos HTML's

	@param lista_ativar
		é uma lista de objetos que será visualizada (separar n objetos por vírgula)
	@param lista_desativat
		é a lista de objetos que será escondida do usuário (separar os n objetos por virgula)
		
	Exemplo:
		<INPUT type="Radio" name="um_ex" value="1ex" onclick="ativar_desativar('botao,tela1','tela2')">
*/
function ativar_desativar(lista_desativar,lista_ativar,parte3,position){
	lista_ativar=(lista_ativar			!=null ? lista_ativar : "");
	lista_desativar=(lista_desativar 	!=null ? lista_desativar : "");
	parte3=(parte3						!=null ? parte3 : "");
	position=(position						!=null ? position : true);
    if (lista_ativar!=""){
		obj=lista_ativar.split(",");
		for (r=0;r<obj.length;r++){
			tmp=obj[r];
			try{
				eval(parte3 + "document.all[tmp].style.visibility='visible'");
			}catch(e){
				alert("não localizado:"+tmp);
			}
			if (position){
				try{
					eval(parte3 + "document.all[tmp].style.position='relative'");	
				}catch(e){
					alert("não localizado:"+tmp);
				}
			}
		}
	}
	if (lista_desativar != ""){
		obj=lista_desativar.split(",");
		obj2=lista_ativar.split(",");
		for (r=0;r<obj.length;r++){
			tmp=obj[r];
			achei=false;
			for(k=0;k<obj2.length;k++){
				if (tmp==obj2[k]){
					achei=true;
					break;
				}
			}
			if ( ! achei ){
				try{
					eval(parte3 + "document.all[tmp].style.visibility='hidden'");
				}catch(e){
					alert("não localizado:"+tmp);
				}
				if (position){
					try{
						eval(parte3 + "document.all[tmp].style.position='absolute'");	
					}catch(e){
						alert("não localizado:"+tmp);
					}
				}		
			}
		}
	}
	return false;
}

function sis_enable_disable(lista_ojeto,acao){
	tmp=lista_ojeto.split(",");
	for (r=0;r<tmp.length;r++){
		document.getElementById(tmp[r]).disabled=acao;
	}
	return false
}
/*
	funcao axis_enable_disable
		habilita e desabilita objetos
	@param form
		nome do formulário do objeto a ser pesquisado
	@param lista_objeto
		lista de objetos a serem trabalhados separados por vírgula
	@param acao
		se é habilitar ou desabilitar 
			false ou true
	exemplo
		<select name=farea_id size="5" multiple onchange="axis_enable_disable('doc','bt2,bt3,farea,fgargo',false)">
*/
function axis_enable_disable(form,lista_ojeto,acao){
	tmp=lista_ojeto.split(",");
	for (r=0;r<tmp.length;r++){
		objeto=tmp[r];
		document.forms[form].elements[objeto].disabled=acao;
	}
}


function axis_setar_objeto(form,obj,valor){
	document.forms[form].elements[obj].value=valor;
}
/*
   function stimed_habilitar_botao
   		Destina-se a habilitar o botao de envio conforme todos estejam os campos informados na lista estejam preenchidos
	@param lista
		lista de elementos a ser verificado para habilitar o botao
	@param form
		nome do formulario
	@param nome_botao
		nome do botao que será habilitado ou desabilitados
	exemplo
		<input type="text" name="matricula" onblur="stimed_habilitar_botao('matricula,cr_medico,Data,tipo','ficha_01','bt_executar_ficha');">
*/
function stimed_habilitar_botao(lista,form,nome_botao){
	axis_enable_disable(form,nome_botao,!(stimed_validar_campos(lista,form,false)))
}
/*
	stimed_mensagem(n,pagina,opcao,texto)
	Excluir qualquer item do sistema, mas antes faz uma pergunta para confirmar a ação do usuário antes de prosseguir
		@param valor
				valor do objeto que será atribuido a opcao
		@param pagina
				qual é o nome do formulario 
		@param variavel
				Nome da variável que será pesquisada no formulário. Ela conterá o valode de N.
		@param texto
			 	Este é o texto que será mostrado para o usuário para que possa fazer sua escolha			
		Exemplo
				return stimed_mensagem(id,"principal","passo_exclusao","Deseja realmente EXCLUIR esta ficha cliníca?");
				
*/
function stimed_mensagem(valor,pagina,variavel,texto){
	if (texto==null){
		texto="Deseja excluir este item?";
	}
	if (confirm(texto)){
		return navegar(pagina,variavel,valor)
	}
	return false;
}
function sti_mensagem_validar_campos(f_lista,f_formulario,f_botao,f_valor,f_mensagem){
	if (f_mensagem ==  null){
		f_mensagem="Deseja realmente Deletar este Item?";
	}
	if ( ! stimed_validar_campos(f_lista,f_formulario,true)){
		return false;
	}
	if (! confirm(f_mensagem)){
		return false;
	}
	return navegar(f_formulario,f_botao,f_valor);
}
/*
	stimed_mensagem_validar_campos(campos,pagina,variavel,valor,texto)
	Antes de tentar excluir o item, verifica se foi escolhido este item na tela.
	Excluir qualquer item do sistema, mas antes faz uma pergunta para confirmar a ação do usuário antes de prosseguir
		@param valor
				valor do objeto que será atribuido a opcao
		@param pagina
				qual é o nome do formulario 
		@param variavel
				Nome da variável que será pesquisada no formulário. Ela conterá o valode de N.
		@param texto
			 	Este é o texto que será mostrado para o usuário para que possa fazer sua escolha			
		Exemplo
				<input type="button" value="Enviar"  onclick="return stimed_mensagem_validar_campos('apagar_pcmso_id','principal','escolheu_apagar_este_relatorio','Apagar este relatório? Confirme por favor.')">
				
*/
function stimed_mensagem_validar_campos(campos,pagina,variavel,valor,texto){
	if(stimed_validar_campos(campos,pagina)){
		stimed_mensagem(valor,pagina,variavel,texto);
	}
}

function stimed_tem_campos_vazios(lista,form){
	tmp=lista.split(",");
	tem=-1;
	for (r=0;r<tmp.length;r++){
		tt=tmp[r];
		if (!axis_trim(document.forms[form].elements[tt])){
			tem=tt;
			break;
		}
	}
	return tem;
}

function stimed_seta_objeto(lista_ojeto,acao){
	tmp=lista_ojeto.split(",");
	for (r=0;r<tmp.length;r++){
		objeto=tmp[r];
		document.getElementById(objeto).disabled=acao;
	}
}
/*
stimed_campo_maximo(a,tmax)
  	Evitar que seja digitado um texto maior do que comporta o campo na tabela.

 @param a -  É o objeto (THIS)
 @param tmax -   Nro máximo de bytes aceito pelo campo - default = 2000

Exemplo:
  		<textarea cols="55" rows="8" name="nTexto" onblur="stimed_campo_maximo(this,4000) "></textarea>


*/
function stimed_campo_maximo(a,tmax){
	if(tmax==null){ tmax=2000;}
	a.value=a.value.substring(0,tmax);
}
/*
  Funçao:
  	stimed_marcar_todos(form_nome,nome_elemento)
  Objetivo:
  	
  @param form_nome
    Nome do formulário onde se encontra o objeto ( nome do elemento )


*/
function stimed_marcar_todos(form_nome,nome_elemento,acao){
	if (acao==null){
		acao=true;
	}
   for (r=0;r<document.forms[form_nome].elements.length;r++){
    	if ( (document.forms[form_nome].elements[r].type=="checkbox") && (document.forms[form_nome].elements[r].name==nome_elemento)){
			document.forms[form_nome].elements[r].checked=acao;
		}
   }
   return false;
}
/*
   Funcoes stimed_setar_objeto_por_id
   		Destina-se a habilitar os objetos através do id
	@param lista
		lista de objetos a serem habilitados e desabilitados
	@param valor
		valor do parametro do objeto ( disabled ) que será FALSE ou TRUE
	exemplo
		<input type="text" name="matricula" onblur="stimed_habilitar_botao('matricula,cr_medico,Data,tipo','ficha_01','bt_executar_ficha');">
*/
function stimed_setar_objeto_por_id(lista,valor){
    tmp=lista.split(",");
	for(r=0;r<tmp.length;r++){
	  id=tmp[r];
	  document.all[id].disabled=valor;
	}
}

/*
Funcoes stimed_mouse_over
	Destinam a dar um realce em uma região para facilitar a visão do usuário

<tr onMouseOut="stimed_mouse_out(this,'<!--label:_cor_mouse_out_:[null]-->');" onMouseOver="stimed_mouse_over(this,'<!--label:_cor_mouse_over_:[null]-->');" onclick="return falterar_funcao('principal','passo4','4687')" >
*/

function stimed_mouse_over(src,clrOver) {
 bg_old = src.style.backgroundColor;
 
	if (!src.contains(event.fromElement)) {
		src.style.cursor = 'pointer';
		swapBG( src, clrOver, bg_old )	
	}
}
function stimed_mouse_out(src,clrIn){
 bg_old = src.style.backgroundColor;
	
	if (!src.contains(event.toElement)){
		src.style.cursor = 'default';
		swapBG( src, bg_old,clrIn )	
	}
}

// funcao
function dhtml_setar_texto(nome_objeto,texto){
	try{
		document.getElementById(nome_objeto).innerHTML=texto;
	}catch(e){
		try{
			document.all[nome_objeto].innerHTML=texto
		}catch(e){
			window.status='Não localizado o objeto:' + nome_objeto;
		}
	}
}
/*
	função para detectar a existência de anti pop-up.
	
	
*/
function testar_popup(){
	var w=null;
	try{
		w=window.open("","t","width=1,height=1,top=1700");
		w.close();
	}catch(e){
		dhtml_setar_texto("mensagem_pop_up","Por favor, queira desativar todos os anti pop-up. O STIMED necessita dele(s) desativado(s).");
	}
	
}
/*
Função para retornar ao menos um ítem.
======================================
*/
function stimed_navegar_pesquisa(lista,nome_form,nome_variavel,valor,msg){
	msg=(msg==null ? "Escolha ao menos um item da pesquisa" : msg);
	objetos=lista.split(",");
	erro="";
	for (r_11=0;r_11<objetos.length;r_11++){
		erro+=(stimed_validar_campos(objetos[r_11],nome_form,false) ? "1":"0");
	}
	if (erro.indexOf("1")>=0){
		return navegar(nome_form,nome_variavel,valor);
	}else{
		alert(msg);
	}
	return false;
}
/*
função entsub
	@param formulario -  nome do formulario que será analisado.
	@param botao - nome do botao que sofreá o submit, se vazio, o form pode sofrer o submit, a diferença é
					pelo botao vc passa os paramentros, qndo isto for necessário.
	Retorno	
			- false, quando executou o submit ou true diferente disto.
	Exemplo
			-<input type=text name="".... onKeypress="entsub(event,this,'id_bt_submit')">
			- <input type="button" value="Enviar"   id="id_bt_submit">

*/
function entsub(event,formulario,da_o_submit_no_botao) {
	if (event && event.keyCode == 13){
		uppercase(formulario);
		if (da_o_submit_no_botao == null){
			formulario.form.submit();
		}else{
			document.getElementById(da_o_submit_no_botao).click();
		}
		return false;
	}else{
		return true;
	}

}

var http_request = false;
function url_ajax(url,variaveis_de_ambiente) {
	if (variaveis_de_ambiente==null){
		variaveis_de_ambiente=true;
	}else{
		proximo=url;
	}
	// --------inserir a sessao do usuário dentro da url passada-------------
	myData=new Date();
	__id__=myData.getHours()+myData.getMinutes()+myData.getSeconds();
	if ( variaveis_de_ambiente ){
		if (url.indexOf("?")==-1){
			proximo=url;
			url="sessao="+document.principal.sessao.value+"&id_condominio_trabalhar="+document.principal.id_condominio_trabalhar.value;
		}else{
			a=url.split("?");
			proximo=a[0];
			url="sessao="+document.principal.sessao.value+"&id_condominio_trabalhar="+document.principal.id_condominio_trabalhar.value+"&"+a[1];
		}
		url="index.cfm?tmp_include="+proximo+"&__incluir_header_pagina=false&rotina_ajax=sim&"+url+"&f="+__id__;
	}else{
		if (url.indexOf("?")==-1){
			url=url + "?rotina_ajax=sim&f="+__id__;
		}else{
			url=url + "&rotina_ajax=sim&f="+__id__;
		}
	}
	url=url + '&__tmp_perfil_id=' + document.principal.__tmp_perfil_id.value;
	// ----------------------------------------------------------------------
    http_request = false;
    if (window.XMLHttpRequest) { // Mozilla, Safari,...
        http_request = new XMLHttpRequest();
        if (http_request.overrideMimeType) {
            http_request.overrideMimeType('text/xml');
        }
    } else if (window.ActiveXObject) { // IE
        try {
            http_request = new ActiveXObject("Msxml2.XMLHTTP");
        } catch (e) {
            try {
			http_request = new ActiveXObject("Microsoft.XMLHTTP"); 
            } catch (e) {}
        }
    }
    if (!http_request) {
        alert('Giving up :( Cannot create an XMLHTTP instance');
        return false;
    }
	http_request.onreadystatechange = alertContents;
	http_request.open('GET', url, true);
	http_request.send(null);
}
/*sis.atualizacao
responsavel:Marcelo Reis
descricao:SE existir ajax_tag:funcao, indica que este processo será manual, definindo nesta tag
a função de retorno.
SE existir ajax_tag:id, informa que o processo será automático,retornando 
o conteúdo para ser escrito dento do Id informado
	
*/
function alertContents() {

    if (http_request.readyState == 4) {
        if (http_request.status == 200) {
			txt=http_request.responseText;
			tem_funcao_retorno=false;
			tem_id=false;
			if (txt.indexOf("<!--area de trabalho-->")>1){
				txt=txt.substring(txt.indexOf("<!--area de trabalho-->")+23,txt.length);
			}
			if (txt.indexOf("<!--ajax_tag:teste-->")>-1){
				pop_up("",800,600,"debug",txt);
			}
			if (txt.indexOf("<!--ajax_tag:funcao:")>-1){	
				
				funcao_retorno=txt.substring(txt.indexOf("<!--ajax_tag:funcao:")+20,txt.length);
				txt=funcao_retorno.substring(funcao_retorno.indexOf("-->")+3);
				funcao_retorno=funcao_retorno.substring(0,funcao_retorno.indexOf("-->"));
				tem_funcao_retorno=true;
			}
			if (txt.indexOf("<!--ajax_tag:msg:")>-1){
				funcao_retorno=txt.substring(txt.indexOf("<!--ajax_tag:msg:")+17,txt.length);
				texto=funcao_retorno.substring(0,funcao_retorno.indexOf("-->"));
				//alert(texto);
				pop_up("",800,600,"debug",texto);
				return;
			}			
			if (txt.indexOf("<!--ajax_tag:id:")>-1){
				tag_id=txt.substring(txt.indexOf("<!--ajax_tag:id:")+16,txt.length);
				tag_id=tag_id.substring(0,tag_id.indexOf("-->"));
				tem_id=true;
			}
			if (txt.indexOf("<!--ajax_tag:sem_acao-->")==-1){
				if ((tem_id) && (!tem_funcao_retorno)){
					txt=limpar_codigo(txt);
					dhtml_setar_texto(tag_id,txt);
				}else{
					if (tem_funcao_retorno){
						txt=limpar_codigo(txt);
						eval(funcao_retorno+"(txt)");
					}else{
			            pop_up("",800,600,"debug",http_request.responseText);
						//eval(funcao_retorno+"(http_request.responseText)");
					}
				}
			}
			
        } else {
            pop_up("",800,600,"erro",http_request.responseText);
        }
    }
}
var funcao_retorno = "alert";
function axis_validar_empregado_ajax(objeto_origem, empresa_id,lista_de_situacao_empregado){
	funcao_retorno="sis_mostrar_resultado_ajax";
	url="modulo_pesquisa_empregado.cfm?selecionar_empregado_ajax=1&__incluir_header_pagina=false&empresa_id="+empresa_id+"&situacao="+lista_de_situacao_empregado+"&matricula="+objeto_origem.value;
	url_ajax(url);
}
function limpar_codigo(objeto_descrito){
	tem =false;
	while (objeto_descrito.indexOf(".cfdebug")>-1){
		objeto_descrito=objeto_descrito.substring(0,objeto_descrito.lastIndexOf(".cfdebug"));
		tem=true;
	}
	if (tem){
		objeto_descrito=objeto_descrito.substring(0,objeto_descrito.lastIndexOf("</td></td></td></th></th>"));
	}
	while (objeto_descrito.indexOf("<!--area de trabalho-->")>-1){
		objeto_descrito=objeto_descrito.substring(objeto_descrito.lastIndexOf("<!--area de trabalho-->")+25,objeto_descrito.length);
	}
	return objeto_descrito;  
}
function sis_mostrar_resultado_ajax(objeto_descrito,tag){
	if (tag==null) tag="ajax_empregado";
	objeto_descrito=limpar_codigo(objeto_descrito);
	dhtml_setar_texto(tag,objeto_descrito);
	carregar_todas_as_imagens();
}

/*
 funcao:
 	ativar_desativar_ativar
Objetivo:
	passando uma lista como parâmetro ( separada por virgula ), detectar se:
	É hidden, transformar visibility;
	É visibility, transformar hidden;
	É absolute, transformar para relative;
	É relative, transformar para absolute;
*/
function ativar_desativar_ativar(lista){
	s=lista.split(",");
	for (r=0;r<s.length;r++){
		if (document.getElementById(s[r]).style.position=="absolute"){
			document.getElementById(s[r]).style.position="relative";
		}else{
			document.getElementById(s[r]).style.position="absolute";
		}
		if (document.getElementById(s[r]).style.visibility=="hidden"){
			document.getElementById(s[r]).style.visibility="visible";
		}else{
			document.getElementById(s[r]).style.visibility="hidden";
		}		
	}
	return false;
}

/*
	funcao:sis_trocar_abas
		Esta função troca as abas de acordo com o click sobre as mesma.
		Depois deste processo, o sistema irá montar as tags das telas de acordo com o conteúdo de ativar e desativar,
		colocando tela_<tag ativa>  e cada um de desativa tela_<elementos de  desativa>	
		
	@param ativa
		Aba a ser ativada
	@param desativa
		Abas a serem desativadas ( separar por vírgula )

*/
function sis_trocar_abas(ativa,desativa){
	desativa=desativa.split(",");
	tag_desativa="";
	for (r=0;r<desativa.length ;r++){
		n=desativa[r];
		
		try{
			document.getElementById(n).className="";
		}catch(e){
			window.status="Não localizado ID "+n;
		}
		tag_desativa=tag_desativa+(tag_desativa=="" ? "" :",")+"tela_"+n
	}
	document.getElementById(ativa).className="aba_ativa";
	tag_ativa="tela_"+ativa;
	return ativar_desativar_display(tag_desativa,tag_ativa);
}



/*
	funcao:sis_trocar_abas
		Esta função troca as abas de acordo com o click sobre as mesma.
		Depois deste processo, o sistema irá montar as tags das telas de acordo com o conteúdo de ativar e desativar,
		colocando tela_<tag ativa>  e cada um de desativa tela_<elementos de  desativa>	
		
	@param ativa
		Aba a ser ativada
	@param desativa
		Abas a serem desativadas ( separar por vírgula )

*/
function sis_trocar_abas_display(ativa,desativa){
	desativa=desativa.split(",");
	tag_desativa="";
	tag_ativa="";
	for (r=0;r<desativa.length ;r++){
		n=desativa[r];
		document.getElementById(n).className="";
		tag_desativa=tag_desativa+(tag_desativa=="" ? "" :",")+"tela_"+n
	}
	ativa=ativa.split(",");
	for (r=0;r<ativa.length ;r++){
		n=ativa[r];
		document.getElementById(n).className="aba_ativa";
		tag_ativa=tag_ativa+(tag_ativa=="" ? "" :",")+"tela_"+n
	}
	return ativar_desativar_display(tag_desativa,tag_ativa);
}

/*
	funcao:stimed_carregar_variavel
		Esta função faz apenas carregar os valores para um determinado campo. É muito utilizado
		na pesquisa de empregado, quando não desejamos mudar de página, apenas carregar a matrícula
		do empregado em um determinado campo específico.
		
	@param a
		Nome do formulário principal
	@param b
		nome do campo no formulário principal
	@param c
		valor deste campo
	@param empresa_a_ser_alterada
		id da empresa que estamos nos referindo...
*/
function stimed_carregar_variavel(nome_formulario,nome_variavel,valor_variavel){
	try{
		document.forms[nome_formulario].elements[nome_variavel].value=valor_variavel;
		document.forms[nome_formulario].elements[nome_variavel].focus();
	}catch(e){
		window.status='Não foi possível encontrar este objeto para ser atualizado.';
	}
	return false;
}

function printit(objeto,titulo,tela,tamanho,extra){
	if (tela == null){
		objeto.style.display="none";
		var tela="tela_"+Math.floor(Math.random()*800000);
		objeto=objeto.parentNode;
		while (objeto.parentNode.nodeName!="TABLE"){
			objeto=objeto.parentNode;
		}
		objeto.parentNode.id=tela;
	}
	if (tamanho != null){
		if (tamanho.indexOf("%")>-1){
			tamanho=tamanho.substring(0,tamanho.indexOf("%"))+"_";
		}
	}
	if(extra==null){
		extra="";
	}
	url_ajax("impressao.cfm?tela="+tela+"&titulo_documento="+titulo+"&tamanhoTela="+tamanho+extra);
	return false;
}

function __imprimir__(a){
	var objeto=a;
	var objeto=objeto.parentNode;
	var b="";
	while (objeto.parentNode.nodeName!='TD'){
		objeto=objeto.parentNode;
	}
	objeto.style.display='none';
	// achar agora os itens dentro deste
	b="";
	for (r=0;r<document.principal.elements.length-1;r++){
		if (document.principal.elements[r]==a){
			if (document.principal.elements[r-1].checked){
				b=b+"&f____identificar_o_sindico=sim";
			}
			if (document.principal.elements[r-2].checked){
				b=b+"&f____identificar_o_condominio=sim";
			}
			return b;
		}
	}
	return b;
}

function montar_tela_para_impressao(conteudo){
	tela=conteudo.substring(conteudo.indexOf("<!--variavel:")+13,50);
	tela=tela.substring(0,tela.indexOf("-->"));
	texto=document.getElementById(tela).innerHTML;
	conteudo=conteudo.replace("<#texto#>",texto);
	var desktop1 = window.open("", "pop_up","width=640,height=300,toolbar=no,location=no,status=yes,directories=no,menubar=no,scrollbars=1,resizable=yes,copyhistory=no");
	desktop1.document.writeln(conteudo);
}
function CF_RunContent(src){document.write(src);}

function paginacao_via_botoes(lista_desativar,lista_ativar,f_lista,f_formulario){
	if (f_lista != null){
		if ( ! stimed_validar_campos(f_lista,f_formulario,true)){
			return false;
		}
	}
 	return ativar_desativar_display(lista_desativar,lista_ativar);
}