Verknüpfung zu Dokument in anderer Datenbank per UNID?

Moin!

Ich habe da gerade mal folgendes Problem:

In einer Datenbank ist ein Dokument.
In einer anderen Datenbank ist ebenfalls ein Dokument, in dem ein Feld "Source_UNID" drin ist, welches die UNID des Dokuments in der ersten Datenbank enthält.
Wie kann ich nun in dem Dokument in der zweiten Datenbank eine Schaltfläche einfügen, mit der man das Dokument mit der in "Source_UNID" gespeicherten UNID öffnen kann?

Ich hatte wohl etwas zu einfach gedacht, als ich versuchte, dass per Formel mit @Command([OpenDocument];"";SOURCE_UNID) zu machen, da diese Formel ja offensichtlich voraussetzt, dass man schon in der Datenbank ist, aus der man das Dokument öffnen will. Ich bin aber ja in einer anderen Datenbank und die Datenbank, aus der ich das Dokument öffnen will, ist gar nicht geöffnet.

Das muss doch irgendwie gehen, wenn ich schon die UNID des gewünschten Dokuments zur Verfügung habe?

> Woher soll der Button (Formelsprache oder Script) denn wissen, in welcher Db er die betreffende UNID zu suchen hat?

Also den Namen der Ursprungsdatenbank könnte ich auch noch mitliefern.

Da ich leider überhaupt nicht fit bin in Lotus Script: könnte mir jemand von den Cracks mal ein Beispielscript zeigen, wenn die UNID im Feld "source_unid" und der Pfad und Name der Ursprungsdatenbank im Feld "source_db" zu finden ist?

Wäre echt super!

Danke für den Hinweis, theoretisch bin ich nun schon weiter, praktisch funktioniert's leider noch nicht:

Ich habe in dem (biespiel-)Dokument, in dem ich die Schaltfläche platzieren will, folgende Felder mit folgenden Inhalten zur Verfügung:

SOURCE_DOCID: 01DECE0F3189F773C12576000032DC1E
SOURCE_REPLICA_ID: C125704600357B49
SOURDE_UNID: 01DECE0F3189F773C12576000032DC1E

Im Eigenschaftsfenster des Ursprungsdokuments (welches ich per Schaltfläche öffnen will), finden sich folgende IDs:

[img width=300]http://www.diewesslings.de/wp-content/uploads/2009/07/id.png[/img]

Ich dachte, ich könnte nun das Ursprungsdokument mit folgendem Script öffnen:

Sub Click(Source As Button)
 	Dim ws As New NotesUIWorkspace
 	Set db = New NotesDatabase(server, SOURCE_REPLICA_ID)
 	Set doc = db.GetDocumentByUNID(SOURCE_UNID)
 	Call ws.EditDocument(False,doc)
End Sub

Leider erscheint dann die Meldung "Invalid universal ID".

Ich spüre, ich bin nahe dran, aber irgendwas stimmt noch nicht. Könnt Ihr mir da noch helfen?

> Klar weil du bei New NotesDatabase nur einen Pfad angeben kannst.

Ja, das weiss ich auch schon. Ich habe natürlich im Originalscript nicht "server" sondern den kompletten Servernamen drinstehen. Wollte nur meinen Servernamen hier nicht unbedingt breittreten. Daran kann's also nicht liegen...

> Diese Aussage passt aber vorne und hinten nicht zu deinem vo
rigen Posting.

Hä? Was heisst hier "vorne und hinten nicht"? Ich habe nur die Angabe des Servers rausgenommen. Darum ging es aber ja gar nicht!

> Überleg dir doch erst mal was genau du tust bzw codiert hast und dann beschreib es auch so

Das habe ich eigentlich getan...

Sorry, wenn was falsch angekommen ist. Ich kenne natürlich auch die Designer-Hilfe, aber ich dachte, ein Forum wäre dazu da, um mal schnell und unbürokratisch nach Hilfe zu fragen, zumal ich mit der Designer-Hilfe meist nicht wirklich zurecht komme. Vielleicht bin ich ja schlicht zu doof oder es liegt daran, dass ich als Admin nicht 24h programmiere...

Hier also nochmal der Code ohne "verschleierung" des Servers, der zu der o.g. Fehlermeldung einer invalid UNID führt:

Sub Click(Source As Button)
     Dim ws As New NotesUIWorkspace
     Set db = New NotesDatabase("server1/domain", SOURCE_REPLICA_ID)
     Set doc = db.GetDocumentByUNID(SOURCE_UNID)
     Call ws.EditDocument(False,doc)
End Sub

Also: falls trotzdem mir noch jemand helfen will: wo ist mein Fehler?

