ICubeModelDimensions.Units

Синтаксис

Units: IDimensionModel;

Описание

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

Пример

Для выполнения примера предполагается наличие автоматического куба с идентификатором "AUTO_CUBE" и двух табличных справочников с идентификаторами "Dim_Pokaz" и "Dim_Ei".

Sub Main;

Var

MB: IMetabase;

MObj: IMetabaseObject;

Cub: IAutoCube;

CuModel: ICubeModel;

DiModel: ICubeModelDimensions;

Begin

MB := MetabaseClass.Active;

MObj := Mb.ItemById("AUTO_CUBE").Edit;

Cub := MObj As IAutoCube;

CuModel := Cub As ICubeModel;

DiModel := CuModel.Destinations.DefaultDestination.Dimensions;

Cub.Dimensions.Add(Mb.ItemById("Dim_Ei").Bind As IDimensionModel);

Cub.Dimensions.Add(Mb.ItemById("Dim_Pokaz").Bind As IDimensionModel);

DiModel.Units := DiModel.FindById("Dim_Ei");

DiModel.Facts := DiModel.FindById("Dim_Pokaz");

MObj.Save;

End Sub Main;

После выполнения примера в куб с идентификатором "AUTO_CUBE" будут добавлены два справочника "Dim_Ei" и "Dim_Pokaz". Первый будет использоваться в качестве справочника единиц измерения, а второй - справочник перечня показателей куба.

См. также:

ICubeModelDimensions