<!--
var nameItemAtivos="";
var ativos="";
var WinFindAtiv;

// Verifica se a string s está vazia.
function isEmpty(s)
{   return ((s == null) || (s.length == 0))
}

// Retorna true se c é uma letra
// (A .. Z, a..z).
function isLetter (c)
{   return ( ((c >= "a") && (c <= "z")) || ((c >= "A") && (c <= "Z")) )
}

// Retorna true se o caracter c é um dígito
// (0 .. 9).
function isDigit (c)
{   return ((c >= "0") && (c <= "9"))
}

// isAlphanumeric (STRING s [, BOOLEAN emptyOK])
// 
// Retorna  true se a string s é composta por letras ou números somente.
function isAlphanumeric (s)
{   var i;
    if (isEmpty(s)) 
       if (isAlphanumeric.arguments.length == 1) return defaultEmptyOK;
       else return (isAlphanumeric.arguments[1] == true);
    for (i = 0; i < s.length; i++)
    {   
        var c = s.charAt(i);
        if (! (isLetter(c) || isDigit(c) ) )
        return false;
    }
    return true;
}

// Get checked value from radio button.
function getRadioButtonValue (radio)
{   for (var i = 0; i < radio.length; i++)
    {   if (radio[i].checked) { break }
    }
    return radio[i].value
}

function F_ExecSaveList(sListaAtv,pgorigem){
	var str;
		str = "SaveList.asp?pg=" + pgorigem + "&Item=" + escape(sListaAtv);
		window.open(str,"winsave","alwaysRaised=yes,height=350,width=635,status=no,toolbar=no,menubar=no,scrollbars=yes,resizable=yes,location=no",true);
}

function F_ExecFindAtiv(sPag){
	var str;
		str = "findativ.asp?Pag=" + sPag;
		WinFindAtiv = window.open(str,"winfindativ","alwaysRaised=yes,height=300,width=550,status=no,toolbar=no,menubar=no,scrollbars=yes,resizable=yes,location=no",true);
}

function F_ExecEditList(){
	var url;
	var orig;
	orig = location.pathname;
	url = 'EditList.asp?pg=' + orig;
	window.open(url,"winedit","alwaysRaised=yes,height=300,width=645,status=no,toolbar=no,menubar=no,scrollbars=yes,resizable=yes,location=no",true);
}

function F_ExecImportList(){
	var str;
		str = "exportacaocookies.asp";
		window.open(str,"winimport","alwaysRaised=yes,height=120,width=200,status=no,toolbar=no,menubar=no,scrollbars=no,resizable=no,location=no",true);
}

function F_Replace(sNomeCampo,sNovoCampo,sLinhaValores,sValorNovo) {
	var sLinhaTratada = sLinhaValores.slice(1);
	var sArrayLinha = sLinhaTratada.split("&");
	var sArrayCampos;
	var sLinhaResp = "?";
	var bVerif = false;
	
	for (var i = 0; i < sArrayLinha.length; i++) {
		if (sArrayLinha[i] != "") {
			sArrayCampos = sArrayLinha[i].split("=");
			if (sArrayCampos[0].toUpperCase() == sNomeCampo.toUpperCase()){
				if (sValorNovo != "")
					sLinhaResp = sLinhaResp + sNovoCampo + "=" + escape(sValorNovo) + "&";
				bVerif = true;
			}
			else
				sLinhaResp = sLinhaResp + sArrayCampos[0] + "=" + sArrayCampos[1] + "&";
		}
	}
	if ((!bVerif) && (sValorNovo != ""))
		return(sLinhaResp + sNovoCampo + "=" + escape(sValorNovo));
	return(sLinhaResp.slice(0,-1));
}

