Dialogbox

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

Domino6

#2
В квери опене запретить открытие документа и открывать диалог
 
02.04.2005
170
1
#3
Сделал вот так

Код:
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