Hallo,
ich hoffe ihr könnt mir helfen. Ich habe folgendes Problem.
Ich möchte aus einer Dialogbox ein Dokument öffnen welches ich aus einer Embedded View ausgewählt habe. Die Dialogbox schliesst sich und öffnet das neue Dokument in einer neuen Dialogbox. Das funktioniert auch. Mein eigentliches Problem ist, das ich nachdem ich ein Dokument aus der Embedded View geöffnet habe es nicht mehr schliessen kann. Beim schliessen erhalte ich jedesmal einen "REDSCREEN" und einen "NSD".
Mein kleines Script sieht wie folgt aus.
Sub Click(Source As Button)
Dim uiiws As New NotesUIWorkspace
Dim session As New NotesSession
Dim uiv As NotesUIView
'Dim view As NotesView
Dim collection As NotesDocumentCollection
Dim doc As Notesdocument
Dim uidoc As NotesUIDocument
Dim db As NotesDatabase
' - - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -
Set db = session.CurrentDatabase
Set uiv = uiiws.currentview
'Set view = uiv.View
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
' - - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -
Set uidoc = uiiws.CurrentDocument
If Not (doc Is Nothing) Then
'// Set notesUIDocument = ws.EditDocument( False, doc)
Call uidoc.Close()
Call uiiws.DialogBox( "Maske", True, True, True, True, False, False, "TEST", doc, True,False,False)
Else
Msgbox "Bitte wählen Sie ein Dokument aus", 0 + 64, "Fehler"
End If
End Sub
Ich hoffe ihr habt ne Idee an was es liegen kann.
-> Client Version 6
-> Server 5
Vielen Dank im voraus.