ControllingDim: IDimensionModel;
Свойство ControllingDim определяет управляющее измерение куба.
Для выполнения примера предполагается наличие в репозитории стандартного куба с идентификатором CUBE_OBJ, который содержит в качестве измерения параметрический справочник и справочник с идентификатором UNITS в измерениях куба.
Для выполнения примера добавьте ссылки на системные сборки Metabase, Cubes и Dimension.
Sub Main;
Var
Mb: IMetabase;
Cube: ICubeModel;
ControllingDim: IDimensionModel;
selItem: ICubeSelectionControlItem;
Begin
Mb := MetabaseClass.Active;
Cube := Mb.ItemById("CUBE_OBJ").Edit As ICubeModel;
ControllingDim := Cube.Destinations.DefaultDestination.Dimensions.FindById("UNITS");
selItem := Cube.SelectionControl.Item(0);
selItem.ControllingDim := ControllingDim;
selItem.Expression.AsString := "FIRST.Key";
selItem.SelectionStrategy := CubeSelectionControlStrategy.SelectFirst;
(Cube As IMetabaseObject).Save;
End Sub Main;
После выполнения примера для первого управляемого измерения будет определено управляющее измерение - справочник с идентификатором «UNITS», выражение управления «FIRST.Key» и стратегия управления «Отметить первый элемент».
См. также: