IsExclusive: Boolean;
The IsExclusive property returns whether a model is internal for calculation chain.
Available values:
True. A model is internal.
False. A model is external.
Executing the example requires that the repository includes a modeling container with the CONT_M identifier. The container includes a metamodel with the META_MODEL identifier.
Add links to the Metabase and Ms system assemblies.
Sub UserProc;
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;
After executing the example the console window displays names of internal models included in the calculation chain.
See also: