function lstModulo_onChange (strModuloPath)
{
	var ct;
	var aModuloInfo = strModuloPath.split (";");
	var aModuloPath;
	var strNmModulo = List_GetSelectedName (document.frmNavegador.lstModulo);
//alert (strModuloPath);
//alert (strNmModulo);
	// Procura o módulo certo pelo nome
	for (ct=0; ct<aModuloInfo.length; ++ct)
	{
		aModuloPath = aModuloInfo[ct].split ("/|\\");
		if (aModuloPath[1] == strNmModulo)
			break;
	}
//alert (aModuloPath[0]);	

	GetVideoSize(document.frmNavegador);
	
	// Limpa alguns dados comuns do form
	document.frmNavegador.hiCurPage.value = '';
	document.frmNavegador.hstrLetra.value = '';
	
	document.frmNavegador.cmd.value = "cmdModulo_onChange";
	document.frmNavegador.action = "../" + aModuloPath[0] + "/Navegador.asp";
	document.frmNavegador.submit();
}

function cmdAba_onClick (strNmUser, iCdModulo, iCdSubModulo, iPosicaoLinha, iVideoMaxWidth, strDsLink)
{
	document.frmNavegador.hCdModulo.value = iCdModulo;
	document.frmNavegador.hCdSubModulo.value = iCdSubModulo;
	document.frmNavegador.hPosicaoLinha.value = iPosicaoLinha;
	GetVideoSize(document.frmNavegador);

	// Limpa alguns dados comuns do form
	document.frmNavegador.hiCurPage.value = '';
	document.frmNavegador.hstrLetra.value = '';
	
	document.frmNavegador.action = strDsLink;
	document.frmNavegador.cmd.value = "cmdAba_onClick"
	document.frmNavegador.submit();
}

function cmdSubmit (strForm, strFieldName, strCmd)
{
	//////////////////////////////////////////////////////////////
	//	cmdSubmit (strForm, strFieldName, strCmd)               //
	//		- Esta função coloca no formulário o "nome" do      //
	//		  comando passado na função através do cmd.         //
	//////////////////////////////////////////////////////////////

	// Coloca o valor passado em cmd no campo hidden cmd do formulário.
	eval ("document." + strForm + "." + strFieldName + ".value = '" + strCmd + "';");

	// Autoenvia o formulário.
	eval ("document." + strForm + ".submit();");
}

// Muda a página dos itens mostrados na página
function cmdPageLink_onClick (iCurPage, icmdType, strURL)
{
	if (IsFormStatusSet())
	{
		// Abre tela modal para confirmar se deseja salvar ou não
		document.frmNavegador.hwndMsgRet.value = 1;
		hwndMsg = window.open ("wndConfirma.asp", "wndConfirma", "toolbar=no,location=no,status=no," +
			"menubar=no,scrollbars=no,resizeble=no,width=470,height=130");

		// Inicializa o timer de callback para verificar se já fechou a janela
		objTimer = window.setInterval ("callbackPageLink (" + iCurPage + ", " + icmdType + ", '" + 
			strURL + "')", 500);
	}
	else
	{
		document.frmNavegador.hiCurPage.value = iCurPage;
		document.frmNavegador.action = strURL;
		cmdSubmit ('frmNavegador', 'cmd', icmdType);
	}
}

// Callback para mudar a página quando altera algum dado do formulário
function callbackPageLink (iCurPage, icmdType, strURL)
{
	if (!hwndMsg)
	{
		window.clearInterval (objTimer);
		document.frmNavegador.hwndMsg.value = 0;
		resetFormStatus();
		return;
	}
	switch (document.frmNavegador.hwndMsgRet.value)
	{
		case "1":
			// Ainda não responderam nada na janela de mensagem
			return (false)
		case "Sim":
			// Chama a função que salva
			cmdExecutar_onClick();
			break;
		case "Nao":
			// Continua sem salvar
			break;
		case "Cancela":
			// Cancela a operação
			return (false);
	}

	document.frmNavegador.hiCurPage.value = iCurPage;
	document.frmNavegador.action = strURL;
	cmdSubmit ('frmNavegador', 'cmd', icmdType);
	
	window.clearInterval (objTimer);
	document.frmNavegador.hwndMsgRet.value = 0;
	resetFormStatus();
		
}

// Muda os itens de acordo com a letra clicada no índice alfabético
function cmdLetra_onClick (strLetra, icmdType, strURL)
{
	document.frmNavegador.hstrLetra.value = strLetra;
	document.frmNavegador.hiCurPage.value = '';
	document.frmNavegador.action = strURL;
	cmdSubmit ("frmNavegador", "cmd", icmdType);
}

