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

[LuMee]

Стоит задача: по 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

Диалог с новым документом исправно открывается, однако после его закрытия (нажимаю ОК) документ остается "пустым", т.е. ничего из введенного в него не сохраняется. Подскажите, как это сделать правильно?

 

[oshmianski]

.....
doc.Form = "ChildForm"
Call doc.Save (True, False)
.....

 

[LuMee]

Спасибо, и впрямь сработало

 

[oshmianski]

Спасибо, и впрямь сработало

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

 

[LuMee]

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

Доки без формы появлялись, но "пустые" - т.е. ничего из введенного пользователем в них не сохранялось.

 

[Aleksey Ivahin]

может я что-то недогоняю, но у меня не работает
В главную форму помещаю 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 в принципе.

 

[Aleksey Ivahin]

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

 

[Gor]

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

После Call doc.Save (True, False) получи вьюху и поставь Refresh
Set view1 = db.GetView("имя вьюхи")
Call view1.Refresh
должно помочь

 

[Aleksey Ivahin]

После Call doc.Save (True, False) получи вьюху и поставь Refresh
Set view1 = db.GetView("имя вьюхи")
Call view1.Refresh
должно помочь

такой вариант не прокатил, зато помогло
Call uid.Refresh

 

[IRKIS]

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

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

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

 

[ToxaRat]

IRKIS
ws.viewrefresh

 

[IRKIS]

ws.viewrefresh

пробовала не обновляет ! ... только после F9 ..

а документы которые doc.save без формы у меня их должно быть очень много , но ничего не отображается, или они могли не сохраниться ? lease:

 

[ToxaRat]

IRKIS
в свойстве вида выставить - автоматикал
документы без формы могли НЕ попасть в селект вида, и из-за этого они там не светятся, смотрите лучше на свойство БД - количество документов

 

[IRKIS]

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