Crok<@today

[oxystile]

необходима вьюшка, в кот. в отборе документов присутствует формула: Crok<@Today
как известно сранение с @Today, тормозит вьюху при открытии
может, есть какой фокус (типа получать это Today один раз в БД а потом с ним и сравнивать )
подкиньте идею, если не сложно
спасибо!

 

[Medevic]

Агент, который раз в сутки меняет формулу отбора. Подставляет текущую дату вместо @Today.

Можно еще использовать такой финт:

Today := @TextToTime("Today")

И потом использовать Today вместо @Today.
Но мне больше нравится вариант с агентом.

Или в папку кидать раз в сутки.

 

[oxystile]

<<Агент, который раз в сутки меняет формулу отбора.
что-то типа:
t1=Date()
formula ="SELECT (Form = "newDoc") & MarkC!="Завершено" & Crok<t1)"
Set view = db.GetView("expired")
view.SelectionFormula = formula

только вот проблема, не понимаю, как formula ="SELECT в лотус скрипт преообразовать???
пробовала по аналогии с примеров в хелпе, не прокатило, какова технология? научиться бы...

 

[Medevic]

Вот пример:

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim tod As String

Set db = session.CurrentDatabase
tod = Join(Evaluate({@Text(@Today)}))
Set view = db.GetView(...)
view.SelectionFormula = {SELECT Form = "Form" & Date = (([} + tod + {]}

 

[morpheus]

formula = { SELECT Form = "newDoc" & MarkC!="Завершено" & [} & Crok & {]<t1) }

 

[oxystile]

Спасибо! сработало по формуле view.SelectionFormula = {SELECT Form = "newDoc" & MarkC!="Завершено" & Crok< ([ } + tod + { ])}