Änderungshistorie bei Feldänderungen

' Session ist bei jedem Programm erforderlich.
	' Alle Daten der aktuallen Notesarbeitsistzung sind hier vorhanden.
	Dim session As New NotesSession

	' Speicher für eine Datenbank
	Dim db As NotesDatabase

	' Die Datenbank der aktuellen Session holen (*.nsf)
	Set db = session.CurrentDatabase

	' Speicher für den aktuellen ungespeicherte Arbeitsplatz
	Dim workspace As New NotesUIWorkspace

	' Speicher für das aktuelle temporäre Dokument
	Dim uidoc As NotesUIDocument

	' Das aktuelle temporäre Dokument aus dem Arbeitsplatz hohlen
	Set uidoc = workspace.CurrentDocument

	' Speicher für das aktuelle Stammdokument im System
	Dim doc As NotesDocument

	' Das aktuelle Stammdokument aus dem uidoc holen und im doc Speicher ablegen
	Set doc = uidoc.Document

	' Speicher für ein Feld
	Dim item As NotesItem

	' Speicher für den aktuellen Benutzernamen
	Dim user As String

	' Namensformat: „Vorname Nachname“ umgewandeln.

	FormatName = 
	Set user = session.CreateName(session.UserName).Common()

	' Speicher für das aktuelle Datum
	Dim datum As String

	' Wandelt das aktuelle Datum in einen String um
	datum=Format(Now(),"dd/mm/yyyy hh:mm:ss")






' ################# START> Änderungen verfolgen und speichern ##############

	' Die boolesche Variable changed dient dazu festzustellen,
	' ob mindestens ein Eintrag geändert wurde
	Dim changed As Boolean
	changed=False

	' Um den Ablauf zu automatisieren, 
	Dim form As NotesForm
	Set form = db.GetForm("XXX") ' Name der Maske, wo sich die zu überprüfenden Felder befinden

	' Eine Stringliste mit den Feldern, die auf Änderungen überprüft werden sollen
	Dim fieldnames(3) As String
	fieldnames(0)="Feld_1"
	fieldnames(1)="Feld_2"
	fieldnames(2)="Feld_3"
	fieldnames(3)="Feld_4"

	' Die Änderungen werden in einem Feld als Mehrfachwerte gespeichert.
	' Jedes mal wenn sich der Wert ändert, wird das Feld um den neuen Wert erweitert.
	Dim NeueWerte As Variant

	' Speicher für den letzten eingetragenen Wert in dem Mehrfachwertefeld
	Dim lastNeuerWert As String

	' Temporärer Integer-Speicher
	Dim temp As Integer

	' Eine Schleife, die die Stringliste mit den oben angegebenen Feldnamen durchgeht.
	Forall fieldname In fieldnames

		' Holen der aktuellen Werte des aktuellen Feldes, welches durch die Felderliste 
		' definiert ist
		NeueWerte=doc.GetItemValue(fieldname+"Neu")

		' Holen des zuletzt eingetragenen Wertes aus dem Mehrfachwertefeld
		lastNeuerWert=NeueWerte(Ubound(NeueWerte))

		' Holen des aktuellen Feldes, welches durch die Felderliste definiert ist
		Set item=doc.GetFirstItem(fieldname)

		' Holen des Typs des Feldes – Text, Number, etc.
		temp=item.Type

		' Für den Typ Number wurde die Zahl 768 von den Notesentwicklern definiert.
		' Dies muss hier abgefragt werden, da ein Number-Feld seinen Wert in einem Integer
		' speichert und ein Text-Feld seinen Wert in einem String.
		' Wenn dies hier nicht berücksichtig werden würde,
		' so würde es ein Typemissmatch geben.

		' Wenn es ein Number-Feld ist,
		' so muss der zurück gelieferte Integer in einen String umgewandelt werden.

		If(temp=768) Then
			' Holen des eingegebenen Wertes
			neuerWert=Str(doc.GetItemValue(fieldname)(0))
		Else
			' Holen des eingegebenen Wertes
			neuerWert=doc.GetItemValue(fieldname)(0)
		End If

		' Wenn die Eingabe von dem zuletzt in der History eingetragenen Wert abweicht
		If(Not lastNeuerWert=neuerWert) Then

			' Anfangs ist die History leer.
			' Somit wird die neue Eingabe immer eine Änderung sein, welche es aber nicht ist.
			' Dies wird hier abgefragt und dem entsprechend changed auf true gesetzt oder
			' auf den Standartwert false gelassen.
			If(Not lastNeuerWert="") Then
				changed=True
			End If

			' Holen des aktuellen Feldes aus der History,
			' welches durch die Felderliste definiert ist
			Set item = doc.GetFirstItem( fieldname+"Neu" )

			' Die neue Eingabe wird dem entsprechenden Mehrfachwerte-Feld hinzugefügt
			item.AppendToTextList(neuerWert)

			' Holen des aktuellen Feldes aus der History,
			' welches durch die Felderliste definiert ist
			Set item = doc.GetFirstItem( fieldname+"Datum" )

			' Das Datum der Eingabe (Jetzt) wird dem entsprechenden Mehrfachwerte-Feld
			' hinzugefügt
			item.AppendToTextList(datum)

			' Holen des aktuellen Feldes aus der History,
			' welches durch die Felderliste definiert ist
			Set item = doc.GetFirstItem( fieldname+"Autor" )

			' Der aktuelle User (der Bearbeiter) wird dem entsprechenden Mehrfachwerte-Feld
			' hinzugefügt
			item.AppendToTextList(user)

		End If
	End Forall

' ################# ENDE> Änderungen verfolgen und speichern #########