Имя: Пароль:
1C
 
Все, кто родился позже 2000 года обречены на безработицу?
0 0xFFFFFF
 
30.10.08
16:12
Обнаружил в комплексной при записи физлица любопытный код

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


Что же это получается? Людям, родившимся после 2000 года работать запретят? Или надеются, что придумают что то такое, чтобы можно было не работать?
1 lea_220400
 
30.10.08
16:14
нет они тебя позовут и ты исправишь
2 0xFFFFFF
 
30.10.08
16:20
Ок.
Но я тогда не закомментарю этот код, а исправлю на
Если ГодДатыРождения>2001 Тогда
3 lea_220400
 
30.10.08
16:21
ага и месяц еще ))))
4 1Сергей
 
30.10.08
16:29
Сумлеваюсь, что кто-то будет пользоваться данной редакцией Комплексной когда эти лица достигнут работоспособного возраста
5 Эльниньо
 
30.10.08
16:30
(0) Уверены, что до 2017 года семёрка умрёт.:)
6 Fragster
 
гуру
30.10.08
16:31
а если указать 1300 гд, то все типа нормально?
7 0xFFFFFF
 
30.10.08
16:33
(4) Это естественно первая реакция. Просто забавны способы, какими 1С сама определяет "дату смерти" своих продуктов.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший