Domino 9 und frühere Versionen > ND6: Entwicklung

Link zwischen Dokumenten zweier DB herstellen

<< < (2/2)

Driri:
Mit einem Refresh wirst Du da nicht weit kommen. Du mußt das Background-Dokument erstmal speichern und dann ein Reopen machen.

Such mal im Forum nach "Reopen", da gabs schon Beiträge mit fertigem Script zu. Glaube Ata hatte das mal gebastelt.

..Andreas..:
Vorausgesetzt Du verwendest R6 kannst Du auch die NotesURL (Property von NotesDocument, ab R6 auch nicht mehr nur für COM verfügbar) des verlinkten Dokumentes in ein Feld wegschreiben.

Dann kannst Du über ein einfaches <a href=... (Pass-Thru HTML, mit der NotesURL als Computed Text dazwischen, und Maskeneigenschaft Render pass through HTML in Notes) den gleichen Effekt erzielen. Noch ein bisschen mit Verbergeformeln und aussagekräftigen Linktexten ausstatten, und die Nutzer werden Dich dafür lieben. ;)

Andreas

Alexis:
Hallo Forum,

habe das Problem mit Hilfe der Technote der IBM gelöst (siehe Code). Nur ein Punkt bekomme ich nicht hin. An der ausgewiesenen Stelle im Script möchte ich die Maske im Wokspace bearbeiten können und erst dann den Code fortsetzen. Wie stelle ich das an?

Sub Click(Source As Button)
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim uidocNew As NotesUIDocument
   Dim docRes As NotesDocument
   Dim docBew As NotesDocument 
   Dim dbbw As NotesDatabase
   Dim doc As NotesDocument
   
   Set uidoc = ws.CurrentDocument                         
   Set docRes = uidoc.Document                        
   Set dbbw = New NotesDatabase("", "")                      
   Call dbbw.OpenByReplicaID( "Server","ID" )
   Set docBew = New NotesDocument(dbbw)                 
   docBew.Form = "Bewi"                                                             
   docBew.Personen = docRes.Capacity                   
   docBew.Raum = docRes.ResourceName               
   docBew.Datum = docRes.StartDateTime                
   docBew.Von = docRes.StartDateTime                
   docBew.Bis = docRes.EndDateTime    
   Set uidocNew = ws.EditDocument(True, docBew)   
   Set rtitem = New NotesRichTextItem( docRes, "Link" )    
   Call rtitem.AppendText("Link to Service Order (to change)  --> ")
   Call rtitem.AppendDocLink( docBew, "" )
   docRes.Form = "Reservation"
   Call docRes.Save(False,False)
   docRes.saveoptions = "0"
   Call uidoc.Close

   ' An dieser Stelle sollte der Workspace mit docBew zum Editieren offen sein   

   Call ws.EditDocument(True,docRes,False)
   Set docRes = uidoc.Document
   Dim view As NotesView
   Set db = session.CurrentDatabase
   Set view = db.GetView("ResByDate")
   Call view.Refresh
End Sub

Alexis

Navigation

[0] Themen-Index

[*] Vorherige Sete