Расписание агента: получить программно

wowa

Well-known member
01.02.2007
845
0
#1
Подскажите, плз

Получаю агента который работает по времени
Код:
If agent.Trigger= TRIGGER_SCHEDULED Then
....
End If
А как получить время его работы?
что-то я таких методов не нашел
 

morpheus

скриптописец
07.08.2006
3 915
1
#2
Для: wowa
тока с помощью прописівания логов самим агентов, недавно поднималась єта тема
 

wowa

Well-known member
01.02.2007
845
0
#3
<!--QuoteBegin-Morpheus+30:10:2007, 12:33 -->
<span class="vbquote">(Morpheus @ 30:10:2007, 12:33 )</span><!--QuoteEBegin-->а что в самих агентах прописать какуюнить библиотку можно
и на инициализации библиотеки делать логирование
[snapback]83580" rel="nofollow" target="_blank[/snapback]​
[/quote]


Эт как?

Может уже кто-н делал похожее?
 

morpheus

скриптописец
07.08.2006
3 915
1
#4
пишите библиотеку в Inicilize которой пишите - подхватывать тек. угент
Код:
Set CurAgent = NotesSession.CurrentAgent
- вот вам время запуска, вот и пишите лог куданибуть 
sss= CurAgent.name & " запустился в " CDat(Now)
в Terminate - это получается время остановки агента.
sss= CurAgent.name & " остановился в " CDat(Now)

а теперь в нужные агенты просто в секции Use ""MY_LOG_LIB"

для расширения логирования ловушку ошибок в агенте отправлять тоже в эту библиотеку
 

Omh

Lotus team
04.07.2007
2 210
1
#5
Для: wowa
Или тебе надо именно property вычитать из агента?
 

wowa

Well-known member
01.02.2007
845
0
#6
<!--QuoteBegin-Omh+1:11:2007, 13:42 -->
<span class="vbquote">(Omh @ 1:11:2007, 13:42 )</span><!--QuoteEBegin-->Или тебе надо именно property вычитать из агента?
[snapback]83919" rel="nofollow" target="_blank[/snapback]​
[/quote]
В агентах по времени, в свойствах, установлено когда запускать(например каждый день), и восколько запускать, - вот это мне и надо достать. Это возможно?
 

wowa

Well-known member
01.02.2007
845
0
#8
даже близко не представляю как это можно достать
 
R

Ronchik

#9
Для: wowa
<!--QuoteBegin-wowa+1:11:2007, 14:16 -->
<span class="vbquote">(wowa @ 1:11:2007, 14:16 )</span><!--QuoteEBegin-->В агентах по времени, в свойствах, установлено когда запускать(например каждый день), и восколько запускать, - вот это мне и надо достать. Это возможно?
[snapback]83925" rel="nofollow" target="_blank[/snapback]​
[/quote]
NotesDXLExporter class
 

wowa

Well-known member
01.02.2007
845
0
#10
<!--QuoteBegin-Ronchik+1:11:2007, 15:00 -->
<span class="vbquote">(Ronchik @ 1:11:2007, 15:00 )</span><!--QuoteEBegin-->NotesDXLExporter class
[snapback]83936" rel="nofollow" target="_blank[/snapback]​
[/quote]
что -то я не пойму чем это мне поможет

На форуме нашел что можно изменить время запуска агента, вот может как-н можно достать время запуска?
вот ссылка :
http://www-10.lotus.com/ldd/46dom.nsf/c219...56?OpenDocument
 

Omh

Lotus team
04.07.2007
2 210
1
#11
То, что ты показал, это через API
Когда делаешь GetAssistInfo в типе AssistInfo появляется инфа по агенту, которую надо декодить.

Если дизайн открыт, я бы лучше сделал через DXLExporter.
Там всё более читабельно:
Код:
<trigger type='scheduled'>
<schedule type='daily' runlocation='any'>
<starttime><datetime>T010000,00</datetime></starttime>
</schedule>
</trigger>
Я, кстати, недавно делал тему по расшифровке AssistInfo на этом форуме, можешь поискать..
 

wowa

Well-known member
01.02.2007
845
0
#12
Для: Omh
Я с этим вообще впервые сталкиваюсь, можно , плз, поподробнее?
Куда и что тут делать...
Вот мой агент, где я нажожу, в этой же БД, агенты по времени

Код:
Sub Initialize

Dim s 		As New NotesSession 
Dim db 		As NotesDatabase
Dim stListForm()	As String
Dim i 		As Integer

Set s = New NotesSession
Set db = s.CurrentDatabase

Forall agent In db.Agents
If agent.Trigger= TRIGGER_SCHEDULED Then
Redim Preserve stListAgents(i)
stListAgents(i) = agent.Name
i=i+1
End If
End Forall
End Sub
 

Omh

Lotus team
04.07.2007
2 210
1
#13
Тогда давай через API
Пишем ниже:

Код:
Dim AgentAssistInfo as AssistInfo
forall aname in stListAgents
'тут в переменную AgentAssistInfo ты получил инфу по агенту
Call GetAssistInfo(db, Cstr(aname), AgentAssistInfo) 
end forall
Теперь декодь AgentAssistInfo

Можешь ещё посмотреть эту тему:
http://codeby.net/forum/threads/17984.htm

Ну или не сохраняй в аррай, а декодь сразу
 

wowa

Well-known member
01.02.2007
845
0
#14
Для: Omh
ссылка что-то не открывается

Dim AgentAssistInfo as AssistInfo - не инициализируется


<!--QuoteBegin-Omh+1:11:2007, 16:03 -->
<span class="vbquote">(Omh @ 1:11:2007, 16:03 )</span><!--QuoteEBegin-->Теперь декодь AgentAssistInfo
[snapback]83953" rel="nofollow" target="_blank[/snapback]​
[/quote]
Вот это я тоже не знаю ;)
 

Omh

Lotus team
04.07.2007
2 210
1
#15
Ссылке прибавб букву "l" в конце

Тип AssistInfo задекларил?
Из той ссылки что ты привёл.
Тебе тот код нужен тоже.
 

morpheus

скриптописец
07.08.2006
3 915
1
#16
<!--QuoteBegin-wowa+1:11:2007, 15:11 -->
<span class="vbquote">(wowa @ 1:11:2007, 15:11 )</span><!--QuoteEBegin-->Dim AgentAssistInfo as AssistInfo - не инициализируется
[snapback]83955" rel="nofollow" target="_blank[/snapback]​
[/quote]
тут
 

wowa

Well-known member
01.02.2007
845
0
#17
Т.е. мне нужно из того кода, Declarations, GetAssistInfo, SetAssistInfo ???