Antwortdokumente und Leser und Autorenfelder

[DerAndre]

Was ist bei dem Agenten als Ziel eigestellt?

Dort sollte "Keines" stehen.

[cash]

super... das war nicht eingestellt. Nachdem ich das gemacht habe funktioniert es.

Vielen Dank

Thomas

[cash]

noch 2 Fragen in diesen Zusammenhang.

Im Querclose übergebe ich dem Agenten durch

Call agent.RunOnServer(doc.NoteID)

einen Paramter. Kannich auch 2 verschiedene Notes id übertrgane?

Mein Problem ist: Ich habe nun ein Antwortdokuemnt welches Ausnahmsweise die Werte an das Hauptdokument übergeben muß. Auf das Hauptdokument haben die Leute die dieses Antwortdokument erstellen keine Zugriff.

Es sollen so Felder wie Status und Bearbeitungszeit usw. übergeben werden.

Oder reicht mir die eine ID. Die übergebene ID ist die ID des Hauptdokumentes die steht ja auch in $REf vom Antwortdokument aber wie hole ich dann die ID des Antwortdokumentes?

Gruß

Thomas

[Axel]

Im Querclose übergebe ich dem Agenten durch

Call agent.RunOnServer(doc.NoteID)

einen Paramter. Kannich auch 2 verschiedene Notes id übertrgane?

Nein.

Oder reicht mir die eine ID. Die übergebene ID ist die ID des Hauptdokumentes die steht ja auch in $REf vom Antwortdokument aber wie hole ich dann die ID des Antwortdokumentes?

Du holst dir über die ID des Hauptdokumentes Zugriff auf das Hauptdokument und erhälst dann über doc.Responses eine Collection mit den Antwortdokumenten zurück.

Andere Alternative: du übergibst die ID des Antwortdokumentes und ermittelst über  parentUnid$ = notesDocument.ParentDocumentUNID die ID des Hauptdokumentes.

Axel

[cash]

ok. Habe dann Variante 2 gewählt.

Dim respdoc As NotesDocument
   Dim parent As NotesDocument
   
   Set respdoc = db.GetDocumentByID(agent.ParameterDocID)
   Set parent = notesDocument.ParentDocumentUNID

jetzt muß ich ja noch z. B. das Feld "Status" von respdoc holen und in parent reinschreiben.

Stampall funktioniert hier ja nicht...

Gruß

Thomas

[Axel]

So einfach geht's dann doch wieder nicht.

Les' dir mal die Hilfe zu notesdocument.ParentDocumentUNID durch und schau dir deinen Code dann nochmal genau an. Dann wirst du erkennen, dass das so nicht funktionieren kann.

Wo hast du z.B. die Variable notesdocument deklariert und initialisiert. Außerdem passt der Typ von parent nicht zum Typ des Rückgabewertes von ParentDocumentUNID. Da steckt der Rückgabetyp ja schon im Namen der Funktion.


Axel
 

[cash]

so sieht jetzt der anfang des Scripts aus:

Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim agent As NotesAgent
   Dim respdoc As NotesDocument
   Dim parent As NotesDocument
   
   Set db = session.CurrentDatabase
   
   Set agent = session.CurrentAgent
   Set respdoc = db.GetDocumentByID(agent.ParameterDocID)
   Set parent = db.GetDocumentByID(respdoc.ParentDocumentUNID)

Somit sollte ich beide ID´s haben oder?

Wie kriege ich dann das Feld Status von respdoc nach parent?

Gruß

Thomas Schmidt

[koehlerbv]

parent.Status = respdoc (0)
Call parent.Save (True, False, True)

Bernhard

[DerAndre]

Du meintest doch bestimmt

parent.Status = respdoc.Status (0)

[koehlerbv]

Danke! Da habe ich schneller gedacht als geschrieben.

Bernhard

[DerAndre]

Ich würde eher sagen, Du hast so schnell geschrieben, daß die Tastatur die Buchstaben nicht mehr übertragen hat. 

[koehlerbv]

Stimmt - war ein keyboard buffer overflow 

[cash]

Vielen Dank. Funktioniert nur leiderr nicht!?

Der Agent läuft an aber was dann passiert weiß ich nicht. Gibt es eine Möglichkeit das der Agent eine Messagebox ausgibt wo dann z. B. die beiden ID drin stehen?

Denn ich vermute dann mal hier den Fehler...

Gruß

Thomas Schmidt

[DerAndre]

Machst Du print und schaust in die log.nsf

Noch besser wäre ein Errorhandle.

Und Agenten die auf dem Server laufen können keine Userinteraktion

[cash]

error handle ist drin... da er aber nicht dorthin springt scheint der Code schonmal zu laufen....

und mit print habe ich es versucht aber in der log.nsf nichts gefunden...

Sollte ich denn Agenten die durch einen Code im Querryclos ausgeführt werden auch in der log sehen?

Gruß

Thomas

[DerAndre]

was liefert runonserver zurück?

[cash]

Set agent = db.GetAgent("AgentAnonym")
   
   If agent.RunOnServer(doc.NoteID) = 0 Then
      Messagebox "Agent ran",, "Success"
   Else
      Messagebox "Agent did not run",, "Failure"
   End If   

liefert brav "Agent ran" zurück...

Gruß

Thomsas

[cash]

testhalberr habe ich den Agenten direkt im Queryclose eingefügt

dabei kommt jetzt:

Error #91 Object Variable not set in line 20

Line 20:    parent.Status = respdoc.Status

Langsam macht mir das Entwicklen keinen Spaß mehr


Fast Kompletter Code:

   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim agent As NotesAgent
   Dim respdoc As NotesDocument
   Dim parent As NotesDocument
   Set db = session.CurrentDatabase
   Set agent = session.CurrentAgent
   ' Set respdoc = db.GetDocumentByID(agent.ParameterDocID) ' wenn über Agent ausgeführt
   
   
   'Set respdoc = db.GetDocumentByUNid(Source.Document.UniversalID)

   Set parent = db.GetDocumentByID(Source.Document.ParentDocumentUNID)

[DAU-in]

wo setzt du respdoc?

grüsse

dau-in

[cash]

Guter Einwand 

Wie sieht es mit

   Set respdoc = db.GetDocumentByUNid(Source.Document.UniversalID)

Der Fehler bliebe in diesen Fall identisch

Thomas