Настройка обработки событий

Примечание. В качестве обработчика событий используются только модули Fore.

Для открытия вкладки «Обработка событий» диалога «Параметры»:

Примечание. Включить обработку событий можно только в настольном приложении.

Глобальный обработчик вычисления отчётов

Обработчик событий передает параметры экспресс-отчёта, с которыми производилось вычисление, и позволяет выполнять заданное с помощью кода действие при каждом возникновении события.

Для настройки обработки событий экспресс-отчёта:

Для экспресс отчётов можно настроить обработку событий, возникающих при работе с отчётом:

Для выполнения примера создайте модуль и подключите его как обработчик событий для экспресс-отчётов. В модуле подключите системные сборки: Dimensions, Export, Express, Forms, Metabase. Добавьте обработчики событий:

Public Class EventsClass: ExpressEvents
param_comment: string;

Public Sub OnAfterExecuteAnalyzer(Args: IEaxAfterExecuteEventArgs);
Var DSSet: IDimSelectionSet;
Begin
    DSSet := args.AnalyzerData.SheetData.Selection;
    // получение строки-списка отмеченных элементов в измерениях экспресс-отчета
    param_comment := GetEaXReportParams(DSSet);
    // добавление записи в протокол доступа с требуемым комментарием
    args.AnalyzerData.Descriptor.CheckAndAudit(2, "Выполнение отчета." + param_comment);
End Sub OnAfterExecuteAnalyzer;

Public Sub OnAfterPrintAnalyzer(Args: IEaxAfterPrintEventArgs);
Var DSSet: IDimSelectionSet;
Begin
    DSSet := args.AnalyzerData.SheetData.Selection;
    param_comment := GetEaXReportParams(DSSet);
    debug.WriteLine(param_comment);
End Sub OnAfterPrintAnalyzer;

Public Sub OnAfterExportAnalyzer(Args: IEaxAfterExportEventArgs);
Var DSSet: IDimSelectionSet;
Begin
    DSSet := args.AnalyzerData.SheetData.Selection;
    param_comment := GetEaXReportParams(DSSet);
    debug.WriteLine(param_comment);
End Sub OnAfterExportAnalyzer;

End Class EventsClass;

// получение строки-списка отмеченных элементов в измерениях экспресс-отчета
Public Function GetEaXReportParams(ExArDsset: IDimSelectionSet): string;
Var ControlStr: string;
    i, DimCnt: integer;
    DimName: string;
    selection: idimselection;
Begin
    dimCnt := ExArDsset.Count;
    ControlStr := "Параметры отчета: ";
    For i := 0 To dimCnt - 1 Do

        DimName := ExArDsset.Item(i).Dimension.Name;
        ControlStr := ControlStr + DimName + ": ";
        selection := ExArDsset.Item(i);
        If selection.SelectedCount = 0 Then
            ControlStr := ControlStr + ": <не выбрано>. ";
            Else
            ControlStr := ControlStr + ": " + Selection.ToString;
        End If;
    End For;
    Return ControlStr;
End Function GetEaXReportParams;

После выполнения примера, при наступлении события обновления таблицы, в протокол доступа будет занесена информация о выделенных измерениях. При печати и экспорте информация будет выведена в консоль разработчика. Пример строки:

Примечание: Выполнение отчета. Параметры отчета: Факты: : ФактСтраны: : Албания,Бельгия,Босния и Герцеговина,Хорватия,Кипр,Чешская Республика,Гренландия,Венгрия,Италия,Латвия Показатели: : Прирост ВВП (% в год)Календарь: : 2005,2006,2007,2008,2009,2010

Глобальный обработчик событий работы с обновлениями

Обработчик событий для работы с обновлениями формирует информацию о процессе установки обновлений:

Для настройки обработки событий работы с обновлениями:

Примечание. Класс должен наследовать класс UpdateCallBack и содержать метод, имеющий следующую сигнатуру:
Function OnCallBack(<param1>: MetabaseUpdateCallbackReason; <param1>: IMetabaseUpdate) : Boolean.

Для выполнения примера создайте модуль и подключите его как обработчик событий для работы с обновлениями. В модуле подключите системную сборку Metabase. Добавьте обработчик событий:

Public Class UpdateHandlerClass: UpdateCallBack
    Function OnCallback(Reason: MetabaseUpdateCallbackReason; Update: IMetabaseUpdate): Boolean;
    Begin
        //Проверка режимов применения обновления
        Select Case Reason
            Case MetabaseUpdateCallbackReason.ApplyCoreEnd: //действия при окончании применения обновления из ядра
            Case MetabaseUpdateCallbackReason.ApplyCoreStart: //действия при вызов применения обновления из ядра
            Case MetabaseUpdateCallbackReason.ApplyUI: //действия при вызове применения обновления из интерфейса
            Case MetabaseUpdateCallbackReason.SaveUI: //действия при вызове сохранения обновления из интерфейса
            Case MetabaseUpdateCallbackReason.SaveCore: //действия при вызове сохранения обновления из ядра
            Case MetabaseUpdateCallbackReason.LoadCoreEnd: //действия при окончании чтения обновления из ядра
        End Select;
        return False; //без прерывания системного действия
    End Function OnCallback;
End Class UpdateHandlerClass;

Результат выполнения примера будет зависеть от заданных действий перечисления MetabaseUpdateCallbackReason.