Facts: IDimensionModel;
Свойство Facts определяет справочник, используемый в качестве перечня показателей куба.
Для выполнения примера предполагается наличие автоматического куба с идентификатором AUTO_CUBE и двух табличных справочников с идентификаторами Dim_Pokaz и Dim_Ei.
Sub UserProc;
Var
MB: IMetabase;
Cube: IAutoCube;
CubeModel: ICubeModel;
Dims: ICubeModelDimensions;
Begin
MB := MetabaseClass.Active;
Cube := Mb.ItemById("AUTO_CUBE").Edit As IAutoCube;
CubeModel := Cube As ICubeModel;
Cube.Dimensions.Add(Mb.ItemById("Dim_Ei").Bind As IDimensionModel);
Cube.Dimensions.Add(Mb.ItemById("Dim_Pokaz").Bind As IDimensionModel);
Dims := CubeModel.Destinations.DefaultDestination.Dimensions;
Dims.Units := Dims.FindById("Dim_Ei");
Dims.Facts := Dims.FindById("Dim_Pokaz");
(Cube As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера в указанный куб будут добавлены два справочника. Первый будет использоваться в качестве справочника единиц измерения, а второй - справочник перечня показателей куба.
См. также: