Historie anlegen

[ThomasHB]

Hallo Zusammen,

wir würden gerne innerhalb einer Notes DB / Anwendung etwas einführen, das man als Historie sehen kann. Und zwar geht es im konkreten Fall um Hardware. Wer hatte welche Hardware, wann zugewiesen... Also ab welchem Datum.

Da Notes nicht relational ist, hatte ich folgende Überlegung, die ich einfach mal versucht habe umzusetzen... Und zwar dafür ein neues Form zu nehmen, welches Ref die DocUniqueID erhält.
Für jede Änderung wird ein neues Dokument angelegt, mit der ID als Referenz.

Dazu habe ich ins PostSave folgenden Code gebaut:

Code

Sub Postsave(Source As Notesuidocument)
	Dim DocUnID As NotesItem
	Dim person As NotesItem
	Dim Datum As NotesDateTime
	Dim v As NotesView
	Dim s As New NotesSession
	Dim doc As NotesDocument
	Dim db As NotesDatabase
	Dim doc2 As NotesDocument
	Dim composed1, composed2 As String
	
	composed1 = Source.FieldGetText("DocUnID")
	composed2 = Source.FieldGetText("person")
	Set db = s.CurrentDatabase
	Set v = db.GetView("nHist_Hardware")
	Set doc = v.GetFirstDocument
	Set Datum = doc.GetItemValue("HistHW_Datum")
	Set doc2 = New NotesDocument(db)
	
	While Not (doc Is Nothing)
		If composed1 = doc.GetItemValue("HistHW_DocUnID") And Not Today() = Datum.DateOnly Then
			Call doc2.AppendItemValue("HistHW_DocUnID", composed1)
			Call doc2.AppendItemValue("HistHW_Name", composed2)
			Call doc2.AppendItemValue("HistHW_Datum", Today())			
		End If
	Wend
End Sub

Das Programm hängt sich allerdings, immer wieder hier auf:

Code

Set Datum = doc.GetItemValue("HistHW_Datum")

Die Meldung ist Type Mismatch.

Nur verstehe ich den Grund nicht, mal abgesehehn davon, der Code vermutlich auch noch weiter fehlerhaft ist... Das Feld was abgefragt wird, ist ein Datumsfeld... Und Datum ist auch als NotesDateTime deklariert...

Hat da jemand eine Idee?
Das ist ein Punkt, da komme ich nicht weiter.

Falls jemand weitere Fehler sieht, bitte NICHT nennen.
Ein Satz wie, da sind weitere Fehler drin ist ok, aber bennent diese mal nicht.
Ich will das schon selber rauskriegen. Im Zweifel kann ich ja dann noch mal fragen.
Nur will ich versuchen meine Entwicklerfähigkeiten aufzubessern.

Nur bei dieser Datumssache da komme ich nicht dahinter...

Viele Grüße,
Thomas

[ascabg]

Hallo,

Weil Dir doc.GetItemValue("HistHW_Datum") einen Array zurueckliefert.

Versuch mal folgendes

Dim varDatumswerte As Variant

varDatumswerte = doc.GetItemValue("HistHW_Datum")

oder

Set Datum = doc.GetFirstItem("HistHW_Datum")


Andreas

[koehlerbv]

Kein Fehler im eigentlichen Sinne, aber eine grosse Unsauberkeit, die man sich gar nicht erst angewöhnen sollte:

Code

Dim composed1, composed2 As String

composed1 wird hier nicht explizit deklariert und wird daher Variant gesehen. Korrekt wäre
Dim composed1 As String, composed2 As String

Bernhard

[ThomasHB]

Hallo,

super vielen Dank für die Hilfe...

@Andreas

Set Datum = wurde schon während der Code Eingabe rot hinterlegt mit dem Hinweis Type Mismatch. Mit der zweiten Möglichkeit hat es jetzt geklappt.

@Bernhard

Danke für die Info... Aber ich könnte schwöre, das ich genau diese Schreibweise aus der Designerhelp habe...

Der Code schaut jetzt so aus, funktioniert.
Ist trotzdem irgendwo noch was faul bzw. eine Unsauberkeit?

Code

Sub Postsave(Source As Notesuidocument)
	Dim DocUnID As NotesItem
	Dim person As NotesItem
	Dim Datum As Variant
	Dim v As NotesView
	Dim s As New NotesSession
	Dim doc As NotesDocument
	Dim db As NotesDatabase
	Dim doc2 As NotesDocument
	Dim composed1 As String, composed2 As String
	
	composed1 = Source.FieldGetText("DocUnID")
	composed2 = Source.FieldGetText("person")
	Set db = s.CurrentDatabase
	Set v = db.GetView("nHist_Hardware")
	Set doc = v.GetFirstDocument
	Datum = doc.GetItemValue("HistHW_Datum")
	Set doc2 = New NotesDocument(db)
	While Not (doc Is Nothing)
		If composed1 = doc.GetItemValue("HistHW_DocUnID")(0) And composed2 <> doc.GetItemValue("HistHW_Name")(0) Then
			Call doc2.AppendItemValue("Form", "Hardware_Historisierung")
			Call doc2.AppendItemValue("HistHW_DocUnID", composed1)
			Call doc2.AppendItemValue("HistHW_Name", composed2)
			Call doc2.AppendItemValue("HistHW_Datum", Today())	
			Call doc2.Save(0,0)
		End If
		Set doc = v.GetNextDocument(doc)
	Wend
End Sub

Danke.

Grüße,
Thomas

[koehlerbv]

Nicht nur als unsauber, sondern sogar als falsch würde ich bezeichnen, dass Du Objekte instantiiertst, aber deren Existenz danach nicht überprüfst. Was ist, wenn es die Ansicht nicht (mehr) gibt? Was ist, wenn es noch gar kein erstes Dokument gibt? Was ist, wenn dem Ausführenden die Rechte fehlen, doc2 zu erzeugen?

Und vor allem natürlich: Es fehlt jegliches ErrorHandling!

Bernhard

PS: Ich finde es aber sehr gut, wie Du an die Einarbeitung in LS vorgehst!

[ThomasHB]

Nicht nur als unsauber, sondern sogar als falsch würde ich bezeichnen, dass Du Objekte instantiiertst, aber deren Existenz danach nicht überprüfst.

OK... Kannst Du das etwas genauer definieren, wie eine solche Überprüfung aussehen sollte...

Was ist, wenn es die Ansicht nicht (mehr) gibt? Was ist, wenn es noch gar kein erstes Dokument gibt? Was ist, wenn dem Ausführenden die Rechte fehlen, doc2 zu erzeugen?

Wenn es die Ansicht nicht mehr gibt, dann wüsste ich spontan da jetzt auch nichts zu ehrlich gesagt...
Ein erstes Dokument wird es Initial geben, das macht ein Agent.
Da diese kleine DB nur im kleinen Kreis genutzt wird, weil ich meine Fähigkeiten in LS nicht als gut genug für Productive DBs einschätze, wäre das erst mal kein Problem.

Trotzdem versuche ich, das so gut wie möglich auf die Beine zu stellen.

Was würdest du empfehlen? Rechteprüfung vorher?

Grüße,
Thomas

[m3]

Naja, ein Test, ob ein Object überhaupt instanziert wurde oder einfach "nichts" ist, wäre mal ein guter Anfang.

[Peter Klett]

Ein paar Dinge noch zusätzlich zu dem bereits geschriebenen:

Du setzt Datum (hattest ja auch Deine Probleme damit), aber nutzt es nirgendwo.

Im PostSave hängst Du immer Werte an. Speichere das Dokument mal mehrfach (STRG+S), dann werden die Listen immer länger

Du speicherst doc2 innerhalb der Schleife, gibt es 25 Dokumente von doc, speicherst Du doc2 25 mal. Einmal außerhalb der Schleife sollte völlig ausreichen

Du dimensionierst Variablen, die Du nicht brauchst: DocUnID, person

In der Schleife durchläufst Du alle Dokumente der Ansicht und suchst Dir die passenden anhand des Namens heraus. Das wird auf Dauer ein Langläufer. Besser wäre, die Ansicht entsprechend zu sortieren, darin das erste Dokument anhand des Namens zu suchen (v.GetDocumentByKey ...), von dort weitersuchen und stoppen, sobald es nicht mehr passt

