@Command([ToolsRefreshAllDocs])

[Gruenkohl]

Hallo zusammen,

ich möchte mit dem Befehl "@Command([ToolsRefreshAllDocs])" in einem Agenten alle Dokumente in einer DB aktualisieren.

Dabei verweise ich im Agenten auf eine Ansicht mit allen Dokumenten.
Der Agent ist auf "Einmal Ausführe (@Befehle können verwendet werden)" und auf "Manuell aus der Liste der Agenten" gestellt.

Die Felder um die es sich handelt (@DBlookUp) werden aber erst aktualisiert, wenn ich das Dokumente öffne und F9 drücke.
Bei Feldern die nach der Validierung aktualisiert werden, bekomme ich den richtigen Wert schon nach dem Öffnen aber nicht in der View angezeigt.

Kann mir jemand sagen, woran das liegt?

Danke und Gruss
Andreas

[sloe]

Hi,

Schuß ins Blaue: Feld ist Berechnet zur Anzeige?

[Gruenkohl]

@sloe:
Nein 

[flaite]

Die Werte der Welte werden im Postopen, Postrecalk oder einem sonstigen LotusScript Event gesetzt

[mibo11]

Dabei verweise ich im Agenten auf eine Ansicht mit allen Dokumenten.
Der Agent ist auf "Einmal Ausführe (@Befehle können verwendet werden)" und auf "Manuell aus der Liste der Agenten" gestellt.

Blöde Frage, ist die entsprechende Ansicht denn auch geöffnet?

Aktualisiert die Felder aller Dokumente in einer Ansicht bzw. einem Ordner.
Syntax
@Command([ToolsRefreshAllDocs])
Verwendung
In einer Datenbank muß eine Ansicht oder ein Ordner geöffnet sein.

Gruß Sascha

[Gruenkohl]

Danke erst mal für die Antworten:

@kennwort:
Nein, die Felder sind berechnet mit einem DBLOOKUP.

@mibo11:
Gute Frage. Der Agent wird per Knopf aus der Ansicht X gestartet.
In dieser Ansicht sind nur 50 Dokumente und der Agent hat am Anfang auch nur diese berücksichtigt.
Dann habe ich im Agenten voher @Command([OpenView] ; "Alle Dokumente" ); eingefügt.
Dann gibt er beim Aktualisieren die Dokumentenmenge an, die in der DB vorhanden sind(Eigenschaften->Dokumente)

Gruss Andreas

[sloe]

Hier hatte anscheinend jemand dasselbe Problem

http://www-10.lotus.com/ldd/nd6forum.nsf/0/210a011746b6da0f85256e5400733c3f?OpenDocument

und löste es so:

Dim db As NotesDatabase
Dim session As New NotesSession
Dim view As NotesView
Dim doc As NotesDocument

Set db = session.currentdatabase
Set view = db.GetView("Alle Dokumente")
Set doc = view.GetFirstDocument
If Not doc Is Nothing Then
While Not doc Is Nothing
If doc.computewithform(True, True) Then
Call doc.save(True, True)
End If
Set doc = view.GetNextDocument(doc)
Wend
End If