function F_GetAtv(oListaAtv,sTipoPagina,sTarg) {
	var sSearchOri = window.location.search;
	var sNewSearch;
	
	if (oListaAtv.value) {
	    sSearchOri = F_Replace('intv','intv',sSearchOri,'');
	    sSearchOri = F_Replace('per','per',sSearchOri,'');
	    sSearchOri = F_Replace('aj','aj',sSearchOri,'');
		if (sTipoPagina == '') sTipoPagina = "simples";
		if (sSearchOri) {
			if (((oListaAtv.value.toUpperCase() != "PAGMALTA") && (oListaAtv.value.toUpperCase() != "PAGMBAIXA")) && (oListaAtv.value.toUpperCase().slice(0,4) != "HTTP")){
				if (oListaAtv.text){
					sNewSearch = F_Replace('tipo','tipo',sSearchOri,sTipoPagina);
					sNewSearch = F_Replace('acao','acao',sNewSearch,oListaAtv.value);
					sNewSearch = F_Replace('titulo','titulo',sNewSearch,oListaAtv.text);
					sNewSearch = F_Replace('pag','pag',sNewSearch,'');
					window.location.href = window.location.pathname + sNewSearch;
				}
				else {
					sNewSearch = F_Replace('tipo','tipo',sSearchOri,sTipoPagina);
					sNewSearch = F_Replace('acao','acao',sNewSearch,oListaAtv.value);
					sNewSearch = F_Replace('titulo','titulo',sNewSearch,'');
					sNewSearch = F_Replace('pag','pag',sNewSearch,'');
					window.location.href = window.location.pathname + sNewSearch;
				}
			}
			else {
				if (oListaAtv.value.toUpperCase().slice(0,4) != "HTTP"){	
					sNewSearch = F_Replace('tipo','tipo',sSearchOri,sTipoPagina);
					sNewSearch = F_Replace('acao','acao',sNewSearch,'');
					sNewSearch = F_Replace('pag','pag',sNewSearch,oListaAtv.value.substr(3,2));
					window.location.href = window.location.pathname + sNewSearch;
				}
				else window.location.href = oListaAtv.value;
			}
		}	
		else {
			if (((oListaAtv.value.toUpperCase() != "PAGMALTA") && (oListaAtv.value.toUpperCase() != "PAGMBAIXA")) && (oListaAtv.value.toUpperCase().slice(0,4) != "HTTP")){
				if (oListaAtv.text)
					location.href = location.pathname + '?tipo=' + escape(sTipoPagina) + '&acao=' + escape(oListaAtv.value) + '&titulo=' + escape(oListaAtv.text);
				else
					location.href = location.pathname + '?tipo=' + escape(sTipoPagina) + '&acao=' + escape(oListaAtv.value);
			}
			else
				if (oListaAtv.value.toUpperCase().slice(0,4) != "HTTP")
					location.href = location.pathname + '?tipo=' + escape(sTipoPagina) + '&pag=' + escape(oListaAtv.value.substr(3,2));
				else window.location.href = oListaAtv.value;
		}
	}
	else
		alert("Entre com um código ou selecione uma lista.");
		oListaAtv.focus();
}

function F_GetAtvHist(sTipoPagina,sTarg) {
	var sSearchOri = window.location.search;
	var oPeriodo = document.formSelAtivo.SelPeriodo[document.formSelAtivo.SelPeriodo.selectedIndex];
	var sNewSearch;
	var sDataIni;
	var sDataFin;
	var sIntervalo;
	
	if (oPeriodo.value) {
	    sNewSearch = F_Replace('per','per',sSearchOri,document.formSelAtivo.SelPeriodo[document.formSelAtivo.SelPeriodo.selectedIndex].value);
	    sNewSearch = F_Replace('aj','aj',sNewSearch,getRadioButtonValue(document.formSelAtivo.chckConsulta));
	    if ((oPeriodo.value == "EntD") || (oPeriodo.value == "PdU") || (oPeriodo.value == "UdU")){ 
	        sDataIni = document.formSelAtivo.diaIni.value + '/' + document.formSelAtivo.mesIni.value + '/' + document.formSelAtivo.anoIni.value;
	        sDataFin = document.formSelAtivo.diaFin.value + '/' + document.formSelAtivo.mesFin.value + '/' + document.formSelAtivo.anoFin.value;
	        sIntervalo = sDataIni + ':' + sDataFin;
	        sNewSearch = F_Replace('intv','intv',sNewSearch,sIntervalo);
	    }
	    else {sNewSearch = F_Replace('intv','intv',sNewSearch,'');}
	    window.location.href = window.location.pathname + sNewSearch;
	}
	else {
		alert("Selecione um período.");
		oPeriodo.focus();
	}
}

