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