Hallo zusammen,
ich muss aus mehreren KindsDokumenten Werte herauslesen, um diese dann im Elterdokument summiert darzustellen und zu prüfen.
Dafür habe ich eine View mit den relevanten Daten im Hauptvorgang erstellt, die ich im QueryOpen auslese und damit die Maske im HV versorge. (Quellcode unten an)
Bis darauf, dass die Werte erst im Änderungsmodus aufgefrischt werden und nicht bereits beim Aufruf der Maske, ist es an der Stelle in Ordnung ...
(Gibt ein automatisches Öffnen im Bearbeitungsmodus?)
Für eine Prüfung(noch nicht im Code) der Vollständigkeit der KindsDokumente möchte ich gerne beim Speichern Werte ebenso ermitteln.
Jetzt wollte ich es mir einfach machen, den gleichen Code im QuerySave verwenden, aber es erscheint der Fehler 'Type mismatch' , weil gsvar leer ist, obwohl die view an beiden Stellen (QueryOpen und QuerySave im Debugger) gleich ausgeprägt ist...
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim view As NotesView
Dim gsvar As Variant
Dim fsvar As Variant
Dim count%
Dim gs#
Dim fs#
Set db = session.CurrentDatabase
Set view = db.GetView("de.dsgf.view.Rechnungspositionen")
gsvar = view.getcolumnvalues(4)
fsvar = view.getcolumnvalues(5)
count%=0
gs# = 0
fs# = 0
[color=#FF0000]Forall element In gsvar[/color]
gs# = gs# + Cdbl(gsvar(count%))
fs# = fs# + Cdbl(fsvar(count%))
count% = count% + 1
End Forall
Set doc = source.document
Call doc.ReplaceItemValue("GSumme", Cstr(gs#))
Call doc.ReplaceItemValue("FSumme", Cstr(fs#))
Alles anzeigen
Erneut besten Dank für Eure aufhellenden Beiträge!
Marc