G
Guest
Позволяет ли команда @Command( [Compose]; передать значение, которое будет использоваться в новом документе как значение поля?
Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
Для: Денис Кириченко
нет... Но если значение поля берется из выделенного документа, то поставте в свойсте формы, по кторой композится документ галочку на 2-й закладке "наследовать данные из выделенного документа" и работайте с ними...
ЗЫ: А вообще - QueryOpen - сила...
Dim NewDoc As New NotesDocument(db)
'Заполняем
Call ws.EditDocument(True, NewDoc)
Dim NewDoc As New NotesDocument(db)
'Заполняем
Call ws.EditDocument(True, NewDoc)
"Formulas inherit values from selected document" - зло
На мой взгляд, наследование формой полей из выбранного документа, это олдскул.
Код не централизован, раскидан по полям, не гибко.
Код вида
спасёт гиганта мысли.Код:Dim NewDoc As New NotesDocument(db) 'Заполняем Call ws.EditDocument(True, NewDoc)
Sub Click(Source As Button)
Dim Db as New Notesdatabase("Elephant/ICTP","Work/Docs/performing.nsf")
if Db.IsOpen then
Dim NewDoc As NotesDocument
Set NewDoc = Db.CreateDocument
Call NewDoc.ReplaceItemValue("Form", "NewAction")
'другие поля
Call ws.EditDocument(True, NewDoc)
End if
End Sub
Sub Click(Source As Button)
Dim uidoc As NotesUIDocument
Dim NewDoc As NotesDocument
Dim ws As New NotesUIWorkspace
dim s as New NotesSession
'Set uidoc = ws.ComposeDocument("Elephant/ICTP","Work/Docs/performing.nsf", "NewAction")
'Set NewDoc = uidoc.Document
set NewDoc = s.CurrentDatabase.CreateDocument ' тут вариант текущей БД, вариант Omh'а вернее бут :)
call NewDoc.ReplaceItemValue("SomeItem", "SomeValue")
call NewDoc.ReplaceItemValue("SomeItem", someAnotherDoc.GetItemValue("AnotherItem"))
Call ws.EditDocument(True, NewDoc)
NewDoc.
End Sub
Код:Sub Click(Source As Button) Dim Db as New Notesdatabase("Elephant/ICTP","Work/Docs/performing.nsf") if Db.IsOpen then Dim NewDoc As NotesDocument Set NewDoc = Db.CreateDocument Call NewDoc.ReplaceItemValue("Form", "NewAction") 'другие поля Call ws.EditDocument(True, NewDoc) End if End Sub
Бомби на "ты".
Обучение наступательной кибербезопасности в игровой форме. Начать игру!