' Точка входа.
Dim LoginPoint As SBLogon.LoginPoint
' Приложение.
Dim DirectumApplication As sbrte.Application
' Параметры соединения с использованием кода системы.
ConnectionParams = "SystemCode=DIRECTUM"
' Получить приложение, используя точку входа.
Set LoginPoint = New SBLogon.LoginPoint
Set DirectumApplication = LoginPoint.GetApplication(ConnectionParams)
' Получить фабрику документов.
Set EDocumentFactory = DirectumApplication.EDocumentFactory
' ИД документа, с которым будет производиться связывание.
EDocumentBindID = 137272
' ИД документа, который будет связан с исходным документом.
EDocumentBindingID = 137273
' Получить информацию о документе,
' с которым будет производиться связывание.
Set EDocumentBindInfo = EDocumentFactory.ObjectInfo(EDocumentBindID)
' Получить информацию о связываемом документе.
Set EDocumentBindingInfo = EDocumentFactory.ObjectInfo(EDocumentBindingID)
' Связать документы.
Result = EDocumentFactory.BindTo(EDocumentBindInfo, EDocumentBindingInfo)
' Проверить связь между документами.
HasBound = EDocumentBindInfo.HasBoundDocuments
' Разорвать связь между документами.
Result = EDocumentFactory.Branch(EDocumentBindInfo, EDocumentBindingInfo)
© Компания DIRECTUM, 2018 | Сообщество пользователей DIRECTUM |