Domino 9 und frühere Versionen > ND6: Entwicklung

Zu löschende Dokument in eine Ordner verschieben

(1/2) > >>

Johnson:
Hallo zusammen,

ich möchte in einer Datenbank zu löschende Dokumente in einen Ordner verschieben. Der User kann zum Löschen die Entf-Taste oder einen Button verwenden. Ganz wie´s ihm genehm ist.

Dazu habe ich im Database Script folgenden Code:


--- Code: ---Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)

Dim dc As NotesDocumentCollection

continue = False

Set dc = Source.Documents
If dc.Count = 0 Then
Print "no documents to delete"
Goto terminate
Else
Call dc.StampAll("OriginalForm", "WordTemplate")
Call dc.StampAll("Form", "")
Call dc.PutAllInFolder("($Trash)", True)
Goto terminate
End If

continue = True

terminate:
Set dc = Nothing
Exit Sub

End Sub
--- Ende Code ---

Problem: Lösche ich ein Dokument wird das Dokument in den Ordner "($Trash)" verschoben. Dann schließe ich die Datenbank, öffne sie erneut, gehe in den Ordner "($Trash)" und die Dokument sind zum Löschen mit dem üblichen "X" markiert, drücke F9 und Notes fragt mich ob ich die Dokumente löschen will????
Ich sag der Prozedur continue = FALSE!!! Also nicht löschen.

Bin ich zu   ??? :P :-:

koehlerbv:
Wo sagst Du "Continue = False"? Ich sehe nur Continue = True als entscheidender Wert.

Bernhard

Johnson:
In der ersten Anweisung:

Dim dc As NotesDocumentCollection

continue = False

Set dc = Source.Documents

Das "continue = True" gilt nacher für Admins. Das muss noch rein.

koehlerbv:
Sorry, ich habe Dein Goto terminate überlesen - mea culpa.

Ich habe jetzt Deinen Code kopiert und bei mir getestet (6.5.4), nur den Ordnernamen habe ich geändert (!). Und bei mir funktioniert das ohne weiteres ... Wie hast Du denn den Ordner ($Trash) gestaltet? Nicht, dass es an diesem liegt.

Bernhard

Johnson:
Right!
Ich hab den Ordner auch mal umbenannt und siehe da... es funzt.

Gracias.

Es liegt am Ordnernamen "($Trash)". Das ist ein Spezialordner für Notes und anscheinend auch mit Spezialfunktionen. Und genau die würd ich trotzdem gern verstehen.

Aus der Hilfe:

--- Zitat ---Many applications benefit from a trash folder that users can drag documents into. The topics are moved into the trash folder and marked for deletion. In a Notes view, the documents remain in the Trash folder until the user either presses F9 to refresh the view, or until the user closes the database and confirms the deletion. If the user does not want to delete the documents, they remain in the trash folder marked for deletion. The user can drag documents back into another view and remove the deletion mark. For an example of a trash folder in an application, see the Lotus Domino Designer 6 mail template.
--- Ende Zitat ---

Nur will ich gerade verhindern, daß die Dokumente "marked for deletion" sind. Also die Dokumente in den Ordner verschoben werden aber beim Schließen der Datenbank oder beim drücken der F9 Taste keine Meldung kommt.
Hat das was mit den Soft Deletion Einstellungen oder anderen Datenbank Einstellungen zu tun?

Um deinen Frage noch zu beantworten: Ich habe eine ganz ordinären Ordner mit zwei Spalten ("Bezeichnung" und "Beschreibung") erstellt und hab ihm den Namen "($Trash)" und den Alias "Trash" vergeben.

Navigation

[0] Themen-Index

[#] Nächste Seite