OriginalMetabase: String;
The OriginalMetabase property returns repository identifier.
To set repository identifier, use the IMetabasePolicy.MetabaseIdentifier property.
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 that the repository contains an object with the OBJECT identifier.
Add a link to the Metabase system assembly.
Sub UserProc;
Var
MB: IMetabase;
Desc: IMetabaseObjectDescriptor;
s: string;
Begin
// Get the current repository
MB := MetabaseClass.Active;
// Get object with the OBJECT identifier
Desc := Mb.ItemById("OBJECT");
// Display information about object and local changes in the console
If Desc.VersionChangedLocaly = True Then
Debug.WriteLine("Object version: " + Desc.Version.ToString);
Debug.WriteLine("Repository identifier: " + Desc.OriginalMetabase);
End If;
End Sub UserProc;
After executing the example, if there are local object changes, the console displays information about object version and repository identifier.
See also: