• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Создание Документа В Форме

  • Автор темы JohnLemon
  • Дата начала
Статус
Закрыто для дальнейших ответов.
J

JohnLemon

Всем доброе утро, я новичок в Лотусе, вопрос банальный: необходимо написать агента который будет создавать документ в форме fArhives с полями ID, Date, Fio помогите с кодом плз и подскажите куда копать, просто пока не понимаю ни что нужно сначала инициализировать ни как тупо создать документ ))?
 
J

JohnLemon

оно? :lol:
По книжке сделал так
Option Public
Option Declare

Sub CreateFArhivesDocument(Source As NotesUIView, Requesttype As Integer, Colprogname As Variant, Columnvalue As Variant, Continue As Variant)

Dim ws As New NotesUIWorkspace
Dim note As NotesDocument
Dim db As NotesDatabase

Set db = ws.CurrentDatabase.Database
Set note = db.CreateDocument()
note.Form = "fArhives"
Call note.ReplaceItemValue ("ArhFIO", "YashkO") ' я так понимаю это имя поля и новое значение
Call note.Save(True, True, True)
End Sub
Но что то не добавляется запись (((
 

savl

Lotus Team
28.10.2011
2 597
310
BIT
159
JohnLemon
Ну функция есть, а где её вызов?
Если надо агента делать, то надо в дизайнере создать агента, дать ему имя.
Код из этой функции перенести в него, в блок Initialize.
Код надо поправить:
Код:
 Dim ws As New NotesUIWorkspace
заменить на:
Код:
Dim ses as New NotesSession

Код:
Set db = ws.CurrentDatabase.Database
заменить на:
Код:
Set db = ses.Currentdatabase

Код:
Call note.Save(True, True, True)
Можно просто:
Код:
Call note.Save(True, False)
Здесь последний параметр - метка о прочтении, не имеет смысла порой, а второй - признак "ответного документа", все равно игнорируется, так как первый True.
 

garrick

Lotus Team
26.10.2009
1 349
151
BIT
164
Куда не добавляется? Где вы её пытаетесь найти?
P.S. уже смотрели?
 
J

JohnLemon

JohnLemon
Ну функция есть, а где её вызов?
Если надо агента делать, то надо в дизайнере создать агента, дать ему имя.
Код из этой функции перенести в него, в блок Initialize.
Код надо поправить:
Код:
 Dim ws As New NotesUIWorkspace
заменить на:
Код:
Dim ses as New NotesSession

Код:
Set db = ws.CurrentDatabase.Database
заменить на:
Код:
Set db = ses.Currentdatabase

Код:
Call note.Save(True, True, True)
Можно просто:
Код:
Call note.Save(True, False)
Здесь последний параметр - метка о прочтении, не имеет смысла порой, а второй - признак "ответного документа", все равно игнорируется, так как первый True.
Спасибо, все понял занес пока код в инициализацию все работает сейчас разбираюсь и пытаюсь понять ))
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!