IEaxDataAreaHierarchies.GetDependants

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

Sub UserProc;
Var
    MB: IMetabase;
    Express: IEaxAnalyzer;
    DArea: IEaxDataArea;
    DAHierarchies: IEaxDataAreaHierarchies;
    Hierarchy: IEaxDataAreaHierarchy;
    HierarchyInst: IDimHierarchyInstance;
    Elements: IDimElements;
    DimElArray, ElArray: IDimElementArray;
    Pivot: IPivot;
    DimSel: IDimSelection;
    Slice: IEaxDataAreaSlice;
    Key, DimElement: Integer;
    GetDepArray: Array Of Integer;
    ElementName: String;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим экспресс-отчет
    Express := MB.ItemById("EXPRESS_GETDEPENDANTS").Bind As IEaxAnalyzer;
    // Получим срез источника данных
    DArea := Express.DataArea;
    // Получим коллекцию иерархий аналитической области
    DAHierarchies := DArea.Hierarchies;
    // Получим иерархию аналитической области
    Hierarchy := DAHierarchies.Item(0);
    // Получим данные альтернативной иерархии
    HierarchyInst := Hierarchy.Hierarchy;
    // Получим отметку
    Pivot := Express.Pivot;
    DimSel := Pivot.Selection.FindById("DIC_RF");
    // Получим срез данных
    Slice := DArea.Slices.Item(0);
    // Получим ключ измерения
    Key := DAHierarchies.CreateKey(Slice.Key, HierarchyInst.Key);
    // Получим массив выделенных элементов
    ElArray := Dimsel.SelectedElementArray(Null);
    // Получим все элементы измерения
    Elements := ElArray.Elements;
    // Получим индекс элемента в измерении
    DimElement := ElArray.Element(5);
    // Получим наименование элемента и выведем в окно консоли
    ElementName := Elements.Name(DimElement);
    Debug.WriteLine("Наименование выделенного элемента - " + ElementName);
    // Получим массивключей формул преобразования данных
    GetDepArray := DAHierarchies.GetDependants(DimSel, Key, DimElement);
    If GetDepArray <> Null Then
        // Выведем консоль
        Debug.WriteLine("Длина полученного массива = " + GetDepArray.Length.ToString);
        Else
        Debug.WriteLine("Не найдено элементов в массиве");
    End If;
End Sub UserProc;