Sehe es genauso wie Bernhard, dass Du so weitermachen solltet. Erstmal selber probieren, dann helfen lassen. Das ist ein guter Ansatz.


EDIT: Das mit den länger werdenden Listen habe ich falsch interpretiert. Aber Du erstellst bei jedem Speichern ein doc2. Willst Du das wirklich?

[Axel]

Nicht nur als unsauber, sondern sogar als falsch würde ich bezeichnen, dass Du Objekte instantiiertst, aber deren Existenz danach nicht überprüfst.

OK... Kannst Du das etwas genauer definieren, wie eine solche Überprüfung aussehen sollte...

Im Fall der Ansicht kann das so aussehen:

Set v = db.GetView("nHist_Hardware")
If v Is Nothing Then
  'Ansicht nicht vorhanden -> Fehlerbehandlung
End If

Hier findest du jede Menge Infos zur Fehlerbehandlung in LotusScript: http://atnotes.de/index.php/topic,11980.0.html

Axel

[koehlerbv]

Bei der Programmierung gibt es (fast) kein "nie". Aus dem "kleinen Kreis" wird ein grosser, der Server, der immer nur mit deutschen Einstellungen laufen wird, bekommt auf einmal einen englischsprachigen Bruder, der code, der "so schön läuft", wird kopiert und in einer anderen DS auch verwendet usw. usf.

Minimum: ErrorHandling. Das ist auch und gerade Programmiers Eigenschutz. Warum da plötzlich "Object variable not set" angezeigt wird, kannst Du nach einem halben Jahr nicht mehr spontan zuordnen.

Bernhard

[ThomasHB]

...ok, verstehe was ihr mir sagen wollt.
Danke für die Unterstützung. Ich werde versuchen das zu beachten.

Mal sehen wie weit ich das Script mit den Tipps noch optimieren kann.

Grüße,
Thomas

[ThomasHB]

Hallo Zusammen,

ich habe jetzt noch mal weiter gemacht... Ich habe mich auch mal am Error Handling veruscht ala on Error Goto... Das klappt nur offenbar nicht, weil er eine Rückmeldung gibt:

Hardware: Postsave: 26: Illegal executable code oustide procedure.
Ich hatte mich bei der Angabe an dem verlinkten Thread orientiert...

Auf die Existenz der Objekte will ich Morgen mal zurückgreifen, sprich das mal versuchen...

Aber vielleicht kann man ja noch mal über das aktuelle Eregnis sprechen.
Da interessiert mich, kann man das so machen... Grundlegend falsch, solche Dinge eben.
Tipps zur Verbesserung...

Der Code so wie er jetzt ist, tut aber genau das was ich will... Das macht mich ja irgendwo trotzdem ein bisschen Stolz...   

Also so sieht das PostSave Event jetzt aus:

Code

Sub Postsave(Source As Notesuidocument)	
	Dim v As NotesView
	Dim s As New NotesSession
	Dim doc As NotesDocument
	Dim db As NotesDatabase
	Dim doc2 As NotesDocument
	Dim composed1 As String, composed2 As String, PersName As String
	
	composed1 = Source.FieldGetText("DocUnID")
	composed2 = Source.FieldGetText("person")
	Set db = s.CurrentDatabase
	Set v = db.GetView("nHist_Hardware")
	Set doc = v.GetDocumentByKey(composed1)
	Set doc2 = New NotesDocument(db)
	
	PersName = getLastDocument(composed1)
	
	If composed1 = doc.GetItemValue("HistHW_DocUnID")(0) And Strcomp(composed2, PersName) <> 0 Then
		Call doc2.AppendItemValue("Form", "Hardware_Historisierung")
		Call doc2.AppendItemValue("HistHW_DocUnID", composed1)
		Call doc2.AppendItemValue("HistHW_Name", composed2)
		Call doc2.AppendItemValue("HistHW_Datum", Today())	
		Call doc2.Save(0,0)
	End If
End Sub

So sieht die Funktion getLastDocument aus:

Code

Function getLastDocument(ID As String) As String
	Dim v As NotesView
	Dim s As New NotesSession
	Dim doc As NotesDocument
	Dim db As NotesDatabase
	Dim NamePers As String
	
	Set db = s.CurrentDatabase
	Set v = db.GetView("nHist_Hardware")
	Set doc = v.GetDocumentByKey(ID)
	
	While Not (doc Is Nothing)
		NamePers = doc.GetItemValue("HistHW_Name")(0)
		Set doc = v.GetNextDocument(doc)
	Wend
	getLastDocument = NamePers
End Function

Gefühlt wäre diese Funktion unnötig... Da war natürlich auch Spielerei dabei und das eigene Training, was geht wie etc.

Bin auf Kommentare gespannt.

Viele Grüße,
Thomas

[Axel]

Stichpunktartig was mir aufgefallen ist:

1. Jegliche Fehlerbehandlung fehlt.
2. Objekte werden instantiiert, aber die Existenz danach nicht überprüft, besonders in Postsave.

ich habe jetzt noch mal weiter gemacht... Ich habe mich auch mal am Error Handling veruscht ala on Error Goto... Das klappt nur offenbar nicht, weil er eine Rückmeldung gibt:

Hardware: Postsave: 26: Illegal executable code oustide procedure.
Ich hatte mich bei der Angabe an dem verlinkten Thread orientiert...

Ohne zu sehen wie du das programmiert hast lässt sich dazu nichts sagen.

Axel

[Peter Klett]

Sorry, wahrscheinlich fehlt mir der intellektuelle Zugang zu Deinem Werk.

Stiere nun seit 10 Minuten auf das Script und verstehe nicht, was es eigentlich machen soll.

Sub Postsave(Source As Notesuidocument)   
   Dim v As NotesView
   Dim s As New NotesSession
   Dim doc As NotesDocument
   Dim db As NotesDatabase
   Dim doc2 As NotesDocument
   Dim composed1 As String, composed2 As String, PersName As String
   
   composed1 = Source.FieldGetText("DocUnID") -> irgendeinde ID aus dem aktuellen Dokument
   composed2 = Source.FieldGetText("person") -> die Person aus dem aktuellen Dokument
   Set db = s.CurrentDatabase -> die aktuelle Datenbank
   Set v = db.GetView("nHist_Hardware") -> eine Ansicht, was für Dokumente werden da ausgegeben?
   Set doc = v.GetDocumentByKey(composed1) -> das erste Dokument aus dieser Ansicht mit der ID des aktuellen Dokuments (was für ein Dokument?)
   Set doc2 = New NotesDocument(db) -> ein neues Dokument
   
   PersName = getLastDocument(composed1) -> der Name der Person aus dem letzen Dokument der Ansicht, die übergebene ID ist wirkungslos, da damit nur in der Ansicht das Einstiegsdokument gesucht wird und dann die Ansicht bis zum letzten Dokument durchgehechelt wird
   
   If composed1 = doc.GetItemValue("HistHW_DocUnID")(0) And Strcomp(composed2, PersName) <> 0 Then -> die erste Bedingung wird immer erfüllt sein, außer es gibt das Dokument nicht, die zweite Bedingung wird nur erfüllt, wenn die Person mit der aus dem letzten Dokument der Ansicht übereinstimmt. Sinn?
      Call doc2.AppendItemValue("Form", "Hardware_Historisierung")
      Call doc2.AppendItemValue("HistHW_DocUnID", composed1)
      Call doc2.AppendItemValue("HistHW_Name", composed2)
      Call doc2.AppendItemValue("HistHW_Datum", Today())   
      Call doc2.Save(0,0)
   End If
End Sub

Und das führst Du bei jedem Speichern des Dokuments aus. Dass das funktioniert, liegt vermutlich nur an den Laborbedingungen: immer der gleiche User und niemals das Dokument zwischenspeichern (STRG+S).
Du solltest Dir mal den gewünschten Ablauf analog vorstellen, ohne Überlegung, mit welchem Befehl Du das umsetzt. Wenn der Ablauf steht, setze es in Script um.

[ThomasHB]

Hallo Peter und hallo alle anderen,

