wissel.net

Option Public
Option Declare
Use "OpenLogFunctions"


Function getCompareKey(doc As NotesDocument) As String
	getCompareKey = doc.getitemvalues("someidfield")(0)
End Function


Sub updateSourcedoc(curDoc As NotesDocument, newDoc As NotesDocument)
	
	'We only save if the items have changed!	
	Dim saveFlag As Boolean
	Dim curItem As NotesItem
	Dim newItem As NotesItem
	
	On Error Goto Err_updateSourcedoc
	
	saveFlag = False
	
	Forall it In newDoc.Items
		Set newItem = it
		If curDoc.HasItem(newItem.Name) Then
			Set curItem = curDoc.GetFirstItem(newItem.Name)
			If curItem.Text <> newitem.Text Then
				Call curItem.Remove
				Call newItem.CopyItemToDocument(curDoc,newItem.Name)
				saveFlag = True
			End If
		Else
			Call newItem.CopyItemToDocument(curDoc,newItem.Name)
			saveFlag = True
		End If
	End Forall
	
	'Todo Optional: remove items that don't exist anymore
	
	If saveFlag Then
		Call curDoc.Save(True,True)
	End If
	
Exit_updateSourcedoc:
	Exit Sub
	
Err_updateSourcedoc:
	Call LogErrorEx("",SEVERITY_HIGH,curDoc)
	Resume Exit_updateSourcedoc
	
End Sub
Function SyncAllDocuments(sourceView As NotesView, targetView As NotesView) As Boolean
	
	'The documents to be compared
	Dim SourceDoc As NotesDocument
	Dim nextSourceDoc As NotesDocument
	Dim targetDoc As NotesDocument
	Dim nextTargetDoc As NotesDocument
	
	'Auxiliary variables
	Dim gotoNextSource As Boolean
	Dim gotoNextTarget As Boolean
	Dim sourceKey As String
	Dim targetKey As String
	
	On Error Goto Err_SyncAllDocuments
	
		'Important: the two views are designed that at the end of this algorythm both views have the same number of documents
	'with the same data in it.
	
	gotoNextSource = True 'We need to set this to get the loop started
	gotoNextTarget  = True 'We need to set this to get the loop started
	Set sourceDoc = SourceView.GetFirstDocument
	Set targetDoc = TargetView.GetFirstDocument
	
	'This is the outer loop running through the documents in this database
	'The "inner" loop is for the target database
	
	Do Until sourceDoc Is Nothing
		If gotoNextSource Then 'Since we just advanced to the current source we need to know the next one
			Set nextSourceDoc = SourceView.GetNextDocument(sourceDoc) 'This must be BEFORE any action with the doc
		End If
		
		If targetDoc Is Nothing Then
			'We don't have any target documents, so we copy point blank
			Call sourceDoc.CopyToDatabase(targetView.Parent)
			gotoNextSource = True 'We can read the next source document
			gotoNextTarget = False 'We are already at nothing for the target
		Else
			'Since targetdocument exists we can get the next target document now if we need it
			If gotoNextTarget Then 'Since we just advanced to the current target we need to know the next one
				Set nextTargetDoc = targetView.GetNextDocument(targetDoc) 'This must be BEFORE any action with the doc
			End If
			
			'Now we need to compare the keys
			sourceKey = getCompareKeySource(sourceDoc)
			targetKey = getCompareKeyTarget(targetDoc)
			
			If sourceKey = targetKey Then
				'We found an existing document and would need to update it if values have changed
				Call updateSourcedoc(sourceDoc, targetDoc)
				'We can move our pointer one up for source and target documents
				gotoNextSource = True
				gotoNextTarget  = True
			Elseif sourceKey > targetKey Then
				'We found a document that doesn't exist in the source database anymore
				'so we need to remove that from the target database
				Call targetDoc.Remove(True)
				gotoNextSource = False 'We stay on the source until we get even or less with the key
				gotoNextTarget  = True 'We just removed the document
			Else
				'We have a source document that is not yet in the target database, We just copy it over.
				Call sourceDoc.CopyToDatabase(targetView.Parent)
				gotoNextSource = True 'We just copied this document we move on
				gotoNextTarget  = False 'They key was too big, so we need to wait				
			End If
			
		End If
		
		'Advance the pointers
		If gotoNextSource Then
			Set sourceDoc = nextSourceDoc
		End If
		If gotoNextTarget Then
			Set targetDoc = nextTargetDoc
		End If
	Loop
	
	'Finally we need to remove all documents in the target view that are still here since
	'We ran out of source documents
	'If we ran out of target documents already targetDoc is nothing aready
	
	Do Until targetDoc Is Nothing
		Set nextTargetDoc = targetView.getNextDocument(targetDoc)
		Call targetDoc.Remove(True)
		Set targetDoc = nextTargetDoc
	Loop
	
	SyncAllDocuments = True 'If we got here it worked
Exit_SyncAllDocuments:
	Exit Function
	
	
Err_SyncAllDocuments:
	SyncAllDocuments = False
	LogError
	Resume Exit_SyncAllDocuments
	
End Function
Function getCompareKeySource(doc As NotesDocument) As String
	getCompareKeySource = getCompareKey(doc)
End Function
Function getCompareKeyTarget(doc As NotesDocument) As String
	getCompareKeyTarget = getCompareKey(doc)
End Function