Problem mit Responses

[TomLudwig]

Hallo ich habe folgenden Quellcode und möchte damit alle meine Antwortdokumente löschen

Sub deleteChilds (source As Notesuidocument)
   
   Dim doc As NotesDocument
   Dim responses As NotesDocumentCollection
   Dim dummy As NotesDocument
   Dim tmpdoc As NotesDocument
   
   Set doc = source.document
   Set responses = doc.Responses
   Set dummy = responses.GetFirstDocument
   While Not (dummy Is Nothing)
      Set tmpdoc = responses.GetNextDocument(dummy)
      Call dummy.Remove(True)
      Set dummy = tmpdoc
   Wend
   
End Sub

Die Variable "responses" ist aber nicht gesetzt. Muss das Hauptdokument gespeichert sein umd die Antwortdokumente zu löschen?

[klaussal]

... in der designer hilfe ist ein gutes beispiel. ein bisschen "verbiegen" und es sollte mit deiner anforderung gehen.

[TomLudwig]

Ich hab in der Hilfe nur ein Beispiel gefunden, welches beschreibt, wie man Dokumente in irgendwelche Ordner verschiebt.

Da wird aber nichts davon gesagt ob das Hauptdokument gespeichert sein muss. Oder wie man das umgeht....

[klaussal]

... also: das hauptdok muss gespeichert sein (sonst gäbe es ja wohl keine antwort-docs, oder ?).
in dem beispiel gibt es einen knopf, der alle doks incl haupt-dok in einen ordner verschiebt. verbiegen = anstatt in ordner verschieben = löschen und das hauptdok unangetastet lassen.

[TomLudwig]

Meine Antwortdokumente estelle ich mit LotusScript. Diese sind auch gespeichert.

Wenn ich nun das Hauptdokument nicht speichern will, sollen automatisch die erstellten Antwortdokumente und das Hauptdokument gelöscht werden.

Also müsste ich theoretisch:
1. Das Hauptdokument speichern
2. Die Antwortdokumente löschen
3. Das Hauptdokument schließen
4. Das Hauptdokument löschen

 Das löschen der Antwortdokumente wird in QueryClose aufgerufen.
Zwischen Punkt 3. und 4. hab ich dann ein Problem. Wie lösche ich ein geschlossenen Dokument? In welcher Ereignis Routine?

[klaussal]

....ungefähr so:

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  Dim doc As NotesDocument
 Set doc = source.document
 doc.FLAGDELETE = "1"
 Call doc.save (True, True)
End Sub
-----------------------------------------------------
'in der view sind alle docs mit flagdelete = "1"

Set view = db.getView(".DELETEVIEW")
 Call view.Refresh
 Set doc = view.getFirstDocument
 Do While Not doc Is Nothing
  Call doc.remove(True)   
  Call view.refresh
  Set doc = view.getFirstDocument
 Loop
Call ws.viewRefresh
Exit Sub

[TomLudwig]

Ich habe das Flag auf 1 gesetzt. Es ist somit in meiner Ansicht.
Nun möchte ich alle Dokumente in der Ansicht löschen. Das funktioniert aber erst, wenn ich das Hauptdokument geschlossen habe.

Wo kann ich das löschen aller Dokumente implementieren? Es gibt meineswissens keine Ereignisroutine "PostClose" oder der gleichen.

Bitte um Hilfe....

[klaussal]

im querysave abfragen, ob doc gespeichert werden soll oder nicht. wenn "nein", dann alle antwort-docs löschen, wenn "ja", dann eben nicht löschen.