danke zunächst für die Kommentare.
@Axel: Wie ich schon schrieb, diese Punkte sollen heute dann noch folgen.

@Peter:

Du musst dir vorstellen, das ist eine Database, die einen Hardwarebestand erfasst, also zu jedem Rechner, zu jedem Notebook zisch versch. Hardwaremerkmale speichert.
Anschaffungsdatum, Garantiezeit etc.
Ausserdem Bildschirme und viele weitere Dinge.

Diese Hardware wird immer wieder versch. Personen zugewiesen.
Allerdings kann man nach 2 Jahren nicht mehr sagen, wer hatte das mal...

Und genau da kommt das Script ins Spiel... Es ist für eine Historie gebaut.
Ich habe das an dieser Stelle nicht mit Children Documents aufgebaut.

Im Hardware Formular, gibt es das Feld DocUnID, welches die Unique ID des Dokuments enthält.
Ein Agent, hat zu jeder Hardware, genauer zu jedem Dokument ein weiteres, in einem neuen Form angelegt.

Ein Feld in dem neuen Dokument enthält die Document Unique ID des ersten Hardwaredokuments.
Der Agent holt sich ähnlich wie die Postsave Funktion, die benötigten Daten und trägt sie damit als erstes Dokument einmal Initial ein. Damit existieren dann die Dokumente und mein Programm im Postsave kann nie auf diesen Fehler stossen, beim anlegen eines neuen Hardwaredokuments, wird ein Historiendokument direkt mit angelegt.

Dieses Script im Postsave geht jetzt hin und ermittelt zunächst mal ein paar Werte...
Die Unique ID, die Person... Dann guckt es in die Historien View, die entsprechend aufgebaut ist und geht dann diese durch...

Dann holt es sich den Namen der letzten Person, welche diese Hardware zugewiesen hatte...

Danach guckt dann das IF, ob beide IDs stimmen und ob die Person ungleich der zuletzt zugewiesen ist... Sonst würde ja ständig ein neues Historiendok angelegt werden.

Viele Grüße,
Thomas

[Peter Klett]

Ok, vom Ansatz verstanden.

Dann solltest Du diese Funktion nochmal überdenken

Function getLastDocument(ID As String) As String
   Dim v As NotesView
   Dim s As New NotesSession
   Dim doc As NotesDocument
   Dim db As NotesDatabase
   Dim NamePers As String
   
   Set db = s.CurrentDatabase
   Set v = db.GetView("nHist_Hardware")
   Set doc = v.GetDocumentByKey(ID) -> hier suchst Du das erste Dokument mit der passenden ID
   
   While Not (doc Is Nothing)
      NamePers = doc.GetItemValue("HistHW_Name")(0) -> hier setzt Du NamePers, unabhängig von der ID
      Set doc = v.GetNextDocument(doc)
   Wend
   getLastDocument = NamePers -> NamePers beinhaltet den Namen des letzten Dokuments der Ansicht, welche ID das Dokument hat, spielt in Deinem Script fälschlicherweise keine Rolle
End Function

Wenn Du die Ansicht mit den IDs so aufbaust, dass die Dokumente nach ID sortiert sind, die neuesten zuoberst, findest Du mit einem Zugriff (das erste Dokument mit der ID) das gewünschte Dokument. Das spart viel Zeit.

Deine Hauptroutine wird dann kürzer:

Set doc = v.GetDocumentByKey(composed1) -> das jüngste "Parallel"-Dokument
Set doc2 = New NotesDocument(db)
   
PersName = doc.HistHW_Name (0)
   
If composed1 = doc.GetItemValue("HistHW_DocUnID")(0) And Strcomp(composed2, PersName) <> 0 Then
 
Die erste Bedingung ist unnötig.

EDIT: Fehlerhandling, wie nicht gesetzte Objekte, habe ich ignoriert

[ThomasHB]

Hallo Peter,

danke für deinen Kommentar...
Ich brösel das noch mal etwas weiter auf...

Ich hatte ja schon geschrieben, das die View, in welche geschaut wird, entsprechend eingestellt ist, damit meine ich folgendes... Es gibt eine Kategorisierung nach der UniqueID, weil es ja mehrere Hostoriendokumente zu einem Hardware Dokument (UniqueID) geben kann.

