遠回りです

のーつ６から、スクリプトからビューの選択条件を変更できるのね。

ってことで、
ビューを開いたときに条件式が変更できるようなものを作ってみた。

Sub Queryopen(Source As Notesuiview, Continue As Variant)
Dim view As NotesView
Dim formula As String
formname$ = |((Form = "keijiban") || (Form = "Main"))|
formula = " SELECT " & formname$ & " & (@Modified > [" & (Date - 14) & "])"
Set view = Source.View
view.SelectionFormula = formula
Call view.Refresh
End Sub

が、これ、自分で動作確認してみたときは問題なかったのだが
ＤＢアクセス権で編集者権限以下の人がやるとエラーする。。。
当たり前っていえば当たり前。
なんだけど、自分がDB管理者だから落とし穴･ﾟ･(ﾉД`)･ﾟ･｡

なので、ちょっと細工。
アクセス権チェックして設計者以上なら条件式を変更するようにしてみた。

Sub Queryopen(Source As Notesuiview, Continue As Variant)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set db = session.CurrentDatabase
Set acl = db.ACL
Dim user As String
user = session.UserName
Set entry = acl.GetEntry( user )
If Not ( entry Is Nothing ) Then
If entry.level = 5 Or entry.level = 6 Then
Dim view As NotesView
Dim formula As String
formname$ = |((Form = "keijiban") || (Form = "Main"))|
formula = " SELECT " & formname$ & " & (@Modified > [" & (Date - 14) & "])"
Set view = Source.View
view.SelectionFormula = formula
Call view.Refresh
End If
End If
End Sub

とりあえずはこれで。
だが、一番痛いのは設計権ない人が開いても
日付更新しないのよねー。げふんげふん。


ほんとは↓にしたかっただけなんだけど、
SELECT (Form = "keijiban" | Form = "Main" ) & ((@Modified >@Adjust( @Today ; 0 ; 0 ; -14 ; 0 ; 0 ; 0 ) ))
なんだか集中してるサーバにDBを置いたもんで
アクセス集中する時間帯に、この条件式置いたビューひらくと
表示までに３分以上待たされるという最悪な状態。

やっぱ、ビュー選択条件に日付計算させるのが悪いって？
でも、自前の部門サーバでやると問題ないのになー。ないのになー。
違いは、サーバ上に置いてるDBの量と、OSだけなんだが。。。なぁ。。
あ、ハードもサーバスペックも違います。（そりゃそーだ。

ぇっと、違いって言えば、
スペック低いサーバでも問題なかったんですよ。
特にR5.0.5んときは。
下手すりゃ8年前ぐらいのサーバが最近まで現役で動いてて、
そこでも表示の遅延なんて問題なかったわけですし。

R7になってから？なのかどうなのか知らんのだけど
OSがWindows系では現象が出ない。んですよ。
ただ、Unix系（実際ソラリス君←スペルわかんないｚｚ）では出る。
纏めると、
R5.0.5 + winNT4.0 = 問題なし
R5.0.5 + win2000 = 問題なし
R7.0.2 + win2000 = 問題なし
R7.0.2 + SunOS5.9（※） = 問題あり
※ NotesのAdministratorから見るとそんな表記。

確かに一番最後のソラリス君は、他のサーバを統一して一つにしたサーバだから
今まで使ってたサーバよりも負荷かかってるのは分かるのだけど
も、もしかしてソラリスでの@Todayの処理が悪いかも？？？
って気がしたんですけど。まぁ推測です。推測。