function AbreTopo(){
  location.href = 'TOPO_PRINCIPAL.HTM';
  //window.location.assign('TOPO_PRINCIPAL.HTM');
}

function Fechar(W_Objeto){
  document.getElementById(W_Objeto).style.visibility  = 'hidden';
  document.getElementById(W_Objeto).style.display     = 'none';
} 

function AbreDiv(W_Objeto){
  //alert('AbreDiv');
  document.getElementById(W_Objeto).style.visibility  = '';
  document.getElementById(W_Objeto).style.display     = '';
} 

function PopUp(W_Pagina, W_Width, W_Height, W_Top, W_Left){
  W_Width  = 300;
  W_Height = 300;
  //window.open(W_Pagina,'Promocao', 'width=306,height=330,top=100,left=100,scrollbars=no,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=no')
  window.open(W_Pagina,'Promocao', 'width=400,height=500,,top=100,left=100,scrollbars=no,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=no')
}

//F_TamanhoTela;
function F_TamanhoTela(){
    //alert('F_TamanhoTela');
	//location.href('index.htm');
}

//funcoes de posicionamento
function F_PegaLeft(W_Obj) {
  //alert('F_PegaLeft');
 return parseInt(W_Obj.x) ? W_Obj.x : F_PegaPosAbs(W_Obj,"Left");
}/* retorna o left absoluto */

function F_PegaTop(W_Obj) {
  //alert('F_PegaTop');
 return parseInt(W_Obj.y) ? W_Obj.y : F_PegaPosAbs(W_Obj,"Top");
}/* retorna o top absoluto */

function F_PegaPosAbs(W_Obj,W_Posicao) {
  //alert('F_PegaPosAbs');
 W_Pos = 0;
 while (W_Obj != null) {
  W_Pos += W_Obj["offset" + W_Posicao];
  W_Obj = W_Obj.offsetParent;
 }
 return W_Pos;
}/* funcao chamada para adquirir top ou left absoluto */


function F_Data(){

	hoje	     = new Date();
	dia		     = hoje.getDate();
	mes		     = hoje.getMonth();
	ano		     = hoje.getYear();
	semana	   = hoje.getDay();
	todasemana = new Array('Domingo','Segunda-Feira','Terça-Feira','Quarta-Feira','Quinta-Feira','Sexta-Feira','Sábado');
	todomes	   = new Array('Janeiro','Fevereiro','Março','Abril','Maio','Junho','Julho','Agosto','Setembro','Outubro','Novembro','Dezembro');	
	semana	   = todasemana[semana];
	mes        = todomes[mes];
	if(dia < 10)
		{dia = "0" + dia};

	if(navigator.appName=='Netscape'){
		ano += 1900;
	}
	document.write(semana+', '+dia+' de '+mes+' de '+ano);
}

