Выполнение кода при входе в систему (расчет возраста)

[Алексей_1985_06]

Ребят, подскажите есть справочник "Личный состав" в котором реквизиты "дата рождения" и "возраст", что нужно сделать что бы возраст рассчитывался каждый раз при входе в систему, т.е всегда был актуален... иначе этот расчет просто теряет всякий смысл.... Прошу помочь знатоков! Конфа самописная УФ 8.3.

Код Выделить Развернуть

&НаКлиенте
Процедура  РасчетВозраста()
Лет = 0;
Месяцев = 0;
Дней = 0;
ДатаРождения = Объект.ДатаРождения; 
Пока ДатаРождения <= ТекущаяДата() Цикл
ДатаРождения = ДобавитьМесяц(ДатаРождения,1);
Месяцев = Месяцев + 1;
КонецЦикла;
Месяцев = Месяцев-1;
Лет = Цел(Месяцев/12);
Месяцев = Месяцев-Лет*12;
Дней = Цел((ТекущаяДата() - ДобавитьМесяц(ДатаРождения,-1))/86400);

Строка = СтрокаСЧислом("; %1 год;; %1 года; %1 лет;",
    Лет,
    ВидЧисловогоЗначения.Количественное,
"L=ru");
Объект.Возраст = Строка;
КонецПроцедуры

Код Выделить Развернуть

&НаКлиенте
Процедура ДатаРожденияПриИзменении(Элемент)
РасчетВозраста ();
КонецПроцедуры


[depb]

У вас процедура на клиенте, там недоступен объект перечисление. Можно вынести эту часть кода в серверную процедуру или использовать предопределенное значение

Код Выделить Развернуть

Объект.СемейноеПоложение = ПредопределенноеЗначение("Перечисление.СемейноеПоложение.НужноеЗначение");

[antoneus]

Сделайте регламентное задание и пусть пересчитывает возрасты раз в сутки.
А вообще, этот реквизит - возраст - где-нибудь используется?

[wise]

(0) согласен с (2) !
ЗАЧЕМ хранить.?? когда надо, тогда и рассчитывайте...
а перезаписывать элементы справочника при КАЖДОМ входе в систему... НЕЛЬЗЯ так делать.!