Hallo Horst,
ich hab mir Deine DB nur kurz angesehen, im PostOpen hast Du
Sub Postopen(Source As Notesuidocument)
Dim vItemNameArray (0 To 4) As Variant
Set g_history = New History
Call g_history.PostopenStartObservation(Source, vItemNameArray)
vItemNameArray(0) = Vorname
vItemNameArray(1) = Stück
End Sub
Das kann so nicht gehen, da Du damit ein leeres vItemNameArray der Sub übergibst, weil Du erst danach die Felder zuordnest. Weiter wirst Du so eine Fehlermeldung erhalten, wenn Du OptionDeclare einschaltest: Du übergibst dem Array die Feldnamen nicht als String, was Du hier aber machen musst (also Anführungszeichen fehlen).
Da Dir wohl noch Grundlagen fehlen in LotusScript, empfehle ich Dir, Grundlagen in LotusScript zu studieren und zu erlernen, bevor Du diese Klasse einsetzt. Denn sonst könntest Du in Teufel's Küche kommen damit.
Diese Klasse sollte wirklich nur von Programmierern verwendet werden, die viel Erfahrung in LotusScript haben, ansonsten sind auch im laufenden Betrieb Fehler zu erwarten, die Du dann nicht ohne weiteres (sondern z.B. mit Unterstützung von externen Dienstleistern) abstellen kannst. Diese möglichen Kosten solltest Du als Risiko bei Dir miteinkalkulieren.
Michael