so...dele....
erfolgreich getestet soeben.
Screen:
1. Habe eine Gliederung (Outline) erstellt
2. In den Gliederungspunkt habe eine Aktion reingeschrieben:
@SetEnvironment("ViewAction";"Remove");
@Command([ToolsRunMacro];"IsEmbeddedView")
3. dann habe ich die Gliederung in eine Maske embedded (ist der rosane Part im Bild....sorry.
)
4. in die gleiche Maske habe ich einen View embedded
5. dann einen Agent namens "IsEmbeddedView" erstellt mit Inhalt:
Dim s As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uiview As notesuiview
Set uiview=ws.currentview
'check to see if cursor is in the embedded view
If Not (uiview Is Nothing) Then
Call ws.currentdocument.clear
End If
6. ins QueryDocumentDelete kam
Dim s As New NotesSession
Dim doc As NotesDocument
Dim ViewAction as String
ViewAction = s.GetEnvironmentString("ViewAction")
if ViewAction <> "" then
Set doc = source.documents.getfirstdocument
'here branching code would be inserted to figure out
'what to do based on the type of doc and the
'ViewAction environment variable...
Msgbox doc.universalid+Chr(13)+Chr(13)+ _
doc.address1(0), 0, ViewAction
'just testing, don't delete anyting
continue = False
'reset ViewAction
call s.SetEnvironmentVar("ViewAction","")
End If
7. Gemäß diesem letzten Code müßte ein markiertes Doc in der embedded view in der Tat mit seiner Universal-ID in einer Messagebox angezeigt werden.
Und wie man im Bild sieht klappt das auch, wenn ich ein beliebiges Doc im embedded view markiere, den Gliederungspunkt anklicke und dann das Ergebnis sehe
Der Autor=Erfinder dieses Codes hatte also doch recht. Ich weiß nicht, woher der Fehler bei den anderen kommt. Ich hatte zB das Doc im Lesemodus gelassen, da klappt natürlich das ws.doc.clear nicht. Im Editmode geht das einwandfrei. Was natürlich auch nicht geht, ist den Code im Debugger durchlaufen zu lassen, da dann das markierte Doc im embedded View seinen Fokus verliert anscheinend, denn wie sonst kann man erklären, daß im Debugger uiview leer ist und ohne Debugger der Code wunderbar durchläuft und das markierte Doc im embedded View tatsächlich greift?
Heißt das jetzt, daß etwas was angeblich nie ging doch geht???
