PlanetNTF

Ist in einer Anwendung das Sperren von Dokumenten aktiviert (Hardlocking), so erhält man beim Löschen von Dokumenten nachfolgende Fehlermeldung:

„Das Sperren von Dokumenten ist aktiviert. Sie müssen das Dokument sperren, um es zu löschen.“

Dieses Problem löst man am einfachsten, indem man im QueryDocumentDelete des Datenbankscripts das Dokument wie beschrieben sperrt:

Dim ns as New NotesSession
Dim ndb as NotesDatabase
Dim collection as NotesDocumentCollection

Set ndb = ns.CurrentDatabase
Set collection = Source.Documents
Set doc = collection.GetFirstDocument 

While Not (doc Is Nothing)
Call doc.Lock(session.Effectiveusername, False)
Set doc = collection.GetNextDocument(doc)
Wend

Oder per Formel, falls sich noch keine anderer Script-Code im QueryDocumentDelete befindet:

@DocLock([LOCK])