' Точка входа.
Dim LoginPoint As SBLogon.LoginPoint
' Приложение.
Dim DirectumApplication As sbrte.Application
' Параметры соединения с использованием кода системы.
ConnectionParams = "SystemCode=DIRECTUM"
' Получить приложение, используя точку входа.
Set LoginPoint = New SBLogon.LoginPoint
Set DirectumApplication = LoginPoint.GetApplication(ConnectionParams)
Dim EDocumentFactory As sbrte.IEDocumentFactory
Dim EDocument As sbrte.IEDocument
' ИД экспортируемого документа.
EDocumentID = 147501
' Имя файла экспорта.
ExportFileName = "C:\Temp\Документ из системы DIRECTUM.doc"
Set EDocumentFactory = DirectumApplication.EDocumentFactory
Set EDocument = EDocumentFactory.GetObjectByID(EDocumentID)
' Экспортировать первую версию документа с блокировкой.
Call EDocument.Export(1, ExportFileName, True)
' Импортировать документ в новую версию с разблокировкой.
Call EDocument.ImportFromFile(-1, "Новая версия", ExportFileName, True)
' Экспортировать первую версию документа с блокировкой.
Set Version = EDocument.Versions.Values(0)
Version.Export(ExportFileName, True)
' Разблокировать версию.
Version.Unlock;

См. также

 

© 2016 Компания DIRECTUM

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