function F_ShowAtv(sListaAtv,sTipoPagina,sTarg,sTituloPag,sPagExp) {
	var expdate = new Date ();
	var sSearchOri = window.location.search;
	var sNewSearch;

	expdate.setTime (expdate.getTime() + (24 * 60 * 60 * 100 * 1000)); // 100 dias de validade
	SetCookie("BDS_Cot_DefaultView",sTipoPagina,expdate,"/",null,false);
	if (sSearchOri) {
	    sSearchOri = F_Replace('intv','intv',sSearchOri,'');
	    sSearchOri = F_Replace('per','per',sSearchOri,'');
		sSearchOri = F_Replace('aj','aj',sSearchOri,'');
		if (!sPagExp) {
			sNewSearch = F_Replace('tipo','tipo',sSearchOri,sTipoPagina);
			sNewSearch = F_Replace('acao','acao',sNewSearch,sListaAtv);
			sNewSearch = F_Replace('titulo','titulo',sNewSearch,sTituloPag);
			sNewSearch = F_Replace('pag','pag',sNewSearch,'');
			window.location.href = window.location.pathname + sNewSearch;
		}
		else {	
			sNewSearch = F_Replace('tipo','tipo',sSearchOri,sTipoPagina);
			sNewSearch = F_Replace('acao','acao',sNewSearch,'');
			sNewSearch = F_Replace('pag','pag',sNewSearch,sPagExp);
			window.location.href = window.location.pathname + sNewSearch;
		}
	}	
	else
		if (!sPagExp){
			location.href = location.pathname + '?tipo=' + escape(sTipoPagina) + '&acao=' + escape(sListaAtv) + '&titulo=' + escape(sTituloPag);
		}
		else
			location.href = location.pathname + '?tipo=' + escape(sTipoPagina) + '&pag=' + escape(sPagExp);
}
	
function F_SelAtivosCot(atv) {
	var re;
	
	if (atv.checked == true) {
 		if (ativos == "") ativos = atv.value;	
 		else ativos = ativos + ',' + atv.value;
	}
	else {
		if (ativos != "") {
			re = eval("/" + atv.value + "/gi");	
			ativos = ativos.replace(re,""); 
		}
	}
}
	
function F_SelAtivos(atv) {
	var re;
	
	if (atv.checked == true) {
 		if (nameItemAtivos == "") nameItemAtivos = atv.name;
 		else nameItemAtivos = nameItemAtivos + ',' + atv.name;
	}
	else {
		if (nameItemAtivos != "") {
			re = eval("/" + atv.name + "/gi");
			nameItemAtivos = nameItemAtivos.replace(re,"");
		}
	}
}

function F_EnvAtivos(TipoP) {
	var sSearchOri = window.location.search;
	var sNewSearch;
	var re = /,+/gi;
	var re2 = /^,|,$/gi;
	
	ativos = ativos.replace(re,",");
	ativos = ativos.replace(re2,"");
	if (sSearchOri) {
		sNewSearch = F_Replace('acao','acao',sSearchOri,ativos);
		window.location.href = window.location.pathname + sNewSearch;
	}	
	else
		location.href = location.pathname + '?tipo=' + TipoP + '&acao=' + escape(ativos);
}

