Daten aus Rich Text Feld "spiegeln"

[SaSaWu]

Ich möchte Daten aus einem Rich Text Feld in einem zweiten Feld spiegeln (z.B. Übernahme der im Rich Text Feld befindlichen Dateianhänge etc.).

Bei Text-Feldern nehme ich dies über die Einstellung "Berechnet zur Anzeige" und Wert = [Name des zu spiegelnden feldes] vor.

Bei Rich Text Feldern habe ich nur die Möglichkeit der Einstellung "Berechnet", gespiegelt wird hier aber leider nichts.

[koehlerbv]

Neee, das geht so nich ...

Mach's mit LS und verwende folgenden Code im PostSave:

Code:

Sub Postsave (Source As Notesuidocument)

Dim docCurrent As NotesDocument
Dim itemRTF As NotesItem

Set docCurrent = Source.Document
Set itemRTF = docCurrent.GetFirstItem ("RTF1")
Set itemRTF = itemRTF.CopyItemToDocument (docCurrent, "RTF2")
Call docCurrent.Save (True, False, True)

End Sub

HTH,
Bernhard

[SaSaWu]

Vielen Dank für die Antwort!

Das klappt mit einem Anhang auch ganz gut. Sobald jedoch ein zweiter Anhang dazukommt, erscheint beim Speichern folgende Fehlermeldung:

"Notes error: Anhang wurde bei mehr als einem Dokument gefunden."

Kann das LS so definiert werden, dass das RTF-Feld, das die Anhänge aufnimmt, bei jeder Speicherung erst geleert wird und dann sämtliche Anhänge neu aufnimmt?

Bin leider des LS nicht mächtig!

[koehlerbv]

Das wird jetzt eine kompliziertere Geschichte (alle RTFs ausser "Spiegel-RTF" retten samt embedded objects, alle RTFs wegwerfen und wieder einfügen usw.) - hierzu musst Du LS können.

Bernhard

[SaSaWu]

Ich sehe es ein. Da muss ich mir wohl mal ein entsprechendes Seminar gönnen.

Danke für die Hilfe!

[Fitz]

Hallo zusammen,

ich greif das Thema nochmals auf. Ich möchte den Inhalt eines RTF Feld in ein anderes RTF Feld im GLEICHEN Dokument kopieren.

Beim speichern des Script kommt "Not a Member: DOCUMENT" als Fehler. Die Zeile "Set docCurrent = Source.Document" wird rot markiert.


Sub Click(Source As Button)
   
   Dim docCurrent As NotesDocument
   Dim itemRTF As NotesItem
   
   Set docCurrent = Source.Document
   
   Set itemRTF = docCurrent.GetFirstItem ("rt1")
   Set itemRTF = itemRTF.CopyItemToDocument (docCurrent, "rt2")
   
End Sub


Hab ich was vergessen

Gruß
Bernd

[TRO]

Ja, weil Source der Button und nicht das UIDoc ist.

Also
set doc = ws.CurrentDocument.Document
verwenden

[Fitz]

Hallo TRO,

Danke für die Hilfe. Jetzt bekomm ich "Variant does not contain an object" als Fehlermeldung.

Noch ne Idee

Danke

Bernd

[ascabg]

Hallo,

Was hast Du denn jetzt wo geaendert gegenueber dem geposteten Code?


Andreas

[Fitz]

Hallo Andreas,

hier mein Code vom Button in der Maske:

Sub Click(Source As Button)

   Dim docCurrent As NotesDocument
   Dim itemRTF As NotesItem
   
   Set doc = ws.CurrentDocument.Document
   
   Set itemRTF = docCurrent.GetFirstItem ("rt1")
   Set itemRTF = itemRTF.CopyItemToDocument (docCurrent, "rt2")
   
End Sub


Bernd

[Axel]

Wenn das der ganze Code ist, dann fehlt da noch was und es ist auch noch ein Fehler drin (kommt vom unbedarften übernehmen von Code    ).

Sub Click(Source As Button)

Dim ws As New NotesUIWorkspace
   Dim docCurrent As NotesDocument
   Dim itemRTF As NotesItem
   
   Set docCurrent = ws.CurrentDocument.Document
   
   Set itemRTF = docCurrent.GetFirstItem ("rt1")
   Set itemRTF = itemRTF.CopyItemToDocument (docCurrent, "rt2")
   
End Sub

[Fitz]

Hallo Axel,

vielen Dank für die Hilfe. Und ja ich gebs zu,  ich hab den Code "einfach so" übernommen. Leider bin ich in Lotusscript nicht so firm, da ich hauptsächlich Formeln in unseren Notes DB's nutze.

So, nun hab ich den Code kopiert und wenn ich jetzt den Button drücke, passiert nichts, auch keine Fehlermeldung!

Was mach ich falsch

Danke  und Gruß
Bernd

[ascabg]

Was moechtest Du auch sehen?

Du stellst das 1. RT-Item ein (set itemRTF = ...) -> soweit ok

Nun kopierst Du dieses eben eingestellt Item auf sich selbst mit einem neuen Namen. 


Andreas

[Fitz]

Hallo Andreas,

ich möchte "einfach" nur den Inhalt eines RTF Felds in ein anderes RTF Feld im gleichen Notes Dokument kopieren.
Mit der Formelsprache ist das meines Wissens nicht möglich. Jetzt bin ich eben mit LotusScript am tun und häng eben hier fest. In der Notes Hilfe ist ein Beispiel wie RTF Felder in ein neues Dokument kopiert werden und jetzt versuch das umzubauen. Hab es aber noch nicht geschafft....

Gruß
Bernd

[Axel]

Wie sieht denn dein umgebautes Script inzwischen aus?

Axel

[Fitz]

Hallo Axel,

hier der aktuelle Stand:

Sub Click(Source As Button)
   
   Dim ws As New NotesUIWorkspace
   Dim docCurrent As NotesDocument
   Dim itemRTF As NotesItem
   
   Set doc = ws.CurrentDocument.Document
   
   Set itemRTF = doc.GetFirstItem ("rt1")
   Call doc.CopyItem (itemRTF, "rt2" )

End Sub

Irgendwie muß ein RTF Feld to RTF Feld copy doch gehen

Ratlos grüßt

Bernd

[DAU-in]

Irgendwie muß ein RTF Feld to RTF Feld copy doch gehen

ich bin gerade nicht am Client, aber gibts da nicht ein copyRTitem?

einfach das ganze ITEM kopieren geht, das hab ich schon gemacht.

[dirk_2909]

und wichtig ist, dass nach der Änderung (Copy des RT) das DOkument (UI) geschlossen wird und neu geöffnet wird. Am besten über die NotesID oder UNID.

[MadMetzger]

Da gibt es von Anton Tauscher eine fertige Funktion "ReOpen", die macht genau das. Habe ich jetzt nur nicht ad hoc zur Hand.