FixInfo: ICubeDimensionFixInfo;
Свойство FixInfo возвращает параметры фиксации измерений куба.
Для выполнения примера предполагается наличие в репозитории виртуального куба с идентификатором "VIEW_CUBE", и куба с идентификатором "SourceCube_1".
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;
После выполнения примера, в качестве исходного куба для представления-куба, будет установлен куб с идентификатором "SourceCube_1". Все измерения куба-источника будут зафиксированы.
См. также: