Domino 9 und frühere Versionen > ND8: Entwicklung

Frontend-Backend Probleme

<< < (3/3)

sja:
Hallo Zusammen,


also, mit dieser Lösung

Sub Querymodechange(Source As Notesuidocument, Continue As Variant)   
   If Source.EditMode Then
      Exit Sub
   End If
   Continue = False
   Dim doc As NotesDocument
   Set doc = Source.Document
   Dim unid As String
   unid = doc.UniversalID
   
   doc.SaveOptions = "0"
   Call Source.Close
   Delete doc
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Set db = session.CurrentDatabase
   Set doc = db.GetDocumentByUnid (unid)
   
   Dim workspace As New NotesUIWorkspace
   Call workspace.EditDocument (True, doc)
   
End Sub

Sub Postmodechange(Source As Notesuidocument)
   Source.Reload
End Sub


doch funktioniert, ich musste nur noch dazu einen Script, der verschiedene  Bewertungen und Funktionen ausführt,  aus QueryClose in den QuerySave verschieben.


Noch mal herzlichen Dank für die Hilfe!

Grüße

Sofia

Navigation

[0] Themen-Index

[*] Vorherige Sete