[Gustav]

Цитата:

Сообщение от belugin

    while select userGroup
    {
        while select domain
        {
            secSet  = SysSecurity::constructSecurityKeySet();
            secSet.loadGroupRights(userGroup.id, domain.Id);
            items = accessibleMenuItems();
            if (items)
            {
                info(strFmt('%1;%2: %3',  userGroup.id, domain.Id, items));
            }
        }
    }
}

Хорошо. Только я бы еще домены проверил. У меня их, например, нет. Т.е. как-то так наскоряк модифицировать:

    while select userGroup
    {
        if ((select count(RecId) from DomainInfo).RecId)
        {
            while select domain
            {
                secSet  = SysSecurity::constructSecurityKeySet();
                secSet.loadGroupRights(userGroup.id, domain.Id);
                items = accessibleMenuItems();
                if (items)
                {
                    info(strFmt('%1;%2: %3',  userGroup.id, domain.Id, items));
                }
            }
        }
        else // NO DOMAINS
        {
            secSet  = SysSecurity::constructSecurityKeySet();
            secSet.loadGroupRights(userGroup.id, '');
            items = accessibleMenuItems();
            if (items)
            {
                info(strFmt('%1;%2: %3',  userGroup.id, domain.Id, items));
            }
        }
    }