#Область ОписаниеПеременных
&НаКлиенте
Перем ОбновитьИнтерфейс;
#КонецОбласти
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Не Пользователи.ОбщиеНастройкиВходаИспользуются() Тогда
Элементы.ГруппаНастройкиВходаПользователей.Видимость = Ложь;
Элементы.ГруппаВнешниеПользователи.Группировка
= ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяВсегда;
КонецЕсли;
Если ОбщегоНазначения.РазделениеВключено()
Или СтандартныеПодсистемыСервер.ЭтоБазоваяВерсияКонфигурации()
Или ОбщегоНазначения.ЭтоАвтономноеРабочееМесто()
Или Не ПользователиСлужебный.ВнешниеПользователиВнедрены() Тогда
Элементы.ГруппаВнешниеПользователи.Видимость = Ложь;
Элементы.ОписаниеРаздела.Заголовок =
НСтр("ru = 'Администрирование пользователей, настройка групп доступа, управление пользовательскими настройками.'");
КонецЕсли;
Если СтандартныеПодсистемыСервер.ЭтоБазоваяВерсияКонфигурации()
Или ОбщегоНазначения.ЭтоПодчиненныйУзелРИБ() Тогда
Элементы.ИспользоватьГруппыПользователей.Доступность = Ложь;
Элементы.ИспользоватьВнешнихПользователей.Доступность = Ложь;
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.УправлениеДоступом") Тогда
МодульУправлениеДоступомСлужебный = ОбщегоНазначения.ОбщийМодуль("УправлениеДоступомСлужебный");
УпрощенныйИнтерфейс = МодульУправлениеДоступомСлужебный.УпрощенныйИнтерфейсНастройкиПравДоступа();
Элементы.ОткрытьГруппыДоступа.Видимость = Не УпрощенныйИнтерфейс;
Элементы.ИспользоватьГруппыПользователей.Видимость = Не УпрощенныйИнтерфейс;
Элементы.ОграничиватьДоступНаУровнеЗаписейУниверсально.Видимость
= МодульУправлениеДоступомСлужебный.ВариантВстроенногоЯзыкаРусский()
И Пользователи.ЭтоПолноправныйПользователь();
Элементы.ОбновлениеДоступаНаУровнеЗаписей.Видимость =
МодульУправлениеДоступомСлужебный.ОграничиватьДоступНаУровнеЗаписейУниверсально(Истина);
Если ОбщегоНазначения.ЭтоПодчиненныйУзелРИБ() Тогда
Элементы.ОграничиватьДоступНаУровнеЗаписей.Доступность = Ложь;
Элементы.ОграничиватьДоступНаУровнеЗаписейУниверсально.Доступность = Ложь;
КонецЕсли;
ОбновитьВидимостьПредупрежденияСтандартныйВариантУстарел(ЭтотОбъект);
ПоддерживаетсяРегистрацияИзмененийПраваДоступа =
МодульУправлениеДоступомСлужебный.ПоддерживаетсяРегистрацияИзмененийПраваДоступа();
Иначе
Элементы.ГруппаГруппыДоступа.Видимость = Ложь;
ПоддерживаетсяРегистрацияИзмененийПраваДоступа = Ложь;
КонецЕсли;
Если Не ПоддерживаетсяРегистрацияИзмененийПраваДоступа
И Элементы.Найти("РегистрироватьИзмененияПравДоступа") <> Неопределено Тогда
Элементы.РегистрироватьИзмененияПравДоступа.Заголовок =
НСтр("ru = 'Регистрировать изменения участников групп пользователей'");
Элементы.РегистрироватьИзмененияПравДоступа.РасширеннаяПодсказка.Заголовок =
НСтр("ru = 'Запись дополнительных событий в журнал регистрации при изменении участников групп пользователей.'");
КонецЕсли;
Если Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ДатыЗапретаИзменения") Тогда
Элементы.ГруппаДатыЗапретаИзменения.Видимость = Ложь;
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ЗащитаПерсональныхДанных") Тогда
Элементы.ГруппаНастройкиРегистрацииСобытийДоступаКПерсональнымДанным.Видимость =
Пользователи.ЭтоПолноправныйПользователь(, Истина);
Иначе
Элементы.ГруппаЗащитаПерсональныхДанных.Видимость = Ложь;
КонецЕсли;
Если Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ВариантыОтчетов")
Или Метаданные.Подсистемы.Найти("Администрирование") = Неопределено Тогда
Элементы.КонтрольРаботыПользователей.Видимость = Ложь;
КонецЕсли;
Если Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.КонтрольРаботыПользователей") Тогда
Элементы.ГруппаАудитДоступаКДанным.Видимость = Ложь;
Если Элементы.Найти("РегистрироватьИзмененияПравДоступа") <> Неопределено Тогда
Элементы.РегистрироватьИзмененияПравДоступа.Видимость = Ложь;
КонецЕсли;
Элементы.ГруппаКонтрольРаботыПользователейЛеваяКолонкаВертикальныйОтступ.Видимость = Истина;
ИначеЕсли ОбщегоНазначения.РазделениеВключено()
Или Не Пользователи.ЭтоПолноправныйПользователь(, Истина) Тогда
Элементы.ГруппаНастройкиКонтроляДоступаКДанным.Видимость = Ложь;
Иначе
МодульКонтрольРаботыПользователей = ОбщегоНазначения.ОбщийМодуль("КонтрольРаботыПользователей");
РегистрироватьДоступКДанным = МодульКонтрольРаботыПользователей.РегистрироватьДоступКДанным();
КонецЕсли;
Если ОбщегоНазначения.РазделениеВключено() Тогда
Элементы.ВосстановлениеПаролей.Видимость = Ложь;
КонецЕсли;
УстановитьДоступность();
НастройкиПрограммыПереопределяемый.НастройкиПользователейИПравПриСозданииНаСервере(ЭтотОбъект);
КонецПроцедуры
&НаКлиенте
Процедура ПриЗакрытии(ЗавершениеРаботы)
Если ЗавершениеРаботы Тогда
Возврат;
КонецЕсли;
ОбновитьИнтерфейсПрограммы();
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
Если ИмяСобытия <> "Запись_НаборКонстант" Тогда
Возврат;
КонецЕсли;
Если Источник = "ИспользоватьАнкетирование"
И ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Анкетирование") Тогда
Прочитать();
УстановитьДоступность();
ИначеЕсли Источник = "ИспользоватьСкрытиеПерсональныхДанныхСубъектов" Тогда
Прочитать();
КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовШапкиФормы
&НаКлиенте
Процедура ИспользоватьГруппыПользователейПриИзменении(Элемент)
Подключаемый_ПриИзмененииРеквизита(Элемент);
КонецПроцедуры
&НаКлиенте
Процедура РегистрироватьИзмененияПравДоступаПриИзменении(Элемент)
Подключаемый_ПриИзмененииРеквизита(Элемент);
КонецПроцедуры
&НаКлиенте
Процедура ИспользоватьВнешнихПользователейПриИзменении(Элемент)
Если НаборКонстант.ИспользоватьВнешнихПользователей Тогда
ТекстВопроса =
НСтр("ru = 'Разрешить доступ внешним пользователям?
|
|При входе в приложение список выбора пользователей станет пустым
|(реквизит ""Показывать в списке выбора"" в карточках всех
| пользователей будет очищен и скрыт).'");
ПоказатьВопрос(
Новый ОписаниеОповещения(
"ИспользоватьВнешнихПользователейПриИзмененииЗавершение",
ЭтотОбъект,
Элемент),
ТекстВопроса,
РежимДиалогаВопрос.ДаНет);
Иначе
ТекстВопроса =
НСтр("ru = 'Запретить доступ внешним пользователям?
|
|Реквизит ""Вход в приложение разрешен"" будет
|очищен в карточках всех внешних пользователей.'");
ПоказатьВопрос(
Новый ОписаниеОповещения(
"ИспользоватьВнешнихПользователейПриИзмененииЗавершение",
ЭтотОбъект,
Элемент),
ТекстВопроса,
РежимДиалогаВопрос.ДаНет);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОграничиватьДоступНаУровнеЗаписейУниверсальноПриИзменении(Элемент)
Если НаборКонстант.ОграничиватьДоступНаУровнеЗаписейУниверсально Тогда
ТекстВопроса =
НСтр("ru = 'Включить производительный вариант ограничения доступа?
|
|Включение займет некоторое время для перезаполнения настроек прав в приложении,
|см. ход выполнения по ссылке ""Обновление доступа на уровне записей"".'");
Иначе
ТекстВопроса =
НСтр("ru = 'Вернуться к устаревшему стандартному варианту ограничения доступа?
|
|Включение займет некоторое время для перезаполнения настроек прав в приложении,
|см. ход выполнения регламентного задания ""Заполнение данных для ограничения доступа"" в журнале регистрации.'");
КонецЕсли;
Если ЗначениеЗаполнено(ТекстВопроса) Тогда
ПоказатьВопрос(
Новый ОписаниеОповещения(
"ОграничиватьДоступНаУровнеЗаписейУниверсальноПриИзмененииЗавершение",
ЭтотОбъект, Элемент),
ТекстВопроса, РежимДиалогаВопрос.ДаНет);
Иначе
ОграничиватьДоступНаУровнеЗаписейУниверсальноПриИзмененииЗавершение(КодВозвратаДиалога.Да, Элемент);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОграничиватьДоступНаУровнеЗаписейПриИзменении(Элемент)
Если НаборКонстант.ОграничиватьДоступНаУровнеЗаписейУниверсально Тогда
ТекстВопроса =
НСтр("ru = 'Настройки групп доступа вступят в силу через некоторое время,
|см. ход выполнения по ссылке ""Обновление доступа на уровне записей"".
|
|Заполнение настроек прав доступа может временно замедлить работу приложения
|и занять от нескольких секунд до часов (в зависимости от объема данных).'");
Если НаборКонстант.ОграничиватьДоступНаУровнеЗаписей Тогда
ТекстВопроса = НСтр("ru = 'Включить ограничение доступа на уровне записей?'")
+ Символы.ПС + Символы.ПС + ТекстВопроса;
Иначе
ТекстВопроса = НСтр("ru = 'Выключить ограничение доступа на уровне записей?'")
+ Символы.ПС + Символы.ПС + ТекстВопроса;
КонецЕсли;
ИначеЕсли НаборКонстант.ОграничиватьДоступНаУровнеЗаписей Тогда
ТекстВопроса =
НСтр("ru = 'Включить ограничение доступа на уровне записей?
|
|Заполнение настроек прав доступа может временно замедлить работу приложения
|и занять от нескольких секунд до часов (в зависимости от объема данных).
|См. ход выполнения регламентного задания ""Заполнение данных для ограничения доступа"" в журнале регистрации.'");
Иначе
ТекстВопроса = "";
КонецЕсли;
Если ЗначениеЗаполнено(ТекстВопроса) Тогда
ПоказатьВопрос(
Новый ОписаниеОповещения(
"ОграничиватьДоступНаУровнеЗаписейПриИзмененииЗавершение",
ЭтотОбъект, Элемент),
ТекстВопроса, РежимДиалогаВопрос.ДаНет);
Иначе
ОграничиватьДоступНаУровнеЗаписейПриИзмененииЗавершение(КодВозвратаДиалога.Да, Элемент);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура РегистрироватьДоступКДаннымПриИзменении(Элемент)
РегистрироватьДоступКДаннымПриИзмененииНаСервере(РегистрироватьДоступКДанным);
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиКомандФормы
&НаКлиенте
Процедура СправочникВнешниеПользователи(Команда)
ОткрытьФорму("Справочник.ВнешниеПользователи.ФормаСписка", , ЭтотОбъект);
КонецПроцедуры
&НаКлиенте
Процедура КонтрольРаботыПользователей(Команда)
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ВариантыОтчетов") Тогда
МодульВариантыОтчетовКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ВариантыОтчетовКлиент");
МодульВариантыОтчетовКлиент.ПоказатьПанельОтчетов("Администрирование", Неопределено);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОбновлениеДоступаНаУровнеЗаписей(Команда)
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.УправлениеДоступом") Тогда
МодульУправлениеДоступомСлужебныйКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеДоступомСлужебныйКлиент");
МодульУправлениеДоступомСлужебныйКлиент.ОткрытьФормуОбновлениеДоступаНаУровнеЗаписей(Истина, Истина);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура НастроитьДатыЗапретаИзменения(Команда)
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ДатыЗапретаИзменения") Тогда
МодульДатыЗапретаИзмененияСлужебныйКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ДатыЗапретаИзмененияСлужебныйКлиент");
МодульДатыЗапретаИзмененияСлужебныйКлиент.ОткрытьДатыЗапретаИзмененияДанных(ЭтотОбъект);
КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
&НаКлиентеНаСервереБезКонтекста
Процедура ОбновитьВидимостьПредупрежденияСтандартныйВариантУстарел(Форма)
Элементы = Форма.Элементы;
Элементы.СтандартныйВариантУстарел.Видимость =
Элементы.ОграничиватьДоступНаУровнеЗаписейУниверсально.Видимость
И Элементы.ОграничиватьДоступНаУровнеЗаписейУниверсально.Доступность
И Не Элементы.ОбновлениеДоступаНаУровнеЗаписей.Видимость;
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ПриИзмененииРеквизита(Элемент, ОбновлятьИнтерфейс = Истина)
ИменаКонстант = ПриИзмененииРеквизитаСервер(Элемент.Имя);
ОбновитьПовторноИспользуемыеЗначения();
Если ОбновлятьИнтерфейс Тогда
ОбновитьИнтерфейс = Истина;
ПодключитьОбработчикОжидания("ОбновитьИнтерфейсПрограммы", 2, Истина);
КонецЕсли;
Для Каждого ИмяКонстанты Из ИменаКонстант Цикл
Если ИмяКонстанты <> "" Тогда
Оповестить("Запись_НаборКонстант", Новый Структура, ИмяКонстанты);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_НастройкиУничтоженияПДнПриИзменении(Элемент)
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ЗащитаПерсональныхДанных") Тогда
МодульЗащитаПерсональныхДанныхКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ЗащитаПерсональныхДанныхКлиент");
МодульЗащитаПерсональныхДанныхКлиент.НастройкиУничтоженияПерсональныхДанныхПриИзменении(ЭтотОбъект);
КонецЕсли;
ОбновитьИнтерфейс = Истина;
ПодключитьОбработчикОжидания("ОбновитьИнтерфейсПрограммы", 2, Истина);
КонецПроцедуры
&НаКлиенте
Процедура ОбновитьИнтерфейсПрограммы()
Если ОбновитьИнтерфейс = Истина Тогда
ОбновитьИнтерфейс = Ложь;
ОбщегоНазначенияКлиент.ОбновитьИнтерфейсПрограммы();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОграничиватьДоступНаУровнеЗаписейУниверсальноПриИзмененииЗавершение(Ответ, Элемент) Экспорт
Если Ответ = КодВозвратаДиалога.Нет Тогда
НаборКонстант.ОграничиватьДоступНаУровнеЗаписейУниверсально
= Не НаборКонстант.ОграничиватьДоступНаУровнеЗаписейУниверсально;
Возврат;
КонецЕсли;
Подключаемый_ПриИзмененииРеквизита(Элемент);
Элементы.ОбновлениеДоступаНаУровнеЗаписей.Видимость =
НаборКонстант.ОграничиватьДоступНаУровнеЗаписейУниверсально;
ОбновитьВидимостьПредупрежденияСтандартныйВариантУстарел(ЭтотОбъект);
КонецПроцедуры
&НаКлиенте
Процедура ОграничиватьДоступНаУровнеЗаписейПриИзмененииЗавершение(Ответ, Элемент) Экспорт
Если Ответ = КодВозвратаДиалога.Нет Тогда
НаборКонстант.ОграничиватьДоступНаУровнеЗаписей = Не НаборКонстант.ОграничиватьДоступНаУровнеЗаписей;
Возврат;
КонецЕсли;
Подключаемый_ПриИзмененииРеквизита(Элемент);
Если Не НаборКонстант.ОграничиватьДоступНаУровнеЗаписей Тогда
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ИспользоватьВнешнихПользователейПриИзмененииЗавершение(Ответ, Элемент) Экспорт
Если Ответ = КодВозвратаДиалога.Нет Тогда
НаборКонстант.ИспользоватьВнешнихПользователей = Не НаборКонстант.ИспользоватьВнешнихПользователей;
Иначе
Подключаемый_ПриИзмененииРеквизита(Элемент);
КонецЕсли;
КонецПроцедуры
&НаСервере
Функция ПриИзмененииРеквизитаСервер(ИмяЭлемента)
ИменаКонстант = Новый Массив;
РеквизитПутьКДанным = Элементы[ИмяЭлемента].ПутьКДанным;
НачатьТранзакцию();
Попытка
ИмяКонстанты = СохранитьЗначениеРеквизита(РеквизитПутьКДанным);
ИменаКонстант.Добавить(ИмяКонстанты);
ЗафиксироватьТранзакцию();
Исключение
ОтменитьТранзакцию();
ВызватьИсключение;
КонецПопытки;
УстановитьДоступность(РеквизитПутьКДанным);
ОбновитьПовторноИспользуемыеЗначения();
Возврат ИменаКонстант;
КонецФункции
&НаСервереБезКонтекста
Процедура РегистрироватьДоступКДаннымПриИзмененииНаСервере(Знач РегистрироватьДоступКДанным)
Если Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.КонтрольРаботыПользователей") Тогда
Возврат;
КонецЕсли;
МодульКонтрольРаботыПользователей = ОбщегоНазначения.ОбщийМодуль("КонтрольРаботыПользователей");
МодульКонтрольРаботыПользователей.УстановитьРегистрациюДоступаКДанным(РегистрироватьДоступКДанным);
КонецПроцедуры
&НаСервере
Функция СохранитьЗначениеРеквизита(РеквизитПутьКДанным)
ЧастиИмени = СтрРазделить(РеквизитПутьКДанным, ".");
Если ЧастиИмени.Количество() <> 2 Тогда
Возврат "";
КонецЕсли;
ИмяКонстанты = ЧастиИмени[1];
КонстантаМенеджер = Константы[ИмяКонстанты];
КонстантаЗначение = НаборКонстант[ИмяКонстанты];
ТекущееЗначение = КонстантаМенеджер.Получить();
Если ТекущееЗначение <> КонстантаЗначение Тогда
Попытка
КонстантаМенеджер.Установить(КонстантаЗначение);
Исключение
НаборКонстант[ИмяКонстанты] = ТекущееЗначение;
ВызватьИсключение;
КонецПопытки;
КонецЕсли;
Если РеквизитПутьКДанным = "НаборКонстант.ИспользоватьВнешнихПользователей"
ИЛИ РеквизитПутьКДанным = "НаборКонстант.ОграничиватьДоступНаУровнеЗаписей" Тогда
Если Не НаборКонстант.ИспользоватьГруппыДоступаПартнеров
И НаборКонстант.ИспользоватьВнешнихПользователей
И НаборКонстант.ОграничиватьДоступНаУровнеЗаписей Тогда
Константы.ИспользоватьГруппыДоступаПартнеров.Установить(Истина);
КонецЕсли;
ЭтаФорма.Прочитать();
УстановитьДоступность("НаборКонстант.ИспользоватьГруппыДоступаПартнеров");
КонецЕсли;
Возврат ИмяКонстанты;
КонецФункции
&НаСервере
Процедура УстановитьДоступность(РеквизитПутьКДанным = "")
Если РеквизитПутьКДанным = "НаборКонстант.ИспользоватьВнешнихПользователей"
Или РеквизитПутьКДанным = "" Тогда
Элементы.ОткрытьВнешниеПользователи.Доступность = НаборКонстант.ИспользоватьВнешнихПользователей;
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ДатыЗапретаИзменения")
И (РеквизитПутьКДанным = "НаборКонстант.ИспользоватьДатыЗапретаИзменения"
Или РеквизитПутьКДанным = "") Тогда
Элементы.НастроитьДатыЗапретаИзменения.Доступность = НаборКонстант.ИспользоватьДатыЗапретаИзменения;
КонецЕсли;
Если РеквизитПутьКДанным = "НаборКонстант.ИспользоватьГруппыДоступаПартнеров" ИЛИ РеквизитПутьКДанным = "" Тогда
Элементы.ОткрытьГруппыДоступаПартнеров.Доступность = НаборКонстант.ИспользоватьГруппыДоступаПартнеров;
Элементы.ГруппаИспользоватьГруппыДоступаПартнеров.Доступность = НаборКонстант.ОграничиватьДоступНаУровнеЗаписей;
Элементы.ГруппаИспользоватьГруппыДоступаПартнеровЛево.Доступность = НЕ НаборКонстант.ИспользоватьВнешнихПользователей;
Элементы.ГруппаКомментарийИспользоватьГруппыДоступаПартнеров.Видимость = НаборКонстант.ОграничиватьДоступНаУровнеЗаписей И НаборКонстант.ИспользоватьВнешнихПользователей;
КонецЕсли;
Если РеквизитПутьКДанным = "НаборКонстант.ОграничиватьДоступНаУровнеЗаписей" ИЛИ РеквизитПутьКДанным = "" Тогда
Элементы.ИспользоватьГруппыДоступаПартнеров.Доступность = НаборКонстант.ОграничиватьДоступНаУровнеЗаписей;
УстановитьДоступность("НаборКонстант.ИспользоватьГруппыДоступаПартнеров");
Элементы.ОграничиватьДоступНаУровнеЗаписейФизическиеЛица.Доступность = НаборКонстант.ОграничиватьДоступНаУровнеЗаписей;
Элементы.ИспользоватьГруппыДоступаВидовСтатейИПоказателейБюджетов.Доступность = НаборКонстант.ОграничиватьДоступНаУровнеЗаписей;
УстановитьДоступность("НаборКонстант.ОграничиватьДоступНаУровнеЗаписейФизическиеЛица");
УстановитьДоступность("НаборКонстант.ИспользоватьГруппыДоступаВидовСтатейИПоказателейБюджетов");
КонецЕсли;
Если РеквизитПутьКДанным = "НаборКонстант.ОграничиватьДоступНаУровнеЗаписейФизическиеЛица" ИЛИ РеквизитПутьКДанным = "" Тогда
Элементы.ОткрытьГруппыДоступаФизЛиц.Доступность = НаборКонстант.ОграничиватьДоступНаУровнеЗаписейФизическиеЛица;
КонецЕсли;
Если РеквизитПутьКДанным = "НаборКонстант.ОграничиватьДоступНаУровнеЗаписей" ИЛИ РеквизитПутьКДанным = "" Тогда
Элементы.ИспользоватьГруппыДоступаНоменклатуры.Доступность = НаборКонстант.ОграничиватьДоступНаУровнеЗаписей;
УстановитьДоступность("НаборКонстант.ИспользоватьГруппыДоступаНоменклатуры");
КонецЕсли;
Если РеквизитПутьКДанным = "НаборКонстант.ИспользоватьГруппыДоступаНоменклатуры" ИЛИ РеквизитПутьКДанным = "" Тогда
Элементы.ОткрытьГруппыДоступаНоменклатуры.Доступность = НаборКонстант.ИспользоватьГруппыДоступаНоменклатуры;
КонецЕсли;
Если РеквизитПутьКДанным = "НаборКонстант.ИспользоватьГруппыДоступаВидовСтатейИПоказателейБюджетов" ИЛИ РеквизитПутьКДанным = "" Тогда
Элементы.ОткрытьГруппыДоступаВидовБюджетов.Доступность = НаборКонстант.ИспользоватьГруппыДоступаВидовСтатейИПоказателейБюджетов;
Элементы.ОткрытьГруппыДоступаСтатейИПоказателейБюджетов.Доступность = НаборКонстант.ИспользоватьГруппыДоступаВидовСтатейИПоказателейБюджетов;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОткрытьГруппыДоступаПартнеров(Команда)
ОткрытьФорму("Справочник.ГруппыДоступаПартнеров.ФормаСписка", , ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ОткрытьГруппыДоступаФизЛиц(Команда)
ОткрытьФорму("Справочник.ГруппыДоступаФизическихЛиц.ФормаСписка", , ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ОграничиватьДоступНаУровнеЗаписейФизическиеЛицаПриИзменении(Элемент)
Подключаемый_ПриИзмененииРеквизита(Элемент);
КонецПроцедуры
&НаКлиенте
Процедура ИспользоватьГруппыДоступаПартнеровПриИзменении(Элемент)
Подключаемый_ПриИзмененииРеквизита(Элемент);
КонецПроцедуры
&НаКлиенте
Процедура ОткрытьГруппыДоступаНоменклатуры(Команда)
ОткрытьФорму("Справочник.ГруппыДоступаНоменклатуры.ФормаСписка", , ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ИспользоватьГруппыДоступаНоменклатурыПриИзменении(Элемент)
Подключаемый_ПриИзмененииРеквизита(Элемент);
КонецПроцедуры
&НаКлиенте
Процедура ОткрытьГруппыДоступаСтатейИПоказателейБюджетов(Команда)
ОткрытьФорму("Справочник.ГруппыДоступаСтатейИПоказателейБюджетов.ФормаСписка", , ЭтаФорма);
Возврат;
КонецПроцедуры
&НаКлиенте
Процедура ОткрытьГруппыДоступаВидовБюджетов(Команда)
ОткрытьФорму("Справочник.ГруппыДоступаВидовБюджетов.ФормаСписка", , ЭтаФорма);
Возврат;
КонецПроцедуры
&НаКлиенте
Процедура ИспользоватьГруппыДоступаВидовСтатейИПоказателейБюджетовПриИзменении(Элемент)
Подключаемый_ПриИзмененииРеквизита(Элемент);
Возврат;
КонецПроцедуры
#КонецОбласти
