Domino 9 und frühere Versionen > Entwicklung

Dokument aus eingebetteter Ansich löschen?

(1/2) > >>

meichhorner:
Hy,

entweder lässt meine Konzentration nach oder .....  ???

wie lösche ich ein Dokument aus eine eingebetteten Ansicht heraus ???

Cu
Martin

Axel:
Hi,

geht meines Wissens nicht.


Axel

meichhorner:
Wirklich nicht  ???

Auch kein Workaround  ???

Danke,
Martin

Axel:
Hi,

vielleicht doch.


Schau mal hier: http://www.atnotes.de/index.php?board=7;action=display;threadid=4612;start=0


Axel

meichhorner:
Endlich klappts ...  ;D

Habe mir den Agent aus dem Posting von Rob Green http://www.atnotes.de/index.php?board=7;action=display;threadid=4612;start=0 geklaut und das ganze wie folgt gelöst.


--- Zitat ---1. Habe eine Gliederung (Outline) erstellt
2. In den Gliederungspunkt habe eine Aktion reingeschrieben:
Code:@SetEnvironment("ViewAction";"Remove");
@Command([ToolsRunMacro];"IsEmbeddedView")

--- Ende Zitat ---

2. In den Gliederungspunkt habe ich allerdings eine andere Aktion reingeschrieben:
Code: @PostedCommand([FileSave]);
@SetEnvironment("ViewAction";"delete");
@Command([ToolsRunMacro];"IsEmbeddedView");
@Command([ViewRefreshFields])


--- Zitat ---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:
Code: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

--- Ende Zitat ---

Das habe ich auch so gemacht und fertig.

Den Code im Querydocumentdelete brauche ich nicht mehr.


--- Zitat ---6. ins QueryDocumentDelete kam
Code:
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

--- Ende Zitat ---


Cu
Martin

Navigation

[0] Themen-Index

[#] Nächste Seite