Configurar la BD HFSQL a usar en Windev

 IF InTestMode() = True THEN
MiConTest is Connection      //conexión de pruebas
MiConTest..User = "ADMIN"
MiConTest..Password = ""
MiConTest..Server = "SERVER01"
MiConTest..Database = "UCTest"
MiConTest..Provider = hAccessHFClientServer
MiConTest..CryptMethod        = hCryptRC5_16
MiConTest..Access = hOReadWrite
MiConTest..ExtendedInfo = "Extended information"
MiConTest..CursorOptions = hClientCursor
MiConTest..Caption                 = "AMBIENTE DE PRUEBAS"
IF HOpenConnection(MiConTest) = True THEN   // Open the connection
IF HChangeConnection("*", MiConTest) = True THEN // Assign the connection to all data files
gbFinPrograma = False
ELSE
Error(HErrorInfo())  
END
ELSE
Error(HErrorInfo())
END
gsAmbienteTrabajo          = "AMBIENTE DE PRUEBAS"

IF gbFinPrograma = False THEN
IF gpwOpenConnection(MiConTest) = True THEN
gnResultado = gpwOpen()
IF gnResultado <> gpwOk THEN   // If the login failed
SWITCH gnResultado
CASE gpwError:
Error("Error al inicializar el GroupWare.", ErrorInfo())
gbFinPrograma = True
CASE gpwUnknownUser:
Error("Usuario desconocido en GroupWare.")
gbFinPrograma = True
CASE gpwInvalidPassword:
Error("Password Inválido en GroupWare")
gbFinPrograma = True
CASE gpwCancel:
Error("El usuario oprimió Cancelar en GroupWare")
gbFinPrograma = True
OTHER CASE
Error("Error desconocido en GroupWare")
gbFinPrograma = True
END
ELSE
gbFinPrograma = False
END
ELSE
Error(ErrorInfo())
gbFinPrograma = True
END
END

ELSE //********************************************************************************************

MiConUCSoft is Connection   //conexión de produccion
MiConUCSoft..User = "ADMIN"
MiConUCSoft..Password = ""
MiConUCSoft..Server = "SERVER01"
MiConUCSoft..Database = "UCSoft"
MiConUCSoft..Provider = hAccessHFClientServer
MiConUCSoft..CryptMethod      =hCryptRC5_16
MiConUCSoft..Access = hOReadWrite
MiConUCSoft..ExtendedInfo = "Extended information"
MiConUCSoft..CursorOptions = hClientCursor
MiConUCSoft..Caption        = "AMBIENTE DE PRODUCCION"
IF HOpenConnection(MiConUCSoft) = True THEN   // Open the connection
IF HChangeConnection("*", MiConUCSoft) = True THEN // Assign the connection to all data files
gbFinPrograma = False
ELSE
Error(HErrorInfo())  
END
ELSE
Error(HErrorInfo())
END
gsAmbienteTrabajo          = "AMBIENTE DE PRODUCCION"

IF gbFinPrograma = False THEN
IF gpwOpenConnection(MiConUCSoft) = True THEN
gnResultado = gpwOpen()
IF gnResultado <> gpwOk THEN   // If the login failed
SWITCH gnResultado
CASE gpwError:
Error("Error al inicializar el GroupWare.", ErrorInfo())
gbFinPrograma = True
CASE gpwUnknownUser:
Error("Usuario desconocido en GroupWare.")
gbFinPrograma = True
CASE gpwInvalidPassword:
Error("Password Inválido en GroupWare")
gbFinPrograma = True
CASE gpwCancel:
Error("El usuario oprimió Cancelar en GroupWare")
gbFinPrograma = True
OTHER CASE
Error("Error desconocido en GroupWare")
gbFinPrograma = True
END
END
ELSE
Error(ErrorInfo())
gbFinPrograma = True
END
END
END  //**************************************************

IF gbFinPrograma = True THEN EndProgram()