// Muda a opção de índice alfabético na página
function cmdIndiceAlfabetico_onClick (fAtivado, strURL, icmdType)
{
	document.frmNavegador.hstrLetra.value = "";
	document.frmNavegador.hiCurPage.value = '';
	document.frmNavegador.hfIndiceAtivado.value = fAtivado;

	document.frmNavegador.action = strURL;
	cmdSubmit ("frmNavegador", "cmd", icmdType);
}

// Troca a empresa da lista
function lstEmpresaMaster_onChange (icmdType, strURL)
{
	document.frmNavegador.hiCurPage.value = '';
	document.frmNavegador.action = strURL;
	cmdSubmit ("frmNavegador", "cmd", icmdType);
}

// Muda o estado do flag de formulário mudado para 1 (mudou)
function setFormStatus()
{
	document.frmNavegador.hfMudouDados.value = 1;
}

// Muda o estado do flag de formulário mudado para 0 (não mudou)
function resetFormStatus()
{
	document.frmNavegador.hfMudouDados.value = 0;
}

// Se os dados do formuário tiverem sido alterados, retorna true
function IsFormStatusSet()
{
	if (document.frmNavegador.hfMudouDados.value == 1)
		return (true);
	else
		return (false);
}

// Separa array
function TextToArray (strArray)
{
	var NewArray;
	
	NewArray = strArray.split('|||');
	
	return (NewArray);
}

//------- Função para o Plano de Premiação

function PlanoPremiacao_MontalstCdProduto (iCdEmpresaMaster, iCdLinhaProduto, iCdMetodologia)
{
	
//	alert('CdMetodologia ->'+ iCdMetodologia);
	if(!iCdMetodologia)
	{
		iCdMetodologia = "NULL";
	}
	co = objRsDB.GetProduto (iCdEmpresaMaster,iCdLinhaProduto,iCdMetodologia);

	if (co.return_value.substring (0, 9) == "Function:")
	{
		alert ("Ocorreu um problema ao trazer os dados da base\n\n-- DEBUG INFO --\n" + co.return_value +
			"\n\nObs.: Salve ou imprima esta tela e envie para o administrador do sistema.");
	}
	else
	{	
		// Pode montar a listbox com os itens que vem da base
		List_RemoveAllItens (document.frmNavegador.lstCdProduto);
		List_AddItem (document.frmNavegador.lstCdProduto, 'NULL', ' ');
		List_InsertFromStringArray (document.frmNavegador.lstCdProduto, co.return_value);
	}	
}
//------- Funções para o Plano de Incentivo


function PlanoIncentivo_MontalstNrMesCalendario (iCdEmpresaMaster, iCdEquipeUni, iNrAno)
{
	co = objRsDB.GetMes (iCdEmpresaMaster,iCdEquipeUni,iNrAno);

	if (co.return_value.substring (0, 9) == "Function:")
	{
		alert ("Ocorreu um problema ao trazer os dados da base\n\n-- DEBUG INFO --\n" + co.return_value +
			"\n\nObs.: Salve ou imprima esta tela e envie para o administrador do sistema.");
	}
	else
	{	
		// Pode montar a listbox com os itens que vem da base
		List_RemoveAllItens (document.frmNavegador.lstNrMesCalendario);
		List_AddItem (document.frmNavegador.lstNrMesCalendario, '', ' ');
		List_InsertFromStringArray (document.frmNavegador.lstNrMesCalendario, co.return_value);
	}	
}


function PlanoIncentivo_MontalstCdLinhaProduto (iCdEmpresaMaster, iCdEquipeUni, iNrAno, iNrMes, fSoAuxiliar)
{
	if(!fSoAuxiliar)
	{
		fSoAuxiliar = '0';
	}
	co = objRsDB.GetLinhaProduto (iCdEmpresaMaster,iCdEquipeUni,iNrAno,iNrMes,fSoAuxiliar);

	if (co.return_value.substring (0, 9) == "Function:")
	{
		alert ("Ocorreu um problema ao trazer os dados da base\n\n-- DEBUG INFO --\n" + co.return_value +
			"\n\nObs.: Salve ou imprima esta tela e envie para o administrador do sistema.");
	}
	else
	{	
		// Pode montar a listbox com os itens que vem da base
		List_RemoveAllItens (document.frmNavegador.lstCdLinhaProduto);
		List_AddItem (document.frmNavegador.lstCdLinhaProduto, 'NULL', ' ');
		List_InsertFromStringArray (document.frmNavegador.lstCdLinhaProduto, co.return_value);
	}	
}

