Problem mit QueryDocumentDelete

[wuwu]

Hallo,

hier mien Code im QueryDocumentDelete:

Dim antwort As Integer
   Dim datetime As New NotesDateTime(Now)   
   
   antwort = Msgbox("Sollen wirklich alle markierten Dokumente gelöscht werden?", 292, "Frage")
   If antwort <> 6 Then
      continue = False
      Exit Sub
   End If
   Dim session As New notessession
   Dim uiws As New NotesUIWorkspace
   Dim dc As Notesdocumentcollection
   Set dc = Source.Documents
   Dim doc As NotesDocument
   Dim doc_temp As NotesDocument
   Set doc = dc.getFirstDocument
   
   While Not doc Is Nothing
      Set doc_temp = dc.GetNextDocument(doc)
      doc.~$DeletedDoc = datetime.DateOnly & "#" & session.UserName
      Call doc.save(False, False)   
      Set doc = doc_temp
   Wend
   Msgbox dc.Count & " Dokument(e) gelöscht.", 64, "Information"
   Call uiws.ViewRefresh
   Continue = False

Meine Frage:
1. Wenn ich jetzt enferne drücke wird das Dokument zum löschen markiert, aber er fragt nicht gleich ab ob er es löschen soll.
2. Das Kreuz zum löschen bleibt auch vorhanden wenn das Dokument in die andere Ansicht wechselt, warum?

zur Info -> Soft Delete in den DB Eigenschaften ist markiert
Mfg Horst

[diali]

hast Du die DB mal geschlossen im Designer und Notes? Mach am besten beides zu und starte Notes neu.

Bei QueryDocumentDelete ist ein Datenbank-Script, diese ziehen erst, wenn die DB vollständig geschlossen wurde.

[wuwu]

Hallo,

Danke für die schnelle Anwort!
Habe ich bereits vorher gemacht, deshlab besteht das Problem trotzdem.

Wie gesagt, beim ersten entfernen setzt er das Kreuz, beim 2x entfernen fragt er erst nach, führt das löschen(verschieben in die andere Ansicht) aus.
Wenn man dan in die andere Ansicht sieht, ist das Kreuz nach wie vor gesetzt!

[wuwu]

hat sich erledigt, sorry!
Der Code war im QueryDocumentUNDELETE, 1000mal drauf geschaut, beim 1001 mal gesehen.

Danke trotzdem!

Mfg Horst