&НаКлиенте Процедура Приход(Команда) СтрТч = Элементы.ВремяПосещений.ТекущиеДанные; НовСтр = Объект.ВремяПосещений.Добавить(); НовСтр.Сотрудник = Объект.ПолеСчитыванияID; НовСтр.Отдел = НовСтр.Сотрудник.ПолучитьОбъект().Отдел; НовСтр.Пришел = ТекущаяДата(); КонецПроцедуры &НаКлиенте Процедура Уход(Команда) СтрТч = Элементы.ВремяПосещений.ТекущиеДанные; Для Каждого Строка Из Объект.ВремяПосещений Цикл Сообщить(Строка.Сотрудник); Если ЗначениеЗаполнено(Строка.Сотрудник) И ЗначениеЗаполнено(Строка.Пришел) Тогда Строка.Ушел = ТекущаяДата(); КонецЕсли; КонецЦикла КонецПроцедуры