Sub Click(Source As Button)
Dim s As New NotesSession
' Создание сессии
Dim w As New NotesUIWorkSpace
' Обьявление рабочего пространства
Dim doc As NotesDocument, Profile As NotesDocument
' Документ
Dim uidoc As NotesUIDocument, uiProfile As NotesUIDocument
' ID дока текущено
Dim eval As Variant,ParentUnid As Variant
' Значение ParentUnid
Dim db As NotesDatabase
Set doc = s.DocumentContext
Set db = s.CurrentDatabase
If doc Is Nothing Then
Messagebox "Выберите Договор" , 64 , db.title
' Если не выбран документ
Exit Sub
End If
If doc.GetItemValue ("Form") (0) = "Document" Then
' Если форма документа
Set uidoc = w.ComposeDocument ("" , "" , "Document")
Call uidoc.Document.MakeResponse (doc)
' Создание дочернего дока
Call uidoc.Document.ReplaceItemValue ("$RefOptions" , "1")
' Переименовываем $RefOptions = 1
ParentUnid = Evaluate ({@Trim(@Text(ParentUnid) :Resp_ParentUnid)},doc)
' ????
Call uidoc.Document.ReplaceItemValue ("Resp_ParentUnid",ParentUnid)
' Переименовываем Resp_ParentUnid в ParentUnid
tmp$ = doc.DBody_RegNum(0)
' Регистрационный номер родителя
If tmp$ <> "" Then tmp$ = "№" & tmp$ & " "
' Если есть номер то преобразуем
Call uidoc.Document.ReplaceItemValue("ParentSubject" , tmp$ & doc.subject(0))
' Подставляем относится к = ParentSubject
Call uidoc.FieldSetText("Department",doc.Department(0))
' Департамент
Call uidoc.FieldSetText("DogRecipient",doc.DogRecipient(0))
' Контрагент
Call uidoc.FieldSetText("ThemeCategory",doc.ThemeCategory(0))
' Категория
Call uidoc.Refresh
' Обновляем
Exit Sub
End If
' Выбран док но не Document
Messagebox "Приложение может быть создано только для Договора или Приложения к договору" , 64 , db.title
End Sub