function F_EnvAtivosLista(sPag) {
	var sNewSearch;
	var re = /,+/gi;
	var re2 = /^,|,$/gi;
	var reName;
	var item;
	var oValItem;
	var iTotalListas;
	var oTxtValorListas;
	var iNumLista;
	
	if (nameItemAtivos != "") {
		nameItemAtivos = nameItemAtivos.replace(re,",");
		nameItemAtivos = nameItemAtivos.replace(re2,"");
		if (sPag == 'save') {
			sNewSearch = window.opener.document.formSaveList.ValueList.value;
			item = nameItemAtivos.split(",");
			if (sNewSearch != "") sNewSearch = sNewSearch + ",";
			for (var i=0; i < item.length; i++){
					oValItem = eval("document.formSelAtivo." + item[i]);
					reName = eval("/" + oValItem.value + "/gi");
					oValItem.checked = false;
					if (sNewSearch.search(reName) == -1)
						sNewSearch = sNewSearch + oValItem.value + ",";
			}
			sNewSearch = sNewSearch.slice(0,-1);	
			window.opener.document.formSaveList.ValueList.value = "";
			window.opener.document.formSaveList.ValueList.value = sNewSearch;
			window.opener.focus();
		}
		else {
			iNumLista = document.formSelAtivo.txtNumLista.value;
			if (iNumLista){
				iTotalListas = window.opener.document.formNumEdit.Numcampos.value;
				if (iNumLista <= iTotalListas){
					oTxtValorListas = eval("window.opener.document.formEditList" + parseInt(iNumLista-1) + ".ValueList" + parseInt(iNumLista-1));
					sNewSearch = oTxtValorListas.value;
					item = nameItemAtivos.split(",");
					if (sNewSearch != "") sNewSearch = sNewSearch + ",";
					for (var i=0; i < item.length; i++){
							oValItem = eval("document.formSelAtivo." + item[i]);
							reName = eval("/" + oValItem.value + "/gi");
							oValItem.checked = false;
							if (sNewSearch.search(reName) == -1)
								sNewSearch = sNewSearch + oValItem.value + ",";
					}
					sNewSearch = sNewSearch.slice(0,-1);
					oTxtValorListas.value = "";
					oTxtValorListas.value = sNewSearch;
					window.opener.focus();
				}
				else alert("O número da lista fornecido não existe.\nVerifique o número que está localizado antes\n de cada nome de lista e escolha o desejado.");
			}
			else alert("Por favor, selecione o número da lista para inclusão.");
		}
	}
}


function F_RemoveList(oNameOld){
	var expdate = new Date ();
	var sOldCookie = "BDS_Cot_Lista_" + oNameOld.value.toLowerCase();
	var sNamesCookies = GetCookie("BDS_Cot_Names_Listas");
	var sNewNames
	var re = eval("/" + sOldCookie + "/gi");	
	var re2 = /;+/gi;
	var re3 = /^;|;$/gi;

	expdate.setTime (expdate.getTime() + (24 * 60 * 60 * 100 * 1000)); // 100 dias de validade
	if (confirm("Deseja remover a lista " +  oNameOld.value + "?") == true){
		if (sNamesCookies) {
			sNewNames = sNamesCookies.replace(re,"");
			sNewNames = sNewNames.replace(re2,";");
			sNewNames = sNewNames.replace(re3,"");
			SetCookie("BDS_Cot_Names_Listas",sNewNames,expdate,"/",null,false);
			DeleteCookie(sOldCookie);
			DeleteCookie(sOldCookie,"/");
			window.opener.location.reload();
			window.location.reload();
		}
	}
}

function F_ShowList(oNameOld,oName,oValue,Origem){
	var sSearchOri = window.opener.location.search;
	var sNewSearch;
	var sNewCookie = "BDS_Cot_Lista_" + oNameOld.value.toLowerCase();
	var expdate = new Date ();
	
	// Validade Cookies
	expdate.setTime (expdate.getTime() + (24 * 60 * 60 * 100 * 1000)); // 100 dias de validade
	//Lista default a ser visializada no portfolio 
	SetCookie("BDS_Cot_PortfDefault",sNewCookie,expdate,"/",null,false);
	if (sSearchOri) {
		sNewSearch = F_Replace('acao','acao',sSearchOri,oValue.value);
		sNewSearch = F_Replace('titulo','titulo',sNewSearch,oNameOld.value);
		window.opener.location.href = Origem + sNewSearch;
	}	
	else
		window.opener.location.href = Origem + '?tipo=simples&acao=' + escape(oValue.value) + '&titulo=' + oNameOld.value;
	window.opener.focus();
}

