Роли в Acl и группы пользователей

[Galina]

Подскажите, пожалуйста, как решить следующую задачу.

Есть база на сервере. В ACL этой базы определены роли. Как определить в LS, принадлежит ли текущий пользователь конкретной роли, если пользователь входит в группу и доступ к базе он получает через указание группы в ACL (роль определена для группы).

 

[morpheus]

<!--QuoteBegin-Galina+24:07:2007, 16:19 -->
<span class="vbquote">(Galina @ 24:07:2007, 16:19 )</span><!--QuoteEBegin-->принадлежит ли текущий пользователь конкретной роли

[snapback]73212" rel="nofollow" target="_blank[/snapback]​

[/quote]
@UserRoles

 

[Medevic]

notesDatabase.QueryAccessRoles ?

Ну и ArrayGetIndex.

 

[Galina]

Получилось через notesDatabase.QueryAccessRoles

Большое спасибо.

 

[Ronchik]

Для: Galina

Dim acl As NotesACL	
Dim entry As NotesACLEntry
Set db = session.CurrentDatabase
Set acl = db.ACL
Set entry = acl.GetEntry( session.CommonUserName )
If entry.IsRoleEnabled( "[Supervisor]" ) Then
.......

определение включена ли у юзера роль