Haupt- und Unterdokument - Daten in das Elterndokument transferieren

MarcD · 29. September 2014

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

Code

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

Diali · 30. September 2014

Mußt du die Daten in Ansichten anzeigen?

Nur zur Anzeige im Dokument geht mit @sum und @dblookup.

Gesendet mit Tapatalk

jo@chim · 30. September 2014

Zitat

(Gibt ein automatisches Öffnen im Bearbeitungsmodus?)

Designeransicht "Eigenschaften Maske" -> zweiter Reiter "Vorgaben" -> dritte Option "Bearbeitungsmodus automatisch aktivieren"

Falls Du die Daten in den Antwortdokumenten zur Prüfung darstellen willst, würde ich eine eingebettete Ansicht mit entsprechenden Summenspalten nehmen. Weiterverarbeiten wie von Diali vorgeschlagen.

MarcD · 2. Oktober 2014

Danke für die Hinweise !!!

Mit dem angefügten Code im PostOpen hat es funktioniert:

Code

'' In Sammelrechnung die verschiedenen Summen ermitteln
    Dim session As New notessession
    Dim db As NotesDatabase
    Dim view As NotesView    
    Dim doc As NotesDocument    
    Dim uidoc As NotesUIDocument
    Dim item As NotesItem
    Dim gsvar As Variant
    Dim fsvar As Variant
    Dim count%
    Dim itemname$
    Dim ks#
    Dim gs#
    Dim fs#

'' Summen ermitteln    
    Set db=session.CurrentDatabase
    Set view = db.GetView( "de.dsgf.view.Rechnungspositionen" )
    Set sdoc = view.GetFirstDocument   

    counter% = 0    
    ks#= 0
    gs# = 0
    fs# = 0

    Do While Not source.Document Is Nothing
        Set item = source.Document.Items(counter%)
        If  item.Name = "$ID" Then
            hv$ = item.values(0)
            Exit Do
        End If
        counter% = counter% + 1
    Loop

    Do While Not sdoc Is Nothing
        If sdoc.columnvalues(0) = hv$ Then
            ksvar = sdoc.getitemvalue("KSumme")
            ks# = ks# + ksvar(0)
            gsvar = sdoc.getitemvalue("GSumme")
            gs# = gs# + gsvar(0)
            fsvar = sdoc.getitemvalue("FSumme")
            fs# = fs# + fsvar(0)
        End If
        Set sdoc = view.GetNextDocument(sdoc)
    Loop

'' Felder belegen
    Set doc = source.document
    Call doc.ReplaceItemValue("KSumme", Cstr(ks#))
    Call doc.ReplaceItemValue("GSumme", Cstr(gs#))
    Call doc.ReplaceItemValue("FSumme", Cstr(fs#))
    Call doc.Save( True, True )

Alles anzeigen

Haupt- und Unterdokument - Daten in das Elterndokument transferieren

Teilen

Tags