Agent Run

[andrew22]

hi ho

also irgendwie finde ich nicht so wirklich den fehler ..

also ich habe ne maske wenn die maske gespeichert und geschlossen wird soll nen agent aktiviert werden wenns geht RunOnServer.

aber irgendwie klappt das nicht .

in maske habe ich im Queryclose Teil :

Code

Dim session As New NotesSession
Dim db As Notesdatabase
Dim agent As NotesAgent

Set db = session.CurrentDatabase
Set agent = db.GetAgent("Test Agent")

Call agent.Run oder Call agent.RunOnServer

eigentlich ganz billig aber er macht beides nicht ...

runonserver bekomme ich immer fehlermeldung "Notes Error: Im Hintergrund ausgeführter oder eingebetteter Agent verwendet einen nicht unterstützten Auslöser un Suchtyp.

und normal Run passiert irgendwie gar nichts mehr ?!

entweder ich bin blind  oder keine ahnung ?!

[littleS]

Versuch mal sowas

Code

Dim session As New NotesSession
Dim db As Notesdatabase
Dim agent As NotesAgent

Set db = session.CurrentDatabase
Set agent = db.GetAgent("Test Agent")

If Not (agent Is Nothing) Then
   If Not agent.RunOnServer = 0 Then
      Messagebox "Agent lief nicht!",48,"Fehler"
   End If
Else
   Messagebox "Agent wurde nicht gefunden",48,"Fehler"
End If

[ata]

... es scheint am Auslöser zu hängen - wo genau hast du den Code postiert?

ata

[koehlerbv]

Dann wird immer noch die gleiche Meldung kommen - das sieht sehr danach aus, dass der Agent-Typ nicht geeignet ist. Dieser muss ein scheduled agent sein, der auf dem Server auch "von allein" loslaufen würde.

Andrew: Welche Agenteinstellungen hast Du vorgenommen ? Dort liegt des Pudels Kern begraben.

Bernhard

[andrew22]

okay es liegt an einem Script Error ..... NotesNoteCollection gibts erst ab V. 6 und agent läuft auf 5er server ...

hmm shit

wie kann ich eigentlich aus PostSave an Queryclose nen Wert übergeben NoteID z.B. von nem Dokument ?! 

[andrew22]

das ist natürlich echt doof ... gibts ne Alternative für die NotesNoteCollection Klasse in R5

ich brauche diese ... verdammt  

[ata]

wie kann ich eigentlich aus PostSave an Queryclose nen Wert übergeben NoteID z.B. von nem Dokument

Da gibt es verschiedenes - globale Variablen des Dokumentes , Notes.ini mit Umgebungsvariablen, Felder in Profildokumenten...

ata

[koehlerbv]

Übergeben kannst Du Werte durch (Masken-)globale Variable, die Du in den global declarations der Maske definierst (und in PostSave setzt und in QueryClose wieder ausliest).

Was die NotesNoteCollection angeht: Wozu brauchst Du denn Design-Elemente ? Dann könnte man Empfehlungen geben. Vielleicht wäre es hilfreich für alle (die vielleicht auch nicht alle Deine Postings verfolgen konnten), wenn Du nochmal aufmalst, was Du eigentlich bezweckst (durchaus auch im grösseren Zusammenhang). In der Regel finden sich ja immer mehrere Ansätze, um Probleme zu lösen.

Bernhard

[andrew22]

okay Problem gelöst

globale Var deklariert - NoteId an Agent übergeben und damit dann NoteCollection umgangen und mit GetDocumentById auf agent doc zugreifen und wert $OnBehalfOf ändern .

super 

[andrew22]

ich brauche das agent designelement OnBehalfOf .

nun ja in Notes 6 gibt ja die schöne NotesNoteCollection nur was mache ich mit Version 5 ...

denn anwendung soll auf beiden systemen laufen.

also wenn mir jemand weiterhelfen könnte wäre das echt klasse

[ctillmanns]

Ich erinnere mich nur dunkel, aber Onbehalfof gab es in Notes 5 doch noch gar nicht.

Tilsche

[andrew22]

also $OnBehalfOf sollte es auch unter 5 geben ...

[koehlerbv]

Diese Funktionalität ist erst mit R6 eingeführt worden.