Hallo Peter,
ich habe vor einiger Zeit was gefunden, was ich schon fast in jede DB von mir einbaue,
um immer gezielt die Replizierkonflikte und deren Elterndokumente im Admin-Bereich zu sehen.
Das geht allerdings über eine Ansicht, eine Aktion die einen Agenten aufruft
und einen Ordner.
In der Ansicht wird, wie schon von Dir beschrieben, die Konflikte an sich angezeigt - mit:
SELECT @IsAvailable($Conflict)
In der Ansicht wird über eine Aktion ein Agent ausgeführt welcher die Conflict-Ansicht
durchgeht und die Elterndokumente mit deren Konflikte in einen Ordner stellt.
Hier der Agent:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument 'This is the replicationconflict
Dim parentDoc As NotesDocument 'The equal document of the replicationconflict
Dim Folder As NotesView 'This is the folder where all replicationconflics will be put into
Dim view As NotesView ' This is the replicationconflicview
Dim ReplConflictsCollection As NotesDocumentCollection 'This is a documentcollection of all replicationconflicts
Const C_Ordnername = "folConflicts"
Set db = Session.CurrentDatabase
Set Folder = Db.GetView(C_Ordnername)
Set View = DB.GetView("vConflicts")
' Now all existing replicationconflicts will be put into a collection
Set ReplConflictsCollection = View.GetAllDocumentsbykey("1")
' Now all selected replicationconflicts with their parentdocument will be put into the special folder.
Set doc = ReplConflictsCollection.GetFirstDocument
Do Until doc Is Nothing
If doc.HasItem("$REF") Then
Set parentDoc = db.GetDocumentByUNID(doc.ParentDocumentUNID)
Call parentDoc.PutInFolder(C_Ordnername)
End If
Set doc = ReplConflictsCollection.GetNextDocument(doc)
Loop
Call ReplConflictsCollection.putallinFolder(C_Ordnername)
Call Folder.Refresh
Die Anischt lautet "vConflicts" und der Ordner "folConflicts"
In dem Ordner habe ich dann noch zwei Aktionen, die eine zum vergleichen zweier
markierter Notes Dokumente und eine zum entfernen.
mfg Christian