Domino 9 und frühere Versionen > Entwicklung

Problem mit Responses

(1/2) > >>

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?

Navigation

[0] Themen-Index

[#] Nächste Seite