У меня почему-то не работает... Я и ребилд и рефреш вида делаю но почему-то не работает...В переменную окружения записываю UNID документа при его открытии (он правильно запиывается) а вот в виде не подкрашивается...
может не вычитывается переменная окружения? я заметил, что оно не стабильно срабатывает... или я не понимаю как оно срабатывает, но, если руками поправить переменную в файле, то вообще может не воспринять...
сейчас попробую сделать твою задачу полностью...
View.Name = HighlightView
View.Formula = SELECT Form="HighlightForm"
View.Column1.Formula = needColor := @Explode(@Environment("docscolored")); @If(@IsMember(@Text(@DocumentUniqueID); needColor); 255:0:0; -1:-1:-1)
View.Column1.Formula = Form + "-" + aaa
Form.Name = HighlightForm
Form.Code =
Код:
Sub Initialize
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim s As New NotesSession
Dim db As NotesDatabase
Set uidoc = ws.CurrentDocument
If Not(uidoc.IsNewDoc) Then
Call s.SetEnvironmentVar("docscolored", uidoc.Document.UniversalID, False)
Set db = s.CurrentDatabase
Call db.GetView("HighlightView").Refresh()
Call ws.OpenDatabase(db.server, db.FilePath)
Call ws.ViewRebuild
End If
End Sub
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim s As New NotesSession
Dim db As NotesDatabase
Set uidoc = ws.CurrentDocument
Call s.SetEnvironmentVar("docscolored", "", False)
Set db = s.CurrentDatabase
Call db.GetView("HighlightView").Refresh()
Call ws.OpenDatabase(db.server, db.FilePath)
Call ws.ViewRebuild
End Sub
на форме есть поле "aaa", внедренный вид "HighlightView".
ФСЁ
мутно до ужаса, но срабатывает ))
всякие умные вещи, как открытия нескольких документов, не обрабатываются - лень и не факт, что можно нормально сделать...
зы: мое резюме - ну его в баню, такие бантики )))
если документов будет много и вид сложный, с категориями, то пользователь убъется об монитор или стол... ))