таймер в серверном агенте можно сделать?

deeeman

Well-known member
04.12.2007
383
0
#1
Привет!

есть форма
при ее закрытии на queryclose срабатывает код:

Код:
Call agent.RunOnServer(Source.Document.NoteID)
запускается агент, который запускает еще один агент на серваке методом "tell amgr run":

Код:
Set tmpDoc = session.CurrentDatabase.GetDocumentByID(a.ParameterDocID)
Call session.SetEnvironmentVar("tmpUnidDocVK", Cstr(tmpDoc.UniversalID))
Call Session.SendConsoleCommand(session.CurrentDatabase.Server,{tell amgr run "} & session.CurrentDatabase.FilePath & {" 'NameAgent'})
сделано для того чтобы клиент не залипал пока агент выполниться.
так вот как можно сделать во втором агенте таймер?

код типа:

Код:
Set NTimer = New NotesTimer( 15 секундов :) )
On Event Alarm From NTimer Call Sub1 - Название функция которая вызоветься через 15 секунд
не оправдал доверие...
 

morpheus

скриптописец
07.08.2006
3 915
1
#2
deeeman
если надо просто подождать то может Sleep () ?
 

Kizarek86

Lotus team
20.07.2007
864
4
#3
Код:
Sub sTimer(pSecond As Double)
Dim Starttime As New NotesDateTime( "" ) 
Dim Endtime As New NotesDateTime( "" )
Call StartTime.SetNow 
Call EndTime.SetNow 
While EndTime.TimeDifference( StartTime ) < pSecond
Call EndTime.SetNow 
Wend 
End Sub
 

ToxaRat

Чёрный маг
Lotus team
06.11.2007
3 231
17
#4
таймер на серверном агенте, это капец
где-то тут уже выкладывали процедуру которая возвращает завтрашний день ;)
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 572
265
#6
надеюсь что это шутка 1-го апреля (в обычные дни, за такие подходы, "убивать надо")