ClassId: Integer;
Свойство ClassId возвращает идентификатор класса объекта репозитория.
Для проверки значения данного свойства используйте перечисление MetabaseObjectClass.
В основе расширений продукта лежат объекты пользовательских классов. Классы этих объектов отсутствуют в перечислении MetabaseObjectClass, но их можно получить в свойстве IMetabaseCustomClass.ClassId. Пользовательский класс, описываемый интерфейсом IMetabaseCustomClass, можно получить в коллекции IMetabaseCustomExtender.Classes.
Также может использоваться функцию GetMetabaseHelper.GetCustomClassByEnum(BPClasses.<тип объекта>). Данная функция реализована в модуле «Модуль взаимодействия с метабазой» (P10002_METABASE_HELPER) расширения «Конструктор бизнес-приложения».
Для выполнения примера в репозитории предполагается наличие объекта с идентификатором OBJ_1111.
Добавьте ссылку на системную сборку Metabase.
Sub UserProc;
Var
MB: IMetabase;
Desc: IMetabaseObjectDescriptor;
cls: Integer;
Begin
MB := MetabaseClass.Active;
Desc := Mb.ItemById("obj_1111");
cls := Desc.ClassId;
End Sub UserProc;
После выполнения примера в переменной «cls» будет содержаться идентификатор класса объектов базы метаданных.
См. также: