Normalerweise ist es ja so, das wenn ein Haupftdok gelöscht wird auch die Antworten und alle Rückantworte gelöscht werden.
Hi,
wieso soll das normalerweise so sein?
Normal ist das so, wenn du ein Hauptdokument löschst, dann ist es weg (logisch, so soll's ja auch sein). Aber evt. vorhandene Antwortdoks sind nach wie vor noch in der DB als Leichen vorhanden. Sie werden nicht gelösct.
Das ist bei Antwortdocs die Rückantworten haben genauso. Wird das Antwortdokument gelöscht, bleibt die Rückantwort als Leiche im Keller.
Du musst selbst dafür sorgen, dass evt. vorhandene Antworten mit gelöscht werden.
Füge dazu im Datenbankscript im PostDocumentDelete - Event folgenden Code ein:
Sub Postdocumentdelete(Source As Notesuidatabase)
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim i As Integer
Set collection = Source.Documents
If collection.Count = 0 Then
Exit Sub
Else
For i = 1 To collection.Count
Set doc = collection.GetNthDocument(i)
Call DeleteResponseDocs(doc)
Call doc.Remove(True)
Next 'For i = 1 To collection.Count
End If 'If collection.Count = 0 Then
End Sub
Die dazugehörige Funktion DeleteResponseDocs sieht so aus:
Sub DeleteResponseDocs (doc As NotesDocument)
Dim responses As NotesDocumentCollection
Dim tmpdoc As NotesDocument
Dim dummy As NotesDocument
Set responses = doc.Responses
Set dummy = responses.GetFirstDocument
While Not (dummy Is Nothing)
Set tmpdoc = responses.GetNextDocument(dummy)
Call DeleteResponseDocs(dummy)
Call dummy.Remove(True)
Set dummy = tmpDoc
Wend 'While Not (dummy Is Nothing)
End Sub
Axel