/* funcoes tiradas do site micox */
function ajaxGet(url,elemento_retorno,exibe_carregando){
/****** 
* ajaxGet - Coloca o retorno de uma url em um elemento qualquer
* Use a vontade mas coloque meu nome nos créditos. Dúvidas, me mande um email.
* Versão: 1.2 - 20/04/2006
* Autor: Micox - Náiron José C. Guimarães - micoxjcg@yahoo.com.br
* Parametros:
* url: string; elemento_retorno: object||string; exibe_carregando:boolean
*  - Se elemento_retorno for um elemento html (inclusive inputs e selects),
*    exibe o retorno no innerHTML / value / options do elemento
*  - Se elemento_retorno for o nome de uma variavel
*    (o nome da variável deve ser declarado por string, pois será feito um eval)
*    a função irá atribuir o retorno à variável ao receber a url.
*******/
    //document.getElementById(elemento_retorno).cs = "MioloAjax";
		
		var ajax1 = pegaAjax();
    if(ajax1){
        url = antiCacheRand(url)
        ajax1.onreadystatechange = ajaxOnReady
        ajax1.open("GET", url ,true);
        //ajax1.setRequestHeader("Content-Type", "text/html; charset=iso-8859-1");//"application/x-www-form-urlencoded");
        ajax1.setRequestHeader("Cache-Control", "no-cache");
        ajax1.setRequestHeader("Pragma", "no-cache");
        if(exibe_carregando){ put("<table border='0'><tr><td><img width='20' height='20' src='imagens/ajax_loading.gif'></td><td><font class='F12b Fcolnav'>Trabalhando em sua requisição</font></td></tr></table>")    }
        ajax1.send(null)
        return true;
    }else{
        return false;
    }
    function ajaxOnReady(){
        if (ajax1.readyState==4){
            if(ajax1.status == 200){
                var texto=ajax1.responseText;
                if(texto.indexOf(" ")<0) texto=texto.replace(/\+/g," ");
                //texto=unescape(texto); //descomente esta linha se tiver usado o urlencode no php ou asp
								put(texto);
                extraiScript(texto);
            }else{
                if(exibe_carregando){put("Falha no carregamento. " + httpStatus(ajax1.status));}
            }
            ajax1 = null
        }else if(exibe_carregando){//para mudar o status de cada carregando
                put("<table border='0'><tr><td><img width='20' height='20' src='imagens/ajax_loading.gif'></td><td><font class='F12b Fcolnav'>Trabalhando em sua requisição</font></td></tr></table>" )
        }
    }
    function put(valor){ //coloca o valor na variavel/elemento de retorno
        //alert('url: ' + url.substring(0,14));
				//if (url.substring(0,14)=='expediente.php'){
					//valor = "<script>document.getElementById('td_apre').click();</script>" + valor;
					//valor = "<script>AlternarAbas('td_apre','div_apre');</script>" + valor;
				//}
				//W_IFrame_Ini = '<iframe name="iMiolo" id="iMiolo" width="600" height="300" frameborder="3" target="_self" align="middle" src="miolo.html">';
				//W_IFrame_Fim = '</iframe>';
				
				if((typeof(elemento_retorno)).toLowerCase()=="string"){ //se for o nome da string
            if(valor!="Falha no carregamento"){ 
								//alert('Valor 1 ' + valor);
                eval(elemento_retorno + '= unescape("' + escape(valor) + '")')
            }
        }else if(elemento_retorno.tagName.toLowerCase()=="input"){
            valor = escape(valor).replace(/\%0D\%0A/g,"")
            //alert('Valor 2 ' + valor);
            elemento_retorno.value = unescape(valor);
        }else if(elemento_retorno.tagName.toLowerCase()=="select"){        
            //alert('Valor 3 ' + valor);
            select_innerHTML(elemento_retorno,valor)
        }else if(elemento_retorno.tagName){
            elemento_retorno.className = "F14";
            //alert('Valor 4 ' + valor);
						//elemento_retorno.innerHTML = W_IFrame_Ini + valor + W_IFrame_Fim;
						elemento_retorno.innerHTML = valor;
            //alert(elemento_retorno.innerHTML)
        }    
    }
    function pegaAjax(){ //instancia um novo xmlhttprequest
        //baseado na getXMLHttpObj que possui muitas cópias na net e eu nao sei quem é o autor original
        if(typeof(XMLHttpRequest)!='undefined'){return new XMLHttpRequest();}
        var axO=['Microsoft.XMLHTTP','Msxml2.XMLHTTP','Msxml2.XMLHTTP.6.0','Msxml2.XMLHTTP.4.0','Msxml2.XMLHTTP.3.0'];
        for(var i=0;i<axO.length;i++){ try{ return new ActiveXObject(axO[i]);}catch(e){} }
        return null;
    }
    function httpStatus(stat){ //retorna o texto do erro http
        switch(stat){
            case 0: return "Erro desconhecido de javascript";
            case 400: return "400: Solicita&ccedil;&atilde;o incompreensível"; break;
            case 403: case 404: return "404: N&atilde;o foi encontrada a URL solicitada"; break;
            case 405: return "405: O servidor n&atilde;o suporta o m&eacute;todo solicitado"; break;
            case 500: return "500: Erro desconhecido de natureza do servidor"; break;
            case 503: return "503: Capacidade m&aacute;xima do servidor alcançada"; break;
            default: return "Erro " + stat + ". Mais informa&ccedil;&otilde;es em http://www.w3.org/Protocols/rfc2616/rfc2616-sec10.html"; break;
        }
    }
    function antiCacheRand(aurl){
        var dt = new Date();
        if(aurl.indexOf("?")>=0){// já tem parametros
            return aurl + "&" + encodeURI(Math.random() + "_" + dt.getTime());
        }else{ return aurl + "?" + encodeURI(Math.random() + "_" + dt.getTime());}
    }
}
function select_innerHTML(objeto,innerHTML){
/****** 
* select_innerHTML - altera o innerHTML de um select independente se é FF ou IE
* Corrige o problema de não ser possível usar o innerHTML no IE corretamente
* Veja o problema em: http://support.microsoft.com/default.aspx?scid=kb;en-us;276228
* Use a vontade mas coloque meu nome nos créditos. Dúvidas, me mande um email.
* Versão: 1.0 - 06/04/2006
* Autor: Micox - Náiron José C. Guimarães - micoxjcg@yahoo.com.br
* Parametros:
* objeto(tipo object): o select a ser alterado
* innerHTML(tipo string): o novo valor do innerHTML
*******/
    objeto.innerHTML = ""
    var selTemp = document.createElement("micoxselect")
    var opt;
    selTemp.id="micoxselect1"
    document.body.appendChild(selTemp)
    selTemp = document.getElementById("micoxselect1")
    selTemp.style.display="none"
    if(innerHTML.toLowerCase().indexOf("<option")<0){//se não é option eu converto
        innerHTML = "<option>" + innerHTML + "</option>"
    }
    innerHTML = innerHTML.replace(/<option/g,"<span").replace(/<\/option/g,"</span")
    selTemp.innerHTML = innerHTML
    for(var i=0;i<selTemp.childNodes.length;i++){
        if(selTemp.childNodes[i].tagName){
            opt = document.createElement("OPTION")
            for(var j=0;j<selTemp.childNodes[i].attributes.length;j++){
                opt.setAttributeNode(selTemp.childNodes[i].attributes[j].cloneNode(true))
            }
            opt.value = selTemp.childNodes[i].getAttribute("value")
            opt.text = selTemp.childNodes[i].innerHTML
            if(document.all){ //IEca
                objeto.add(opt)
            }else{
                objeto.appendChild(opt)
            }                    
        }    
    }
    document.body.removeChild(selTemp)
    selTemp = null
}

