Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Alexis am 29.06.06 - 10:30:33

Titel: Inhalt RTField mit DocLink an anderes RTField anhängen
Beitrag von: Alexis am 29.06.06 - 10:30:33
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
Titel: Re: Inhalt RTField mit DocLink an anderes RTField anhängen
Beitrag von: koehlerbv am 29.06.06 - 10:48:12
Die Methode heisst NotesRichText.AppendRTItem, wie man leicht der DesignerHelp entnehmen kann.

Bernhard
Titel: Re: Inhalt RTField mit DocLink an anderes RTField anhängen
Beitrag von: Alexis 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
Titel: Re: Inhalt RTField mit DocLink an anderes RTField anhängen
Beitrag von: Alexis 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
Titel: Re: Inhalt RTField mit DocLink an anderes RTField anhängen
Beitrag von: ghost 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