Führt zu einen NSD Absturz.
Ich weis jetzt immerhin wann er das tut, nämlich dann wenn er hierhin:
Sub Postopen(Source As Notesuidocument)
Dim configstring As String
' find a config document for history watching for this form
Configstring = GetConfigDocByKey ("WatchFieldHistoryBugReport")
Set g_history = New History
Call g_history.PostopenStartObservation(Source, Split(Configstring,";"))
End Sub
kommt.
Gehe ich den Call g_history.postopeStartObservation in Einzelschritten im Debugger durch durch passiert nichts. Setze ich bei Set g_history Call g_history und End sub jeweils einen Breakpoint, steigt er mir hier in der Klasse ClassHistory aus am Ende diser Sub aus:
Public Sub PostopenStartObservation(uidoc As NotesUIDocument, vItemNames As Variant)
'Set values
Set m_uidoc = uidoc
Set m_doc = uidoc.Document
m_vItemNamesArray = vItemNames
'Form Events
On Event PostSave From m_uidoc Call ProcessPostSave
On Event Querymodechange From m_uidoc Call ProcessQuerymodeChange
'Start recording if doc is in edit mode
If m_uidoc.EditMode = True Then
Call Record
End If
End Sub
