Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: notesnewbie am 22.09.03 - 07:52:30
-
Hallo,
seit donnerstag abend kämpfe ich nun schon mit einer Dokumentenverknüpfung rum und begreife nicht warum es nicht funktioniert. Vielleicht könnt Ihr mir helfen:
Aus einen Anschreiben heraus erstelle ich 1 Dokument. Dieses ist ein Dokument welches von den Anwendern bearbeitet werden soll. Nun möchte ich das das Formular als Link an das Anschreiben gebunden wird. Dazu habe ich über den "Save" Button im Hauptdoc folgenden Code gesetzt:
Sub Click(Source As Button)
Dim s As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Dim parentdoc As notesdocument
Dim success As Variant
Dim linkdoc As notesdocument
Dim rtitem As notesrichtextitem
Set uidoc=ws.currentdocument
Set parentdoc = uidoc.document
' erstellung eines backend dokumentes
Set db = s.currentdatabase
Set doc = db.createdocument
doc.form="eplan"
' erstelltes dokument dem geöffneten Dokument als antwort zuweisen
Call doc.makeresponse(parentdoc)
Call doc.save(True,False)
' felder des eben erstellten Docs zugänglich machen
success = doc.ComputeWithForm( False, False )
' link ins geöffnete Dokument einfügen
Set rtitem = New notesrichtextitem(uidoc.document,"body2")
Set linkdoc=doc
Call rtitem.appenddoclink(linkdoc,"")
Call uidoc.document.save(True,False)
Call doc.save(True,False)
End Sub
Das erstellen funktioniert, das Dokument wird auch dem geöffneten Doc richtig zugewiesen, aber der Doclink funktioniert nicht.
Ich begreifs einfach nicht. Ich hoffe Ihr könnt mir weiterhelfen.
Danke
NotesNewbie
-
... dein Response wird erst nach dem Makeresponse gespeichert - speichere es davor, dann mach es zum Response...
ata
-
Hallo @ata,
habe ich nun getan. Leider hat er den Link trotzdem nicht ins Dokument eingefügt.
Sub Click(Source As Button)
Dim s As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
' dim für zuordnung antwortdokument
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Dim parentdoc As notesdocument
Dim success As Variant
' dim für link
Dim linkdoc As notesdocument
Dim rtitem As notesrichtextitem
Set uidoc=ws.currentdocument
Set parentdoc = uidoc.document
' erstellung eines backend dokumentes
Set db = s.currentdatabase
Set doc = db.createdocument
doc.form="eplan"
' erstelltes dokument dem geöffneten Dokument als antwort zuweisen
Call doc.save(True,False)
Call doc.makeresponse(parentdoc)
' felder des eben erstellten Docs zugänglich machen
' success = doc.ComputeWithForm( False, False )
' link ins geöffnete Dokument einfügen
Set rtitem = New notesrichtextitem(uidoc.document,"body2")
Set linkdoc=doc
Call rtitem.appenddoclink(linkdoc,"")
uidoc.document.insertdoclink="1"
Call uidoc.document.save(True,False)
Call doc.save(True,False)
End Sub
-
... du musst das Dokument nach dem Speichern schließen und wieder öffnen - RTF-Felder sind leider nicht onTheFly aktualisiert...
ata
-
Hallo @ata,
ich weiss. Aber auch nachdem ich das Formular wieder geöffnet habe, erscheint der Link nicht.
NotesNewbie
-
Wie speicherst Du denn ParentDoc? Offensichtlich im FrontEnd, den DocLink fügst Du aber im Backend ein (was dann im FrontEnd später wieder überschrieben wird).
Bernhard
-
Hi,
danke für die Antworten. Leider hat keiner meiner Versuche funktioniert. Ich werd mir wohl was anderes überlegen müssen
NotesNewbie