IBProcessEmailDocuments.AddNewDocument

Синтаксис

AddNewDocument(Value: IMetabaseObjectDescriptor);

Параметры

Value. Описание объекта репозитория, являющегося документом, поддерживающим интерфейс IDocument.

Описание

Метод AddNewDocument добавляет документ из репозитория в конец коллекции.

Пример

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

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

Sub UserProc;
Var
    Mb: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Process: IBProcess;
    EventCollection: IBProcessEventGroupCollection;
    EventGroup: IBProcessEventGroup;
    EmailEvent: IBProcessEventEmail;
    Docs: IBProcessEmailDocuments;
Begin
    Mb := MetabaseClass.Active;
    MObj := Mb.ItemById("PROCESS");
    // Получение структуры процесса
    Process := BProcessCollection.EditByKey(MObj.Key);
    // Получение коллекции групп событий у процесса
    EventCollection := Process.Events;
    // Получени группы событий, наступающих при старте процесса
    EventGroup := EventCollection.ItemByType(BProcessEventType.StartProcess);
    EmailEvent := EventGroup.Item(0) As IBProcessEventEmail;
    // Документы, прикреплённые к сообщению
    Docs := EmailEvent.Email.Documents;
    Docs.AddNewDocument(Mb.ItemById("F_HELP"));
    // Сохранение изменений
    If EmailEvent.IsValid Then
        Process.Save;
    End If;
End Sub UserProc;

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

См. также:

IBProcessEmailDocuments