Имя: Пароль:
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С сама определяет "дату смерти" своих продуктов.