- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
Процедура ПриЗаписи(Отказ)
	// Проверяем роль
	
	Если рольДоступна ("ДляКасираПроведениеВТечениеОдногоДня")   Тогда		 
		  мТекущаяДатаДокумента = Формат(мТекущаяДатаДокумента, "ДЛФ=D");
		Если  мТекущаяДатаДокумента = Формат(ТекущаяДата(), "ДЛФ=D") ТОгда
			Записать ();
		Иначе
			Отказ = истина;
			Предупреждение ("Нарушение прав доступа");
			ЭтаФорма.Закрыть();
		КонецЕсли;        
	КонецЕсли;
КонецПроцедуры
 Follow us!
 Follow us!
И грош цена такой защите.
А вот сравнение дат глупое.
Интересно, сколько в 1С попадается грамматических ошибок?
fixed