Autor Thema: Inhalt RTField mit DocLink an anderes RTField anhängen  (Gelesen 1296 mal)

Offline Alexis

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 534
  • Geschlecht: Männlich
  • LotusNotes macht süchtig!
Hallo Forum,

steh' mal wieder auf dem Schlauch:

Ich möchte im PostSave eines Dokumentes den Inhalt eines RT-Feldes mit Text und DocLinks an ein anderes RT-Feld anhängen. Geht das überhaupt und wenn ja mit welcher Methode?

Hoffe auf einen Tipp von den Spezis.

Alexis
wenn ich kein Problem hätte, wär' ich nicht hier ---
wenn ich im Forum eine Lösung gefunden hätte, wär' ich nicht hier ---
wenn ich nicht wüsste, dass mir hier fast immer geholfen wird, wär' ich AUCH nicht hier ---

Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re: Inhalt RTField mit DocLink an anderes RTField anhängen
« Antwort #1 am: 29.06.06 - 10:48:12 »
Die Methode heisst NotesRichText.AppendRTItem, wie man leicht der DesignerHelp entnehmen kann.

Bernhard

Offline Alexis

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 534
  • Geschlecht: Männlich
  • LotusNotes macht süchtig!
Re: Inhalt RTField mit DocLink an anderes RTField anhängen
« Antwort #2 am: 29.06.06 - 11:10:09 »
Hallo Bernhard,

die Methode NotesRichtText.AppendRTItem ist mir bekannt, mir fehlt wohl der richtige Ansatz aus dem Quellfeld nicht nur den Text zu holen (doc.GetItemValue) sondern das Objekt was sich hinter dem Link verbirgt (GetFirstElement(RTELEM_TYPE_DOCLINK?).
Code
Dim rtlink As NotesRichTextDocLink 
	Dim rti As NotesRichTextItem
	Dim rtnav As NotesRichTextNavigator
	Set rti = doc.GetFirstItem("Input")
	Set rtnav = rti.CreateNavigator
	Set rtlink = rtnav.GetFirstElement(RTELEM_TYPE_DOCLINK)
	If rtlink Is Nothing Then
		Messagebox "Document contains no links",, "No links"
	End If
	Call rtitem.appenddoclink(rtlink,"")

LN-Fehlermeldung: AppendDocLink requires a NoteDocument ......

Was ist hier faul?

Alexis
wenn ich kein Problem hätte, wär' ich nicht hier ---
wenn ich im Forum eine Lösung gefunden hätte, wär' ich nicht hier ---
wenn ich nicht wüsste, dass mir hier fast immer geholfen wird, wär' ich AUCH nicht hier ---

Offline Alexis

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 534
  • Geschlecht: Männlich
  • LotusNotes macht süchtig!
Re: Inhalt RTField mit DocLink an anderes RTField anhängen
« Antwort #3 am: 29.06.06 - 17:43:28 »
Hallo Forum,

mit folgender Änderung komme ich nun an das Dokument heran, vorausgesetzt es liegt in selbiger DB, so dass der Link brav als DocLink angehängt wird.

Wie bekomme ich aber bei einem Link auf eine andere DB den DB-Bezug? Die ReplicaID ist ja im rtlink-Objekt ja vorhanden, aber weiter ???

Code
Dim rtlink As NotesRichTextDocLink 
	Dim rti As NotesRichTextItem
	Dim rtnav As NotesRichTextNavigator
	Set rti = doc.GetFirstItem("Input")
	Set rtnav = rti.CreateNavigator
	Set rtlink = rtnav.GetFirstElement(RTELEM_TYPE_DOCLINK)
	If rtlink Is Nothing Then
		Messagebox "Document contains no links",, "No links"
	End If
	Dim docc As NotesDocument '!!!!!!
	Set docc = db.GetDocumentByUNID( rtlink.DocUnID ) '!!!!!!!!!
	Call rtitem.appenddoclink(docc,"") '!!!!!!!!

Alexis
wenn ich kein Problem hätte, wär' ich nicht hier ---
wenn ich im Forum eine Lösung gefunden hätte, wär' ich nicht hier ---
wenn ich nicht wüsste, dass mir hier fast immer geholfen wird, wär' ich AUCH nicht hier ---

Offline ghost

  • Aktives Mitglied
  • ***
  • Beiträge: 174
  • Geschlecht: Männlich
  • Notes ist gut!
Re: Inhalt RTField mit DocLink an anderes RTField anhängen
« Antwort #4 am: 30.06.06 - 07:58:47 »
Hallo Alexis,

vielleicht so:

Code
Dim db as New NotesDatabase("", "")
flag = db.OpenByReplicaID( <server>, <ReplicaID>)

Viele Grüße
ghost

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz