Процедура ПолучениеСпискаАктивныхПользователей()

	

	ИтогСписокСоединений.Очистить();      	

	СоединенияИнформационнойБазы = ПолучитьСоединенияИнформационнойБазы();

	

	Для Каждого Соединение Из СоединенияИнформационнойБазы Цикл           		

		ТЗ=ИтогСписокСоединений.Добавить();                               		

		ТЗ.Пользователь=Соединение.Пользователь.Имя;                      		

		ТЗ.Приложение=ПредставлениеПриложения(Соединение.ИмяПриложения);  		

		ТЗ.НачалоРаботы=Соединение.НачалоСеанса;                          		

		ТЗ.Компьютер=Соединение.ИмяКомпьютера;                            		

		ТЗ.Соединение=Соединение.НомерСоединения;                         		

	КонецЦикла;

	

	нНомерТекущегоСоединения=НомерСоединенияИнформационнойБазы();

	//В итоге получаем ТЗ со списком пользователей и Номер Текущего Соединения 

КонецПроцедуры