Hallo Andreas!

Danke für die Hilfe (trotz meiner anscheinend konfusen Beiträge...).

Es handelt sich tatsächlihc um Felder des Dokuments, in das ich die Schaltfläche eingebaut habe. Ich habe Deinen Code mal in mein Script mit aufgenommen (so wie ich es für richtig vermutete) und das ganze sieht nun so aus:

Sub Click(Source As Button)
	Dim ws As New NotesUIWorkspace	
	Set db = New NotesDatabase("server1/domain", uiws.CurrentDocumentFieldGetText("SOURCE_REPLICA_ID"))
	Set doc = db.GetDocumentByUNID(uiws.CurrentDocumentFieldGetText("SOURCE_UNID"))
	Call ws.EditDocument(False,doc)
End Sub

Leider erscheint nun bei Klick auf den Button: "Variant does not contain an Object".

Noch ein Tipp?

Hallo!

Auch auf die Gefahr hin, wieder Motze zu kriegen, hier mal mein derzeitiges Script, welches leider bei Ausführung immer noch eine Fehlermeldung "Type Mismatch" hervorbringt. Der Lotus Script Debugger zeigt, dass diese Fehlermeldung bei der Zeile Set db = db.OpenByReplica... auftritt, obwohl dann zu sehen ist, dass db mit den angaben der richtigen zu öffnenden Datenbank gefüllt ist.

Sub Click(Source As Button)
	Dim db As New NotesDatabase("","")
	Dim ws As New NotesUIWorkspace    
	Dim uidoc As NotesUIDocument
	Dim sourcereplicaid As String
	Dim sourceunid As String
	Set uidoc = ws.CurrentDocument
	sourcereplicaid = uidoc.FieldGetText( "SOURCE_REPLICA_ID" )
	sourceunid = uidoc.FieldGetText("SOURCE_UNID")
	Set db = db.OpenByReplicaID("LT5VV003", sourcereplicaid)
	Set doc = db.GetDocumentByUNID(sourceunid)
	Call ws.EditDocument(False,doc) 
End Sub

andreas: leider hat dein script nicht funktioniert, daher habe ich's halt mit der OpenByReplicaID-Methode versucht...

kann mir jemand sagen, was da noch falsch ist?

Zitat

Das Problem ist nicht, daß dir die Kenntnisse fehlen, sondern eher daß du einfach die Lösung vorgesetzt bekommen willst ohne den kleinsten eigenen Aufwand

Falsch! Ich tu' mich nur eben recht schwer mit Lotus Script (war schon immer so und wird immer so bleiben, daher versuche ich immer möglichst mit @Formeln auszukommen).

Ausserdem hatte ich ja bereits erwähnt, dass Datenbankprogrammierung nun weiss Gott nicht zu meinem Haupt-Tagesgeschäft als Admin gehört, aber manchmal komme ich nicht drum herum. Daher frage ich gerne mal in solchen Foren wie diesem (welches ich bis jetzt als sehr nettes und hilfreiches Forum in Erinnerung hatte) doof nach und freue mich, wenn jemand, für den das alles null problemo ist, mir auf die Sprünge hilft. Das ist ja dann für denjenigen meist 'ne 5-Minuten-Sache und erspart mir tagelanges rumgewurschtel.

andreas: vielen herzlichen Dank, dass Du mir trotzdem geholfen hast.

Ich hab's nun endlich hinbekommen und will natürlich (vielleicht steht ja irgendjemand irgendwann vor einem ähnlichen Problem) die Lösung nicht vorenthalten:

Sub Click(Source As Button)
	Dim db As New NotesDatabase("","")
	Dim ws As New NotesUIWorkspace    
	Dim uidoc As NotesUIDocument
	Dim sourcereplicaid As String
	Dim sourceunid As String
	Set uidoc = ws.CurrentDocument
	sourcereplicaid = uidoc.FieldGetText( "SOURCE_REPLICA_ID" )
	sourceunid = uidoc.FieldGetText("SOURCE_UNID")
	If db.OpenByReplicaID( "server1", sourcereplicaid ) Then
		Print( db.Title & " wurde erfolgreich geöffnet" )
	Else
		Messagebox  "Ursprungsdokument konnte nicht geöffnet werden. Vielleicht kein Zugriff auf die Datenbank?" ,16 ,"Problem!" 
	End If
	Set db = New NotesDatabase("server1", db.FilePath)
	Set doc = db.GetDocumentByUNID(sourceunid)
	Call ws.EditDocument(False,doc) 
End Sub

Das ist vielleicht nicht die schlankeste und sauberste Lösung, aber sie funktioniert.