Active: IMetabase;
Свойство Active возвращает данные текущего репозитория.
Sub Main
Var
MB: IMetabase;
Begin
MB := MetabaseClass.Active;
Debug.WriteLine(MB.Name);
End Sub Main
После выполнения примера в консоль среды разработки будет выведено наименование текущего репозитория.
См. также: