Domino 9 und frühere Versionen > Entwicklung

append doc link Methode

(1/4) > >>

kawie:
Hallo zusammen,

ich versuche aus einem geöffneten Dokument ein neues Dokument zu bilden und in einem Richtext feld einen Doclink einzufügen.

Leider passiert da gar nicht :-( Weiss jemand rat?



--- Code: ---
Sub Click(Source As Button)

Dim session As New NotesSession
Dim db As NotesDatabase
Dim workspace As New NotesUIWorkspace
Dim doc As NotesDocument
Dim item As NotesItem
Dim doc2 As NotesDocument
Dim rtitem As  NotesRichTextItem
Dim uidoc As NotesUIDocument
Dim uidoc2 As NotesUIDocument
Dim subject As String

Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document


subject = doc.Knowhow_thema(0)
subject = "Neues Knowledge Dokument: " & subject

Set uidoc2 = workspace.ComposeDocument _
( "", "", "Memo" )

noteid$ = doc.NoteID
Set doc = db.GetDocumentByID( noteid$ )

Set doc2 = uidoc2.Document
Call doc.Save( False, True )
doc2.Subject = subject
doc2.Form = "Memo"
doc2.SaveOptions = 0
Set rtitem = New NotesRichTextItem( doc2, "Body" )
Call rtitem.AppendDocLink( doc, db.Title )
Call doc.Save( False, True )


End Sub


--- Ende Code ---

koehlerbv:
Wenn das der komplette Code ist, dann wirst Du den DocLink auch niemals sehen, denn kurz nach dem Einfogen des DocLinks wirfst Du mit End Sub Dein ganzes Konstrukt ungespeichert in den Orkus.

Was bezweckst Du eigentlich hiermit:

--- Code: ---Set doc = uidoc.Document

......

noteid$ = doc.NoteID
Set doc = db.GetDocumentByID( noteid$ )
--- Ende Code ---

doc war doch schon instantiiert, und dann machst Du es (auf eine andere Art und Weise) nochmal. Wozu ?

Bernhard

Axel:
Hi,

warum legt du denn das neue Dokument nicht komplett im Backend an?


--- Code: ---...
Set uidoc2 = workspace.ComposeDocument _
( "", "", "Memo" )
Set doc2 = uidoc2.Document
...

--- Ende Code ---

Ob das sauber funktioniert, da bin ich mir ganz und garnicht sicher.


Axel
 

kawie:
Hallo,

danke für die Antworten hier kommen meine :-)

1) Backend kann ja jeder ;-). Nein im Ernst der User soll nach dem Erstellen noch die möglichkeit haben individuellen Text hinzuzufügen.

2) @koehlerbv war nur ein Test von mir ist im Prinzip doppelt gemoppelt. Hatte vergessen es rauszunehmen.

3) @Axel genau das wollte ich aber wissen...

appenddoclink ist eine Methode der Richtextklasse welche wiederum eine Klasse des NotesDocumentes ist. Klappt das so mit meinem gefummel und ich habe nur etwas falsch gesetzt... Oder wird das gar nicht gehen. Gibt es so etwas eventuell auch als FrontEnd Methode??

Gruss

Kai

koehlerbv:
Das Dealen mit rich text items funktioniert nur im Backend.

Du müsstest also Dein Dokument zunächst im Backend erzeugen, abspeichern und erst dann ins Frontend holen.

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite