///
 
function OcultarBotao(NomeBotao) {
 document.MAINFORM[NomeBotao].style.display = "none";
}
///
 
function ExecutaBotao(NomeIframe,NomeBotao) {
 window[NomeIframe].document.MAINFORM[NomeBotao].click();
}
///

function ExecutaBotaoPai(NomeBotao) {
 window.parent.document.MAINFORM[NomeBotao].click();
}
///

function ExecutaBotaoOutro(NomeIframe,NomeBotao) {
 window.parent[NomeIframe].document.MAINFORM[NomeBotao].click();
}
///
 
function PopUp(Url,Largura,Altura) {
 if (Largura == '' || Altura == '') {
  Largura = screen.AvailWidth;
  Altura  = screen.AvailHeight;
 }
 Parm = "top=100,left=100,width=" + Largura + ",height=" + Altura;
 window.open(Url,'',Parm);
}
///

function PopUp2(Url,Largura,Altura) {
 if (Largura == '' || Altura == '') {
  Largura = screen.AvailWidth;
  Altura  = screen.AvailHeight;
 }
 Parm = "top=0,left=0,width=" + Largura + ",height=" + Altura;
 window.open(Url,'',Parm);
}
///
 
function MarcarCheck(acao) {
// acao = MARCAR / DESMARCAR
 OK = 0;
 CC = 0;
 while(OK == 0) {
  if(document.MAINFORM.item(CC)){
   tipo = document.MAINFORM.item(CC).type; 
   if(tipo == 'checkbox') {
    if(acao == 'MARCAR') {
     document.MAINFORM.item(CC).checked = true;
    } else {
     document.MAINFORM.item(CC).checked = false;
    }
   }
   CC = CC + 1
  } else {
   OK = 1;
  } 
 }
}
///

function VerificarCheck(NomeIframe) {
 OK = 0;
 OKM = 0
 CC = 0;
 while(OK == 0) {
  if(window[NomeIframe].document.MAINFORM.item(CC)){
   tipo = window[NomeIframe].document.MAINFORM.item(CC).type; 
   if(tipo == 'checkbox') {
    if(window[NomeIframe].document.MAINFORM.item(CC).checked) {
     OKM = 1;
    } 
   }
   CC = CC + 1
  } else {
   OK = 1;
  } 
 }
}
///
 
function MudarImagem(NomeImagem,CaminhoImagem) {
 document.MAINFORM[NomeImagem].src = CaminhoImagem;
}
///
 
function AparecerImagem(NomeImagem) {
 document.MAINFORM[NomeImagem].style.display = "";
}
///
 
function DesaparecerImagem(NomeImagem) {
 document.MAINFORM[NomeImagem].style.display = "none";
}
///

function AparecerImagemEvento(NomeImagem) {
 document.all.item(NomeImagem).style.display = "";
}
///
 
function DesaparecerImagemEvento(NomeImagem) {
 document.all.item(NomeImagem).style.display = "none";
}
///
 
function Mensagem(Msg) {
 alert(Msg);
}
///
 
function ExecutaBotaoExcluir(NomeIframe,NomeBotao,Msg) {
	VerificarCheck(NomeIframe);
	if(OKM == 0) {
		alert('Selecione ao menos um.');
	} else {
		if(confirm(Msg)) {
			window[NomeIframe].document.MAINFORM[NomeBotao].click();
		}
	}
}
///
 
function FecharJanela() {
 self.close();
}
///
 
function AtualizarJanelaAnterior() {
 window.opener.document.MAINFORM.submit();
}
///
 
function ArrumarLarguraListbox() {
 OK = 0;
 CC = 0;
 while(OK == 0) {
  if(document.MAINFORM.item(CC)){
   tipo = document.MAINFORM.item(CC).type; 
   if(tipo == 'select-one') {
    document.MAINFORM.item(CC).style.width = 150;
   }
   
   CC = CC + 1
  } else {
   OK = 1;
  } 
 }
}
ArrumarLarguraListbox();
///

function ArrumarLarguraListbox2() {
 OK = 0;
 CC = 0;
 while(OK == 0) {
  if(document.MAINFORM.item(CC)){
   tipo = document.MAINFORM.item(CC).type; 
   if(tipo == 'select-one') {
    document.MAINFORM.item(CC).style.width = 200;
   }
   
   CC = CC + 1
  } else {
   OK = 1;
  } 
 }
}

///////
 
