Item ändern mit Aktion

[smokyly]

Guten Morgen.

Wir haben eine Anwendung zugekauft, in der wir Dokumente erstellt haben. In der Maske wird eine versteckte Teilmaske eingebunden und hier wird im Postsave geprüft, ob sich ein bestimmtes Feld geändert hat. Trifft dies zu, wird eine Mail versendet, die einer Mail-IN mitteilt, dass sich was geändert hat.

Jetzt muss in vielen Dokumenten dieses Feld nach einem bestimmten Kriterium geändert werden.
Ich dachte mir, ich schreibe einen Agenten (Formel, nicht Skript)), der zwei Dialogfelder hat "alter Wert" "neuer Wert" und sich dann die Dokumente sucht und den Wert des Items austauscht.

Irre ich mich, wenn ich mir denke, dass dabei aber diese Änderungsmail nicht versendet wird?
Wenn nein, was müsste ich machen, damit die Mail doch versendet wird? Ich brauche keinen Code, sondern nur eine formale Beschreibung der Vorgehensweise.

Vielen Dank schon mal.

Gruss

[umi]

Guten Morgen

Wenn Du das Dokument im Backend (per Agent) änderst, wird der Postsave nicht ausgeführt. Daher wird kein Mail verschickt.

Ist das Mail zwingend nötig? Dann würde ich den entsprechenden Code aus dem Postsave Event in deinen Agenten einfügen oder die Meldung in deinem Agenten generieren.

Gruss

[smokyly]

Hallo und Danke!

Wenn Du das Dokument im Backend (per Agent) änderst, wird der Postsave nicht ausgeführt. Daher wird kein Mail verschickt.

Gut, dann hatte ich das schon richtig verstanden.

Ist das Mail zwingend nötig?

Ja, absolut. Die Mail ist für die Buchhaltung, dass sich der Inventarstandort (=Kostenstelle) geändert hat und in der Anlagenbuchhaltung eine Umbuchung vorzunehmen ist.

Dann würde ich den entsprechenden Code aus dem Postsave Event in deinen Agenten einfügen oder die Meldung in deinem Agenten generieren.

Dann muss ich aber statt Formel Script verwenden, der Code ist Script. Da bin ich nun gar nicht fit.
Hmm, Moment, ich könnte doch diesen Code in einen Agenten eintragen, welcher durch "Auswahl in der Agentenliste" von meinem Formelagenten aufgerufen wird?!

[koehlerbv]

Dazu müsstest Du aber das gerade bearbeitete Dokument an den Agent übergeben. Trivial wird das nicht, wenn man nicht in LS fit ist.

Bernhard

[smokyly]

Hallo Bernhard,

da hab ich mir auch eben die Zähne ausgebissen.


Den Code als Sub in einer Scriptbibliothek ablegen und dann per Formel aufrufen geht ja auch nicht, so wie ich das sehe. Zumindest finde ich in der Formelübersicht keinen entsprechenden Aufruf...

Per Formel Dokument öffnen, Feld verändern und dann speichern scheitert am Speichern.

Ich glaube, ich mach das dann doch komplett in Script. Hab ja hier ein sehr dickes Buch liegen...

Danke nochmal und beste Grüsse.

[smokyly]

Nun denn - der Benutzer markiert sich in der Ansicht die gewünschten Dokumente oder sucht sich diese über Volltext.

Der Agent läuft auf "Alle ausgewählten Dokumente" und führt folgendes Script aus:

Sub Initialize
   
   Dim ws               As New NotesUIWorkspace
   Dim session            As New NotesSession
   Dim db               As NotesDatabase
   Dim dc               As NotesDocumentCollection
   Dim doc               As NotesDocument
   Dim uidoc                    As NotesUIDocument
   Dim Kostenstelle_neu           As String

   Set db               := session.CurrentDatabase
   Set dc               := db.UnprocessedDocuments
   Set doc               := dc.GetFirstDocument

   Kostenstelle_neu                    := (InputBox$("Bitte neue Kostenstelle angeben!"))

   
   While Not doc Is Nothing
      
      Set uidoc         := ws.EditDocument(True, doc)
      Call uidoc.FieldSetText(Kostenstelle, Kostenstelle_neu )
      Call uidoc.Refresh
      Call uidoc.Save
      Call uidoc.Close
      
      Set doc := dc.GetNextDocument(doc)
   Wend
   
