Dialogbox

[vincent_vega]

Как сделать так, что бы при открытии документа из представления он открывался в DialogBox?

 

[Domino6]

В квери опене запретить открытие документа и открывать диалог

 

[vincent_vega]

Сделал вот так

Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
Dim ws As New NotesUIWorkspace
Dim Doc As NotesDocument
Dim ss As New NotesSession
Dim db As NotesDatabase
Set db=ss.CurrentDatabase
Set doc=db.GetDocumentByID(Source.CaretNoteID)
Call ws.DialogBox("form", True, True, True, True, True, False, "Test", doc, True, True, False)
Continue = False
End Sub