' Точка входа.
Dim LoginPoint As SBLogon.LoginPoint
' Приложение.
Dim DirectumApplication As sbrte.Application
' Параметры соединения с использованием кода системы.
ConnectionParams = "SystemCode=DIRECTUM"
' Получить приложение, используя точку входа.
Set LoginPoint = New SBLogon.LoginPoint
Set DirectumApplication = LoginPoint.GetApplication(ConnectionParams)
Dim EDocument As sbrte.IEDocument
Dim EDocumentVersionDialog As sbrte.IEDocumentVersionListDialog
Dim NewVersion As sbrte.IEDocumentVersion
' Получить документ.
EDocumentID = 147501
Set EDocument = DirectumApplication.EDocumentFactory.GetObjectByID(EDocumentID)
' Выбрать версию документа с помощью диалога версий.
Set EDocumentVersionDialog = _
 DirectumApplication.ServiceFactory.GetEDocumentVersionListDialog(EDocument)
Set NewVersion = EDocumentVersionDialog.Select
VersionNumber = NewVersion.Number
' Создать версию на основе выбранной с заданным примечанием.
NewVersion.Clone("Версия создана на основе версии " & Str(VersionNumber))

См. также

 

© 2016 Компания DIRECTUM

Сообщество пользователей DIRECTUM