[Back to Using the object-oriented features of LotusScript ]

The EnhancedUIDoc class

Class EnhancedUIDoc

Private m_uidoc As NotesUIDocument
Private m_uiw As NotesUIWorkspace
Private m_origvalues As BetterList
Private m_doctype As String

Sub ProcessPostopen( Source As NotesUIDocument )
Dim doc As NotesDocument
Dim ltm As ListItem

Print ("EnhancedUIDoc - ProcessPostopen")

Set doc = m_uidoc.document
Forall i In doc.Items
Set ltm = New ListItem( i.Name, i.Values(0) )
Call m_origvalues.AddItem(i.Name, ltm)
End Forall

End Sub

Sub ProcessQuerysave(Source As Notesuidocument, Continue As Variant)
Dim doc As NotesDocument
Dim ltm As ListItem
Dim rval As Integer
Dim v As Variant

Print ("EnhancedUIDoc - ProcessQuerysave")
rval = continue

Set doc = m_uidoc.document
Forall i In doc.Items
Set v = m_origvalues.GetItem(i.Name)

If (Not Isnull(v) ) Then 'make sure there's an item to compare it to
Set ltm = v
If i.Values(0) <> ltm.value Then
Print "Item " & i.Name & " new value = " & i.Values(0)
rval = True
Else
Print "Item " & i.Name & " not changed."
End If
Else
Print "Item " & i.Name & " not found."
End If

End Forall

Continue = rval
End Sub

Sub new (uid As NotesUIDocument)
Print ("EnhancedUIDoc - sub new")

Set m_uiw = g_wks
Set m_origvalues = New BetterList
Set m_uidoc = uid

On Event Querysave From m_uidoc Call ProcessQuerysave
On Event Postopen From m_uidoc Call ProcessPostopen

End Sub

Sub Postopen(Source As Notesuidocument)
End Sub

Sub Querysave(Source As Notesuidocument, Continue As Variant)
End Sub

End Class