Local aTables as array
aTables := {"CT1","CT2","CT3","CT4","CT5","CTF","CTE"}
//seta o ambiente com a empresa 99 filial 01 com os direitos do usuário administrador, módulo CTB
RpcSetEnv( "99","01", "Administrador", " ", "CTB", "CTBA102", aTables, , , , )
/************* Processamentos *************/
RpcClearEnv() //Encerra o ambiente, fechando as devidas conexões