Folgendes soll umgesetzt werden:
Per Button wird ein Statusfeld verändert. Das Dokument selbst ist allerdings im Frontend gesperrt über ein Querymodechange Event. Dass der Button den Wert verändert, funktioniert auch. Aber die Änderung des Users wird nicht protokolliert in meiner Dokumenthistorie. Kann man die Änderung des Buttons im Backend mitschreiben oder lieber wie unten im Script das Dokument kurz vom User im Frontend aufmachen lassen, nur um in der Historie zu erscheinen.
(Der Wert stat=100 macht es bearbeitbar, > 100 macht es dicht)
Das Script funktioniert noch dazu noch nicht so, wie ich es will. Es kommt "Object variable not set".
Belehrt mich eines besseren wenn es einfachere Methoden gibt...
Sub Click(Source As Button)
Dim uiws As NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim unid As String
Dim agent As NotesAgent
Set db = session.CurrentDatabase
Set uidoc = uiws.CurrentDocument
Set doc = uidoc.Document
unid = doc.UniversalID
doc.stat="100"
Call doc.Save (False,False,False)
Call uiws.EditDocument( True )
Call uidoc.save
'Setze Feldwert
doc.statusfeld= "angenommen"
doc.stat="666"
'Speichere Doc
Call doc.save(True, True, True)
Call doc.ComputeWithForm(False,False)
NotesUIWorkspace.ViewRefresh
'Schließe UIDOC
Call uidoc.close
End Sub