Бухгалтерия / Говнокод #19527 Ссылка на оригинал

0

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

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

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

Запостил: CMblCL CMblCL, (Updated )

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

  • ava CMblCL # Ссылка на оригинал 0

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

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

  • ava levxxx # Ссылка на оригинал 0

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

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

Переведи на "PHP", guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