//Salva cookies novas
function F_SaveNewList(oName,oValue,Origem) {
	var expdate = new Date ();
	var sNewNames;
	var sNewCookie = "BDS_Cot_Lista_" + oName.value.toLowerCase();
	var sNamesCookies = GetCookie("BDS_Cot_Names_Listas");
	var re = eval("/" + sNewCookie + "/gi");
	
	if (oName.value == ""){
		alert ("Você deve fornecer um nome para a lista.");
		oName.focus();
		return;
	}
	else {
		if (!isAlphanumeric(oName.value)){
			alert("O nome da lista não deve conter acentuação ou caracteres especiais.");
			oName.focus();
			return;
		}
	}
	if (oValue.value == ""){
		alert ("A lista de códigos está vazia!");
		oValue.focus();
		return;
	}
	// Validade Cookies
	expdate.setTime (expdate.getTime() + (24 * 60 * 60 * 100 * 1000)); // 100 dias de validade
	if (sNamesCookies) {
		sNewNames = sNamesCookies + ";" + sNewCookie;
		if (sNamesCookies.search(re) == -1) {
			SetCookie("BDS_Cot_Names_Listas",sNewNames,expdate,"/",null,false);
			SetCookie(sNewCookie,oValue.value,expdate,"/",null,false);
			//Lista default a ser visializada no portfolio 
			SetCookie("BDS_Cot_PortfDefault",sNewCookie,expdate,"/",null,false);
			//window.opener.location.reload();
			F_ShowList(oName,oName,oValue,Origem);
			window.close();
		}
		else {
			alert("Este nome de lista já existe. Por favor escolha outro nome ou retorne a página anterior e selecione EDITAR.");
			oName.value = "";
			oName.focus();
		}
	}
	else {
		SetCookie("BDS_Cot_Names_Listas",sNewCookie,expdate,"/",null,false);
		SetCookie(sNewCookie,oValue.value,expdate,"/",null,false);
		//Lista default a ser visializada no portfolio 
		SetCookie("BDS_Cot_PortfDefault",sNewCookie,expdate,"/",null,false);
		//window.opener.location.reload();
		F_ShowList(oName,oName,oValue,Origem);
		window.close();
	}
}

//Salva listas já existentes
function F_SaveList(oNameOld,oName,oValue,Origem) {
	var expdate = new Date ();
	var sNewNames;
	var sNewCookie = "BDS_Cot_Lista_" + oName.value.toLowerCase();
	var sOldCookie = "BDS_Cot_Lista_" + oNameOld.value.toLowerCase();
	var sNamesCookies = GetCookie("BDS_Cot_Names_Listas");
	var re = eval("/" + sOldCookie + "/gi");	


	if (oName.value == ""){
		alert ("Você deve fornecer um nome para a lista.");
		oName.focus();
		return;
	}
	else {
		if (!isAlphanumeric(oName.value)){
			alert("O nome da lista não deve conter acentuação ou caracteres especiais.");
			oName.focus();
			return;
		}
	}
	if (oValue.value == ""){
		alert ("A lista de códigos está vazia!");
		oValue.focus();
		return;
	}
	
	// Validade Cookies
	expdate.setTime (expdate.getTime() + (24 * 60 * 60 * 100 * 1000)); // 100 dias de validade
	if (sNamesCookies) {
		if (sNewCookie == sOldCookie){
			SetCookie(sNewCookie,oValue.value,expdate,"/",null,false);
			//Lista default a ser visializada no portfolio 
			SetCookie("BDS_Cot_PortfDefault",sNewCookie,expdate,"/",null,false);
			//window.opener.location.reload();
			F_ShowList(oNameOld,oName,oValue,Origem);
		}	
		else {
			if (confirm("O nome da lista foi alterado. Deseja criar uma nova lista?")){
				F_SaveNewList(oName,oValue);
				F_ShowList(oNameOld,oName,oValue,Origem);
				window.location.reload();
			}
			else {
				sNewNames = sNamesCookies.replace(re,sNewCookie);
				SetCookie("BDS_Cot_Names_Listas",sNewNames,expdate,"/",null,false);
				SetCookie(sNewCookie,oValue.value,expdate,"/",null,false);
				DeleteCookie(sOldCookie);
				DeleteCookie(sOldCookie,"/");
				//Lista default a ser visializada no portfolio 
				SetCookie("BDS_Cot_PortfDefault",sNewCookie,expdate,"/",null,false);
				//window.opener.location.reload();
				F_ShowList(oNameOld,oName,oValue,Origem);
			}
		}
	}
	else {
		SetCookie("BDS_Cot_Names_Listas",sNewCookie,expdate,"/",null,false);
		SetCookie(sNewCookie,oValue.value,expdate,"/",null,false);
		//Lista default a ser visializada no portfolio 
		SetCookie("BDS_Cot_PortfDefault",sNewCookie,expdate,"/",null,false);
		//window.opener.location.reload();
		window.opener.location.href = Origem;
		window.opener.focus();
	}
}

