IBProcessSteps.Insert

Синтаксис

Insert(Index: Integer; Step_: IBProcessStep);

Параметры

Index. Индекс позиции, в которую добавляется шаг.

Step_. Шаг, который необходимо добавить в коллекцию.

Описание

Метод Insert добавляет шаг в указанную позицию в коллекции.

Пример

Для выполнения примера в репозитории предполагается наличие процесса с идентификатором PROCESS. В процессе создан минимум один этап.

Добавьте ссылки на системные сборки: BPM, Metabase. Также добавьте ссылку на сборку, которая необходима для работы с процессами.

Sub UserProc;
Var
    Mb: IMetabase;
    MDesc: IMetabaseObjectDescriptor;
    Process: IBProcess;
    Steps: IBProcessSteps;
    Step_: IBProcessStep;
Begin
    Mb := MetabaseClass.Active;
    MDesc := Mb.ItemById("PROCESS");
    // Получение структуры процесса
    Process := BProcessCollection.EditByKey(MDesc.Key);
    // Получение коллекции шагов первого этапа
    Steps := Process.Stages.Item(0).StepGroups.Item(0).Steps;
    // Создание нового шага
    Step_ := Steps.CreateNewStep(BProcessStepType.ManualTask, "Новый этап", Process);
    Step_.Description := "Оповещение всех о новом этапе работ";
    // Добавление шага в коллекцию
    Steps.Insert(0, Step_);
    // Сохранение изменений
    Process.Save;
End Sub UserProc;

При выполнении примера для этапа процесса будет создан новый шаг. Данный шаг будет помещён в первую позицию группы шагов этапа.

См. также:

IBProcessSteps