Domino 9 und frühere Versionen > ND7: Entwicklung

Ansicht mit Replikationskonflikte

(1/2) > >>

PeterT.:
Hallo,

gibt es eine Möglichkeit, sich in einer Ansicht alle Replkationskonflikte, mit deren zugehörigen "Eltern"-Dokumenten anzeigen zu lassen?
Nur die Replikationskonflikte anzeigen mit
 --> SELECT @IsAvailable($Conflict)
ist klar. Aber ich würde gern auch die entsprechenden Hauptdokumente dazu anzeigen. Geht das?

Vielen Dank im voraus.

Peter

ata:
... was meinst du genau - den Replikationskonflikt und dessen Original oder den Replikationskonflikt mit den Parents des Original's

... auf jeden Fall kannst du in einer normalen Ansicht mit Anzeige hierarchischer Dokumente immer alle Dokumente sehen...

Nur Replikationskonflikt und dessen Original - denke ich nicht...

Toni

cg-home:
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:

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

--- Ende Code ---
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

m3:
http://www-10.lotus.com/ldd/bpmpblog.nsf/dx/conflict-resolution

ata:
... mit dem Umweg über den Ordner geht so was natürlich...

Toni

Navigation

[0] Themen-Index

[#] Nächste Seite