Tag: Variant;
Свойство Tag не учитывается компилятором, поэтому может быть использовано пользователем по его усмотрению.
Для выполнения примера предполагается наличие в репозитории контейнера моделирования с идентификатором «OBJ_CONT». В данном контейнере должна содержаться метамодель с идентификатором «OBJ_META».
Sub Main;
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 Main;
После выполнения примера для первого элемента в цепочке метамодели в свойстве Tag будет содержаться комментарий.
См. также: