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

 

оно? http://www.redbooks.ibm.com/redbooks.nsf/R...46854.html?Open :lol:

 

оно? http://www.redbooks.ibm.com/redbooks.nsf/R...46854.html?Open :lol:

Оно оно )) мне б по русски хотябы )

 

оно? http://www.redbooks.ibm.com/redbooks.nsf/R...46854.html?Open :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
Но что то не добавляется запись (((

 

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.

 

Куда не добавляется? Где вы её пытаетесь найти?
P.S. Это уже смотрели?

 

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.

Спасибо, все понял занес пока код в инициализацию все работает сейчас разбираюсь и пытаюсь понять ))