&НаСервере
Процедура ЗаполнитьСписокПользователей()
СписокПользователей.Очистить();
СеансыИнформационнойБазы = ПолучитьСеансыИнформационнойБазы();
Для Каждого СеансИБ Из СеансыИнформационнойБазы Цикл
СтрПользователя = СписокПользователей.Добавить();
СтрПользователя.Приложение = ПредставлениеПриложения(СеансИБ.ИмяПриложения);
СтрПользователя.НачалоРаботы = СеансИБ.НачалоСеанса;
СтрПользователя.Компьютер = СеансИБ.ИмяКомпьютера;
СтрПользователя.Сеанс = СеансИБ.НомерСеанса;
СтрПользователя.Соединение = СеансИБ.НомерСоединения;
Если СеансИБ.Пользователь <> Неопределено Тогда
СтрПользователя.Пользователь = СеансИБ.Пользователь.Имя;
СтрПользователя.ИмяПользователя = СеансИБ.Пользователь.ПолноеИмя;
СтрПользователя.ПользовательСсылка = НайтиСсылкуПоИдентификаторуПользователя(СеансИБ.Пользователь.УникальныйИдентификатор);
Иначе
СтрПользователя.Пользователь = "";
СтрПользователя.ИмяПользователя = "";
КонецЕсли;
Если СеансИБ.НомерСеанса = НомерСеансаИнформационнойБазы Тогда
СтрПользователя.НомерРисункаПользователя = 0;
Иначе
СтрПользователя.НомерРисункаПользователя = 1;
КонецЕсли;
КонецЦикла;
КоличествоАктивныхПользователей = СеансыИнформационнойБазы.Количество();
СписокПользователей.Сортировать(ИмяКолонкиСортировки + " " + НаправлениеСортировки);
КонецПроцедуры
