В функциях есть сабж.. типа им можно получить серверное время.
Повесил для теста на форме кнопку с кодом:

@Prompt([ok];"test";@Text(@Now([SERVERTIME];@ServerName)))

а он гад возвращает локальное время..
ЧЯДНТ?

 

Серверное время:

dim ses as new notessession
dim doc as notesDocument
set doc = ses.curentdatabase.createDocument
msgbox "" & doc.created

и еще
https://codeby.net/threads/47662/?hl=%E2%F0%E5%EC%FF+%F1%E5%F0%E2%E5%F0%E0

 

@savl, да.. так и сделал.. спасибо.. просто интересно.. есть спец функция и не воркает.. странно..

 

@swyatogor, а вот так:

@Prompt([ok];"test";@Text(@Now([SERVERTIME];@Name([CN];@ServerName))))

 

@Prompt([ok];"test";@Text(@Now([SERVERTIME];@Name([CN];@ServerName))))

неа.. всё равно показывает время моей машины..

 

А код-то где работает?

 

Повесил для теста на форме кнопку с кодом:

а так, в принципе, экспериментировал и в агенте писал и в библиотеке.. результат один - время локальной машины(

 

А код-то где работает?...

в принципе, экспериментировал...

Какой во всём этом смысл?
@savl напомнил 100% разруливание проблемы (которая существует с времён Куликовской битвы) LS кодом

 

чисто спортивный интерес остался.. задачу решил способом, который @savl показал.

 

чисто спортивный интерес остался..

Можно сказать, что это недоработка Lotus, которая досталась в наследство вендору и доделывать её он 100 пудов не будет.

 

Мда, а я @Now([ServerTime]:[LocalTimeOnError]; @ServerName) доверял((( А как на собаках серверное время то получить?

 

Мда, а я @Now([ServerTime]:[LocalTimeOnError]; @ServerName) доверял((( А как на собаках серверное время то получить?

На форме: запускаешь собаками LS агент, он пишет сервертайм в личный профайл (штоб работало в режиме чтения), оттуда и берёшь, или прямо на форму. В вьюшке не знаю.

 

Интересно, вроде есть от ibm даже link removed на проблему. Они упомянули о ключе [NoCache], но как я понял он только на 7.0.3 и 8.0.1 работает.

 

я пользуюсь следующим кодом, и он возвращает именно серверное, а не локальное время:

Dim serv_date As Variant
serv_date = Evaluate("@Now( [SERVERTIME])")
Call doc.Replaceitemvalue("StartTime", serv_date(0))