1. 1C / Говнокод #19527

    −98

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    Процедура ОсновныеДействияФормыПароль(Кнопка)
	Если ЭтотОбъект.Пароль = "база7" Тогда
		ЭлементыФормы.РедактированиеСклада.Доступность = Истина;
		ЭтотОбъект.Пароль = "";
		Сообщить("Вы можете изменить галку 'Редактирование склада'");
	ИначеЕсли ЭтотОбъект.Пароль = "разрешение" Тогда
		ЭлементыФормы.ПривелигированныйПользователь.Доступность = Истина;
		ЭтотОбъект.Пароль = "";
		Сообщить("Вы можете изменить галку 'Привелигированный пользователь'");
	Иначе
		Сообщить("Вы ввели неверный пароль");
	КонецЕсли;

КонецПроцедуры

    Реализация ограничения прав на установку прав для пользователей ИБ.

    Запостил: CMblCL, 25 Февраля 2016

    Комментарии (8) RSS

    • ava CMblCL 25.02.2016 08:34 # +1

      Процедура ОбработкаПроведения(Отказ, РежимПроведения)
      Если глЗначениеПеременной("глТекущийПользоват ель").ПривелигированныйПользователь = ИСТИНА Тогда
      Отказ = ЛОЖЬ;
      КонецЕсли;
      КонецПроцедуры

      А вот так мы реализуем права пользователя.
      Ответить

    • ava levxxx 26.02.2016 14:49 # −1

      Давайте соберём денег и контакты этих писателей, наймём серийного убийцу маньяка и пусть он всех выпилит
      Ответить

    • ava dsfix 17.03.2016 10:20 # 0

      Ода торопыгам
      Ответить

    Добавить комментарий