OriginalMetabase: String;
The OriginalMetabase property returns repository identifier of updated object.
This repository identifier is used in object version control during update.
For details about object version control during update see the General Policy Settings article.
Executing the example requires the Update.pefx update file with an object with theOBJECT identifier.
Add a link to the Metabase system assembly.
Sub UserProc;
Var
MB: IMetabase;
Update: IMetabaseUpdate;
Object: IMetabaseUpdateObjectNode;
Root: IMetabaseUpdateFolderNode;
Begin
// Get the current repository
MB := MetabaseClass.Active;
// Create an update object
Update := Mb.CreateUpdate;
// Load update from file
Update.LoadFromFileNF("C:\Update.pefx");
// Get object with the OBJECT identifier
Root := Update.RootFolder;
Object := Root.FindObject(MB.GetObjectKeyById("OBJECT"));
// Display information about update object in the console
Debug.WriteLine("Repository identifier: " + Object.OriginalMetabase);
Debug.WriteLine("Object version: " + Object.Version.ToString);
Debug.WriteLine("Number of dependent objects: " + Object.DependenciesObjects.Count.ToString);
End Sub UserProc;
After executing the example the console displays information about update object: repository identifier, object version, and number of dependent objects.
See also: