помогите плиз с функцией(

Тема в разделе "Lotus - FAQ", создана пользователем CobWeb, 20 ноя 2007.

Статус темы:
Закрыта.
  1. CobWeb

    CobWeb Гость

    Код (Text):
    Sub Querymodechange (Source As Notesuidocument, Continue As Variant)

    Dim acl As NotesAcl
    Dim entry As NotesAclEntry
    Dim user As String

    user = Source.Document.ParentDanabase.Parent.UserName
    Set acl = Source.Document.ParentDanabase.acl
    Set entry = acl.GetEntry(user)

    if (entry.IsRoleEnable("[experts]")) Then
    Continue = True
    Else Continue = False

    End if
    End Sub
    Этот код работает если юзер явно определен в роли, в данном случае в роли эксперт, но не работает если юзер неявно определен. У меня он входит просто в группу на сервере, а уже группа включена в роль эксперт. Есть ли какое нить свойство чтобы еще и группу просматривать в роли, или просто группу тогда просматривать а не роль? а то в данном случае выдаетон ошибку (что то про объект среды)
     
  2. morpheus

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

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Так наверное будет быстрее
    Код (Text):
    ...
    Dim v as Variant
    v= Evaluate({ @IsMember("[experts]"; @UserRoles) } )
    If v(0) = "1" then
    Continue = True
    Else
    Continue = False
    end if
     
  3. CobWeb

    CobWeb Гость

    Для: Morpheus
    действительно проще и все работает8) благодарствую
     
Загрузка...
Статус темы:
Закрыта.

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