IScheduledTasksContainer.Tasks

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

Sub UserProc;
Var
    MB: IMetabase;
    Cont: IScheduledTasksContainer;
    Tasks: IMetabaseObjectDescriptors;
    MDesc: IMetabaseObjectDescriptor;
    Task: IScheduledTask;
Begin
    MB := MetabaseClass.Active;
    Cont := MB.ItemById("TASK_CONTAINTER").Bind As IScheduledTasksContainer;
    Tasks := Cont.Tasks;
    For Each MDesc In Tasks Do
        Debug.Write("Задача: " + MDesc.Name + " Состояние: ");
        Task := MDesc.Bind As IScheduledTask;
        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;