' Точка входа.
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 Templates As sbrte.IEDocument
Dim TemplatesDataSet As IDataSet
' Получить список шаблонов документов.
Set EDocumentFactory = DirectumApplication.EDocumentFactory
Set Templates = EDocumentFactory.Templates
Set TemplatesDataSet = Templates.DataSet
' Наименование шаблона документа.
TemplateName = "Шаблон Word"
' Код вида документа.
KindCode = "Г000013"
' Найти шаблон по имени.
Do While Not TemplatesDataSet.EOF And Templates.Name <> TemplateName
TemplatesDataSet.Next
Loop
' Если шаблон был найден, то создадим документ.
If Not TemplatesDataSet.EOF Then
TemplateCode = TemplatesDataSet.Requisites("Код").AsString
Set EDocument = EDocumentFactory.CreateNewFromTemplate( _
"ШАД", KindCode, TemplateCode)
EDocument.DataSet.Requisites("ISBEDocName").AsString = "Документ из шаблона"
EDocument.DataSet.ApplyUpdates
End If
© Компания DIRECTUM, 2018 | Сообщество пользователей DIRECTUM |