function extraiScript(texto){
//Maravilhosa função feita pelo SkyWalker.TO do imasters/forum
//http://forum.imasters.com.br/index.php?showtopic=165277&
    // inicializa o inicio ><
    var ini = 0;
    // loop enquanto achar um script
    while (ini!=-1){
        // procura uma tag de script
        ini = texto.indexOf('<script', ini);
        // se encontrar
        if (ini >=0){
            // define o inicio para depois do fechamento dessa tag
            ini = texto.indexOf('>', ini) + 1;
            // procura o final do script
            var fim = texto.indexOf('</script>', ini);
            // extrai apenas o script
            codigo = texto.substring(ini,fim);
            // executa o script
            //eval(codigo);
            /**********************
            * Alterado por Micox - micoxjcg@yahoo.com.br
            * Alterei pois com o eval não executava funções.
            ***********************/
            novo = document.createElement("script")
            novo.text = codigo;
            document.body.appendChild(novo);
        }
    }
}

///// OUTRO AJAX
meuAjax = function (){   
    try{   
        xmlhttp = new XMLHttpRequest();   
    }catch(ee){   
        try{   
            xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");   
        }catch(e){   
            try{   
                xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");   
            }catch(E){   
                xmlhttp = false;   
            }   
        }   
    }   
}

fajaxGet = function( nomeUrl, divRetorno ){   
  
		//AJAXLOAD(true);
		//alert('nomeUrl ' + nomeUrl);
		//alert('divRetorno ' + divRetorno);
		if (document.getElementById(divRetorno).style.display == 'none'){
			//alert('fechado');
			document.getElementById(divRetorno).style.visibility  = '';
			document.getElementById(divRetorno).style.display     = '';
      document.getElementById(divRetorno).innerHTML         = "<table border='0'><tr><td><img width='20' height='20' src='imagens/ajax_loading.gif'></td><td><font class='F12b Fcolnav'>Trabalhando em sua requisição</font></td></tr></table>";
		}else{
			//alert('aberto');
			document.getElementById(divRetorno).style.visibility  = 'hidden';
			document.getElementById(divRetorno).style.display     = 'none';
		}

		divInsereResposta = document.getElementById( divRetorno );   
       
    meuAjax();   
    xmlhttp.abort();   
    xmlhttp.open("GET", nomeUrl ,true);   
       
    xmlhttp.setRequestHeader("Content-Type", "text/html; charset=iso-8859-1");   
    xmlhttp.onreadystatechange = function() {   
            if( xmlhttp.readyState == 4 ){   
                   
                var valorRetorno            = xmlhttp.responseText;   
                divInsereResposta.innerHTML = valorRetorno;   
                       
            }   
    }   
       
    xmlhttp.send( null );   
		//AJAXLOAD(false);
  
} 

