Dokumentverknüpfung in ein Dokument einfügen

[diwi]

Hallo zusammen,

ich möchte ein Link auf ein Dokument aus einer anderen DB in das gerade geöffnete einfügen.

_{Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim ws As New NotesUIWorkspace   
   Dim db1 As NotesDatabase
   Dim rtitem As NotesRichTextItem
   Dim doc As NotesDocument
   Dim currDoc As NotesDocument
   Dim test As String
   
   Set db = session.CurrentDatabase
   Set db1 = New NotesDatabase(db.Server, "testrun.nsf")   
   Set currDoc = ws.CurrentDocument.Document
   Set rtitem = New NotesRichTextItem( currDoc, "verknuepfung" )
   
   Forall x In currDoc.GetItemValue("Ref")
      Set doc = db1.GetDocumentByUNID(x)
      Call rtitem.AppendText(doc.No(0))
      Call rtitem.AppendText("-")
      Call rtitem.AppendText(Cstr(doc.Version(0)))
      Call rtitem.AppendDocLink( doc, doc.No(0))
      Call rtitem.AddNewline(1)
   End Forall
   
   Call currDoc.Save(False, False)
End Sub} 

Nun, nach dem Code funktioniert das auch, aber nur unter bestimmten Bedingungen. Und zwar das geöffnete Dokument muss erst geschlossen und neu geöffnet werden, zusätzlich darf es beim Schliessen nicht gespeichert werden(sonst wird das RichTextItem gebügelt), damit der Link angezeigt wird. 

Gibt es da irgend eine andere Möglichkeit so etwas umzusetzen? Oder mache ich was falsch?

Bin dankbar für jeden Hinweiss!

Gruß

Dimitri

[m3]

Genau so wirds gemacht.

[diwi]

Der Weg ist aber ... na ich sage mal Suboptimal, da der Link halt nicht sofort im geöffnetem Dokument angezeigt wird. Da werden meine User meckern.   

Deswegen wäre eine Lösung mit der man den Link im gerade bearbeiteten Dokument direkt anzeigen kann schon toll! 

Gruß

Dimitri

[Glombi]

Dann gehts nur mit Formelsprache.

Die relevanten Befehle sind @Command( [EditMakeDocLink] )  und @Command( [EditPaste] )

Andreas

[Peter Klett]

Such mal hier im Forum. Bernhard (koehlerbv) hat hier mal was geschrieben, wie man einen Dateianhang mittels Profildokument sofort sichtbar einfügen kann, gleiches wird auch mit Links funktionieren

[diwi]

Dann gehts nur mit Formelsprache.

Die relevanten Befehle sind @Command( [EditMakeDocLink] )  und @Command( [EditPaste] )

Andreas

Habe das das wie folgt versucht:
@Command([FileOpenDatabase];@ServerName:"testrun.nsf";"ALLStatus";@Text(TestRunNo);"0";"1");
@Command([EditMakeDocLink]);
@Command([FileCloseWindow]);
@Command([EditGotoField];"verknuepfung");
@Command([EditPaste]);
Das funktioniert aber leider nich ganz ... da er das @Command([EditGotoField];"verknuepfung") in der View der anderen DB auszuführen versucht und dem entsprechend einen Fehler bringt. 

Such mal hier im Forum. Bernhard (koehlerbv) hat hier mal was geschrieben, wie man einen Dateianhang mittels Profildokument sofort sichtbar einfügen kann, gleiches wird auch mit Links funktionieren

Hmm ... finde den Beitrag leider nicht. 
Kannst du mir da bitte noch auf die Sprünge helfen?


Danke

Gruß

Dimitri

[Peter Klett]

Hier ist das Thema mal angerissen. Falls Du damit nicht klar kommst, nochmal nachfragen

http://atnotes.de/index.php/topic,50061.msg321682.html#msg321682

[diwi]

Sooo...

ich habe das jetzt so gelöst:

@For(n:=1; n<=@Elements(TestRunNo); n:=n+1;
@PostedCommand([FileOpenDatabase];@ServerName:"testrun.nsf";"ALLStatus";@Text(TestRunNo);"0";"1");
@PostedCommand([EditMakeDocLink]);
@PostedCommand([FileCloseWindow]);
@PostedCommand([EditGotoField];"verknuepfung");
@PostedCommand([EditInsertText]; @Text(TestRunNo[n]));
@PostedCommand([EditPaste]);
@PostedCommand([EditInsertText]; @NewLine))

