// No início da app (por ex. Global declarations do projeto)

//Só na linha do ServerConnection mude para:

[code:wl]
//Conexao
HModifyStructure("*") //sem isso nao funciona!!!!!!!
HCreationIfNotFound("*") //sem isso nao funciona!!!!!!!

IF InTestMode() THEN

// --- Ambiente de teste (F9): base local ---

ServerConection..Server = “177.69.238.21:4901”

ELSE

// --- Ambiente de produção (deploy): base do servidor ---

ServerConection..Server = “dbhfsql.wxlocal.com:4901”

END

ServerConection..provider = hAccessHFClientServer
ServerConection..user = "admin"
ServerConection..password = 123456
ServerConection..database = db_teste

IF HOpenConnection(ServidorRemoto) = True
HChangeConnection("*",ServidorRemoto)
ELSE
Info(HErrorInfo())
END

//Conexao

HModifyStructure("*") //sem isso nao funciona!!!!!!!
HCreationIfNotFound("*") //sem isso nao funciona!!!!!!!

ServerConection..Server = “177.69.238.210:4901”
ServerConection..provider = hAccessHFClientServer
ServerConection..user = "admin"
ServerConection..password = 123456
ServerConection..database = db_teste

IF HOpenConnection(ServidorRemoto) = True
HChangeConnection("*",ServidorRemoto)
ELSE
Info(HErrorInfo())
END

//##############################
// ?? Conexão dinâmica com HFSQL via INI + InTestMode()

// Estrutura: app.ini
// [TESTE]
// SERVER=localhost
// DATABASE=DB_LOCAL
// USER=usr_local
// PASSWORD=pwd_local
//
// [PROD]
// SERVER=SRV-DB
// DATABASE=DB_PROD
// USER=usr_prod
// PASSWORD=pwd_prod

Procedure InicializaConexaoHFSQL()

// Variáveis
modoExecucao is string
secaoINI is string
servidor is string
banco is string
usuario is string
senha is string
conexao is Connection

// Detecta se está rodando em modo F9 (teste local)
IF InTestMode() THEN
modoExecucao = "TESTE"
ELSE
modoExecucao = "PROD"
END

secaoINI = modoExecucao

// Caminho do arquivo INI (na mesma pasta do executável)
arqINI is string = fExeDir() + ["\"] + "app.ini"

// Verifica se arquivo existe
IF NOT fFileExist(arqINI) THEN
Error("Arquivo INI não encontrado: " + arqINI)
RETURN
END

// Lê parâmetros da seção correspondente
servidor = fLoadText(arqINI, secaoINI, "SERVER")
banco = fLoadText(arqINI, secaoINI, "DATABASE")
usuario = fLoadText(arqINI, secaoINI, "USER")
senha = fLoadText(arqINI, secaoINI, "PASSWORD")

// Valida parâmetros
IF servidor = "" OR banco = "" THEN
Error("Parâmetros inválidos no INI. Verifique seção: " + secaoINI)
RETURN
END

// Define a conexão
HDescribeConnection("cnxAuto", servidor, 4900, usuario, senha, banco, hNativeAccessHFClientServer)
HOpenConnection("cnxAuto")

// Testa conexão
IF HCheckConnection("cnxAuto") = False THEN
Error("Falha ao conectar com o servidor HFSQL: " + servidor + CR + HErrorInfo())
RETURN
END

// Troca todas as tabelas para esta conexão
HChangeConnection("*", "cnxAuto")

Trace("Conexão estabelecida em modo: " + modoExecucao + " (" + servidor + ")")
RESULT(True)

//##############################