IsExclusive: Boolean;
The IsExclusive property returns whether a model is internal for calculation chain. True: the model is internal, False: the model is external.
Executing the example requires that the repository contains a modeling container with the CONT_M identifier. The metamodel with the META_MODEL identifier is available in the container.
Sub Main;
Var
mb: IMetabase;
cm: IMetabaseObjectDescriptor;
MetaModel: IMsMetaModel;
ChainEntries: IMsCalculationChainEntries;
ChainModel: IMsCalculationChainModel;
i: Integer;
Begin
mb := MetabaseClass.Active;
cm := mb.ItemById("CONT_M");
MetaModel := mb.ItemByIdNamespace("META_MODEL", cm.Key).Bind As IMsMetaModel;
ChainEntries := MetaModel.CalculationChain;
For i := 0 To ChainEntries.Count - 1 Do
If ChainEntries.Item(i).Type = MsCalculationChainEntryType.Model Then
ChainModel := ChainEntries.Item(i) As IMsCalculationChainModel;
If ChainModel.IsExclusive Then
Debug.WriteLine(ChainModel.Name);
End If;
End If;
End For;
End Sub Main;
After executing the example names of internal models that are included in the calculation chain, are displayed in the console window.
See also: