Процедура Приотрытии(Отказ) Если Элементы.Дата='00010101' Тогда Элементы.Дата=ТекущаяДата() КонецЕсли КонецПроцедуры