Tag: Variant;
Свойство Tag не учитывается компилятором, поэтому может быть использовано пользователем по его усмотрению.
Для выполнения примера в репозитории предполагается наличие контейнера моделирования с идентификатором OBJ_CONT. В данном контейнере должна содержаться метамодель с идентификатором OBJ_META.
Добавьте ссылки на системные сборки: Metabase, Ms.
Sub UserProc;
Var
Mb: IMetabase;
ContKey: Integer;
MModel: IMsMetaModel;
Parent: IMsCalculationChainEntries;
ChainEntry: IMsCalculationChainEntry;
Begin
Mb := MetabaseClass.Active;
ContKey := Mb.GetObjectKeyById("OBJ_CONT");
MModel := Mb.ItemByIdNamespace("OBJ_META",ContKey).Edit As IMsMetaModel;
Parent := MModel.CalculationChain;
ChainEntry := Parent.Item(0);
ChainEntry.Tag := "Первый
элемент";
(MModel As IMetabaseObject).Save;
End Sub;
После выполнения примера для первого элемента в цепочке метамодели в свойстве Tag будет содержаться комментарий.
См. также: