ICubeSelectionControlItem.ControllingDim

Синтаксис Fore

ControllingDim: Prognoz.Platform.Interop.Dimensions.IDimensionModel;

Описание

Свойство ControllingDim определяет управляющее измерение куба.

Пример Fore

Для выполнения примера предполагается наличие в репозитории стандартного куба с идентификатором «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» и стратегия управления «Отметить первый элемент».

Пример Fore.Net

Для выполнения примера добавьте ссылки на системные сборки «Metabase», «Cubes» и «Dimension».

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Dimensions;
...
Public Class Program
...
Public Shared Sub Main(Params: StartParams);
Var
    Mb: IMetabase;
    Cube: ICubeModel;
    ControllingDim: IDimensionModel;
    selItem: ICubeSelectionControlItem;
Begin
    Mb := Params.Metabase;
    Cube := Mb.ItemById["OBJ2407"].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.cscsSelectFirst;
    (Cube As IMetabaseObject).Save();
    End Sub;
End Class;

См. также:

ICubeSelectionControlItem