• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

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

  • Автор темы 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
180
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 351
151
BIT
188
Куда не добавляется? Где вы её пытаетесь найти?
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.
Спасибо, все понял занес пока код в инициализацию все работает сейчас разбираюсь и пытаюсь понять ))
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

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