История выполнения задачи контейнера запланированных задач

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

Sub Main;

Var

MB: IMetabase;

Cont: IScheduledTasksContainer;

Tasks: IMetabaseObjectDescriptors;

Task: IScheduledTask;

Results: IScheduledTaskResults;

Result: IScheduledTaskResult;

i: Integer;

Begin

MB := MetabaseClass.Active;

Cont := MB.ItemById("NewSTCont").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;

End For;

End Sub Main;

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

См. также:

Примеры