Immer doppelte RT-Felder nach AppendDocLink ?

[LisaS]

Hallo,

kann mir jemand veraten, warum ich nach dieser Aktion immer ein 'DocLink' Richtext-Feld mehr in den Dok.Properties sehe?

Code

Forall elem In tmpC
			Set col = view.GetAllDocumentsByKey(elem)
			If Not col Is Nothing Then
				Set doc = col.GetFirstDocument
				Do Until doc Is Nothing
					Set rti = doc.GetFirstItem( "DocLink" )
					Call rti.AppendDocLink( thisDoc, "Zum Projekt " + Cstr(thisDoc.proj_md_Number(0)),Cstr(thisDoc.proj_md_Number(0)) )
					Call doc.Save( False, True )
					Set doc = col.GetNextDocument(doc)		
				Loop
			End If
		End Forall

Eigendlich sollte der Link in das vorhandene Richtextfeld.
Wenn ich das Dok. dann im Frontend öffne und speicher, dann ist wieder nur ein 'DocLink'-Feld in den Properties zu sehen.

Helft mir mal bitte auf die sprünge..
Grüße
Hitcher

[LisaS]

Habs gefunden:

Code

Forall elem In tmpC
			Set col = view.GetAllDocumentsByKey(Fulltrim(elem))
			If Not col Is Nothing Then
				Set doc = col.GetFirstDocument
				Do Until doc Is Nothing
					Set rti = New notesrichtextitem(doc,"DocLink")
					Call rti.AppendDocLink( thisDoc, "Zum Projekt " + Cstr(thisDoc.proj_md_Number(0)),Cstr(thisDoc.proj_md_Number(0)) )
					Call doc.Save( False, True )
					Set doc = col.GetNextDocument(doc)		
				Loop
			End If
		End Forall

So geht es....

Grüße