Author per AgentRunOnServer gesetzt - wie Zugriff auf Doc?

[theBastian]

Hallo allerseits,

ich sitze seit gestern wieder an einem Problem, dessen Lösung mir einfach nicht einfallen will.

Kurzes Szenario:

- User hat Zugriff auf Doc durch Autorenfeld
- User bearbeitet Doc und schließt die Bearbeitung ab --> Autorenfeld wird dabei geleert
- um das Doc später archivieren zu können, braucht der User wieder Zugriff --> AgentRunOnServer, der das Autorenfeld wieder füllt und User hat wieder Zugriff

Dafür gibt es in der View ein ActionButton, der den Agent aufruft und dann das Document.

Da liegt mein Problem: der User hat keine Autorenrechte auf das Document. Erst wenn ich den Button zum 2. Mal klicke, dann geht das.

Code

Dim agentdoc As NotesDocument
	Set agentdoc = collection.GetFirstDocument()
Dim agent As NotesAgent
	Set db = session.CurrentDatabase
	Set agent = db.GetAgent("(SetEditRoleinDocument")
	Call agent.RunOnServer (agentdoc.NoteID)
	
	Set doc = db.GetDocumentByID( agentdoc.NoteID )
	

Muss ich das Doc erst noch irgenwie reloaden?

Grüße
Sebastian

[jagger]

Hallo Sebastian,

ein "Delete agentdoc" sollte Dein Problem beheben

Also

Code

nid = agentdoc.NoteID
Call agent.RunOnServer (nid)
Delete agentdoc
Set doc = db.GetDocumentByID( nid)

[theBastian]

Morgen,

genau das war es.
Im Nachhinein sogar für mich logisch. 

Vielen Dank für die Hilfe.

Grüße
Sebastian