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("Nagyro", "Server", "", PathFile)
IF ErrorOccurred = True AND Server = "" THEN
Error()
END

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

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

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

Sincronizar = INIRead("Nagyro", "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

IF Sincronizar = "S" THEN
ExeRun("NET TIME \\192.168.1.180 /SET /YES",exeIconize,exeDontWait)
END