Facts: IDimensionModel;
The Facts property determines a dictionary that is used as a list of cube indicators.
Executing the example requires an automatic cube with the AUTO_CUBE identifier and two table dictionaries with the Dim_Pokaz and Dim_Ei identifiers.
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;
After executing the example two dictionaries are added to the specified cube. The first dictionary is used as a units dictionary, the second dictionary is used as a dictionary of cube dimensions list.
See also: