ICustomDimension.Tree

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Cube: IStandardCube;
    CustDim: ICustomDimension;
    CustDimTree: ICustomDimTree;
    Key, Key1, Key2, Key3: Variant;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("STD_CUBE").Edit;
    Cube := MObj As IStandardCube;
    CustDim := Cube.FactDimension.Dimension As ICustomDimension;
    CustDimTree := CustDim.Tree;
    Key := CustDimTree.Add(Null);
    Key1 := CustDimTree.Add(Null);
    Key2 := CustDimTree.Add(Key);
    Key3 := CustDimTree.Add(Key1);
    CustDimTree.Name(Key) := "Первый корневой";
    CustDimTree.Name(Key1) := "Второй корневой";
    CustDimTree.Name(Key2) := "Первый дочерний";
    CustDimTree.Name(Key3) := "Второй дочерний";
    MObj.Save;
End Sub UserProc;