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

    0

    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
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    &НаСервереБезКонтекста
Функция ПроверкаНаРукожопость1()
	
	ГруппаЮзеровРСЧ = Справочники.ГруппыПользователей.НайтиПоНаименованию("Отдел расчёта сотрудников");
	ЮзерыРСЧ = ГруппаЮзеровРСЧ.Состав.ВыгрузитьКолонку("Пользователь");
	
	ТекущийЮзер = Пользователи.ТекущийПользователь();
	//Если ТекущийЮзер = ЮзерыРСЧ.Найти(ТекущийЮзер) Тогда
	НайденныеЮзеры = ЮзерыРСЧ.Найти(ТекущийЮзер);
	Если (НайденныеЮзеры) <> Неопределено Тогда
		Возврат ИСТИНА;
	Иначе
		Возврат ЛОЖЬ;
	КонецЕсли
	
КонецФункции



&НаКлиенте
Процедура ПриОткрытииПосле(Отказ)
	
	//ПроверкаНаРукожопость(ЭтотОбъект);
	
	//Если РольДоступна("Расчетчик") Тогда
	//	Объект.Дата.Доступность = ЛОЖЬ;
	//КонецЕсли;
	
	Если ПроверкаНаРукожопость1() Тогда
		ЭтотОбъект.Элементы.Дата.Доступность = ЛОЖЬ;
		ЭтотОбъект.Элементы.Номер.Доступность = ЛОЖЬ;
		ЭтотОбъект.Элементы.НомерПриказа.Доступность = ЛОЖЬ;
	КонецЕсли;

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

    Шобы не рукоблудили шелудивые бухгалтерши

    Запостил: Stipa, 01 Декабря 2020

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

    • ava bootcamp_dropout 01.12.2020 12:05 # +1

      >//ПроверкаНаРукожопость(ЭтотОбъект)
      >ПроверкаНаРукожопость1()

      какой полиморфизм )))
      Ответить

    • ava MAKAKA 13.07.2021 16:51 # 0

      а нельзя
      Если (НайденныеЮзеры) <> Неопределено Тогда
		Возврат ИСТИНА;
	Иначе
		Возврат ЛОЖЬ;
	КонецЕсли

      заменить на
      возврат (НайденныеЮзеры) <> Неопределено;

      ?
      Ответить

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