Archivierung alter Dokumente aus der Ressourcen-DB

Hallo zusammen,

wir nutzen die Ressourcen-DB. In dieser läuft der Standard-Agent, der Dokumente, deren Termin älter wie 2 Tage ist, löscht. Da wir auch unseren Fuhrpark darüber verwalten, kommen immer wieder Anfragen, ob man kurz mal nachschauen kann, wer am "soundsovielten" dieses Auto hatte.
Welche Lösungen gibt es, um die alten Dokumente zu archivieren?
1. Die Notes-eigene Archivierung
2. Den Agenten der Ress-DB so umschreiben, dass er die "alten" Dokumente nicht löscht, sondern in eine andere DB verschiebt.

Zu 1.: Meiner Meinung kann die Archivierungsfunktion nicht die Dokumente der vergangenen Tage archivieren, da man dies nicht explizit einstellen kann. Man kann doch nur sagen, dass er alles was älter wie x Tage ist, archiviert. - Oder bin ich da falsch gewickelt???

Zu 2.: Kann mir jemand den Standardagenten so umschreiben, dass er die Dokumente vor dem löschen in eine andere DB rumkopiert?

Grüße & schon mal vielen Dank für eure Ideen

wuhogo

Hallo zusammen,

der Austausch an Ideen hat mich weitergebracht. Ich habe mit meinen sehr begrenzten Designerkenntnissen aus der Designer I Schulung den Standard-Agenten abgeändert. So dass bevor die vergangenen Dokumente gelöscht werden, diese in eine Archivdatenbank kopiert werden. Diese DB hat natürlich auch die ResDB-Schablone.

Falls es jemand braucht, poste ich hier den Code. Ferner muss ich auf einen Bug hinweisen, da der Agent out-of-the-boc nicht läuft.
>> Dim purgedate As New NotesDateTime ("Heute")
ist im Auslieferungszustand "Today". Bei unserer Serverversion lief der Agent dann nicht.

Grüße

wuhogo

P.S. Schade dass die Einrückungen nicht mit gepostet werden.....

---------------------------------------------------------
Agent der alle vergangenen Dokumente kopiert und danach löscht:

Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim db_archiv As New NotesDatabase( "", "RessArch.nsf" )
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim nextdoc As Notesdocument
Dim tmpdt As New NotesDateTime("")
Dim purgedate As New NotesDateTime ("Heute")
Dim n As Integer
Dim StartDate As Variant
Dim OkToPurge As Integer
Set db=s.CurrentDatabase
Set dc=db.UnprocessedSearch("@Contains(Form;""Reservation"")", tmpdt,0)

' Die folgende Zeile wurde auskommentiert, da alle Termine älter wie heute selektiert werden sollen
' Call purgedate.AdjustDay (-2)
Set doc=dc.GetFirstDocument

While Not (doc Is Nothing)

If doc.HasItem("$NoPurge") Then
StartDate=doc.GetitemValue("$NoPurge")
Else
StartDate=doc.GetitemValue("StartDateTime")
End If

Forall eachstartdate In StartDate
Dim tmpstartdate As New NotesDateTime(eachstartdate)
If purgedate.TimeDifference(tmpstartdate)>0 Then

OkToPurge=True
Else

OkToPurge=False
Goto DoNextDocument
End If

End Forall

If OkToPurge Then
Call doc.CopyToDatabase(db_archiv)
Set nextdoc=dc.GetNextDocument (doc)
doc.Remove (True)
Else
Call s.UpdateprocessedDoc(doc)
End If

DoNextDocument:
If doc Is Nothing Then
Set doc=nextdoc
Else
Set doc=dc.GetNextDocument (doc)
End If
Wend


End Sub