Hi,
im Rahmen meiner Agent-Doku wollte ich folgendes dokumentieren:
Um ausgewählte Dokumente einer View mit einem Scriptagenten abzuarbeiten (um in den einzelnen Dokumenten z.B. Items zu löschen), kann man einen Agenten verwenden mit Trigger: „Agent menu selection (R5: Manually From Actions Menu)“ und Target: „Selected documents“.
Allerdings wird nach dem Abarbeiten der Dokumente die Selektion nicht aufgehoben. (...)Man kann mit 2 Agenten arbeiten, die man über eine Aktionsschaltfläche aufruft:
- @Command([ToolsRunMacro]; "(RemoveItems)");
- @Command([ToolsRunMacro]; "(DeselectAllDocs)")
Nun musste ich aber erfreulichrweise feststellen, dass die Selektion nach dem Lauf des Agenten aufgehoben wird.
Testszenario:
- Client R5.0.11 und R6.5
- Agent wird über Button aufgerufen via @Command([ToolsRunMacro];"...")
- Der Agent ist ein Script-Agent und macht folgendes:
Sub Initialize
'**********************************************************************
'Purpose: Deletes all specified items in the selected documents
'**********************************************************************
On Error Goto ERRORHANDLER
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim item As NotesItem
Dim vDeleteItems As Variant
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
'-----> Items you want to remove
Redim vDeleteItems(20)
vDeleteItems(1) = "Feld1"
vDeleteItems(2) = "Feld2"
vDeleteItems(3) = "Itemname3"
vDeleteItems(4) = "Itemname4"
'........and so on.........
'<-----
While Not(doc Is Nothing)
Forall i In vDeleteItems
While (doc.HasItem(i))
Set item = doc.GetFirstItem(i)
Call item.Remove
Call doc.Save(True, True)
Wend
End Forall
Set doc = collection.GetNextDocument(doc)
Wend
EXIT_SCRIPT:
Exit Sub
ERRORHANDLER:
Msgbox "Error: " & Err & " - " & Error$ & Chr(10) & Chr(10)_
& "Procedure: Agent '(RemoveItems)'"& Chr(10) & Chr(10)_
& "Line: " & Erl & Chr(10), _
48, "An error occured"
Resume EXIT_SCRIPT
End Sub
Ich war aber immer der Meinung, dass Doks in der View nicht deselektiert werden nach einem Scriptagenten.
Die Forumsrecherche führte mich u.a. auch auf folgenden Thread, der mir das ganze eigentlich bestätigt:
http://www.atnotes.de/index.php?board=7;action=display;threadid=5469Gab es da mal einen 'Bugfix' / Verbesserung bei R5 ?
Weiß da jemand von Euch näheres hierzu?