' Точка входа.

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)