Domino 9 und frühere Versionen > Entwicklung

appendrtitem ???

<< < (2/3) > >>

Zimmi:
Hi,

Danke für den Tipp.
Bin schon beim Sichten ...

Zimmi

Zimmi:
Hi,

hier der Code:

Wird im QueryClose der Maske aufgerufen.

Sub add_journal(uidoc As notesuidocument)
 Dim session As New notessession
 Dim doc As notesdocument
 Dim view_rt_item As Notesrichtextitem      'computed rtitem
 Dim journal_rt_item As Notesrichtextitem      'editable rtitem
     
 Set doc = uidoc.document
 If doc Is Nothing Then Exit Sub
     
 Set view_rt_item = doc.getfirstitem("journal_Ansicht")
 Set journal_rt_item = doc.Getfirstitem("journal")
     
 If journal_rt_item.type = RICHTEXT And view_rt_item.type = RICHTEXT Then
   Call view_rt_item.Addnewline(2)
   Call view_rt_item.Appendrtitem(journal_rt_item)
   Call view_rt_item.Addnewline(1)
   Call view_rt_item.appendtext(" --- ")
   Call view_rt_item.Addnewline(1)
   'Call doc.replaceitemvalue("journal", "")
   Call doc.save(True, False)
 End If      
End Sub

Zimmi

Rob Green:
hab das nun in mein QueryClose reingeschmissen:

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
     Dim session As New notessession
     Dim doc As notesdocument
     Dim view_rt_item As Notesrichtextitem 'computed rtitem
     Dim journal_rt_item As Notesrichtextitem 'editable rtitem
     
     Set doc = source.document
     If doc Is Nothing Then Exit Sub
     
     Set view_rt_item = doc.getfirstitem("body2")
     Set journal_rt_item = doc.Getfirstitem("body")
     
     Call view_rt_item.Addnewline(2)
     Call view_rt_item.Appendrtitem(journal_rt_item)
     Call view_rt_item.Addnewline(1)
     Call view_rt_item.appendtext(" --- ")
     Call view_rt_item.Addnewline(1)
     
     Call doc.save(True, False)
     
End Sub

Geht nach wie vor prächtigst.....sach mal, was für ne Formel haste denn im zweiten Bodyfield? Wenn das Teil zB Body2 heißt, steht dann Feld berechnet als Formel Body2 drin oder welche Formel? Und das zweite Body ist auf jeden Fall vom Typ RT???

Zimmi:
Hi,

als Formel steht im zweiten rtitem (computed) der eigene Feldnamen, um bei deinem Beispiel zu bleiben "body2" drin und es ist wirklich vom Type RichText.

Wie oft hast du versucht eine Tabelle an das Feld anzufügen ???
Ich glaube mich erinnern zu können, dass es beim ersten anhängen noch recht gut aussah.
Siehst du nach dem zweiten Mal anhängen noch immer die Tabelle ???

Zimmi

Rob Green:

--- Zitat ---AppendRTITem "kopiert" die Tables nicht mit???
Hm...kratz..soeben selbst getestet (5.09a)..geht ganz normal.

2 Gründe:
a.) entweder verwendest Du "AppendText" und nicht AppendRTItem  ::)
b.) oder: also note that the AppendRichTextItem method appends only the first 32K of a RichTextItem; the remainder is truncated.[/i]  :P
--- Ende Zitat ---


haste das mit den 32k gelesen???

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete