День добрый, Всем.
Собственно что есть:
Форма с внедренным представлением, в котором отображаются документы.
При открытии документа следующий код:
Агент открывает выбранный документ в диалоговом окне:
Собственно вопрос, как обновить представление после сохранения документа открытого в диалоге?
Собственно что есть:
Форма с внедренным представлением, в котором отображаются документы.
При открытии документа следующий код:
Код:
Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
Dim s As New NotesSession
Call s.CurrentDatabase.GetAgent("(AG)").Run(Source.CaretNoteID)
Continue = False
exit sub
Агент открывает выбранный документ в диалоговом окне:
Код:
Dim s As New NotesSession
Dim WS_DLG As New NotesUIWorkspace
Dim doc As NotesDocument
Set doc = s.CurrentDatabase.GetDocumentByID(s.CurrentAgent.ParameterDocID)
If WS_DLG.DialogBox("DLG_FORM", True, True, False, False, False, False, "...", doc, True, False, False) Then
Call doc.Save(True,True)
End If
Собственно вопрос, как обновить представление после сохранения документа открытого в диалоге?