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

@dyyymom · Регистрация: 30.11.2007

Author24 — интернет-сервис помощи студентам

Привет!

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

LotusScript

1	Call agent.RunOnServer(Source.Document.NoteID)

запускается агент, который запускает еще один агент на серваке методом "tell amgr run":

LotusScript

1
2
3

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})

сделано для того чтобы клиент не залипал пока агент выполниться.
так вот как можно сделать во втором агенте таймер?

код типа:

LotusScript

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

не оправдал доверие...

@morphyus · 31.03.2011, 14:34

deeeman
если надо просто подождать то может Sleep () ?

@Kyzoryk86 · 31.03.2011, 14:42

LotusScript

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

@ToxoRot · 31.03.2011, 14:49

таймер на серверном агенте, это капец
где-то тут уже выкладывали процедуру которая возвращает завтрашний день ;)

@dyyymom · 31.03.2011, 14:54

kizarek

спасиб!!!

@tmyky · 31.03.2011, 15:14

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

@dyyymom · 31.03.2011, 15:57

lmike

есесино!

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	31.03.2011, 14:34	2
	deeeman если надо просто подождать то может Sleep () ? 0

@ToxoRot 0 / 0 / 0 Регистрация: 04.11.2007 Сообщений: 3,019
	31.03.2011, 14:49	4
	таймер на серверном агенте, это капец где-то тут уже выкладывали процедуру которая возвращает завтрашний день ;) 0

@dyyymom 0 / 0 / 0 Регистрация: 30.11.2007 Сообщений: 410
	31.03.2011, 14:54	5
	kizarek спасиб!!! 0

@tmyky 0 / 0 / 0 Регистрация: 23.08.2008 Сообщений: 6,252
	31.03.2011, 15:14	6
	надеюсь что это шутка 1-го апреля (в обычные дни, за такие подходы, "убивать надо") 0

@dyyymom 0 / 0 / 0 Регистрация: 30.11.2007 Сообщений: 410
	31.03.2011, 15:57	7
	lmike есесино! 0