Dokumente aktualisieren

    Ich habe eine grössere Datenbank die Dokumente enthält die aus einer anderen DB Daten "umspeichert" (mit berechneten Feldern).
    Wenn nun die andere DB upgedated wird muss ich jedes einzelne Dokument aktualisieren um die neuen Daten zu haben.
    Läßt sich das mit nem Agenten machen?
    Wenn ja wie könnte so ein Agent aussehen?


    Die Daten werden mit einer DBLookup in berechnete Felder eingetragen.

    Hi,


    es gibt zwei Formel-Befehle:


    @Command([ToolsRefreshSelectedDocs])
    Berechnet markierte Dokumente neu.


    @Command([ToolsRefreshAllDocs])
    Aktualisiert alle Dokumente in einer Ansicht.


    Ein Agent könnte so aussehen:


    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim collection As NotesDocumentCollection
    Dim doc As NotesDocument


    Set db = session.CurrentDatabase
    Set collection = db.AllDocuments


    Set doc = collection.GetFirstDocument
    While Not (doc Is Nothing)
    Call doc.ComputeWithForm(True,False)
    Call doc.Save(True,True)
    Set doc = collection.GetNextDocument(doc)
    Wend


    Ich hab den Agent nicht getestet, müßte aber funktionieren.


    Axel