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

Тема в разделе "Lotus - Программирование", создана пользователем Cleric-Lviv, 14 ноя 2008.

  1. Cleric-Lviv

    Cleric-Lviv Lotus team
    Lotus team

    Регистрация:
    3 янв 2008
    Сообщения:
    605
    Симпатии:
    0
    Всем привет!
    Вопрос срочний так -как должен бистро отчитатся
    Вобщем смисл такой: на определьоних шагах надобно одним запретить откривать документ одним разрешить откривать

    на 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-есть,
    задача в том что юзер может видеть свой документ (но если дока отправлена на расмотрение юзеру Б то уже открить доку он не сможет)
     
  2. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
  3. Cleric-Lviv

    Cleric-Lviv Lotus team
    Lotus team

    Регистрация:
    3 янв 2008
    Сообщения:
    605
    Симпатии:
    0
    :unsure:))) знаю читал
     
Загрузка...

Поделиться этой страницей