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