Best Practices > Diskussionen zu Best Practices

[Update von Haupt und Antwortdokumente]

(1/4) > >>

umi:
http://www.atnotes.de/index.php?topic=13984.0
Ein Abschnitt zum Thema löschen, wiederherstellen von Haupt-und Antwortdokumenten fehlt irgendwie...

Axel:
Hi,

das Löschen von Haupt- und Antwortdokumenten kannst du so lösen.

Im QueryDocumentDelete - Event des Database-Scriptes fügst du folgenden Code ein:


--- Code: ---Dim collection As NotesDocumentCollection

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

--- Ende Code ---

Der Code der Funktion DeleteResponseDocs sieht so aus:


--- Code: ---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

--- Ende Code ---


Axel

umi:
war eigentlich ne anfrage für die Best Practices.... ;)

Axel:
Hi,

hab' ich auch so verstanden. Ist als Vorablösung zu sehen, bis es in den Artikel eingearbeitet wird.


Axel

umi:
Ok O0

Navigation

[0] Themen-Index

[#] Nächste Seite