Копировать ссылку на страницу Перейти в предыдущий раздел Перейти в следующий раздел

 

' Точка входа.
Dim LoginPoint As SBLogon.LoginPoint
' Приложение.
Dim DirectumApplication As sbrte.Application
' Параметры соединения с использованием кода системы.
ConnectionParams = "SystemCode=DIRECTUM"
' Получить приложение, используя точку входа.
Set LoginPoint = New SBLogon.LoginPoint
Set DirectumApplication = LoginPoint.GetApplication(ConnectionParams)
' Создать и стартовать задачу по типовому маршруту.
Dim Task As sbrte.ITask
Const RouteCode As String = "Д000030"
Set Task = DirectumApplication.TaskFactory.CreateNew
Task.LoadStandardRoute (RouteCode)
' Заполнить параметры типового маршрута значениями.
' Типовой маршрут имеет следующие параметры:
'   "ЭлДокумент" типа Электронный документ;
'   "Рецензенты" типа Список пользователей;
'   "Подписи" типа Коллекция строк.
Dim EDocParam As sbrte.IWorkflowParam
Dim ReviewersParam As sbrte.IWorkflowParam
Dim SignsParam As sbrte.IWorkflowParam
Const EDocID As String = 119856
Dim EDocInfo As sbrte.IEDocumentInfo
Set EDocInfo = DirectumApplication.EDocumentFactory.ObjectInfo(EDocID)
Dim Reviewers As sbrte.IUserList
' Задать имена начальника отдела и директора компании
' из справочника Пользователи.
Const SuperiorName As String = = "IVANOV"
Const DirectorName As String = "PETROV"
Const ReviewerCount As Integer = 2
Dim ReviewerNames(ReviewerCount - 1) As String
Dim Reviewer As sbrte.IUser
ReviewerNames(0) = SuperiorName
ReviewerNames(1) = DirectorName
With Task.WorkflowParams
' Установить значение параметра типа "Электронный документ".
Set EDocParam = .ValueByName("ЭлДокумент")
 EDocParam.Value = EDocInfo
  ' Установить значение параметра типа "Список пользователей".
Set ReviewersParam = .ValueByName("Рецензенты")
Set Reviewers = ReviewersParam.Value
 Reviewers.Clear
For I = 0 To ReviewerCount - 1
  Set Reviewer = DirectumApplication.ServiceFactory.GetUserByName( _
     ReviewerNames(I))
  Call Reviewers.Add(Reviewer)
Next I
' Установить значение параметра типа "Коллекция строк".
' Задать признак подписи "Да" для каждого рецензента из параметра "Рецензенты".
Set SignsParam = .ValueByName("Подписи")
For I = 0 To ReviewerCount - 1
   SignsParam.Values(I) = "Да"
Next I
End With
' Вложить документ и стартовать задачу.
Dim Attachments As sbrte.IAttachmentList
Set Attachments = Task.GetAttachments(False)
Call Attachments.Add(EDocInfo)
Task.SetupStandardRoute(True)
Task.Start

См. также

 

© Компания DIRECTUM, 2018 Сообщество пользователей DIRECTUM
.navbar > a:hover { background: #FFD73B; }