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( i.name )
'If we can't get the item, make one
If ThisItem Is Nothing Then Set ThisItem = New NotesItem( NewDoc, i.name, "" )
'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

Dig deeper on Domino Resources - Part 8

0 comments

Oldest 

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:

-ADS BY GOOGLE

SearchWinIT

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 ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close