Domino 9 und frühere Versionen > Entwicklung

doclink

(1/2) > >>

notesnewbie:
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

ata:
... dein Response wird erst nach dem Makeresponse gespeichert - speichere es davor, dann mach es zum Response...

ata

notesnewbie:
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

ata:
... du musst das Dokument nach dem Speichern schließen und wieder öffnen - RTF-Felder sind leider nicht onTheFly aktualisiert...

ata

notesnewbie:
Hallo @ata,

ich weiss. Aber auch nachdem ich das Formular wieder geöffnet habe, erscheint der Link nicht.


NotesNewbie

Navigation

[0] Themen-Index

[#] Nächste Seite