CurrentCube: ICubeInstance;
Свойство CurrentCube возвращает текущий куб.
Данное свойство используется в макросах, определяющих значение вычисляемых показателей стандартного куба.
Данный пример является макросом для куба и установлен в качестве выражения в формуле отношения куба.
Public Function Relation_1(T: Variant): Integer;
Var
Cube: ICubeInstance;
CubeDest: ICubeInstanceDestination;
DimInsts: ICubeInstanceDimensions;
DimInst: IDimInstance;
i: Integer;
Result: Integer;
Begin
Cube := CubeClass.CurrentCube;
CubeDest := Cube.Destinations.DefaultDestination;
DimInsts := CubeDest.Dimensions;
For i := 0 To DimInsts.Count - 1 Do
If (DimInsts.Item(i).Dimension Is ICalendarDimension) Then
DimInst := DimInsts.Item(i);
End If;
End For;
Result := CalendarDimension.Shift(DimInst, t, 1);
Return Result;
End Function Relation_1;
При использовании данного отношения в формулах вычисляемых фактов будет браться значение предыдущего элемента по указанному в формуле измерению.
См. также: