title image


Smiley Der Agent ist nur die zweitbeste Lösung, weil ...
... ja immer nur in Abständen aktualisert wird. Das heisst, wenn das Hauptdokument geändert wird, stehen in der Ansicht noch so lange die alten Werte, bis der Agent (über Nacht oder wannauchimmer) gelaufen ist. Ich vermeide dieses Problem mit einem Script, das nach dem Speichern des Hauptdokuments alle Antwortdokumente aktualisiert. Tu Folgendes in Deinen PostSave-Event:



Sub Postsave(Source As Notesuidocument)

Dim doc As NotesDocument

Dim rdoc As NotesDocument

Dim dc As NotesDocumentCollection

Dim success As Variant

Set doc = Source.document

Set dc = doc.responses

Set rdoc = dc.GetFirstDocument

i=1

While Not ( rdoc Is Nothing )

success = rdoc.ComputeWithForm( False, False )

If success Then

Call rdoc.Save( False, False )

i=i+1

Print "Aktualisiere Antwortdokument Nr. " & Cstr(i+1)

End If

Set rdoc = dc.GetNextDocument(rdoc)

Wend

If i>1 Then Print Cstr(i-1)+" Antwortdokumente wurden aktualisiert"

End Sub



Kleiner Nachteil hierbei ist, dass bei vielen Antwortdokumenten das "Speichern & Schliessen" recht lange dauert.

Aber wie Du schon sagtest: man kann nicht alles haben ;)



jo@chim
IBM Certified Advanced Application Developer - Lotus Notes and Domino 7


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: