Tag: Variant;
The compiler ignores the Tag property, therefore, the user can use this property for his own purposes.
Executing the example requires that the repository contains a modeling container with the OBJ_CONT identifier. This container must include a metamodel with the OBJ_META identifier.
Add links to the Metabase and Ms system assemblies.
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 := "First element";
(MModel As IMetabaseObject).Save;
End Sub;
After executing the example for the first element of metamodel chain in the Tag property the comment is contained.
See also: