Historie anlegen

[Peter Klett]

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

Sehr gute Einstellung, weiter so ! 

[ThomasHB]

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).

Doch, so wie ich das verstanden habe... Wenn Du nach GetDocumentByKey die Dokumente suchst und dabei aber eine Kategorisierte View hast, dann tritt genau dieser Effekt ein.

Die Designerhelp 8.5.2 für die GetDocumentbyKey Methode sagt unter Punkt 5 für mich genau das aus... Aber vielleicht habe ich das auch nicht richtig verstanden... Wenn das so ist, dann korrigiert mich gerne, damit ich hier nichts falsches im Gedächtnis halte... 

Grüße,
Thomas

[Peter Klett]

In der 7er Hilfe steht davon nichts. Falls das eine Änderung in 8 oder 8.5 ist, kann das eine böse Falle für ältere Scripte sein. Gut zu wissen ...

Nachtrag: Auszug aus Hilfe 7 zu diesem Thema (in GetDocumentByKey):

"If you use a GetNextDocument loop, you must explicitly check to make sure the next document is a match"

[ThomasHB]

Lies es dir gerne mal durch... Ich habe es so verstanden.  
Und dann eben für meine Zwecke so gebaut, wie ich dachte, das es sein muss...

Das es auch elegant geht, habe ich erst heute erfahren... 

This script gets all of the documents in the category "Spanish leather" in the By Category view of the current database, and puts them in the Boots folder. The script finds the first document in the category using GetDocumentByKey, and the remaining documents in the category using GetNextDocument. The script uses the ColumnValues property in NotesDocument to check each document's column values: as long as a document's value for the first sorted column in the view equals "Spanish leather," the script places the document in the Boots folder. If the document's value for the first sorted column does not equal "Spanish leather," or if there are no more documents in the view, the script ends.
See GetAllDocumentsByKey for an easier way to do this. The only advantage to this technique is that it correctly sets the ColumnValues property in the retrieved documents while GetAllDocumentsByKey does not.

Code

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim column As NotesViewColumn
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView( "By Category" )
' get the first sorted and categorized column in the view
Forall c In view.Columns
  If ( c.IsSorted And c.IsCategory ) Then
    Set column = c
    Exit Forall
  End If
End Forall
' get the first document that matches the key
Set doc = view.GetDocumentByKey( "Spanish leather" )
' get the remaining documents that match the key
' since ColumnValues array starts at 0 for position 1,
' subtract 1 from the column position
Do While Not ( doc Is Nothing )
  If ( doc.ColumnValues( column.Position - 1 ) =  _
  "Spanish leather" ) Then
    Call doc.PutInFolder( "Boots" )
  Else
    Exit Do
  End If
  Set doc = view.GetNextDocument( doc )
Loop

[klaussal]

Aus der 8er-Hilfe:

This script gets all of the documents in the category "Spanish leather" in the By Category view of the current database, and puts them in the Boots folder. The script finds the first document in the category using GetDocumentByKey, and the remaining documents in the category using GetNextDocument. The script uses the ColumnValues property in NotesDocument to check each document's column values: as long as a document's value for the first sorted column in the view equals "Spanish leather," the script places the document in the Boots folder. If the document's value for the first sorted column does not equal "Spanish leather," or if there are no more documents in the view, the script ends.
See GetAllDocumentsByKey for an easier way to do this. The only advantage to this technique is that it correctly sets the ColumnValues property in the retrieved documents while GetAllDocumentsByKey does not.

[Peter Klett]

Prima, Fehlalarm

Do While Not ( doc Is Nothing )
  If ( doc.ColumnValues( column.Position - 1 ) =  _
  "Spanish leather" ) Then
    Call doc.PutInFolder( "Boots" )
  Else
    Exit Do
  End If
  Set doc = view.GetNextDocument( doc )
Loop

Die Beschreibung zu dem Beispielscript sagt, dass dort geprüft wird, ob die Kategorie die gleiche ist. Sprich, Du musst es selber prüfen (wie bisher in den alten Versionen auch). Und genau das hast Du in Deiner Routine nicht getan und deshalb durfte die nicht funktionieren.

Puh, Blutdruck wieder senken ...

[ThomasHB]

Und genau das hast Du in Deiner Routine nicht getan und deshalb durfte die nicht funktionieren.

