FixInfo: ICubeDimensionFixInfo;
The FixInfo property returns parameters of cube dimensions fixing.
Executing the example requires that the repository contains a virtual cube with the VIEW_CUBE identifier and a cube with the SourceCube_1 identifier.
Sub Main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Cub: ICubeModel;
ViewCub: ICubeView;
DimFix: ICubeDimensionFix;
i: Integer;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemById("VIEW_CUBE").Edit;
Cub := MB.ItemById("SourceCube_1").Bind As ICubeModel;
ViewCub := MObj As ICubeView;
ViewCub.Cube := Cub.Destinations.DefaultDestination;
For i := 0 To ViewCub.FixInfo.Count - 1 Do
DimFix := ViewCub.FixInfo.Item(i);
DimFix.Fixed := True;
DimFix.Operation := BasicAggregatorOperation.Sum;
DimFix.Selection.SelectAll;
End For;
MObj.Save;
End Sub Main;
After executing the example a cube with the SourceCube_1 identifier is set as a source cube for a cube view. All dimensions of the source cube are fixed.
See also: