Обработка Список Активных Пользователей

[Pavel779]

Народ помогите разобраться не могу понять почему не работает.

Создал обработку в ней реквизит-таблица значений.
Создал форму в форме создал колонки к таблице значений.
А все равно не работает вот код.
Помогите разобраться

Код Выделить Развернуть

&НаКлиенте
Процедура Команда1(Команда)
Команда1НаСервере(Объект.СписокПользователей,НадписьКоличество);
КонецПроцедуры


&НаСервереБезКонтекста
Процедура Команда1НаСервере(СписокПользователей,НадписьКоличество)

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

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

[sadovod]

Нельзя передавать на сервер тип 'ДанныеФормыКоллекция' (параметр 'Объект.СписокПользователей')
Делайте серверную процедуру контекстной и уберите таблицу из параметров

[Pavel779]

А можете код подправить, а то не доконца понимаю

[sadovod]

&НаКлиенте
Процедура Команда1(Команда)
    Команда1НаСервере();
КонецПроцедуры


&НаСервере
Процедура Команда1НаСервере()


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

[Pavel779]

А можете теперь подсказать, как описать чтоб можно было пользователей выкидывать.
Как по одному ьак и всех.

[Dethmontt]

О какой поворот событий =)))