End Sub

Würde das tun? Im Moment ist mein Testsystem in Wartung, kann es also nicht ausprobieren.

Grüsse

[koehlerbv]

":=" ist falsch, in LS ist das "=".

Weiters: Warum machst Du das im Frontend? Du kannst doch gleich im Backend Deinen Wert setzen:

While Not doc Is Nothing
   doc.Kostenstelle = Kostenstelle_neu
   Call doc.Save (True, False, True)
   Set doc = dc.GetNextDocument(doc)
Wend

Bernhard

[smokyly]

":=" ist falsch, in LS ist das "=".

Schande, zu viel PL/SQL im Kopf.

doc.Kostenstelle = Kostenstelle_neu

Ja, da hab ich zu kompliziert gedacht.

Weiters: Warum machst Du das im Frontend? Du kannst doch gleich im Backend Deinen Wert setzen:

Ich dachte, dann zieht doch das andere Script aus dem Postsave der Teilmaske nicht?

[koehlerbv]

Den entsprechenden Code bzw. die Aufrufe zu fertigen Routinen kannst Du doch in Deinem Agentileinchen auch einsetzen, Geri.

Bernhard

[smokyly]

Den entsprechenden Code bzw. die Aufrufe zu fertigen Routinen kannst Du doch in Deinem Agentileinchen auch einsetzen, Geri.

Bernhard

 
Du traust mir nun wahrlich zu viel zu. Das Büchlein, aus dem ich mir den Code zusammengesucht habe, hat nur über 1200 Seiten. Bis ich mir daraus dann zusammengesaugt habe, was das andere Script genau macht und es angepasst habe, werden wohl einige Sekunden vergehen...
Und der andere Code ist nicht in einer Bibliothek abgelegt, sondern direkt im Postsave (bzw. im Postopen wird sich da auch was gemerkt / zusammengebastelt).

Aber Du hast schon wahr!

Grundsätzlich würde mein Agent aber laufen?!

Edit: Wenn ich drüber nachdenke - ich habe die Befürchtung, dass das lange laufen wird und ein ziemliches Geflacker auf dem Bildschirm werden wird.

Ich versuch mal, ob ich die Scripte zusammen führen kann. Darf ich dann zur Überprüfung das Ding nochmal hier rein stellen?

Danke erstmal.

[koehlerbv]

Mein Vorschlag für das Backend würde aber nicht "flackern". Flott ist das auch.

Wie wird denn bzgl. was im PostSave aufgerufen?

Bernhard

[Peter Klett]

Das Verfahren über das Frontend hat neben dem Flackern auch noch einen weiteren Nachteil: Probier das mal mit mehreren Dokumenten aus. Spätestens beim 50. oder 60. Dokument raucht Dir nämlich der Client ab (ich habe solch eine Routine, die über das Frontend MUSS, das geht da leider nicht anders, dort haben wir eine Grenze von 40 eingestellt).

[smokyly]

Mein Vorschlag für das Backend würde aber nicht "flackern". Flott ist das auch.

Ja, das hatte ich verstanden, drum mein Umschwenken.

Wie wird denn bzgl. was im PostSave aufgerufen?

Bernhard

Es wird eine Mail erstellt, durch einen Vergleich des aktuellen Wertes eines Items des Dokuments und einer Variablen(!, also kein Feld), die woher auch immer kommt und dann wird da noch was mit Workflow gesteuert und gemacht, aber da steig ich nicht durch, da dann Bibliotheken aufgerufen werden. Das mit der Mail war ne Schnellanpassung für uns, der Rest ist Standard des Herstellers.

So wie ich das sehe, zieht bei einer Änderung des Feldes im Dialog nur die Mailgeschichte, ganz sicher bin ich natürlich nicht.

Jetzt raucht die Birne...

[Peter Klett]

... und einer Variablen(!, also kein Feld), die woher auch immer kommt ...

Die Variable ist bestimmt in den Declarations deklariert und wird im PostOpen gesetzt.

