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

    −172

    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
    Процедура ПриЗаписи(Отказ)
    	// Проверяем роль
    	
    	Если рольДоступна ("ДляКасираПроведениеВТечениеОдногоДня")   Тогда		 
    		  мТекущаяДатаДокумента = Формат(мТекущаяДатаДокумента, "ДЛФ=D");
    		Если  мТекущаяДатаДокумента = Формат(ТекущаяДата(), "ДЛФ=D") ТОгда
    			Записать ();
    		Иначе
    			Отказ = истина;
    			Предупреждение ("Нарушение прав доступа");
    			ЭтаФорма.Закрыть();
    		КонецЕсли;        
    	КонецЕсли;
    КонецПроцедуры

    И это все в модуле формы.

    Запостил: alexinzaz, 04 Сентября 2014

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

    • Ну, по сути, кассир может поменять рабочую дату и перезаписывать документа столько хочет.
      И грош цена такой защите.
      Ответить
      • Не везде можно поменять дату, но, согласен, не самое оптимальное решение.
        А вот сравнение дат глупое.
        Ответить
    • > Касира
      Интересно, сколько в 1С попадается грамматических ошибок?
      Ответить
      • Внесите предложение 1с, чтоб при сдаче экзаменов дополнительно тестировали на знание русского языка.
        Ответить
      • кираса

        fixed
        Ответить
      • Исмаи́л ибн Каси́р аль-Бусрави — известный исламский учёный-правовед, историк, толкователь Корана и хадисов.
        Ответить

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