Procedure DB_Inicialize(TrueFalse)

Server, User, Password, BD is string

NextTitle("Atenção")

IF TrueFalse = True THEN

PathFile is string = fCurrentDir(fCurrentDrive()) +"\Config.ini"

IF fFileExist(PathFile) = True THEN

Server = INIRead("Config", "Server", "", PathFile)
IF ErrorOccurred = True AND Server = "" THEN
Error()
END

User = INIRead("Config", "User", "", PathFile)
IF ErrorOccurred = True AND User = "" THEN
Error()
END

Password = INIRead("Config","Password", "", PathFile)
IF ErrorOccurred = True AND Password = "" THEN
Error()
END

BD = INIRead("Config", "BD", "", PathFile)
IF ErrorOccurred = True AND BD = "" THEN
Error()
END

Sincronizar = INIRead("Config", "Sincronizar", "", PathFile)
IF ErrorOccurred = True AND Sincronizar = "" THEN
Error()
END

HCloseConnection(ConnNativa)

ConnNativa..Server = Server
ConnNativa..User = User
ConnNativa..Password = Password
ConnNativa..Database = BD
ConnNativa..Provider = hNativeAccessSQLServer
ConnNativa..Access = hOReadWrite
ConnNativa..ExtendedInfo = "Extended information"
ConnNativa..CursorOptions = hClientCursor

ok is boolean = HOpenConnection(ConnNativa)

IF ok = False

Info(ErrorInfo())
Close()

ELSE

//info("OK")

END

ELSE
Info("Arquivo de configuração Config.ini não localizado.")
END

END