Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim doc, doc2 As NotesDocument
Dim uidoc As NotesUIDocument
Dim docs As NotesDocumentCollection
Set docs = source.Documents
Set doc = docs.GetFirstDocument
If (ws.DialogBox("fioForm", True, True, False, False, False, False, "Изменить", doc, True, False)) Then
Call doc.Save(True, False,True)
End If
ws.ViewRefresh
Continue = False
End Sub