Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: batto68 am 07.04.03 - 08:49:46

Titel: Archivierung nach Zuständen
Beitrag von: batto68 am 07.04.03 - 08:49:46

Hallo,

ich habe folgende Frage:

gibt es eine Möglichkeit eine Archivierung durchzuführen, die nicht nach Tagen archiviert, sondern nach bestimmten Zuständen? Ich habe da nämlich eine Projektdatenbank erstellt und möchte nicht nach einer bestimmten Zeit archivieren, sondern Projekte sollen archiviert werden, die den Zustand "abgeschlossen" haben.

Ich hoffe ich habe mich deutlich genug ausgedrückt und

sage schon mal vielen Dank im Voraus.

Titel: Re:Archivierung nach Zuständen
Beitrag von: klaussal am 07.04.03 - 11:08:22

... ich glaube, da musst du selber hand anlegen  :(

Titel: Re:Archivierung nach Zuständen
Beitrag von: ata am 07.04.03 - 12:12:54

... das einfachste wird sein, daß du dir einen Agenten schreibst, der diesen Zustand auswertet, und die gefunden Dokumente dann in deine Archiv-Datenbank verschiebt...

ata

Titel: Re:Archivierung nach Zuständen
Beitrag von: ata am 07.04.03 - 12:17:48

... ich habe dir Code dazu...

Dim session As New NotesSession
        Dim db As NotesDatabase
        Dim arcdb As New NotesDatabase("" , "Archiv.nsf")
        Dim dc As NotesDocumentCollection
        Dim doc As NotesDocument
        Dim wert As Variant
 
        Set db = session.CurrentDatabase
        Set dc = db.AllDocuments
        Set doc = dc.GetFirstDocument
        While Not doc Is Nothing
            wert = doc.GetItemValue("Status")
            If wert(0) = "Abgeschlossen" Then
                Call doc.CopyToDatabase(arcdb)                
            End If
            Set doc = dc.GetNextDocument( doc )
        Wend
' # Sollten die Dokumente gelöscht werden, dann noch
        Call dc.RemoveAll

ata