function EscreveAguarde() {
	ah = screen.height;
	aw = screen.width;	
	if(! window.Aguarde){
		document.write("<table id='IfrmAguarde' name='IfrmAguarde' width='" + aw + "' height='" + ah + "' style='FILTER:progid:DXImageTransform.Microsoft.Alpha(style=0,opacity=0);visibility:; position:absolute; top:0; left:0;'><tr><td><iframe width='" + aw + "' height='" + ah + "'></iframe></td></tr></table>")
		document.write("<table border='1' id='Aguarde' name='Aguarde' bgcolor='#D6DEEF' cellpadding='0' cellspacing='2' width='" + aw + "' height='" + ah + "' style='FILTER:progid:DXImageTransform.Microsoft.Alpha(style=0,opacity=50);display:; position:absolute; top:0; left:0; z-index:6000000'><tr><td align='center'></td></tr></table>")
		document.write("<table border='0' id='MsgAguarde' name='MsgAguarde' width='" + aw + "' height='" + ah + "' style='display:; position:absolute; top:0; left:0; z-index:7000000'><tr><td align='center'><table border='1' bgcolor='#D6DEEF' bordercolor='#800080' cellpadding='0' cellspacing='2' width='350' height='150'><tr><td align='center'><font face='Arial' size='4'><i>Por favor, aguarde...</i></td></tr></table></td></tr></table>")
	}
}
///
 
function MostraAguarde() {
 window.IfrmAguarde.style.visibility="visible";
 window.Aguarde.style.display="";
 window.MsgAguarde.style.display="";
}
///
 
function SomeAguarde() {
 window.IfrmAguarde.style.visibility="hidden";
 window.Aguarde.style.display="none";
 window.MsgAguarde.style.display="none";
}
///

function MostraAguarde2() {
if(! document.all) {
 top.window.IfrmAguarde.style.visibility="visible";
 top.window.Aguarde.style.display="";
 top.window.MsgAguarde.style.display="";
}
}
///

document.onclick = MostraAguarde2;

///
function VerificaErrorV() {
	if(window.ErrorV){
		Msg = window.ErrorV.innerText;
		alert(Msg);
	}
}
///

top.EscreveAguarde();
document.write("<script for=window event=onload>top.SomeAguarde(); VerificaErrorV();</script>")
document.write("<script for=window event=onunload>top.MostraAguarde();</script>")
///  

function ColocarValorTela(NomeIframe,NomeVar,Valor) {
//Do pai no iframe
	window[NomeIframe].document.MAINFORM[NomeVar].value = Valor;
}
///

function ColocarValorTelaPai(NomeVar,Valor) {
//Do iframe no pai
	window.parent.document.MAINFORM[NomeVar].value = Valor;
}
///

function ColocarValorTelaOpen(NomeVar,Valor) {
//Do Popup no opener
	window.opener.document.MAINFORM[NomeVar].value = Valor;
}
///

function ColocarValorTelaOpenOutro(NomeIframe,NomeVar,Valor) {
//Do Popup no opener
	window.opener.parent[NomeIframe].document.MAINFORM[NomeVar].value = Valor;
}
///


function ColocarValorTelaOutro(NomeIframe,NomeVar,Valor) {
//Do iframe no outro iframe dentro do pai
	window.parent[NomeIframe].document.MAINFORM[NomeVar].value = Valor;
}
///

function HabilitarEdit(NomeEdit,Acao) {
//Acao = HABILITAR / DESABILITAR
	if(Acao == 'HABILITAR') {
		document.MAINFORM[NomeEdit].disabled = false;
		document.MAINFORM[NomeEdit].style.backgroundColor = 'white';
		
	} else {
		document.MAINFORM[NomeEdit].disabled = true;	
		document.MAINFORM[NomeEdit].style.backgroundColor = '#EEEEEE';
	}
}
///

function stopError() {
	return true;
}
window.onerror = stopError;
///


function TrocaChrVal(trocarpara,trocareste,casasdecimais,valor)
{
     i=0;
     casasdecimais+=1;
     v5='';	
     while(i<12)
	{
	   if (valor.substring(i,i+1)==trocareste)
	   	{
		  v5 = valor.substring(0,i) + trocarpara + valor.substring(i+1,i+casasdecimais);
		  i=20; 
		}	
		i+=1;
	}
	return v5
}
/////

function addmes(elem,adicmes)
{
  data = elem.value;	
  dia = data.substring(0,2); 
  mes = data.substring(3,5); 
  ano = data.substring(6,10); 
  mes = eval(mes) + eval(adicmes) - 1; 
  dia2= eval(dia); 
  while (mes > 12) { 
        dif = mes - 12; 
        mes = dif; 
        ano = eval(ano) + 1; 
  }
  dia2 = dia2 - 1
  if (dia2 < 1)
  {dia2=31;}
  switch (mes)
  {
   case 2:
	if (dia2 > 28) {dia2=28;}
   case 4:
	if (dia2 > 30) {dia2=30;}
   case 6:
	if (dia2 > 30) {dia2=30;}
   case 9:
	if (dia2 > 30) {dia2=30;}
   case 11:
	if (dia2 > 30) {dia2=30;}
  } 
  dia = dia2 + ""; 
  ano = ano + "";  
  mes = mes + "";  
  tamano = ano.length; 
  tammes = mes.length; 
  tamdia = dia.length; 
  if (tamano < 2) {   
        ano = "0" + ano; 
  } 
  if (tammes < 2) { 
        mes = "0" + mes; 
  } 
  if (tamdia < 2) { 
        dia = "0" + dia; 
  } 
  data = dia + "/" + mes + "/" + ano; 
  return data
}