Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: hmarco am 12.11.02 - 16:20:04

Titel: Aktualisieren vom Schließen
Beitrag von: hmarco am 12.11.02 - 16:20:04

Hallo,

ich brauche mal einen kleinen Tipp, ich möchte,
das mein Dokument, vor dem schließen einmal aktuallisiert wird.

Dies muss einmal beim Anlegen des Dokumentes und beim ändern des Dokumentes passieren.

Außerdem müssten die Antworten auf das Dokument auch gleichzeitig mit aktualisiert werden.

Habt ihr da eine Idee?

Mfg Marco

P.S.: Ist noch ein Problem mit meiner gruseligen Passwortdatenbank. ;D

Titel: Re:Aktualisieren vom Schließen
Beitrag von: rar am 13.11.02 - 09:45:00

Theoretisch solltest du im Querysave mit uidoc.Refresh() das Dokument vor dem Schließen aktualisieren können.
Und die Antworten kriegst du im QS mit Document.ComputeWithForm() so hin.
z.B.:
   Dim doc As notesDocument
   Dim resp As NotesDocument   
   Dim coll As NotesDocumentcollection
   Set coll = doc.Responses
   Set resp = coll.GetFirstDocument   
   Do While Not resp Is Nothing
      Call resp.ComputeWithForm(True,True)
      Call resp.Save(True,True)
      Set resp = coll.GetNextDocument(resp)
   Loop
lg
-rar

Titel: Re:Aktualisieren vom Schließen
Beitrag von: hmarco am 13.11.02 - 09:57:01

Hallo,

danke für das Skript,  :-*

jedoch bekommen ich eine Fehlermeldung:

"Object Variable not set"

Was kann das bedeuteten.

Scheint bei diesem Befehl aufzutreten:

   Set coll = doc.Responses

Mfg Marco

Titel: Re:Aktualisieren vom Schließen
Beitrag von: rar am 13.11.02 - 10:36:49

Du mußt das doc natürlich zuweisen. Im Querysave  z. B. mit
set doc = Source.Document

Titel: Re:Aktualisieren vom Schließen
Beitrag von: hmarco am 13.11.02 - 10:50:19

Hallo,

geht leider immer noch nicht.  :'(

Ich hänge mal meine Paswortdatenbank an.

Dieses Skript habe in in der korregierten Fassung in der Maske Kunde,
jedoch noch nicht in der Maske Teilprojekt.

Würdest du dir das wohl einmal ankucken.

Mfg Marco

Titel: Re:Aktualisieren vom Schließen
Beitrag von: rar am 13.11.02 - 11:24:42

Probier mal dasda

Dim doc As NotesDocument
Dim resp As NotesDocument
Dim coll As NotesDocumentcollection
Set doc = Source.Document
Set coll = doc.Responses
If Not coll Is Nothing Then    
   Set resp = coll.GetFirstDocument
   Do While Not resp Is Nothing
      Call resp.ComputeWithForm(True,True)
      Call resp.Save(True,True)
      Set resp = coll.GetNextDocument(resp)
   Loop
End If

Titel: Re:Aktualisieren vom Schließen
Beitrag von: hmarco am 13.11.02 - 11:48:02

Hallo,

der Fehler tritt nicht mehr auf.  :D

Jedoch macht er die Aktulisierung nicht.  :'(

Es wird nämlich das Skript im QueryOpen vom Teilprojekt
nicht nochmal ausgeführt.

Mfg Marco

Titel: Re:Aktualisieren vom Schließen
Beitrag von: ata am 13.11.02 - 12:16:55

... für die Aktualisierung während der Eingabe nimmst du den Code ins PostRecalc...

ata

Titel: Re:Aktualisieren vom Schließen
Beitrag von: rar am 13.11.02 - 12:44:22

Das ComputeWithForm berechnet nur das Dokument neu. (Formeln in berechneten Feldern und so.) Es fuhrt aber nicht das script im Queryopen aus, da das Dokument ja nicht geöffnet wird.

Du könntest aber das Script aus dem QO des Teilprojektes in das vorherige Script einfügen...

Do While Not resp Is Nothing
  resp.Autor3 = doc.Systemtechniker
  Call resp.ComputeWithForm(True,True)
  Call resp.Save(True,True)
  Set resp = coll.GetNextDocument(resp)
Loop

-rar