Hallo,
bräuchte mal wieder eure Hilfe.
Habe eine Rahmengruppe mit zwei Rahmen (Rahmen A und B).
Das folgende Script wird über ein AktionsHotspot (im Rahmen A) ausgeführt. Das Script öffnet das ausgewählte Dokument im Rahmen B (in den Maskeneigenschaften ist der Rahmen angegeben).
Mein Problem: Wird der Hotspot mehrfach ausgeführt wird jedesmal ein neues Fenster geöffnet. Ist es möglich den Rahmen zuerst zu leeren bevor das ausgewählte Dokument angezeit wird.
Sub Click(Source As Button)
Dim s As New notessession
Dim ws As New NotesUIWorkspace
Dim uidoc As notesuidocument
Dim v As notesview
Dim keys As String
Dim tmpdoc As notesdocument
Dim auswahl(4) As String
Dim ruck As String
auswahl(0) = "Service"
auswahl(1) = "Mobiler-Vertrieb"
auswahl(2) = "Privatkunde"
auswahl(3) = "WP-Beratung"
auswahl(4) = "Firmenkunde"
ruck = ws.Prompt (PROMPT_OKCANCELLIST, "Aktion", "Treffen Sie bitte Ihre Auswahl:", , auswahl)
If ruck = "" Then
Messagebox "Sie haben keine Auswahl getroffen"
Exit Sub
End If
Set ws = New notesuiworkspace
Set uidoc = ws.currentDocument
Set v = s.currentdatabase.getview("(Auswahl)")
If ruck = auswahl(0) Then
keys = "Eingabe1"
Elseif ruck = auswahl(1) Then
keys = "Eingabe2"
Elseif ruck = auswahl(2) Then
keys = "Eingabe3"
Elseif ruck = auswahl(3) Then
keys = "Eingabe4"
Elseif ruck = auswahl(4) Then
keys = "Eingabe5"
End If
Set tmpdoc = v.GetDocumentbyKey(Keys,True)
If Not (tmpdoc Is Nothing) Then
Call ws.EditDocument( False , tmpdoc, True)
Else
Messagebox "Dokument nicht gefunden."
End If
End Sub
