Имя: Пароль:
1C
1С v8
Определение списка активных пользователей
,
0 Verita
 
16.03.13
21:59
Добрый день всем!

Есть задача - вывести в табличку список активных пользователей. Есть следующие методы:

&НаКлиенте
Процедура ОбновитьФорму(Команда)
   Попытка
       Объект.АктивныеПользователи.Очистить();
       МассивСоединений=ПолучениеСпискаАктивныхПользователей();
       Для Каждого Соединение Из МассивСоединений Цикл
           НовСтр=Объект.АктивныеПользователи.Добавить();
           НовСтр.Пользователь = Соединение;
           КонецЦикла;
       Исключение
       Сообщить(ОписаниеОшибки());    
   КонецПопытки;

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


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

В итоге, после отработки получаем - N пользователей, все, кто запущен не на этом компе не определились - при трассировке Соединение.Пользователь.Имя = ""
Хочу, чтобы определялось =)

Платформа 8.2.16.368
1 Verita
 
17.03.13
07:18
Up
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший