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

  • Автор темы CobWeb
  • Дата начала
Статус
Закрыто для дальнейших ответов.
C

CobWeb

#1
Код:
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
Этот код работает если юзер явно определен в роли, в данном случае в роли эксперт, но не работает если юзер неявно определен. У меня он входит просто в группу на сервере, а уже группа включена в роль эксперт. Есть ли какое нить свойство чтобы еще и группу просматривать в роли, или просто группу тогда просматривать а не роль? а то в данном случае выдаетон ошибку (что то про объект среды)
 

morpheus

скриптописец
07.08.2006
3 915
1
#2
Так наверное будет быстрее
Код:
...
Dim v as Variant
v= Evaluate({ @IsMember("[experts]"; @UserRoles) } )
If v(0) = "1" then 
Continue = True
Else 
Continue = False
end if
 
C

CobWeb

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