Hallo,
ich möchte eine Art Report zu Aufträgen erstellen.
Dazu habe ich eine Maske erstellt und will per ventry & do until loop durch alle passenden Dokumente rennen und einen Doclink bzw. zusätzlich Text zu einem RT Feld im Report hinzufügen.
Leider habe ich immer nur die letzten beiden Einträge der ventry in meinem Feld. Da ein Print mir vorher den gewünschten Text ausgibt und weglassen des Doclinks alles keinen Unterschied macht, gehe ich davon aus, das ich mit dem RTitem was falsch mache. Hier der Codeteil der Probleme macht (also er läuft ohne Fehlermeldung durch):
'Details für Bestellungen
bestellungswert = 0
summebestellung = 0
counter = 0
Do Until ventry3 Is Nothing
Set doc = ventry3.Document
Set rtitem3 = New NotesRichTextItem( newdoc, "Bestellungen")
' Beim ersten Schleifendurchlauf Mittel holen
If counter = 0 Then
mittel = doc.Mittel(0)
End If
bestellnummer = job & mittel & doc.Bestellnummer_Mittel(0)
Print bestellnummer '<--- Gibt alle Werte aus
Call rtitem3.AppendDocLink( doc, orderdb.title )
Call rtitem3.AddTab( 1 )
Call rtitem3.AppendText( bestellnummer )
'Print rtitem3.GetFormattedText( True, 0) '<--- Gibt alle Werte aus
If bestellungswert = 0 Then
anzahl4 = anzahl4 + 1
Call rtitem3.appendtext( "<-- OHNE PREISINFORMATION" )
End If
Call rtitem3.AddNewline( 1 )
counter = counter + 1
summebestellung = summebestellung + bestellungswert
Set ventry3 = vcol3.GetNextEntry(ventry3)
Loop
Alles anzeigen
^^Mein Wissen steckt noch in den Kinderschuhen, also bitte nicht steinigen
Egal wie ich es drehe und wo ich herumbiege, ich habe am Schluß nur 2 Zeilen in meinem RT Feld (Namens: Bestellungen), obwohl alle Werte in der Statuszeile ausgegeben werden. Kurrioserweise scheint rtitem3 nach Appendtext den richtigen Wert zu haben.
In der Hilfe steht zu RichTextItem:
"When you change the value of a NotesRichTextItem object, the change is not written to disk until you call the Save method for the parent NotesDocument."
aber auch ein newdoc.save vor ende des Loops lösen mein Problem nicht.
Welchen doofen Fehler mache ich gerade ?
Grus
Joerg