// Наименование физ. лица.
Если ПустаяСтрока(Наименование) = 1 Тогда
Предупреждение("Не указано наименование физического лица!", 60);
Форма.Закладки.ТекущаяСтрока(1);
Форма.ИспользоватьСлой(Форма.Закладки.ПолучитьЗначение(1));
Активизировать("Наименование");
СтатусВозврата(0); Возврат;
КонецЕсли;
//проверим дату рождения
ГодДатыРождения=ДатаГод(ДатаРождения);
Если ГодДатыРождения>2000 Тогда
ДатаРожденияСотрудника=Формат(ДатаРождения,"ДДДММГГГГ");
Предупреждение("Не верно указана дата рождения сотрудника: "+РазделительСтрок+ДатаРожденияСотрудника,10);
СтатусВозврата(0); Возврат;
КонецЕсли;
КонецПроцедуры // ПриЗаписи()
Что же это получается? Людям, родившимся после 2000 года работать запретят? Или надеются, что придумают что то такое, чтобы можно было не работать?
(4) Это естественно первая реакция. Просто забавны способы, какими 1С сама определяет "дату смерти" своих продуктов.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший