Sub Postopen(Source As Notesuidocument) Dim ws As New NotesUIWorkspace 'pruefung ob locking aktiv -> wenn ja check auf schon gelockt If (Source.isnewdoc = False) Then If C_DocFunctions_PostOpenDocument(Source.Document) = False Then If source.editmode = True Then 'hier lock auf 2 setzten um queryclose zu verhindern -> nur wenn strg - b direkt editmode CONNECTDocumentIsLocked = 2 Call source.FieldSetText("SaveOptions", "0") Call source.refresh source.editmode = False End If End If End If End Sub
Sub Querymodechange(Source As Notesuidocument, Continue As Variant) 'pruefung ob locking aktiv -> wenn ja check auf schon gelockt If Source.IsNewDoc = False Then If Source.EditMode = False Then If C_DocFunctions_PostOpenDocument(Source.Document) = False Then Continue = False End If End If End If End Sub
Sub Querysave(Source As Notesuidocument, Continue As Variant) Dim errormessage As String Continue = C_DocFunctions_QuerySave(source.Document,errormessage) If Continue = -2 Then ' Abbruch bei Warnung Continue = False Exit Sub End If If continue = False Then IB_MsgBox errormessage , 16, "Co_Eingabefehler" End If End Sub