Manage Learn to apply best practices and optimize your operations.

Elevate A Replica Loser Doc To Be Replica Winner

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
Dim session As New NotesSession
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
' ------------- The field $Conflict is added to a document to mark it as as
replication conflict
Call doc.RemoveItem( "$Conflict" )
' -------------- Get the parent
If doc.IsResponse Then
Set parent = db.GetDocumentByUNID( doc.ParentDocumentUNID )
If parent.IsResponse Then
' -------------- Get the grandparent (if selected doc was a responce to a
responce
Dim grandParent As NotesDocument
Set grandParent = db.GetDocumentByUNID(parent.ParentDocumentUNID )
Call doc.MakeResponse( grandParent )
Else
' ----------------- If there was no parent document
Call doc.RemoveItem( "$REF" )
End If
End If
Call doc.Save( True, True )
End Sub

Dig Deeper on Lotus Notes Domino Administration Tools

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchDataCenter

SearchContentManagement

Close