IEaxDrillSettings.PrepareAction

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

Sub UserProc;
Var
    mb: IMetabase;
    Report: IEaxAnalyzer;
    Pivot: IPivot;
    PivotDim: IPivotDimension;
    HeadSets: IDataAreaHeaderSettingsBase;
    Grid: IEaxGrid;
    DimSettings: IEaxGridDimensionSettings;
    Drill: IEaxDrillSettings;
    s: string;
Begin
    // Получаем текущий репозиторий
    mb := MetabaseClass.Active;
    // Получаем экспресс-отчет
    Report := mb.ItemById("EAX_ACTION").Edit As IEaxAnalyzer;
    // Получаем объект, используемый для построения таблицы данных
    Pivot := Report.Pivot;
    // Получаем первое измерение в боковике таблицы
    PivotDim := Pivot.LeftHeader.PivotDim(0);
    HeadSets := PivotDim As IDataAreaHeaderSettingsBase;
    // Получаем таблицу аналитической области данных
    Grid := Report.Grid;
    // Указываем, что элементы измерения будут отображаться в виде гиперссылок
    Grid.ViewSettings.HyperlinkAsText := False;
    // Получаем настройки первого измерения в боковике таблицы
    DimSettings := Grid.ViewSettings.GetViewSettings(HeadSets) As IEaxGridDimensionSettings;
    // Включаем расшифровку для данного измерения
    If Not DimSettings.IsDrilled Then
        DimSettings.Drilled := TriState.OnOption;
    End If;
    // Получаем настройки расшифровки
    Drill := DimSettings.Drill;
    // Назначаем действие, выполняемое при нажатии на гиперссылку элемента измерения
    Drill.Action := "C:\Dim_&[DIMENSION.KEY].png";
    Drill.ActionType := TabHyperlinkActionType.OpenFile;
    // Указываем измерение, которое указано в действии
    Drill.PrepareAction(PivotDim.DimInstance);
    // Выполняем разбор действия для первого элемента измерения и выводим его в окно консоли
    s := Drill.ParseAction(1);
    Debug.WriteLine(s);
    // Сохраняем изменения в отчете
    (Report As IMetabaseObject).Save;
End Sub UserProc;