Блокировка документов

Cleric-Lviv

Well-Known Member
Lotus team
03.01.2008
600
0
33
Lemberg
#1
Всем привет!
Вопрос срочний так -как должен бистро отчитатся
Вобщем смисл такой: на определьоних шагах надобно одним запретить откривать документ одним разрешить откривать

на queryopen пишу

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
If Source.Isnewdoc Then
Marshrut = ""
Else
Marshrut = Source.Document.wfTaskName(0) 'ето назва шага
End If
continue = True
Select Case Marshrut
Case "Розгляд": 'розглядається
Continue = RoleEnabled("LA1") Or RoleEnabled("LA2")
Case "Скорегована": 'розглядається
Continue = RoleEnabled("LA1") Or RoleEnabled("LA2")
Case "Створення": 'створення
Continue = RoleEnabled("Admin")
Case "Відхилена": 'відхилена
Continue = RoleEnabled("Admin")
Case "Закінчено": 'закінчено
Continue = RoleEnabled("Admin") Or RoleEnabled("LA1") Or RoleEnabled("LA2")
Case Else
Continue = False

End Select
End Sub


не откривает доков вобще, на когда роль LA1 и LA2 ни когда Admin, снимаю Continue = False откриваю все с любими ролями.
READERS/AUTHORS-есть,
задача в том что юзер может видеть свой документ (но если дока отправлена на расмотрение юзеру Б то уже открить доку он не сможет)