Domino 9 und frühere Versionen > ND6: Entwicklung

View events von EmbeddedViews

<< < (3/3)

jmanuel:
Hi nochmal,
das ist der Code der im QueryOpen nicht funktioniert.

Dim ws As New NotesUIWorkspace
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim origdoc As NotesDocument
   
   Set db = s.CurrentDatabase
   Set doc = Source.Document   
   Dim op As String

   If doc.HasItem("ORIGINALID") Then
      If Not doc Is Nothing Then
         op = doc.GetItemValue("ORIGINALID")(0)
         If op <> "" Then
            Set origdoc = db.GetDocumentByUNID(op)         
            Call ws.EditDocument(True, origdoc , False,,False)
            Continue = False
            
         End If
      End If
   End If

Hab ihn nun verschoben in den PostOpen und Continue = False mit  Source.Close
ausgetauscht. Das Öffnen der Originaldokuments funktionert nun. Auf diese Weise leidet zwar die Performance, aber es Funktioniert.

Danke auch allen.

Navigation

[0] Themen-Index

[*] Vorherige Sete