Procedure Arquivo_INI()

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

IF fFileExist(PathFile) = True

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

IF EDT_Usuario = ""
EDT_Usuario = INIRead("Sistema", "User", "", PathFile)

IF ErrorOccurred = True AND EDT_Usuario = "" THEN
Error()
ELSE
Usuario = EDT_Usuario
END
END

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

ELSE
INIWrite("Sistema","Server",EDT_Servidor,PathFile)
INIWrite("Sistema","User",EDT_Usuario,PathFile)
INIWrite("Sistema","BD",EDT_Base_Dados,PathFile)
END