IStandardCubeDimension.OpenDimension

Синтаксис

OpenDimension: IDimInstance;

Описание

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

Пример

Для выполнения примера предполагается наличие в репозитории стандартного куба с идентификатором «OBJ_STD_CUBE» и параметрического справочника с идентификатором «OBJ_PARAM_DICT». Первый параметр в справочнике должен быть целого типа.

Sub Main;

Var

mb: IMetabase;

Obj: IMetabaseObject;

Cub: IStandardCube;

ParamDict: IMetabaseObject;

Di: IDimInstance;

ParVals: IMetabaseObjectParamValues;

DimModel: IDimensionModel;

Dim: IStandardCubeDimension;

Begin

mb := MetabaseClass.Active;

Obj := mb.ItemById("OBJ_STD_CUBE").Edit;

Cub := Obj As IStandardCube;

Cub.ExternalFactDimension := True;

ParamDict := mb.ItemById("OBJ_PARAM_DICT").Bind;

DimModel := ParamDict As IDimensionModel;

Dim := Cub.Dimensions.Add(DimModel);

Dim.FactDimension := True;

ParVals := ParamDict.Params.CreateEmptyValues;

ParVals.Item(0).Value := 2;

Di := ParamDict.Open(ParVals) As IDimInstance;

Cub.FactDimension.OpenDimension := Di;

Obj.Save;

End Sub Main;

После выполнения примера, в куб будет добавлен справочник «OBJ_PARAM_DICT» в качестве измерения фактов куба. Данное измерение будет открыто со значением параметра «2».

См. также:

IStandardCubeDimension