IBProcessEventGroupCollection.AddEvent

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

Sub UserProc;
Var
    Mb: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Process: IBProcess;
    EventCollection: IBProcessEventGroupCollection;
    ForeEvent: IBProcessEventMethod;
    MailEvent: IBProcessEventEmail;
    Email: IBProcessEmail;
Begin
    Mb := MetabaseClass.Active;
    MObj := Mb.ItemById("PROCESS");
    // Получение структуры процесса
    Process := BProcessCollection.EditByKey(MObj.Key);
    // Получение коллекции групп событий у процесса
    EventCollection := Process.Events;
    // Создание события выполнения Fore-метода при запуске процесса
    ForeEvent := New BProcessEventMethod.Create(BProcessEventType.StartProcess, "ForeEvent");
    EventCollection.AddEvent(ForeEvent);
    ForeEvent.Method := New BPForeMethodLink.CreateNew(Mb.ItemById("M_PROCESS_EVENTS"), "OnStart");
    // Создание события отправки почтового сообщения при завершении процесса
    MailEvent := New BProcessEventEmail.Create(BProcessEventType.FinishProcess, "MailEvent");
    EventCollection.AddEvent(MailEvent);
    Email := MailEvent.Email;
    Email.Recipient := "first@mail.ru";
    Email.CCRecipient := "two@mail.ru";
    Email.BCCRecipient := "blind@mail.ru";
    Email.Subject := "Завершение выполнения процесса";
    Email.Message := "Процесс завершён, проверьте результаты работы.";
    Email.IsBodyHtml := True;
    Email.OnBeforeSend := New BPForeMethodLink.CreateNew(Mb.ItemById("M_PROCESS_EVENTS"), "OnBeforeSendMailMessage");
    // Сохранение изменений
    If ForeEvent.IsValid And MailEvent.IsValid Then
        Process.Save;
    End If;
End Sub UserProc;