Hallo zusammen
hier mal der Code:
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
Wäre immer noch hilfreich wenn jemand eine Lösung hat.
Gruß Alex