/////// funcoes para uso de abas

	function stAba(menu,conteudo)
	{
		this.menu = menu;
		this.conteudo = conteudo;
	}

	var arAbas = new Array();
	arAbas[0] = new stAba('td_apre','div_apre');
	arAbas[1] = new stAba('td_quem','div_quem');
	arAbas[2] = new stAba('td_colu','div_colu');

	function AlternarAbas(menu,conteudo)
	{
		for (i=0; i < arAbas.length; i++)
		{
			m = document.getElementById(arAbas[i].menu);
			m.className = 'menu';
			c = document.getElementById(arAbas[i].conteudo)
			c.style.display = 'none';
		}
		m = document.getElementById(menu)
		m.className = 'menu-sel';
		c = document.getElementById(conteudo)
		c.style.display = '';
	}

function AJAXLOAD(W_Status) {
    var elem = document.getElementById("Carregando");
    if (!elem) {
        elem                = document.createElement("div");
        elem.id             = "Carregando";
        elem.zindex         = 99;
        elem.style.position = "absolute";
        //Mudei a posicao na pagina
        elem.style.left     = (screen.height / 2);
        elem.style.top      = (screen.width / 4);
        elem.style.width    = 200;
        elem.style.height   = 22;
        elem.style.padding  = "2px";
        elem.className      = "Carregando";
        elem.innerHTML      = "<table border='0'><tr><td><img width='20' height='20' src='imagens/ajax_loading.gif'></td><td><font class='F12b Fcolnav'>Trabalhando em sua requisição</font></td></tr></table>";
        document.body.insertBefore(elem, document.body.firstChild);
    }
    if (W_Status){
		  document.getElementById("Carregando").style.visibility = '';
		}else{
		  document.getElementById("Carregando").style.visibility = 'hidden';
		}

    //TelaCarregando = elem;
}


// CHECA CAMPOS DO FORMULARIODE CONTATO
function checa(nform) {
	if(nform.realname.value == "") {
		alert("Informe seu Nome.");
		nform.realname.focus();
		nform.realname.select();
		return false;
	}
	if(nform.cidade.value == "") {
		alert("Informe sua Cidade.");
		nform.cidade.focus();
		nform.cidade.select();
		return false;
	}
	if(nform.message.value == "") {
		alert("Você não digitou uma mensagem");
		nform.message.focus();
		nform.message.select();
		return false;
	}
	if (nform.email.value == "") {
		alert("Informe seu e-mail.");
		nform.email.focus();
		nform.email.select();
		return false;
	}else {
		prim = nform.email.value.indexOf("@")
		if(prim < 2) {
			alert("O e-mail informado parece não estar correto.");
			nform.email.focus();
			nform.email.select();
			return false;
		}
		if(nform.email.value.indexOf("@",prim + 1) != -1) {
			alert("O e-mail informado parece não estar correto.");
			nform.email.focus();
			nform.email.select();
			return false;
		}
		if(nform.email.value.indexOf(".") < 1) {
			alert("O e-mail informado parece não estar correto.");
			nform.email.focus();
			nform.email.select();
			return false;
		}
		if(nform.email.value.indexOf(" ") != -1) {
			alert("O e-mail informado parece não estar correto.");
			nform.email.focus();
			nform.email.select();
			return false;
		}
		if(nform.email.value.indexOf("zipmeil.com") > 0) {
			alert("O e-mail informado parece não estar correto.");
			nform.email.focus();
			nform.email.select();
			return false;
		}
		if(nform.email.value.indexOf("hotmeil.com") > 0) {
			alert("O e-mail informado parece não estar correto.");
			nform.email.focus();
			nform.email.select();
			return false;
		}
		if(nform.email.value.indexOf(".@") > 0) {
			alert("O e-mail informado parece não estar correto.");
			nform.email.focus();
			nform.email.select();
			return false;
		}
		if(nform.email.value.indexOf("@.") > 0) {
			alert("O e-mail informado parece não estar correto.");
			nform.email.focus();
			nform.email.select();
			return false;
		}
		if(nform.email.value.indexOf(".com.br.") > 0) {
			alert("O e-mail informado parece não estar correto.");
			nform.email.focus();
			nform.email.select();
			return false;
		}
		if(nform.email.value.indexOf("/") > 0) {
			alert("O e-mail informado parece não estar correto.");
			nform.email.focus();
			nform.email.select();
			return false;
		}
		if(nform.email.value.indexOf("[") > 0) {
			alert("O e-mail informado parece não estar correto.");
			nform.email.focus();
			nform.email.select();
			return false;
		}
		if(nform.email.value.indexOf("]") > 0) {
			alert("O e-mail informado parece não estar correto.");
			nform.email.focus();
			nform.email.select();
			return false;
		}
		if(nform.email.value.indexOf("(") > 0) {
			alert("O e-mail informado parece não estar correto.");
			nform.email.focus();
			nform.email.select();
			return false;
		}
		if(nform.email.value.indexOf(")") > 0) {
			alert("O e-mail informado parece não estar correto.");
			nform.email.focus();
			nform.email.select();
			return false;
		}
		if(nform.email.value.indexOf("..") > 0) {
			alert("O e-mail informado parece não estar correto.");
			nform.email.focus();
			nform.email.select();
			return false;
		}
	}
	return true;
	//nform.action = "http://reboquemania.com.br/cgi-sys/FormMail.cgi";
}


