Протестировано на ЗУП 3.1.27.152. При работе с любым иерархическим справочником, возникает ситуация, когда пользователи случайно перемещают элементы. Данное расширение блокирует возможность перетаскивать и менять подчиненность элементов в справочнике «Подразделения» для пользователей не обладающим полными правами.
Реализация
В расширение добавлен обработчик «ПриСозданииНаСервере» формы списка справочника «Подразделения» с вызовом «После». В котором был прописан следующий код:
|
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 |
&НаСервере Процедура АВ_ПриСозданииНаСервереПосле(Отказ, СтандартнаяОбработка) // {{ myblog-1c.ru - заблокировать изменение подчиненности в справочнике подразделений Если Не Пользователи.ЭтоПолноправныйПользователь() Тогда // запрет перетаскивания Элементы.Список.РазрешитьНачалоПеретаскивания = Ложь; Элементы.Список.РазрешитьПеретаскивание = Ложь; // скрытие кнопок "Переместить в другое подразделение" Для Каждого Элемент Из Элементы Цикл // Поиск кнопок: ФормаПеренестиЭлемент, ФормаПеренестиЭлемент1, СписокКонтекстноеМенюПеренестиЭлемент Если ТипЗнч(Элемент) = Тип("КнопкаФормы") И СтрНайти(Элемент.Имя, "ПеренестиЭлемент") > 0 Тогда Элемент.Видимость = Ложь; КонецЕсли; КонецЦикла; КонецЕсли; // }} myblog-1c.ru КонецПроцедуры |
Ссылка на скачивание расширения в начале описания.