M
MaxP
Доброго времени суток.
Вызов:
Агент:
Ошибок нет. Док не сохраняет. Док верно получает в базе. Перепробовал настройки агента. Пробовал запуск каскада агентов.
В чем может быть дело?
Вызов:
Код:
var doc: NotesDocument=currentDocument.getDocument()
var agent: NotesAgent=database.getAgent("(RefreshDocOnServer)")
agent.runOnServer(doc.getNoteID())
Агент:
Код:
Option Public
Option Declare
Sub Initialize
Dim agentLog As New NotesLog("Agent log")
Call agentLog.OpenAgentLog
On Error GoTo ErrLabel
Dim s As New NotesSession
Dim agent As NotesAgent
Dim db As NotesDatabase
Set db=s.Currentdatabase
Set agent=s.Currentagent
Dim doc As NotesDocument
'Print "---------"
'Print agent.Parameterdocid
'Print "---------"
Set doc=db.Getdocumentbyid(agent.Parameterdocid)
Call doc.Computewithform(false,false)
'Print agent.Onbehalfof
' Call doc.Save(true,false)
If doc.Save( true, False ) Then
Call agentLog.LogAction("Document " & doc.UniversalID & " сохранен" )
Else
Call agentLog.LogAction("Document " & doc.UniversalID & " не сохранен")
End If
Exit sub
ErrLabel:
Call agentLog.LogAction("Ошибка " + CStr(Err) & ": " & Error$ & " в строке:" + CStr(Erl))
Call agentLog.Close
Exit Sub
End Sub
Ошибок нет. Док не сохраняет. Док верно получает в базе. Перепробовал настройки агента. Пробовал запуск каскада агентов.
В чем может быть дело?