loeschen von Haupt- und Antwortdokumenten funktioniert nicht!

[kevisback]

Hallo,

wie die Suchfunktion den Link

http://www.atnotes.de/index.php?topic=13839.0;prev_next=prev

hergab, so bin ich den Instruktionen zum Loeschen von Haupt- und Antwortdokumenten gefolgt, aber meine Response-Docs werden einfach nicht geloescht.

Muss ich noch irgendwas einstellen, was dort nicht erwaehnt wird?


Danke fuer eure Hilfe!!

[Axel]

Hi,

eigentlich sollte das so, wie im Link beschrieben, funktionieren.

Wie sieht den dein Code aus und wo hast du ihn den eingefügt? Ein paar mehr Infos wären nicht schlecht. Meine Kristallkugel ist noch etwas vom Nebel der Nacht beschlagen.


Axel

[kevisback]

wie es beschrieben ist,
d.h. bin ins Database Script, habe eine Sub angelegt:

Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Set collection = Source.Documents
   
   If collection.Count > 0 Then
      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


und die andere:

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


wenn ich nun das parent loesche (del + F9), hard delete, dann sind die Kinder noch auf der DB....

[Axel]

Hi,

auf den ersten Blick sehe ich keinen Fehler. Woran siehst du, dass die Antwortdokumente noch in der DB sind?

Lass den Code mal mit dem Debugger laufen. Dazu musst du aber ins QueryDocumentDelete-Event eine Messagebox - Anweisung einfügen, sonst klappt das nicht mit dem debuggen.


Noch eine Anmerkung: der Code wäre im PostDocumentDelete besser aufgehoben. Denn dann erfolgt die Löschung erst nach dem Drücken von F9. Steht der Code im QueryDocumentDelete wird bereits mit dem Drücken der Entf-Taste gelöscht. Damit ist die Notes-Funktionalität, dass man eine Löschmarkierung wieder rückgängig machen kann, in dem man nochmal die Entf-Taste drückt, ausgehebelt.


Axel