[Bug] Rich Text Felder mit Feldhinweis werden nicht als Item erzeugt

[Glombi]

Ich habe folgenden Bug gefunden: Wenn man in einem Rich Text Feld mit einem Feldhinweis arbeitet, so wird das RTF Feld beim Erstellen eines neuen Dokuments nicht gespeichert, wenn dort nichts eingetragen wurde! Erst wenn man das Dokument nochmals neu öffnet und speichert, wird das Item angelegt.

Es kann wie folgt reproduziert werden:
1. RTF Feld mit Feldhinweis anlegen

2. Code in der Maske
(Declarations)
Dim doc As NotesDocument

Postopen
Set doc = Source.Document

Querysave
Call doc.Save( True, True )

Queryclose
If doc.HasItem("Body") Then
   Msgbox "Item da",0+64,"OK"
Else
   Msgbox "Item NICHT da",0+16,"FEHLER"      
End If

Beim Schließen kommt dann folgendes: Item NICHT da

Ohne den Hinweis gehts.


Also: Immer defensiv programmieren und mit doc.HasItem("<Feld>") abfragen, ob ein Item exisitert.

Der Bug tritt auch unter Notes 6 und 7 auf.