Процедура ПолучениеСпискаАктивныхПользователей() ИтогСписокСоединений.Очистить(); СоединенияИнформационнойБазы = ПолучитьСоединенияИнформационнойБазы(); Для Каждого Соединение Из СоединенияИнформационнойБазы Цикл ТЗ=ИтогСписокСоединений.Добавить(); ТЗ.Пользователь=Соединение.Пользователь.Имя; ТЗ.Приложение=ПредставлениеПриложения(Соединение.ИмяПриложения); ТЗ.НачалоРаботы=Соединение.НачалоСеанса; ТЗ.Компьютер=Соединение.ИмяКомпьютера; ТЗ.Соединение=Соединение.НомерСоединения; КонецЦикла; нНомерТекущегоСоединения=НомерСоединенияИнформационнойБазы(); //В итоге получаем ТЗ со списком пользователей и Номер Текущего Соединения КонецПроцедуры
