IScheduledTaskResult.NotificationSended

Синтаксис Fore

NotificationSended: TriState;

Синтаксис Fore.NET

NotificationSended: Prognoz.Platform.Interop.ForeSystem.TriState

Описание

Свойство NotificationSended возвращает признак того, отправлено ли электронное сообщение после выполнения задачи.

Комментарии

Возможные значения свойства:

• Undefined. Значение по умолчанию. Состояние возможно, только если не была настроена отправка уведомления;

• On. После выполнения задачи электронное письмо было отправлено;

• Off. После выполнения задачи электронное письмо не было отправлено.

Пример Fore

Для выполнения примера предполагается наличие контейнера запланированных задач с идентификатором «TASK_CONTAINER» и задачи вычисления регламентного отчета.

Добавьте ссылки на системные сборки «Metabase», «Fore».

Sub UserProc;
Var
    MB: IMetabase;
    Cont: IScheduledTasksContainer;
    Tasks: IMetabaseObjectDescriptors;
    Task: IScheduledTask;
    Results: IScheduledTaskResults;
    Result: IScheduledTaskResult;
    res, i: Integer;
Begin
    MB := MetabaseClass.Active;
    Cont := MB.ItemById("TASK_CONTAINTER").Bind As IScheduledTasksContainer;
    Tasks := Cont.Tasks;
    Task := Tasks.Item(0).Bind As IScheduledTask;
    Results := Task.GetResults;
    For i := 0 To Results.Count - 1 Do
        Result := Results.Item(i);
        Debug.Write(Result.StartDateTime.ToString + " | ");
        Debug.Write(Result.FinishDateTime.ToString + " | ");
        If Result.Succeeded Then
            Debug.WriteLine("Завершена успешно");
        Else Debug.WriteLine("Завершена с ошибкой");
        End If;
        Select Case Result.NotificationSent
            Case TriState.OffOption:
                Debug.WriteLine("Электронное письмо не выслано");
            Case TriState.OnOption:
                Debug.WriteLine("Выслано электронное письмо");
            Case TriState.Undefined:
                Debug.WriteLine("Результаты выполнения задачи были сброшены");
        End Select;
    End For;
End Sub UserProc;

После выполнения примера в окно консоли будет выведена история выполнения первой задачи контейнера запланированых задач. Будут выведены дата и время начала и завершения выполнения задачи, результат выполнения задачи, а также признак того, было ли отправлено электронное сообщение после выполнения задачи.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.KeFore;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Cont: IScheduledTasksContainer;
    Tasks: IMetabaseObjectDescriptors;
    Task: IScheduledTask;
    Results: IScheduledTaskResults;
    Result: IScheduledTaskResult;
    res, i: integer;
Begin
    MB := Params.Metabase;
    Cont := MB.ItemById["TASK_CONTAINTER"].Bind() As IScheduledTasksContainer;
    Tasks := Cont.Tasks;
    Task := Tasks.Item[0].Bind() As IScheduledTask;
    Results := Task.GetResults();
    For i := 0 To Results.Count - 1 Do
        Result := Results.Item[i];
        System.Diagnostics.Debug.Write(Result.StartDateTime.ToString() + " | ");
        System.Diagnostics.Debug.Write(Result.FinishDateTime.ToString() + " | ");
        If Result.Succeeded Then
            System.Diagnostics.Debug.WriteLine("Завершена успешно");
        Else System.Diagnostics.Debug.WriteLine("Завершена с ошибкой");
        End If;
        Select Case Result.NotificationSent
            Case TriState.tsOffOption:
                System.Diagnostics.Debug.WriteLine("Электронное письмо не выслано");
            Case TriState.tsOnOption:
                System.Diagnostics.Debug.WriteLine("Выслано электронное письмо");
            Case TriState.tsUndefined:
                System.Diagnostics.Debug.WriteLine("Результаты выполнения задачи были сброшены");
        End Select;
    End For;
End Sub;

См. также:

IScheduledTaskResult