Das scheint auch ganz gut zu funktionieren, bis auf eine Kleinigkeit und zwar:
Das @PostedCommand([EditInsertText]; @NewLine) wird scheinbar vor dem @PostedCommand([EditPaste]); ausgeführt. Zumindest kommt nach dem eingefügten Text zuerst ein Zeilenumbruch und dann erst die Verknüpfung.

Kann man das noch irgendwie unterbinden bzw. steuern?

Gruß

Dimitri

[diwi]

Sooo...

ich habe das jetzt so gelöst:

@For(n:=1; n<=@Elements(TestRunNo); n:=n+1;
@PostedCommand([FileOpenDatabase];@ServerName:"testrun.nsf";"ALLStatus";@Text(TestRunNo);"0";"1");
@PostedCommand([EditMakeDocLink]);
@PostedCommand([FileCloseWindow]);
@PostedCommand([EditGotoField];"verknuepfung");
@PostedCommand([EditInsertText]; @Text(TestRunNo[n]));
@PostedCommand([EditPaste]);
@PostedCommand([EditInsertText]; @NewLine))

Das scheint auch ganz gut zu funktionieren, bis auf eine Kleinigkeit und zwar:
Das @PostedCommand([EditInsertText]; @NewLine) wird scheinbar vor dem @PostedCommand([EditPaste]); ausgeführt. Zumindest kommt nach dem eingefügten Text zuerst ein Zeilenumbruch und dann erst die Verknüpfung.

Kann man das noch irgendwie unterbinden bzw. steuern?

Gruß

Dimitri

Da darauf bis jetzt niemand geantwortet hat gehe ich davon aus dass man das leider nicht beeinflussen kann.

Dann noch mal auf Script zurück ... habe das oben aufgeführte Script etwas abgeändert, was so aussieht:

_{Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim ws As New NotesUIWorkspace   
   Dim db1 As NotesDatabase
   Dim rtitem As NotesRichTextItem
   Dim doc As NotesDocument
   Dim currDoc As NotesDocument
   
   Set db = session.CurrentDatabase
   Set db1 = New NotesDatabase(db.Server, "testrun.nsf")   
   Set currDoc = ws.CurrentDocument.Document
   Set rtitem = New NotesRichTextItem( currDoc, "verknuepfung" )
   
   Forall x In currDoc.GetItemValue("Ref")
      Set doc = db1.GetDocumentByUNID(x)
      Call rtitem.AppendText(doc.No(0))
      Call rtitem.AppendText("-")
      Call rtitem.AppendText(Cstr(doc.Version(0)))
      Call rtitem.AppendDocLink( doc, doc.No(0))
      Call rtitem.AddNewline(1)
   End Forall
   
   Call currDoc.Save(True, True)
   Call ws.CurrentDocument.Close(True)
   Call ws.EditDocument(True, currDoc, False)
End Sub}

So weit so gut, nur gibt es da auch noch einen kleinen Malus. Und zwar kommt der Speichern Dialog wenn ich das Dokument schließe. 

Kann man den irgendwie unterdrücken oder ohne Useraktion mit "Nein" beantworten?

Gruß

Dimitri

[klaussal]

Code

Kann man das noch irgendwie unterbinden bzw. steuern?

Du möchtest Dich mit dem Thema "Feld SaveOptions" bzw. mit "Tabelle der Felder zum Steuern von Mailoptionen" befassen.

[diwi]

Sooo...

wollte nur mal eben nochmal Rückmeldung geben.

Vielen Dank für die Hilfe bzw. den einen oder anderen Denkanstoss! Kaum weiss man wo man suchen muss, schon wird alles ganz einfach

Hab an das Script noch die folgenden Paar Zeilen drangehängt:

_{Call currDoc.Save(True, True)
Call ws.CurrentDocument.FieldSetText("SaveOptions", "0")
Call ws.CurrentDocument.Close(True)
Call ws.EditDocument(True, currDoc, False)
Call ws.CurrentDocument.FieldSetText("SaveOptions", "1")}


Gruß

Dimitri