Создать документ с помощью Dialogbox

LuMee

Well-Known Member
02.05.2006
477
0
#1
Стоит задача: по action'у на форме создать новый документ (ответ на текущий), причем с помощью диалога. Попытался:
Код:
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument

Set db = ws.CurrentDatabase.Database
Set doc = New NotesDocument(db)

Call ws.DialogBox("ChildForm", False, False, False, False, False, False, "Title", doc, False, False)
Call doc.Save (True, False)
End Sub
Диалог с новым документом исправно открывается, однако после его закрытия (нажимаю ОК) документ остается "пустым", т.е. ничего из введенного в него не сохраняется. Подскажите, как это сделать правильно?
 
A

Aleksey Ivahin

Гость
#6
может я что-то недогоняю, но у меня не работает
В главную форму помещаю View c формулой выборки по ответным документам SELECT (FORM = "OrgF")
И еще кнопку для добавления ответных документов.

вот код для кнопки
Код:
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim doc2 As NotesDocument
Dim uid As notesuidocument

Set uid = ws.currentdocument
Set doc2 = uid.document
Set db = ws.CurrentDatabase.Database
Set doc = New NotesDocument(db)

doc.Form = "OrgF"
Call ws.DialogBox("OrgF", False, False, False, False, False, False, "Новая дислокация", doc, False, False)
Call doc.MakeResponse(doc2)
Call doc.Save (True, False)

End Sub
Ответные документы создаются, но они не являются ответными и не отображаются во View в принципе.
 
A

Aleksey Ivahin

Гость
#7
вроде заработало, но View обновляется только по F9 ?!
 
I

IRKIS

Гость
#10
оно у тя и раньше работало. посмотри, должны быть доки без формы.

если не секрет как посмотреть ??? во вьюехе ALL кроме вновь созданных ничего не отображается :(

нашла способ обновления вьюшки Call notesUIWorkspace.ViewRebuild :YES:
 

ToxaRat

Чёрный маг
Lotus team
06.11.2007
3 205
24
38
Киев
ToxaRat.com
#13
IRKIS
в свойстве вида выставить - автоматикал
документы без формы могли НЕ попасть в селект вида, и из-за этого они там не светятся, смотрите лучше на свойство БД - количество документов
 
I

IRKIS

Гость
#14
ToxaRat
Спасибо !))) ничего не сохранилось )))))) .... хотя очень странно , местами просто 2 строчки поменяла )