Cube: ICubeModelDestination;
Свойство Cube определяет исходный куб для представления-куба.
Для выполнения примера предполагается наличие в репозитории виртуального куба с идентификатором ViewCube и куба с идентификатором SourceCube.
Sub UserProc;
Var
MB: IMetabase;
Cube: ICubeModel;
ViewCube: ICubeView;
FixInfo: ICubeDimensionFixInfo;
DimFix: ICubeDimensionFix;
i, c: Integer;
Begin
MB := MetabaseClass.Active;
ViewCube := MB.ItemById("ViewCube").Edit As ICubeView;
Cube := MB.ItemById("SourceCube").Bind As ICubeModel;
ViewCube.Cube := Cube.Destinations.DefaultDestination;
FixInfo := ViewCube.FixInfo;
c := FixInfo.Count;
For i := 0 To c - 1 Do
DimFix := FixInfo.Item(i);
DimFix.Fixed := True;
DimFix.Operation := BasicAggregatorOperation.Sum;
DimFix.Selection.SelectAll;
End For;
(ViewCube As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера в качестве исходного куба для представления-куба будет установлен куб с идентификатором SourceCube. Все измерения куба-источника будут зафиксированы.
См. также: