hallo klaussal,

Ich habe schon so was probiert, abe es funzt nicht!

Sub Initialize
   
   Dim session As New notessession
   Dim db As notesdatabase
   Dim doc As notesdocument
   Dim view As notesview
   
   Set db = session.currentdatabase
   Set view = db.getview("Kunden")
   Set doc = view.GetFirstDocument
   
   While Not(doc Is Nothing)
      
      Call doc.save(False,False)
      Set doc = view.GetNextDocument(doc)
   Wend
End Sub

was mache ich falsch?

Hi,

es geht auch mit Script.

Dazu gibt es in der NotesDocument-Klasse die Methode ComputeWithForm.


Axel

Hi,

natürlich. Hier ist dein Code, entsprechend erweitert.

Sub Initialize
   
   Dim session As New notessession
   Dim db As notesdatabase
   Dim doc As notesdocument
   Dim view As notesview
   
   Set db = session.currentdatabase
   Set view = db.getview("Kunden")
   Set doc = view.GetFirstDocument
   
   While Not(doc Is Nothing)
     
      Call doc.ComputeWithForm(False,False)
      Call doc.save(False,False)
      Set doc = view.GetNextDocument(doc)
   Wend
End Sub

Axel

.. aber sicher doch.

agenten erstellen, der diese ansicht durchkaspert ( set view = "deine ansicht", getfirstdocument... getnextdocument, usw.) doc in edit-modus und wieder doc.save

näheres dazu findes du in der designer-hilfe  

Scheduled Agent (Server) mit editmode und ui... njet!

Ich hab's mal probiert, er berechnet sehr wohl die berechneten Felder.

Axel

nope, macht er leider nicht :
Validates a document by executing the default value, translation, and validation formulas, if any are defined in the document form.

gruss

hab es x-mal probiert, berechnete felder wurden genau keinmal neu berechnet, deshalb musste ich ja auf die trix-loesung zurueckgreifen

gruss

hi *all,

zuerst vielen Dank an Till, Axel und wflamme für die unterstützung. ... , es hat mir sehr viel geholfen,   also danke danke, danke


mit diesem script (Problem berechneten Feldern)   hatte ich auch überhaupt keine Probleme . alle felder wurden sauber und richtig aktualisiert.         DANKE AXEL    

Einen schönen Tag

Jeff

-------------------------------------------------------------------------------------------------------------------
Sub Initialize
   
   Dim session As New notessession
   Dim db As notesdatabase
   Dim doc As notesdocument
   Dim view As notesview
   
   Set db = session.currentdatabase
   Set view = db.getview("Kunden")
   Set doc = view.GetFirstDocument
   
   While Not(doc Is Nothing)
      
      Call doc.ComputeWithForm(False,False)
      Call doc.save(False,False)
      Set doc = view.GetNextDocument(doc)
      
   Wend
   
End Sub