Hallo,
ich bekomme es einfach nicht hin, dass Agent2 Lokal die Dokumente in die in die DB2 schreibt.
Auch habe ich festgestellt, dass in der DB1 geschrieben werden kann, aber nicht doc.remove greift.
Wie gesagt auf dem Server klappt alles.
Also hier etwas Code:
Der Agent 1 erstellt mit Hilfe von Frontend Eingaben das Dok1 auf der DB1, dann startet er den Agennt2 mit hilfe von
Set agent = ndb.GetAgent("writetask")
If agent.RunOnServer = 0 Then
Else
Messagebox "Agent did not run",, "Failure"
End If
Set ns = New notesSession
Set ndb = ns.currentDatabase
Set dbnameview = ndb.getview("A Replik ID")
Set dbnamedoc = dbnameview.getdocumentbykey("Aktuell")
dbnamestring = dbnamedoc.DB_Name_ZeiterfassungStammdaten
server = ndb.server
Set db_stamm = ns.GetDatabase(server, dbnamestring(0))
Set tview = ndb.GetView("RTempTasks")
tview.Refresh
tview.AutoUpdate=False
Set ndoc = tview.GetFirstDocument
Do Until ndoc Is Nothing
id= ndoc.task_ParentUNID(0)
Set pdoc=db_stamm.GetDocumentByUNID(id)
Set tDoc = New NotesDocument(db_stamm)
With Tdoc
.Form=ndoc.task_DocTyp(0)
.task_PrjId=nDoc.task_PrjId(0)
.task_Prj=nDoc.task_prj(0)
.task_ValidFrom=nDoc.task_ValidFrom(0)
.task_ValidTo=nDoc.task_ValidTo(0)
.task_main=ndoc.task_main(0)
If ndoc.task_DocTyp(0)="PTask" Then
.task_part=ndoc.task_part(0)
End If
.task_titel=ndoc.task_title(0)
Call .MakeResponse(pdoc)
Call .Save(True,True)
Set rdoc = ndoc
Set ndoc= tview.GetNextDocument(ndoc)
rdoc.Remove(True)
End With
Loop
tview.AutoUpdate=True
Beide Agenten sind mit Managerrechten signiert.
Agent2 läuft on behalf mit einer Gruppe die Managerrechte hat
Runtime Security Level ist 3
default access ist All Readers an above
consistent ACL ist aktiviert
Bitte helft mir auf die Sprünge ich verstehe einfach nicht, warum es auf den Servern läuft und auf den Lokalen Repliken nicht.
Übrigens wenn ich das Lokal laufen lasse geht es (Entwicklerrechte) normale User scheitern.
Kann es sein, das die Signierung des Agenten auf lokalen Repliken nicht mehr greift?
Gruß
Hitcher