Das ist ein gängiges und gutes Verfahren:
Globale Variable im PostOpen mit dem aktuellen Feldwert setzen
Im PostSave (oder QuerySave) den nun aktuellen Feldwert mit der Variablen (also dem Wert zum Zeitpunkt des Öffnens) vergleichen und daraus Aktionen ableiten

[smokyly]

Das Verfahren über das Frontend hat neben dem Flackern auch noch einen weiteren Nachteil: Probier das mal mit mehreren Dokumenten aus. Spätestens beim 50. oder 60. Dokument raucht Dir nämlich der Client ab (ich habe solch eine Routine, die über das Frontend MUSS, das geht da leider nicht anders, dort haben wir eine Grenze von 40 eingestellt).

Danke für die Info. Gut zu wissen.

[smokyly]

Die Variable ist bestimmt in den Declarations deklariert

Da hatte ich zuerst gesucht.

und wird im PostOpen gesetzt.

Super, gefunden, hier deklariert und gesetzt.

Das ist ein gängiges und gutes Verfahren:
Globale Variable im PostOpen mit dem aktuellen Feldwert setzen
Im PostSave (oder QuerySave) den nun aktuellen Feldwert mit der Variablen (also dem Wert zum Zeitpunkt des Öffnens) vergleichen und daraus Aktionen ableiten

OK, und nun hab ich auch schon die Idee, wie ich das dann im Backendscript umsetze.

Beste Grüsse!

[Peter Klett]

und wird im PostOpen gesetzt.

Super, gefunden, hier deklariert und gesetzt.

Wenn die Variable im PostOpen deklariert ist, kann sie nicht im PostSave zur Verfügung stehen. Sie muss in den Declarations der Maske oder den Declarations von Globals deklariert sein. Falls die gleiche Variable nochmal im PostOpen deklariert ist, gelangen die Daten nicht in die global deklarierte Variable, und der Inhalt ist wiederum nicht im PostSave verfügbar.

Sorry für meine Pingeligkeit, aber das ist für die Funktionsweise sehr wichtig.

[smokyly]

Hallo Peter, das ist eine Teilmaske, da steht in den Deklarationen nichst drin. Im Postopen finde ich das:

Kostenstelle         = source.Document.Kostenstelle(0)

Also ist das keine implizite Deklaration mit Wertsetzen, sondern nur eine Zuweisung?
Hat natürlich für mein Anliegen nicht wirklich was zu tun, ist Interesse.

[smokyly]

Also so sieht der Code für den Agenten im Initalize aus:

Sub Initialize
  

   Dim session            As New NotesSession
   Dim db               As NotesDatabase
   Dim dc               As NotesDocumentCollection
   Dim doc               As NotesDocument
   Dim Kostenstelle_neu           As String
   Dim Kostenstelle_alt         As String

   Set db               = session.CurrentDatabase
   Set dc               = db.UnprocessedDocuments
   Set doc              = dc.GetFirstDocument

   Kostenstelle_neu     = (InputBox$("Bitte neue Kostenstelle angeben!"))

  
   While Not doc Is Nothing
      
      Kostenstelle_alt=doc.Kostenstelle
      doc.Kostenstelle = Kostenstelle_neu

      Call doc.Save(True,False,True)
      Call sendmail(doc,Kostenstelle_alt)      
      Set doc = dc.GetNextDocument(doc)
   Wend
  
End Sub

Dann habe ich noch eine Sub "sendmail" gebastelt, die das Mail erstellt und noch die anderen benötigten Funktionen / Subs aus der Teilmaske in den Agenten geschoben. In den Options hab ich mit Use eine benötigte Bibliothek angegeben.
Konnte den Agenten ohne Fehler speichern.
A-Bär: Das verstehe ich noch nicht ganz - das sendmail hat ja zwei Übergabeparameter:

Sub Sendmail(Source As NotesDocument, P_Kostenstelle_agent As String)

Muss ich Source und P_Kostenstelle_agent denn nun nochmal in den Declarations aufnehmen, oder sind diese denn nun implizit definiert? Ich behaupte mal Letzteres, da es in anderen Sprachen auch so ist.

[koehlerbv]

Das ist schon korrekt so, Geri. Subs / Functions deklarieren ihre Parameter implizit.

Bernhard