var x = navigator.appVersion;
var y = x.substring(0,4);
if (y>=4)
{
	if (navigator.appName == "Netscape")
	{
		b_rolaesquerda=".pageXOffset"
		b_rolatopo=".pageYOffset"
		b_esquerda=".left";
		b_topo=".top";
		b_largura=".width";
		b_altura=".height";
		b_esconde="hidden";
		b_mostra="visible";
		b_aparece="";
		b_desaparece="none";
		b_janela_i="window.";
		b_janela_f="";
		b_aparecedesaparece_i="document.getElementById('";
		b_aparecedesaparece_f="').style.display";
		b_escondemostra_i="document.getElementById('";
		b_escondemostra_f="').style.visibility";
		b_posicaotamanho_i="document.getElementById('";
		b_posicaotamanho_f="').style";
		b_larguratotal="window.innerWidth";
		b_alturatotal="window.innerHeight";
		b_objeto_i="document.getElementById('";
		b_objeto_f="')";
	}
	else
	{
		b_rolaesquerda=".document.body.scrollLeft"
		b_rolatopo=".document.body.scrollTop"
		b_esquerda=".pixelLeft";
		b_topo=".pixelTop";
		b_largura=".width";
		b_altura=".height";
		b_esconde="hidden";
		b_mostra="visible";
		b_aparece="";
		b_desaparece="none";
		b_janela_i="window.";
		b_janela_f="";
		b_escondemostra_i="document.all.";
		b_escondemostra_f=".style.visibility";
		b_aparecedesaparece_i="document.all.";
		b_aparecedesaparece_f=".style.display";
		b_posicaotamanho_i="";
		b_posicaotamanho_f=".style";
		b_larguratotal="document.body.clientWidth";
		b_alturatotal="document.body.clientHeight";
		b_objeto_i="document.all.";
		b_objeto_f="";
	}
}

function IncluirNaLista(NomeDoObjeto)
{
	eval("Abrir" + NomeDoObjeto + "('')");
}

function EditarLista(NomeDoObjeto)
{
	var Frm=document.F;
	var Item="";

	eval("Item=ReadInput(Frm.ListaDe" + NomeDoObjeto + ")");
	if(Item.indexOf(',')>=0)
	{//EXISTE MAIS DE UM ITEM MARCADO
		alert('Existe mais de um item selecionado. Selecione apenas um item a ser alterado.');
		return;
	}
	if (Item=="")
	{//NAO EXISTE ITEM SELECIONADO
		alert('Não existe item selecionado. Selecione o item a ser alterado.');
		return;
	}
	eval("Abrir" + NomeDoObjeto + "(Item)");
}

function ExcluirDaLista(NomeDoObjeto)
{
	var Frm=document.F;
	var I;
	var Cada;
	var Saida="";
	var Item="";
	eval("var Objeto=Frm.MatrizDe" + NomeDoObjeto);
	var Entrada=Objeto.value;
	var CadaItem;
	var P;
	eval("var ObjetoDeExclusao=Frm.ExclusaoDe" + NomeDoObjeto);
	var Exclusao="";

	eval("Item=ReadInput(Frm.ListaDe" + NomeDoObjeto + ")");
	if (Item!="")
	{//EXISTE ITEM SELECIONADO
		if(Item.indexOf(',')>=0)
		{//EXISTE MAIS DE UM ITEM MARCADO
			if(!confirm("Existe mais de um item selecionado. Você tem certeza que deseja excluir todos os itens marcados?"))
			{
				return;
			}
		}
		if(!confirm("Atenção! Esta operação não poderá ser desfeita. Você tem certeza que deseja excluir o(s) item(ns) marcado(s)?"))
		{
			return;
		}
		for(I=1;(Cada=StrParse(Entrada,I,"\t\r\n"))!="";I++)
		{// CADA ITEM
			if(StrInList(Item,I,",")==-1)
			{//ESTA NUM ITEM NORMAL
				Saida+="\t\r\n" + Cada;
			}
			else
			{//ESTA NUM ITEM DE EXCLUSAO
				Exclusao+="\t\r\n" + Cada;
			}
		}
		Saida=Saida.substr(3,Saida.length-3);
		Objeto.value=Saida;
		if(ObjetoDeExclusao)
		{
			if(ObjetoDeExclusao.value=="")
			{
				ObjetoDeExclusao.value=Exclusao.substr(3,Exclusao.length-3);
			}
			else
			{
				ObjetoDeExclusao.value+=Exclusao;
			}
		}
		MostrarLista(NomeDoObjeto);
	}
	else
	{//NAO EXISTE ITEM SELECIONADO
		alert('Não existe item selecionado. Selecione o item a ser excluído.');
	}
}

function SalvarNaLista()
{
	var Frm=document.F;
	var Arg=SalvarNaLista.arguments;
	var NomeDoObjeto=Arg[0];
	var Item=Arg[1];
	var I;
	var Cada;
	eval("var Objeto=Frm.MatrizDe" + NomeDoObjeto);
	var Entrada=Objeto.value;
	var Saida="";
	var Texto;

	Texto="";
	for(I=2;I<Arg.length;I++)
	{
		Texto+=Arg[I] + "\t";
	}
	if (Texto!="")
	{
		Texto=Texto.substr(0,Texto.length-1);
	}
	if(Item+""=="")
	{//E' UMA INCLUSAO
		if(Entrada!="")
		{
			Saida=Entrada + "\t\r\n";
		}
		Saida+=Texto;
	}
	else
	{//E' UMA ALTERACAO
		for(I=1;(Cada=StrParse(Entrada,I,"\t\r\n"))!="";I++)
		{// CADA ITEM
			if(I==Item)
			{//ESTA NO ITEM A SER SUBSTITUIDO
				Saida+="\t\r\n" + Texto;
			}
			else
			{//ESTA NUM ITEM NORMAL
				Saida+="\t\r\n" + Cada;
			}
		}
		Saida=Saida.substr(3,Saida.length-3);
	}
	Objeto.value=Saida;
	MostrarLista(NomeDoObjeto);
}

function MostrarObjeto(Objeto)
{
	eval(b_aparecedesaparece_i + Objeto + b_aparecedesaparece_f+"='" + b_aparece + "'");
	eval(b_escondemostra_i + Objeto + b_escondemostra_f+"='" + b_mostra + "'");
}
function EsconderObjeto(Objeto)
{
	eval(b_aparecedesaparece_i + Objeto + b_aparecedesaparece_f+"='" + b_desaparece + "'");
	eval(b_escondemostra_i + Objeto + b_escondemostra_f+"='" + b_esconde + "'");
}