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