Domino 9 und frühere Versionen > ND7: Entwicklung

Doklink erzeugen klappt nicht!???ß

(1/5) > >>

masterste2000:
Hallo Zusammen,

ich erzeuge aus der einem Dokument in der Datenbank A ein neues Dokument in einer anderen Datenbank B. Das klappt auch!!!

Jetzt möchte ich gerne in dem Dokument in der Datenbank A ein DokLink erzeugen, welches auf das Dokument in der Datenbank B verlinkt.

Was jetzt nicht klappt ist, dass das Icon in dem Feld "VideoDatei" erzeugt wird, mit dem der Nutzer direkt zu dem Dokument in der Datenbank B gelangen kann.

uidoc / doc ist das Dokument in der Datenbank A
uidocVID / docVID ist das Dokument in der Datenbank B

VideoDatei ist das Feld im dem der DocLink eingefügt werden soll und vom Feldtyp "text"

dokID ist das Feld mit dem DocLink des Dokuments in der Datenbank B (hat den Vorgabewert "@DocumentUniqueID" )



Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidocVID As NotesUIDocument
   Dim uidoc As NotesUIDocument
   
   Set uidoc = workspace.Currentdocument
   Set uidocVID = workspace.ComposeDocument _
   ( "MeinServer", "Anwendungen\ProjAllgVID.nsf", "VideoAblage" )

   Dim doc As NotesDocument
   Dim docVID As NotesDocument
   
   Call uidocVID.save
   
   Set docVID = uidocVID.document
   Set doc = uidoc.document   
   
   
   Call doc.ReplaceItemValue("VideoDatei",docVID.GetItemValue( "dokID" ))

   
   
End Sub

 

Johnson:
Ich bin mir nicht 100%ig sicher, aber das, was du gemacht hast, geht glaube ich nur wenn sich das verlinkte Dokument in der gleichen Datenbank befindet.

Ist ja eigentlich auch logisch. Denn es fehlen die Informationen wo sich die Datenbank befindet, die das verlinkte Dokument beinhaltet. Also allein die Universal ID wird nicht ausreichen.

Du musst wohl oder übel einen richtigen DocLink erzeugen.
Oder du schreibst eine Notes-URL zu dem zu verlinkenden Dokument in ein Feld (z.B. VideoDateiURL) die du mit einem Hotspot und der Formel @URLOpen aufrufen kannst.

ascabg:
Hallo,

Ein Dok-Link wird hier aus meiner Sicht nicht erzeugt.

Ich wuerde mir mal die Klasse NotesRichTextItem mit all seinen Methoden ansehen.


Andreas

masterste2000:
Danke, wenn ich jetzt mal den Versuch mit notesrichtextitem starte,
bekomme ich folgende Fehlermeldung:

Couldn't get default View id for Database (Datenbank A) !!!???????????



Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidocVID As NotesUIDocument
   Dim uidoc As NotesUIDocument
   
   Set uidoc = workspace.Currentdocument
   Set uidocVID = workspace.ComposeDocument _
   ( "MeinServer", "Anwendungen\ProjAllgVID.nsf", "VideoAblage" )

   Dim doc As NotesDocument
   Dim docVID As NotesDocument

     Set docVID = uidocVID.document
   Set doc = uidoc.document   
   Dim rt As NotesRichTextItem
   Set rt = New notesrichtextitem(docVID, "dokID")
   
   Call rt.AppendDocLink( doc, "" )
   
   
End Sub

Axel:

--- Zitat von: masterste2000 am 09.12.09 - 13:53:35 ---...bekomme ich folgende Fehlermeldung:

Couldn't get default View id for Database (Datenbank A) !!!???????????


--- Ende Zitat ---

Die Fehlermeldung beinhaltet auch schon die Lösung.

... Couldn't get default view...

Du musst eine Ansicht in der Datenbank zur Default View (dt. Vorgabeansicht) machen.

Axel

Navigation

[0] Themen-Index

[#] Nächste Seite