Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: SaSaWu am 07.10.04 - 16:19:39

Titel: Daten aus Rich Text Feld "spiegeln"
Beitrag von: SaSaWu am 07.10.04 - 16:19:39

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.

Titel: Re: Daten aus Rich Text Feld "spiegeln"
Beitrag von: koehlerbv am 07.10.04 - 16:41:16

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

Titel: Re: Daten aus Rich Text Feld "spiegeln"
Beitrag von: SaSaWu am 08.10.04 - 10:29:07

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!

Titel: Re: Daten aus Rich Text Feld "spiegeln"
Beitrag von: koehlerbv am 08.10.04 - 11:02:36

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

Titel: Re: Daten aus Rich Text Feld "spiegeln"
Beitrag von: SaSaWu am 08.10.04 - 11:21:27

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

Danke für die Hilfe!

Titel: Re: Daten aus Rich Text Feld "spiegeln"
Beitrag von: Fitz am 01.07.09 - 10:02:40

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

Titel: Re: Daten aus Rich Text Feld "spiegeln"
Beitrag von: TRO am 01.07.09 - 10:20:28

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

Also
set doc = ws.CurrentDocument.Document
verwenden

Titel: Re: Daten aus Rich Text Feld "spiegeln"
Beitrag von: Fitz am 01.07.09 - 13:13:16

Hallo TRO,

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

Noch ne Idee ???

Danke

Bernd

Titel: Re: Daten aus Rich Text Feld "spiegeln"
Beitrag von: ascabg am 01.07.09 - 13:15:33

Hallo,

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


Andreas

Titel: Re: Daten aus Rich Text Feld "spiegeln"
Beitrag von: Fitz am 01.07.09 - 13:26:22

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

Titel: Re: Daten aus Rich Text Feld "spiegeln"
Beitrag von: Axel am 01.07.09 - 13:33:07

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

Titel: Re: Daten aus Rich Text Feld "spiegeln"
Beitrag von: Fitz am 01.07.09 - 13:52:09

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

Titel: Re: Daten aus Rich Text Feld "spiegeln"
Beitrag von: ascabg am 01.07.09 - 14:01:04

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

Titel: Re: Daten aus Rich Text Feld "spiegeln"
Beitrag von: Fitz am 02.07.09 - 10:53:56

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

Titel: Re: Daten aus Rich Text Feld "spiegeln"
Beitrag von: Axel am 02.07.09 - 12:53:49

Wie sieht denn dein umgebautes Script inzwischen aus?

Axel

Titel: Re: Daten aus Rich Text Feld "spiegeln"
Beitrag von: Fitz am 02.07.09 - 14:07:09

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

Titel: Re: Daten aus Rich Text Feld "spiegeln"
Beitrag von: DAU-in am 02.07.09 - 14:39:01

Zitat von: Fitz am 02.07.09 - 14:07:09

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.

Titel: Re: Daten aus Rich Text Feld "spiegeln"
Beitrag von: dirk_2909 am 02.07.09 - 16:36:42

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.

Titel: Re: Daten aus Rich Text Feld "spiegeln"
Beitrag von: MadMetzger am 02.07.09 - 17:12:46

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