//////
//funcao para mudar a setinha do detalhe da agenda
function MudaImagem(W_Objeto){
  
  //alert(W_Objeto.src.indexOf('imagens/seta_abre.png', ''))
	if (document.getElementById(W_Objeto).src.indexOf('imagens/seta_abre.png', '') > 0 ){
 	  document.getElementById(W_Objeto).src = "imagens/seta_fecha.png";
  }else{
 	  document.getElementById(W_Objeto).src = "imagens/seta_abre.png";
  }

}


/////
// funcoes da agenda
function FrameCadAgenda(){
  document.getElementById('DivCadAgenda').style.visibility  = '';
  //document.getElementById('DivCadAgenda').style.height  = 300;
  document.getElementById('DivCadAgenda').innerHTML = '<IFrame name="FrameCadAgenda" src="adicionar.php?contprincipal=adicionar" Width="100%" Height="500" marginwidth="0" marginheight="0" scrolling="no" frameborder="1"></iframe>';
}
function Fechar(W_Objeto){
  document.getElementById(W_Objeto).style.height      = 0;
  document.getElementById(W_Objeto).style.visibility  = 'hidden';
  document.getElementById(W_Objeto).innerText         = '';
  document.getElementById('TdDetalhe').style.height   = 0;
  document.getElementById(W_Objeto).style.display     =	'none';
} 
function AbreDiv(W_Objeto){
  //alert(W_Objeto);
  document.getElementById(W_Objeto).style.visibility  = '';
  document.getElementById(W_Objeto).style.display     =	'';
}
function DivDetalhe(W_Objeto, W_Codigo){
  //alert(W_Objeto);
  document.getElementById(W_Objeto).style.display     =	'';
  document.getElementById(W_Objeto).style.visibility  = '';
  document.getElementById(W_Objeto).innerHTML					= "<table border='0'><tr><td><img width='20' height='20' src='imagens/ajax_loading.gif'></td><td><font class='F12b Fcolnav'>Trabalhando em sua requisição</font></td></tr></table>";
  document.getElementById(W_Objeto).innerHTML					= '<table Class="TabDescricao" id="TabDescricao" bordercolorlight="#FF9933" bordercolordark="#FF9933" border="1" width="100%" height="0" cellspacing="0" cellpadding="0"><tr><td width="100%" align="center" valign="top" height="0"><IFrame name="FrameDetalhe" src="agenda_detalhe.php?W_Cod='+W_Codigo+'" Width="100%" Height="auto" marginwidth="0" marginheight="0" scrolling="no" frameborder="0"></iframe><b><a href=javascript:Fechar("'+W_Objeto+'") target="_self"><font face="tahoma,verdana,arial" size="1" color="#07609B">[ fechar ]</a></b></font></td></tr></table>';
}
function DivMiolo(){
  //alert('toin');
  //document.getElementById('DivMiolo').style.visibility  = '';
  //document.getElementById('DivMiolo').innerHTML = ' acascasc  ';
  document.getElementById('DivMiolo').innerHTML = '<IFrame name="FrameMiolo" src="../index.html" Width="100%" Height="auto" marginwidth="0" marginheight="0" scrolling="no" frameborder="1"></iframe>';
}