Hallöchen!
Ich hab in einer Maske unter LS (eh aus dem Forum) die Prüfung, ob ein Dokument gerade bearbeitet wird. Nun müsste aber beim Queryclose zusätzlich noch eingebaut werden, dass das Dokument als gelesen markiert werden soll, denn wenn das Doku geöffnet wird, wird ins Lock-Feld der Name reingeschrieben, d.h. wenigstens ein Feld im Dokument wurde bearbeitet.
Einem Kollegen aus England ist das aufgefallen und er rätselt nun, warum ein Dokument, das er gerade gelesen hat, nach F9 wieder als ungelesen markiert ist.
Kann mir da jemand weiterhelfen?
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
If strNewDoc="New" Then '(exit if it's a new doc.Set this variable to New in postopen if it's a new doc)
Exit Sub
End If
Dim session As New NotesSession
Dim nnUserName As New NotesName(session.UserName)
If (Strcomp(nnUserName.Common,Source.FieldGetText("Lock"),5)=0) Then
Set docBackend=Source.document
docBackend.Lock=""
Call docBackend.Save(True, True)
End If
End Sub
