Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: wuwu am 05.09.05 - 14:21:25
-
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
-
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.
-
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!
-
hat sich erledigt, sorry!
Der Code war im QueryDocumentUNDELETE, 1000mal drauf geschaut, beim 1001 mal gesehen.
Danke trotzdem! :o :o
Mfg Horst