Domino 9 und frühere Versionen > ND8: Administration & Userprobleme

RunOnServer, ganz komisches Problem

<< < (2/3) > >>

botschi:
Wenn der ganze Krempel im Postsave läuft (nicht im Querysave), dann wirft der Agent keinen Fehler mehr, das personendokument ist auch gespeichert, aber das Passwort funzt nicht...

Das kann doch nicht sein...?


Matthias

Werner Götz:
Aber der QuerySave-Event ist doch sowieso der falsche, denn da ist das Passwort im Dokument doc ja noch nicht mal abgespeichert und kann somit vom Agenten auch nicht ausgelesen werden.

Die Zeile

--- Zitat ---tmp = Evaluate({@Password("| & passwort & |" )}, doc)
--- Ende Zitat ---
ist ebenfalls gefährlich bzw. "komisch": Da das zu verschlüsselnde Passwort übergeben wird, müsste man doc ja nicht an das Evaluate übergeben. Ich würde aber das sogar so lassen, aber die Formel so umstellen:
tmp = Evaluate({@Password(passwort , doc)})
dann wird das passwort direkt aus dem Dokument gelesen und auch die Eingabe von " im Passwort macht kein Problem, was beim aktuellen Ansatz zu einem Fehler führen würde.

Nach dem Zugriff auf das adressdoc sollte man auch eine Überprüfung machen, ob das Dokument gefunden wurde.

Das ComputeWithForm könnte schließlich das Problem sein, warum das Passwort dann nicht funktioniert, denn durch diesen Aufruf wird das entsprechende Feld ja nochmals neu berechnet.

-Werner

botschi:
Viel Input, versuche ich und Berichte.


Matthias

botschi:
In der Maske wird der Agent jetzt im Postsave aufgerufen.
Ich weiss nicht, ob ich gestern schon Wunschgedanken hatte, jedenfalls wirft der Agent immer noch einen Fehler. der Agent besteht mittlerweile nur noch aus:


--- Code: ---Dim db As notesdatabase
Dim s As New NotesSession
Dim doc As NotesDocument
On Error Goto fehler
'#######
Dim agent As notesagent

Set agent = s.CurrentAgent
Set db = s.CurrentDatabase
Set doc = db.GetDocumentByID(agent.ParameterDocID)
Print doc.UniversalID
Print "####### 4 #########"
Exit Sub
Print "###### ENDE ########"
fehler:
Print "Fehler #" & Str(Err) & ": " & Error$ & " in Zeile " & Cstr(Erl)
Exit Sub
End Sub
--- Ende Code ---

und in der Serverkonsole steht
UniversalID
####### 4 #########
Fehler 4270 Invalid note id in Zeile 13

Wo ist mein Fehler?

Matthias

Werner Götz:
Kann es sein, dass der Agent 2 mal aufgerufen wird?
Einmal korrekt und einmal mit falschem Parameter?
Also am besten noch ein paar Prints einbauen:
1.) Ganz am Anfang
2.) Angabe von agent.ParameterDocID
3.) Am Ende (das aktuelle Print steht hier hinter dem Exit Sub)

-Werner

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete