appendrtitem ???

[Zimmi]

Hallo und guten Morgen,

ich habe da mal wieder eine etwas knifflige Geschichte.
Ich habe zwei RT-Felder in einer Maske - das eine ist editierbar, das andere berechnet nud wird über ein Script mit der Methode "appendrtitem" gefüllt, wobei der Inhalt aus der ersten Feld stammen.
Ziel ist es eine revisionssichere Dokumentation zu schaffen.

Wo liegt nun das Problem
Wird in dem rtitem_edit eine Tabelle erstellt und diese per Script an das rtitem_computed angehängt, löst sich die Tabelle in einfachen Text auf. Hat jemand einen Vorschlag wie ich das hinbekomme, dass z.B. die Tabelle richtig übernommen wird ?? Kann auch ein Umweg sein ...
Bin für jeden Hinweis dankbar, der sich umsetzen lässt ...

Vielen Dank schon mal vorab ..
Zimmi

[NotesRookie]

Hi,

das gleiche Problem hab ich leider auch ... zum einen
werden keine Tabellen übernommen, zum anderen
auch keine Verknüpfungen zu Homepages ;-(

Irgendjemand ne Idee ?


Grüße und Danke im Voraus.
Marcus

[Rob Green]

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.  

[Zimmi]

Hallo Rob_Green,

ich verwende die Version 5.05 und die Methode appendrtitem.
Vielleicht hängt es ja an der Version ...  

Zimmi

[Rob Green]

SChau mal da nach:

(KN Base)
http://www-3.ibm.com/software/lotus/support/

und

(Fixlist)
http://www-10.lotus.com/ldd/r5fixlist.nsf/SPRViewTemplate?OpenForm


btw...zeig mal bitte den Code

[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]

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]  

haste das mit den 32k gelesen???

[Zimmi]

Hi,

habe ich gelesen ...

... aber ich denke, dass eine Zeile mit drei Wörtern und eine anschließende Tabelle mit zwei Spalten und zwei Zeilen, in deren Zellen jeweils nur ein Wort steht, diese Grenze nicht überschreiten dürfte.

Oder braucht die Tabelle so viele Platz

Zimmi

[Rob Green]

dann scheint es echt ein Bug zu sein. Melds an Lotus/Iris.

Habe es selbst über eine Click Schaltfläche ausprobiert im Detail und komme zum selbigen Resultat:
erste Tabelle wird korrekt kopiert
beim zweiten Vorgang wird Tabelle Alt als Text und TabelleNeu als Tabelle dargestellt
und beim dritten Vorgang wiederum usw

[Zimmi]

Hi,

Danke für die Bestätigung ...

Werde mich mal darum kümmern müssen (wieder zusätzliche Arbeit   ) aber sonst wird man vielleicht noch arbeitslos  

Zimmi

[Rob Green]

hihi...dann mach doch ein par zusätzliche Schleifen in die Programme und verkauf dann die zweite und dritte Version mit den Sätzen "ich weiß, wie wir Ihre Anwendung noch schneller hinkriegen..."
Das macht dich unverzichtbar