Set doc = v.GetDocumentByKey(ID) -> hier suchst Du das erste Dokument mit der passenden ID

Ja genau... Und zwar innerhalb der Kategorie nach UniqueID.

NamePers = doc.GetItemValue("HistHW_Name")(0) -> hier setzt Du NamePers, unabhängig von der ID

Kann ich so aber nicht stehen lassen... Die Aussage so stimmt schon, ich gebe eine ID nicht explizit an... Aber "doc." bezieht sich auf GetDocumentByKey und dieses wiederrum auf die genannte View.

Durch die Angabe von GetDocumentByKey und der Kategorisierung der View nach UniqueID bleibt er in der Kategorie... Deshalb kann mir das da egal sein, weil nur Dokumente zu dieser Unique ID gefunden werden.

Set doc = v.GetNextDocument(doc)

Holt sich an dieser Stelle nämlich auch nur noch die Dokumente, zu dieser UniqueID Kategorie innerhalb der View... Und es stehen zisch Dokumente in X UniqueID Kategorien.

Was ich will, ist das letzte Dokument, das angelegt wurde...

Ich bin mir nicht sicher, aber ich glaube, das GetLastDocument diese Schleife ersetzen könnte, denn es müsste sich ja ähnlich wie GetNextDocument verhalten...

Viele Grüße,
Thomas

[Peter Klett]

Eine viel elegantere Lösung wäre aber, nicht in den Historierendokumenten suchen zu müssen.

Du willst ein neues Historiendokument erstellen, wenn sich die Person geändert hat? Dann merke Dir im PostOpen die aktuelle Person, im QueryClose vergleichst Du die Person im Dokument mit der gemerkten. Bei Abweichung schreibst Du das Historiendokument.

Declarations
Dim vglperson As String

PostOpen
Dim doc As NotesDocument
Set doc = Source.Document
vglperson = doc.Person (0)

QueryClose
Dim doc As NotesDocument
Set doc = Source.Document
If vglperson <> doc.Person (0) Then
   ' -> neues Historiendokument schreiben
End If

2 Vorteile:

1. Performanter, da kein Zugriff auf andere Dokumente nötig
2. Es wird nur die Person protokolliert, die beim Schließen des Dokuments gespeichert war, zwischenzeitliche Falscheingaben, die gespeichert, aber vorm Verlassen korrigiert wurden, werden nicht protokolliert

[ThomasHB]

Hah... Na hätte ich das mal vorher gewusst.
Da macht man sich dann die riesen Mühe... 

Ich glaube, ich sollte doch noch mal mehr tun in Richtung, was gibts für Events...

Schöner Hinweis, vielen Dank!

Tja, dann verbuche ich wohl diese Aktion einfach mal unter Learning LotusScript. 

Aber ich finde das gerade sehr interessant, deshalb würde ich das Script noch mal weiterführen und mir dann noch mal Tipps abholen, wenn das ErrorHandling und die Prüfung auf Objekte drin sind.

Viele Grüße,
Thomas

[Peter Klett]

NamePers = doc.GetItemValue("HistHW_Name")(0) -> hier setzt Du NamePers, unabhängig von der ID

Kann ich so aber nicht stehen lassen... Die Aussage so stimmt schon, ich gebe eine ID nicht explizit an... Aber "doc." bezieht sich auf GetDocumentByKey und dieses wiederrum auf die genannte View.

Durch die Angabe von GetDocumentByKey und der Kategorisierung der View nach UniqueID bleibt er in der Kategorie... Deshalb kann mir das da egal sein, weil nur Dokumente zu dieser Unique ID gefunden werden.

Set doc = v.GetNextDocument(doc)

Holt sich an dieser Stelle nämlich auch nur noch die Dokumente, zu dieser UniqueID Kategorie innerhalb der View... Und es stehen zisch Dokumente in X UniqueID Kategorien.

Was ich will, ist das letzte Dokument, das angelegt wurde...

Das ist ein Irrtum, GetNextDocument (doc) stoppt nicht, wenn sich die ID ändert, bleibt also nicht innerhalb der Kategorie (wäre mir jedenfalls völlig neu).