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 |
| Dim parentDoc As NotesDocument |
| Dim Folder As NotesView |
| Dim view As NotesView |
| Dim ReplConflictsCollection As NotesDocumentCollection |
| |
| Const C_Ordnername = "folConflicts" |
| |
| Set db = Session.CurrentDatabase |
| Set Folder = Db.GetView(C_Ordnername) |
| Set View = DB.GetView("vConflicts") |
| |
| |
| Set ReplConflictsCollection = View.GetAllDocumentsbykey("1") |
| |
| |
| 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