Обработка: Как отключить доступ в программу всем пользователям 1С (их много) кроме одного администратора.
По теме из базы знаний
Найденные решения
Нужно использовать галку "Недействителен"
Выборка=Справочники.Пользователи.Выбрать();
Пока выборка.Следующий() Цикл
Если Выборка.Код="Администратор" или Выборка.Наименование="Администратор" или Выборка.ЭтоГруппа тогда
Иначе
Об=Выборка.ПолучитьОбъект();
Об.Недействителен=Истина;
Об.ОбменДанными.Загрузка=Истина;
Об.Записать();
КонецЕсли;
КонецЦикла;
ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Нужно использовать галку "Недействителен"
Выборка=Справочники.Пользователи.Выбрать();
Пока выборка.Следующий() Цикл
Если Выборка.Код="Администратор" или Выборка.Наименование="Администратор" или Выборка.ЭтоГруппа тогда
Иначе
Об=Выборка.ПолучитьОбъект();
Об.Недействителен=Истина;
Об.ОбменДанными.Загрузка=Истина;
Об.Записать();
КонецЕсли;
КонецЦикла;
Показать
(13)
Можно создать любого пользователя для обработки с любым именем. Суть в том, что нужно избавиться от мертвых душ и выдавать доступ тем кто нуждается в нем.
Еще был совет:
Сделать через обработку Групповое изменение реквизитов.
Сделать в ней отбор по Администратору (не равно) и установить реквизит Недействителен = истина.
Такая обработка есть во всех конфигурациях (типовых)
Но хотелось бы подробностей.
Можно создать любого пользователя для обработки с любым именем. Суть в том, что нужно избавиться от мертвых душ и выдавать доступ тем кто нуждается в нем.
Еще был совет:
Сделать через обработку Групповое изменение реквизитов.
Сделать в ней отбор по Администратору (не равно) и установить реквизит Недействителен = истина.
Такая обработка есть во всех конфигурациях (типовых)
Но хотелось бы подробностей.
//Отклчает всех кроме вас в бух 3.0 // пример так же будет в и вашей конфе
ПараметрыАдминистрирования = СоединенияИБКлиент.СохраненныеПараметрыАдминистрирования();
Если ОбщегоНазначенияКлиент.КлиентПодключенЧерезВебСервер() Тогда
СоединенияИБВызовСервера.УдалитьВсеСеансыКромеТекущего(ПараметрыАдминистрирования);
Иначе
СоединенияИБКлиентСервер.УдалитьВсеСеансыКромеТекущего(ПараметрыАдминистрирования);
КонецЕсли;
про раздачу прав писали выше.
ПараметрыАдминистрирования = СоединенияИБКлиент.СохраненныеПараметрыАдминистрирования();
Если ОбщегоНазначенияКлиент.КлиентПодключенЧерезВебСервер() Тогда
СоединенияИБВызовСервера.УдалитьВсеСеансыКромеТекущего(ПараметрыАдминистрирования);
Иначе
СоединенияИБКлиентСервер.УдалитьВсеСеансыКромеТекущего(ПараметрыАдминистрирования);
КонецЕсли;
про раздачу прав писали выше.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот