Synch. 2 Documents In Script

This snippet will allow you to make two documents virtually the same.
The first doc is the key. If a field exists on that doc, it will be created on
the second. If a field on the second doc has a different value on the first,
the field is set to the first's value.
'Checks each field and assigns new value if different
Forall i In OldDoc.Items
'Iterate through all of the Items in a Document
Dim ThisItem As NotesItem
'Get the same item on the New Document
Set ThisItem = NewDoc.GetFirstItem( )
'If we can't get the item, make one
If ThisItem Is Nothing Then Set ThisItem = New NotesItem( NewDoc,, "" )
'If thisItem's value isn't i's, than make it i's value
If ThisItem.Text <> i.Text Then ThisItem.Values = i.Values
End Forall
This was first published in November 2000



Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:




  • iSeries tutorials'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 ...