IPrjProject.ErrorMessages

ErrorMessages: Array;

ErrorMessages: Array;

Sub UserProc;
Var
    Project: IPrjProject;
    Tasks: IPrjTaskCollection;
    Task: IPrjTask;
    Depend: IPrjTaskDependency;
    Error: String;
Begin
    Project := New PrjProject.Create;
    // Зададим дату начала проекта
    Project.StartDate := DateTime.Parse("20.02.2020");
    Project.UseStartDate := True;
    // Получим коллекцию задач проекта
    Tasks := Project.Tasks;
    // Добавим первую задачу
    Task := Tasks.Add;
    Task.Key := 1;
    Task.Name := "Задача №1";
    // Добавим вторую задачу
    Task := Tasks.Add;
    Task.Key := 2;
    Task.Name := "Задача №2";
    Task.ParentKey := 2; // ключ родительской задачи
    Depend := Task.Dependencies.Add;
    Depend.PredecessorTaskKey := 2;
    // Проверим проект на наличие ошибок
    If Project.CheckConstraints = 0 Then
        Debug.WriteLine("Ошибок нет");
        Else
            For Each Error In Project.ErrorMessages Do
                Debug.WriteLine(Error + " ");
            End For;
    End If;
End Sub UserProc;