Domino 9 und frühere Versionen > Entwicklung

gelesen - ungelesen

(1/1)

mgeidl:
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

koehlerbv:
Die problematische Zeile ist
   Call docBackend.Save(True, True)

Werden Doks im Backend gespeichert, gelten sie als ungelesen.
NotesDocument.Save hat dafür den vergessenen dritten Parameter - True setzt das gespeicherte Dok für den Speicherer auf gelesen.

HTH,
Bernhard

PS: Warum steht denn der zweite Parameter auf True (CreateResponse) ?

mgeidl:
????

Keine Ahnung, den Code hab ich hier aus dem Forum, sollte der auf (true, false) stehen????

Sag mal Bernhard, was ich schon wissen wollte, was heisst eigentlich dein HTH???

lg
Marietta

koehlerbv:
Dein Problem löst
NotesDocument.Save (True, False, True)
Ist (logischerweise) in der DesignerHelp gut erklärt.

Hope That Helps ;-)
Bernhard

mgeidl:
Danke!

Du hast mir sehr geholfen!!!

Marietta

Navigation

[0] Themen-Index