Иногда не запускается агент

PavelT100

Well-Known Member
09.07.2007
103
0
#1
LN 7.0. Написал агент и запускаю его на сервере с помощью кнопки - примерно так :
[codebox]Sub Click(Source As Button)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Set db = s.CurrentDatabase
Set agent = db.GetAgent("Synchronisation Convertions ALF & Lotus")
If agent.RunOnServer = 0 Then
Messagebox "OK",, "Succès"
Else
Messagebox "ERROR...",, "Erreur"
End If
End Sub[/codebox]
При нажатии на кнопку появляются песочные часы, он работает несколько минут, что хорошо и заканчивается все messagebox "OK".
Но достаточно часто при нажатии на кнопку сообщение messagebox "OK" появляется мгновенно, а агент так и не начинает работать.
Надо иногода нажимать на кнопку 3-4 раза, а иногда и 20, чтобы добится того чтобы агент запустился и начал работать. Сообщение Messagebox "ERROR..." ни разу не возникало . Что бы это могло быть и как с этим бороться, хотя бы знать как программно определить - выполнился агент или нет ?
 

Omh

Well-Known Member
Lotus team
04.07.2007
2 210
1
#2
Так может агент по какому-нибудь условию выходит мгновенно.
Это уже агента смотреть надо....
 
S

Sandr

Гость
#4
agent.RunOnServer не равен нулю тока если агента такого нет.. или прав на запуск нет... Если в агенте ошибка, всеравно 0 будет...