Domino 9 und frühere Versionen > Entwicklung

+++ Q: Automatisches Generieren eines DocLinks +++

<< < (3/3)

feel_x:
Hi,

Ich hab das auch über LS gelöst,
bei mir wählt man im Feld "Ort" per Picklist einen Ort aus,
das Querysave-skript sucht in der Ansicht "Tagungsorte" nach dem Dokument mit dem gleichen Titel und generiert im versteckten Feld "OrtsLinkText" einen Link, den ich dann von einem weiteren Feld aus aufrufen kann.

Der Link funktioniert nach dem speichern des Dokumentes.
Das ganze ist besonders praktisch bei Dialoglisten oder Auswahllisten :)

skript:


Sub Querysave(Source As Notesuidocument, Continue As Variant)
   Dim session As New notessession
   Dim db As NotesDatabase
   Set db = session.CurrentDatabase
   
   Dim backendDoc As NotesDocument
   Set backendDoc = Source.Document 'get the backend doc
   
   Dim newProjectDoc As NotesDocument
   Dim view As NotesView
   
   Dim strOrt As String
   Dim server As String, serverNName As NotesName
   Dim dbpath As String
   
   server = db.Server
   Set serverNName = New NotesName(server)
   dbpath = db.FilePath
   strOrt = Source.FieldGetText("Ort")
   If strOrt <> "" Then
      Set view = db.GetView( "Tagungsorte" ) ' Zielview sortiert nach Suchfeld
      Set newProjectDoc = view.GetDocumentByKey( strOrt, True )  'Zieldokument
      If Not(newProjectDoc Is Nothing) Then
         backendDoc.OrtsLinkText = "notes://" & serverNName.Common & "/" & dbpath & "/" & view.Name & "/" & newProjectDoc.UniversalId & "?OpenDocument"
         Call backendDoc.Save( True, False )
         Call Source.Refresh
      Else
         Msgbox  "Achtung, Fehler! verlinktes Dokument nicht gefunden"
      End If
   End If      




Gruß, feel_x

Navigation

[0] Themen-Index

[*] Vorherige Sete