//Obtem o período da consulta
function F_SetPeriod(){
    var oListaPer = document.formSelAtivo.SelPeriodo[document.formSelAtivo.SelPeriodo.selectedIndex];
    var querystring = location.search.substring(1)
	var fields = querystring.split('&');
	var pagetype = '';
	var sAcoes = '';
	
	for (var i=0; i < fields.length; i++) {
	    if (fields[i].split('=')[0].toUpperCase() == 'TIPO'){
	        pagetype = fields[i].split('=')[1];
	        break;
	    }
	}
	for (var i=0; i < fields.length; i++) {
	    if (fields[i].split('=')[0].toUpperCase() == 'ACAO'){
	        sAcoes = fields[i].split('=')[1];
	        break;
	    }
	}

	if (pagetype.toUpperCase() == 'HISTORICO') { 
	    if (parseInt(sAcoes) > 0){
			if (navigator.appName=="Netscape"){
				document.layers['periodo'].visibility="hidden";
			}
			else {
				document.all['periodo'].style.visibility="hidden";
			}
	    }
        else {
			if (navigator.appName=="Netscape"){
				document.layers['periodo'].visibility="visible";
			}
			else {
				document.all['periodo'].style.visibility="visible";
			}
        }        
    }
	//Se entre datas, habilita os combos de datas
	if (((oListaPer.value == "EntD") || (oListaPer.value == "PdU") || (oListaPer.value == "UdU")) && (pagetype.toUpperCase() == 'HISTORICO')){
		if (navigator.appName=="Netscape"){
			document.layers['datas'].visibility="visible";
		}
		else {
			document.all['datas'].style.visibility="visible";
		}
		document.formSelAtivo.diaIni.disabled=false;
		document.formSelAtivo.mesIni.disabled=false;
		document.formSelAtivo.anoIni.disabled=false;
		document.formSelAtivo.diaFin.disabled=false;
		document.formSelAtivo.mesFin.disabled=false;
		document.formSelAtivo.anoFin.disabled=false;
	}
	else {
	    //document.formGetValueBDSH.diaIni.visible=false;
		if (navigator.appName=="Netscape"){
			document.layers['datas'].visibility="hidden";
		}
		else {
			document.all['datas'].style.visibility="hidden";
		}
		document.formSelAtivo.diaIni.disabled=true;
		document.formSelAtivo.mesIni.disabled=true;
		document.formSelAtivo.anoIni.disabled=true;
		document.formSelAtivo.diaFin.disabled=true;
		document.formSelAtivo.mesFin.disabled=true;
		document.formSelAtivo.anoFin.disabled=true;
	}
}