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

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

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

1. Установите флажки «Глобальный обработчик вычисления отчётов» и «Экспресс-отчёты».

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

3. Выберите класс, содержащий обработчики событий. В раскрывающемся списке «Класс» будут отображены все классы выбранной сборки, модуля или формы.

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

• OnBeforeExecuteAnalyzer - реализует событие, наступающее перед вычислением таблицы;

• OnAfterExecuteAnalyzer - реализует событие, наступающее после вычисления таблицы;

• OnBeforeExportAnalyzer - реализует событие, наступающее перед экспортом отчёта;

• OnAfterExportAnalyzer - реализует событие, наступающее после экспорта отчёта;

• OnBeforePrintAnalyzer - реализует событие, наступающее перед печатью отчёта;

• OnAfterPrintAnalyzer - реализует событие, наступающее после печати отчёта.

Для выполнения примера создайте модуль и подключите его как обработчик событий для экспресс-отчётов. В модуле подключите системные сборки: 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

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

• дата и время;

• имя пользователя;

• имя рабочей станции;

• имя обновления;

• перечень объектов и их версии (прежняя и новая);

• сообщения об обновлении каждого объекта;

• статус обновления.

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

1. Установите флажок «Глобальный обработчик событий работы с обновлениями».

2. Выберите сборку, модуль или форму, в которой описан класс, реализующий события обновления.

3. Выберите класс, содержащий обработчики событий. В раскрывающемся списке «Класс» будут отображены все классы выбранной сборки, модуля или формы.

Примечание. Класс должен наследовать класс 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.