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

Статус
Закрыто для дальнейших ответов.

JohnLemon

Well-known member
20.08.2014
274
2
#1
Всем доброе утро, я новичок в Лотусе, вопрос банальный: необходимо написать агента который будет создавать документ в форме fArhives с полями ID, Date, Fio помогите с кодом плз и подскажите куда копать, просто пока не понимаю ни что нужно сначала инициализировать ни как тупо создать документ ))?
 

JohnLemon

Well-known member
20.08.2014
274
2
#4
По книжке сделал так
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 131
102
#5
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
894
61
#6
Куда не добавляется? Где вы её пытаетесь найти?
P.S. Это уже смотрели?
 

JohnLemon

Well-known member
20.08.2014
274
2
#7
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.
Спасибо, все понял занес пока код в инициализацию все работает сейчас разбираюсь и пытаюсь понять ))
 
Статус
Закрыто для дальнейших ответов.