Archivieren der Reservierungen in der RessourcenDB

[Kaljamam]

Hallo zusammen,

kennt jemand eine Möglichkeit Reservierungen, die z.B. älter sind als 2 Jahre, aus der Ressourcen DB zu archivieren?
On board ist da ja nichts dabei?!

Beste Grüße
Christian

[Thomas Schulte]

Wir können das. Aber wozu willst du das haben?

[Kaljamam]

Wir können das. Aber wozu willst du das haben?

Anfrage von meinem Chef, um die aktuelle Datenbank ein wenig auszudünnen und schlanker zu gestalten.
Ist das ein großer Act?

[Tode]

Und wer braucht 2 Jahre alte Reservierungen?
Warum nimmst Du nicht einfach den Agenten, der mitgeliefert ist, änderst die 2 Tage, die der standardmässig in der Vergangenheit behält in 2 Jahre und machst das, was IBM vorgesehen hat...

[Thomas Schulte]

Deswegen die Frage warum archivieren. :-)

[rambrand]

Hallo Christian,

ist der Hintergrund eher, dass man die ganzen abgelaufenen Reservierungen aus der produktiven Datenbank raus haben möchte?
Oder wollt ihr die wirklich zu Recherchezwecken archivieren?
In der Ressourcendatenbank gibt es einen Agenten, der abgelaufene Reservierungen löscht - PurgeDocuments (Auto).
Ist standardmäßig meines Wissens nach deaktiviert. Dort kann man im Script auch den Zeitraum einstellen.
Rein theoretisch, wenn ihr die Reservierungen unbedingt archiviert haben möchtet, könntet ihr den auch anpassen, dass er die Reservierungen nicht nur löscht, sondern vorher in eine andere (Archiv)Datenbank verschiebt.

Bye,
Markus

[Kaljamam]

...ja Thema ist, dass wir die Daten noch zu Recherchezwecken benötigen.

Ok den Löschagenten kenne ich. Müsste ich hier umschreiben

Call purgedate.AdjustDay (-2)
Set doc=dc.GetFirstDocument

Hat jemand aber da nen fertigen Code im Einsatz, der die Doks in eine andere DB schiebt oder mir nen Ansatz wie ich so was bauen kann?

[DominoDancing]

Hallo Christian,

wenn's das so:

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

auch unter R9 noch gibt, dann vor dem doc.Remove (True) einfach ein Call doc.CopyToDatabase(db2) einfügen. Natürlich muss dann irgendwo weiter oben noch Dim db2 As NotesDatabase und Set db2 = s.GetDatabase(server, file) stehen. server und file sind als Strings zu hinterlegen, die Server und Pfad Deiner "Archivdatenbank" enthalten.

Natürlich kannst Du vor dem Call doc.CopyToDatabase(db2) das Dokument noch entsprechend manipulieren, indem Du beispielsweise den Archivierungszeitpunkt im Dokument speicherst o.Ä.. Ja und natürlich müsste Call purgedate.AdjustDay (-2) noch entsprechend geändert werden. So sollte das dann funktionieren.

Viele Grüße
René

[rambrand]

Entweder wie René geschrieben oder wenn ein paar Eckdaten der Reservierung reichen (wer, was, von wann, bis wann?), dann würde ich ein neues Dokument in einer (Archiv)Datenbank anlegen. Maske kannst ja dann entsprechend eurem Gusto anlegen. Wäre etwas schlanker, also die ganze Ressourcendatenbank nochmals als Archivdatenbank anzulegen.

Und dann halt die Informationen, die ihr braucht in dieses Dokument reinpumpen.
Wenn das passiert ist, die Original-Reservierung löschen lassen.

Natürlich würde ich den Code aus dem PurgeDocuments in einen neuen Agenten packen, die Gestaltung gegen Veränderung sichern und dort dann modifizieren.

Code würde ungefähr so aussehen:

Dieser Teil bei den Deklarationen setzen

Code

dim archivdoc as notesdocument
dim archiv as new notesdatabase ("","")
if not archiv.open(Server,Datenbankdatei) then
  [s]messagebox "Kann Archvidatenbank nicht öffnen"[/s] {ist bei einem Agenten der auf dem Server läuft natürlich doof  ;D }
  exit sub
end if

Diesen Teil direkt vor dem doc.remove setzen

Code

set archivdoc = archiv.createdocument
with archivdoc
  .form = "Name der Maske"
  .feld1 = doc.feldwasauchimmer(0)
  .
  .
  .
end with
call archivdoc.save(true,false) 

Bye,
Markus

[Kaljamam]

Vielen Dank für die zahlreichen Tipps!
Damit komme ich klar. Werde die Tage was basteln!
Danke für die Unterstützung!

[Jörg P.]

Das müsste doch auch mit Bordmitteln, ganz ohne Scripterei gehen. Einfach in den DB Eigenschaften die Archivierung konfigurieren, ggf. noch ein Programmdokument für ein compact -a auf die Anwendung, und fertig....

Hab ich selber allerdings so noch nie gemacht 

[Kaljamam]

Das müsste doch auch mit Bordmitteln, ganz ohne Scripterei gehen. Einfach in den DB Eigenschaften die Archivierung konfigurieren, ggf. noch ein Programmdokument für ein compact -a auf die Anwendung, und fertig....

Hab ich selber allerdings so noch nie gemacht 

Die Archivierungseinstellungen ziehen nach meinen Recherchen nur für Mailfiles....kann man leider nicht für andere Datenbanken verwenden, daher braucht man schon die ganze "Scripterei". 

[Pfefferminz-T]

Leider nicht richtig, ich verwende die Archiveinstellungen im Zusammenhang mit dem compact -A bei mehreren Kunden z.Bsp. für die Log-Datei, so dass diese nach drei Tagen archiviert wird und nicht allzu gross wird... die Archiveinstellungen funktionieren für alle Datenbanken!

Gruss,
Thorsten