ElementGroup: IDimElementGroup;
ElementGroup: Prognoz.Platform.Interop.Dimensions.IDimElementGroup;
The ElementGroup property determines a group of dimension elements that includes elements which should be included into the list of available elements.
Executing the example requires that the repository contains a dictionary with the D_TO identifier that includes a group of elements with the obj38 identifier and an express report with the EXPRESS_REPORT identifier. Add links for the Pivot, Metabase, Express and Dimensions system assemblies.
Sub UserProc;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Eax: IEaxAnalyzer;
DimSelection: IDimSelection;
DimGroup: IDimElementGroup;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemById("EXPRESS_REPORT").Bind;
DimGroup := MB.ItemByIdNamespace("OBJ38", MB.ItemById("D_TO").Key).Bind As IDimElementGroup;
Eax := MObj As IEaxAnalyzer;
DimSelection := Eax.Pivot.Selection.FindById("D_TO");
DimSelection.ElementGroup := DimGroup;
DimSelection.AllowChangeElementGroup := False;
End Sub UserProc;
After executing the example only the selected element group is displayed in the dictionary.
Executing the example requires that the repository contains a dictionary with the D_TO identifier that includes a group of elements with the obj38 identifier and an express report with the EXPRESS_REPORT identifier. Add links for the Pivot, Metabase, Express and Dimensions system assemblies.
Sub UserProc(Params: StartParams);
Var
MB: IMetabase;
MObj: IMetabaseObject;
Eax: IEaxAnalyzer;
DimSelection: IDimSelection;
DimGroup: IDimElementGroup;
Begin
MB := Params.Metabase;
MObj := MB.ItemById["EXPRESS_REPORT"].Bind();
DimGroup := MB.ItemByIdNamespace["OBJ38", MB.ItemById["D_TO"].Key].Bind() As IDimElementGroup;
Eax := MObj As IEaxAnalyzer;
DimSelection := Eax.Pivot.Selection.FindById("D_TO");
DimSelection.ElementGroup := DimGroup;
DimSelection.AllowChangeElementGroup := False;
End Sub;
After executing the example only the selected element group is displayed in the dictionary.
See also: