Perguntas Problema na Query após Prepare Environment

Bom dia Pessoal.
Estou com um problema em uma rotina minha.
Vou anexar o fonte pra conseguir ajuda.
Estou desenvolvendo uma rotina automática pra envio e-mail para clientes e o que me impede por enquanto é o seguinte:
Eu consigo logar no ambiente através do PREPARE ENVIRONMENT(Fecho empresa 01 e abro empresa 02) mas na Query ele faz o select somente na empresa 01. Temos 07 empresas aqui todas com tabelas exclusivas. No exemplo do fonte estou fazendo um select básico na SE1 e SA1 mas para todas as 7 empresas o select faz na SE1010 e SA1010.
Como posso resover isso vendo que preciso do select da EMPRESA LOGADA NO MOMENTO?

Desde já obrigado pela ajuda.

Percebi que não estava RESETANDO o ambiente e fiz a troca nas linhas 56 para frente deixando assim:

If cEmpant == cEmpresa
RESET ENVIRONMENT // resetar o ambiente ao trocar de empresa
endif

fDados() //chama função que carrega os dados

Porém após isso na próxima vez que vou utilizar a função PREPARE ENVIRONMENT outra vez na linha 73 o console retorna o erro seguinte:

Exceção Ocorrida : Too Many users (512)
Pilha de Chamadas :
TBICONN.PRW (512)
AVISO.PRW (74)
AVISO.PRW (61)

Alguém sabe como resolver isso?