Tja, dann ist es mir ein Rätsel... Ich habe genau das gerade noch mal versucht.
Das Programm funktioniert und für mich sieht es so aus, als wenn das schon direkt geprüft würde...

Puh, Blutdruck wieder senken ...

Ich wäre immer vorsichtig, wenn Neulinge versuchen mit klugen Weißheiten anzugeben. 

[Peter Klett]

Du siehst, hier wird jeder ernst genommen 

[ThomasHB]

Jetzt wurmt es mich aber trotzdem...
Warum funktioniert dann mein Programm?

Der Verhält sich genau so wie beschrieben, ohne explizite Prüfung... 

Was kann es denn sein? Mein Code ist ja bekannt, die View Settings jetzt auch.
Stimmt die Help möglicherweise nicht...

Die DB bzw. das Script verhält sich ja nicht so, weil es gerade Lust dazu hat. 

[Peter Klett]

Vielleicht testest Du mit der letzten ID (also mit der, die ganz unten in der Ansicht steht). Nimm' mal eine andere. Trag mal als Person denjenigen ein, der im letzten Dokument enthalten ist, dann wird keine Historie erstellt, auch wenn der Name geändert wurde.

Es wäre mir auch unerklärlich, woher GetNextDocument wissen sollte, nach welcher Kategorie mittels GetDocumentByKey gesucht wurde. Ich glaube daher, dass Dein Script nur zufällig funktioniert.

[ThomasHB]

Vielleicht testest Du mit der letzten ID (also mit der, die ganz unten in der Ansicht steht). Nimm' mal eine andere. Trag mal als Person denjenigen ein, der im letzten Dokument enthalten ist, dann wird keine Historie erstellt, auch wenn der Name geändert wurde.

Es wäre mir auch unerklärlich, woher GetNextDocument wissen sollte, nach welcher Kategorie mittels GetDocumentByKey gesucht wurde. Ich glaube daher, dass Dein Script nur zufällig funktioniert.

Tja... Das glaube ich jetzt auch. 
Ich habe das natürlich sofort mal gemacht.

Schlägt natürlich mit aller Härte zurück und verhält sich exakt wie du es beschreibst.
Es wird kein Historiendokument erzeugt.

Gut, dann konnte das aber jetzt auch geklärt werden.
Das muss ich mir unbedingt merken, schöne Konversation. Hat mir einiges gebracht, Vielen Dank !

Viele Grüße,
Thomas

[Peter Klett]

Hier noch eine Korrektur zu meiner vorgeschlagenen Lösung:

Im Queryclose ist der Name natürlich der, der aktuell im Dokument eingetragen ist, unabhängig davon, ob das Dokument gespeichert wurde. Deshalb würde ich mir im PostSave den Namen merken und im QueryClose nur dann ein Historiendokument erstellen, wenn 1. im PostSave ein Name gemerkt wurde (sonst wurde nicht gespeichert) und 2. dieser Name sich gegenüber dem Öffnen geändert hat. Meine Erweiterungen in blau:

Declarations
Dim vglperson As String
Dim merkperson As String

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

PostSave
Dim doc As NotesDocument
Set doc = Source.Document
merkperson = doc.Person (0)

QueryClose
Dim doc As NotesDocument
Set doc = Source.Document
If merkperson <> "" And vglperson <> merkperson Then
   ' -> neues Historiendokument schreiben
End If

 

[koehlerbv]

Ich bin der Meinung, das eine solche Aktion nicht in das PostSave, sondern ins QuerSave gehört - zusammen mit einem passenden ErrorHandling. Geht im PostSave etwas schief, ist zwar die Änderung im Inventar-Dokument gespeichert, das History-Dokument wird aber nicht angelegt.

Bernhard

[Peter Klett]

Es kommt immer darauf an, was sonst noch in einem Dokument abläuft. Wenn in irgendeinem QuerySave mit Continue = False eine Validierung das Speichern verhindert (z.B. in einer Teilmaske), wird die Historie gespeichert, obwohl das Dokument nicht gespeichert wurde. Wenn das PostSave läuft, ist definitiv das Dokument gespeichert worden /zumindest gehe ich davon aus).

Die Wahl besteht nur, ob ich im Fehlerfall ein Dokument zu viel oder zuwenig habe, ansonsten muss man dafür sorgen, dass möglichst keine Fehler auftreten können