User Function TESTE()

	Local _cEmpBk := cEmpAnt //Guardo a empresa atual
	Local _cFilBk := cFilAnt //Guardo a filial atual
	Local _aArea  := GetArea() //Guardoa Area aberta
	Local _oAppBk := oApp //Guardo a variavel resposavel por componentes visuais
	Local _aAux   := {}
	Local _aRet   := {}
	Local i       := 0

	//Lista Empresas que usuario tem Acesso
	//Retorno - array
	//1 - Codigo da empresa
	//2 - Nome da empresa
	//3 - Codigo da filial
	//4 - Nome da filials
	_aAux := FWEmpLoad(.F.)

	//Percorro a lista de empresas/filiais que o usuário tem acesso
	For i := 1 to Len(_aAux)

		//troco de empresa
		RpcSetEnv(_aAux[i][1],_aAux[i][3])

		//Realizo o meu processo aqui
		//funções como RetSqlName e xfilial, funcionam!

		RpcClearEnv()//retono a minha conexão anterior
	Next i

	//Para finalizar volto as variaveis de sistema para seus valores antes da execução
	cEmpAnt := _cEmpBk
	cFilAnt := _cFilBk
	RestArea(_aArea)
	OpenFile(cEmpAnt + cFilAnt) //Aqui recupero os Sxs
	oApp := _oAppBk //Aqui recupero os dados do compenente visual
Return