function PlanoIncentivo_MontalstCdLinhaProdutoRelatorio (iCdEmpresaMaster, iCdEquipeUni, iNrAno, iNrMes, fSoAuxiliar)
{
	if(!fSoAuxiliar)
	{
		fSoAuxiliar = '0';
	}
	co = objRsDB.GetLinhaProduto (iCdEmpresaMaster,iCdEquipeUni,iNrAno,iNrMes,fSoAuxiliar);

	if (co.return_value.substring (0, 9) == "Function:")
	{
		alert ("Ocorreu um problema ao trazer os dados da base\n\n-- DEBUG INFO --\n" + co.return_value +
			"\n\nObs.: Salve ou imprima esta tela e envie para o administrador do sistema.");
	}
	else
	{	
		// Pode montar a listbox com os itens que vem da base
		List_RemoveAllItens (document.frmNavegador.lstCdLinhaProduto);
		List_AddItem (document.frmNavegador.lstCdLinhaProduto, 'NULL', 'Todos');
		List_InsertFromStringArray (document.frmNavegador.lstCdLinhaProduto, co.return_value);
	}	
}

function PlanoIncentivo_MontalstCdRegional (iCdEmpresaMaster, iCdEquipeUni, iCdLinhaProduto, iNrAno, iNrMes, fTrazRegional)
{
	if(!fTrazRegional)
	{
		fTrazRegional = '0';
	}
	co = objRsDB.GetRegional (iCdEmpresaMaster,iCdEquipeUni,iCdLinhaProduto,iNrAno,iNrMes,fTrazRegional);

	if (co.return_value.substring (0, 9) == "Function:")
	{
		alert ("Ocorreu um problema ao trazer os dados da base\n\n-- DEBUG INFO --\n" + co.return_value +
			"\n\nObs.: Salve ou imprima esta tela e envie para o administrador do sistema.");
	}
	else
	{	
		// Pode montar a listbox com os itens que vem da base
		List_RemoveAllItens (document.frmNavegador.lstCdRegional);
		List_AddItem (document.frmNavegador.lstCdRegional, 'NULL', ' ');

		if (co.return_value == '')
		{
			PlanoIncentivo_MontalstCdSetor(iCdEmpresaMaster, 2, 'NULL', 'NULL', iCdLinhaProduto, iNrAno, iNrMes);
		}
		else
		{
			List_InsertFromStringArray (document.frmNavegador.lstCdRegional, co.return_value);
		}
		
//		PlanoIncentivo_MontalstCdSetor(iCdEmpresaMaster, 'NULL', 'NULL', iCdLinhaProduto, iNrAno, iNrMes);
	}	
}

function PlanoIncentivo_MontalstCdDistrital (iCdEmpresaMaster, iCdEquipeUni, iCdRegional, iCdLinhaProduto, iNrAno, iNrMes)
{
	co = objRsDB.GetDistrital (iCdEmpresaMaster,iCdRegional,iCdEquipeUni,iCdLinhaProduto,iNrAno,iNrMes);

	if (co.return_value.substring (0, 9) == "Function:")
	{
		alert ("Ocorreu um problema ao trazer os dados da base\n\n-- DEBUG INFO --\n" + co.return_value +
			"\n\nObs.: Salve ou imprima esta tela e envie para o administrador do sistema.");
	}
	else
	{	
		// Pode montar a listbox com os itens que vem da base
		List_RemoveAllItens (document.frmNavegador.lstCdDistrital);
		List_AddItem (document.frmNavegador.lstCdDistrital, 'NULL', ' ');
		List_InsertFromStringArray (document.frmNavegador.lstCdDistrital, co.return_value);
	}	
}

function PlanoIncentivo_MontalstCdSetor(iCdEmpresaMaster, iCdEquipeUni, iCdRegional, iCdDistrital, iCdLinhaProduto, iNrAno, iNrMes, fTrazSetor)
{
	if(!fTrazSetor)
	{
		fTrazSetor = '0';
	}
	co = objRsDB.GetSetor (iCdEmpresaMaster,iCdRegional,iCdDistrital,iCdEquipeUni,iCdLinhaProduto,iNrAno,iNrMes,fTrazSetor);

	if (co.return_value.substring (0, 9) == "Function:")
	{
		alert ("Ocorreu um problema ao trazer os dados da base\n\n-- DEBUG INFO --\n" + co.return_value +
			"\n\nObs.: Salve ou imprima esta tela e envie para o administrador do sistema.");
	}
	else
	{	
		// Pode montar a listbox com os itens que vem da base
		List_RemoveAllItens (document.frmNavegador.lstCdSetor);
		List_AddItem (document.frmNavegador.lstCdSetor, 'NULL', ' ');
		List_InsertFromStringArray (document.frmNavegador.lstCdSetor, co.return_value);
	}	
}