1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

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

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

    CobWeb Гость

    Репутация:
    0
    Код:
    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 скриптописец

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

    CobWeb Гость

    Репутация:
    0
    Для: Morpheus
    действительно проще и все работает8) благодарствую
     
Загрузка...
Похожие Темы - помогите плиз функцией(
  1. rulic
    Ответов:
    5
    Просмотров:
    1.401
  2. AvasKvas
    Ответов:
    30
    Просмотров:
    9.598
  3. KanycTa
    Ответов:
    1
    Просмотров:
    50
  4. Samyrro
    Ответов:
    1
    Просмотров:
    55
  5. Tayrus
    Ответов:
    0
    Просмотров:
    49
Статус темы:
Закрыта.

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