Програмное получение группы пользователя в 1С
Например можно так:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
Функция ПолучитьГруппуПользователя() Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ГруппыПользователей.Наименование КАК Наименование |ИЗ | Справочник.ГруппыПользователей КАК ГруппыПользователей |ГДЕ | ГруппыПользователей.Состав.Пользователь.Ссылка = &Ссылка"; Запрос.УстановитьПараметр("Ссылка", ПараметрыСеанса.ТекущийПользователь); РезультатЗапроса = Запрос.Выполнить(); ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); группа=""; Пока ВыборкаДетальныеЗаписи.Следующий() Цикл сообщить(ВыборкаДетальныеЗаписи.Наименование); группа=ВыборкаДетальныеЗаписи.Наименование; конеццикла; возврат группа; КонецФункции Функция ПроверкаВсяческихПрав(Источник, Отказ) Экспорт сообщить("-- какойто негодяй из "+ПолучитьГруппуПользователя()+" хочет записать документ! Проверяем а нужно ли?"); КонецФункции |