IScheduledTask.State

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

Sub UserProc;
Var
    MB: IMetabase;
    Cont: IScheduledTasksContainer;
    Tasks: IMetabaseObjectDescriptors;
    i: integer;
    Task: IScheduledTask;
Begin
    // Получаем текущий репозиторий
    MB := MetabaseClass.Active;
    // Получаем контейнер запланированных задач
    Cont := MB.ItemById("SCHEDULEDTASKSCONTAINER").Bind As IScheduledTasksContainer;
    // Выводим состояние всех задач
    Tasks := Cont.Tasks;
    For i := 0 To Tasks.Count - 1 Do
        Task := Tasks.Item(i).Bind As IScheduledTask;
        Debug.Write("Задача: " + (Task As IMetabaseObjectDescriptor).Name + " Состояние: ");
        Select Case (Task.State As Integer)
            Case 0: Debug.WriteLine("Неактивна");
            Case 1: Debug.WriteLine("Готова");
            Case 2: Debug.WriteLine("Выполняется");
            Case 3: Debug.WriteLine("Завершена");
            Case 4: Debug.WriteLine("Ошибка");
        End Select;
    End For;
End Sub UserProc;