- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
Процедура ПриЗаписи(Отказ)
// Проверяем роль
Если рольДоступна ("ДляКасираПроведениеВТечениеОдногоДня") Тогда
мТекущаяДатаДокумента = Формат(мТекущаяДатаДокумента, "ДЛФ=D");
Если мТекущаяДатаДокумента = Формат(ТекущаяДата(), "ДЛФ=D") ТОгда
Записать ();
Иначе
Отказ = истина;
Предупреждение ("Нарушение прав доступа");
ЭтаФорма.Закрыть();
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Danik 04.09.2014 14:58 # 0
И грош цена такой защите.
eth0 04.09.2014 18:15 # 0
А вот сравнение дат глупое.
myaut 04.09.2014 15:18 # 0
Интересно, сколько в 1С попадается грамматических ошибок?
alexinzaz 04.09.2014 15:24 # +1
kegdan 04.09.2014 15:33 # +2
fixed
inkanus-gray 05.09.2014 16:07 # +3