ICalculatedCubeFormulasView.Dimension

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    CubeInst: ICalculatedCubeInstance;
    View: ICalculatedCubeFormulasView;
    Dim: IDimensionModel;
    i, j, Key: Integer;
Begin
    MB := MetabaseClass.Active;
    CubeInst := MB.ItemById("Calc_Cube").Open(Null) As ICalculatedCubeInstance;
    View := CubeInst.View(Null);
    For i := 0 To View.Count - 1 Do
        Dim := View.Dimension(i);
        Key := (Dim As IMetabaseObject).Key;
        View.FormulaNaming(Key) := Dim.Attributes.Id;
        View.ViewNaming(Key) := Dim.Attributes.Id;
    End For;
    For i := 0 To CubeInst.Sources.Count - 1 Do
        View := CubeInst.View(CubeInst.Sources.Item(i));
        For j := 0 To View.Count - 1 Do
            Dim := View.Dimension(j);
            Key := (Dim As IMetabaseObject).Key;
            View.FormulaNaming(Key) := Dim.Attributes.Id;
            View.ViewNaming(Key) := Dim.Attributes.Id;
        End For;
    End For;
    CubeInst.SaveFormulas;
End Sub UserProc;