|
|
When you select the "loser" document and run this agent, it will be promoted to be a replication "winner". You can then delete the original "winner" document. Put this code into an agent that runs on selected documents:
Sub Initialize
' From Kevin Pauli (kcpauli@usa.net)
Dim session As New NotesSession
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
Call doc.RemoveItem( "$Conflict" )
If doc.IsResponse Then
Set parent = db.GetDocumentByUNID( doc.ParentDocumentUNID )
If parent.IsResponse Then
Dim grandParent As NotesDocument
Set grandParent = db.GetDocumentByUNID(parent.ParentDocumentUNID )
Call doc.MakeResponse( grandParent )
Else
Call doc.RemoveItem( "$REF" )
End If
End If
Call doc.Save( True, True )
End SubGlenn Thibert (glenn.thibert@thehartford.com) suggested something much simpler:
1) Highlight the 'winner' doc and press the delete key so that the trashcan icon appears.
2) Highlight the 'loser' doc and use the menu command or smarticon for Tools - Refresh Selected Docs
When you hit F9, the deleted doc will disappear and the 'loser' conflict will be in the view as the winner.