Отражение реквизитов в динамических списках

  &НаКлиенте
Процедура ПослеЗакрытияВопроса_Состояние(Результат,Параметры) Экспорт 
	
	Если Результат = КодВозвратаДиалога.Нет Тогда
		Возврат;
	КонецЕсли; 
	
	Если Результат = КодВозвратаДиалога.Да Тогда
		ПолучитьОбъект();
		 Элементы.Список.Обновить();
	КонецЕсли	
	
КонецПроцедуры

&НаСервере
Процедура ПолучитьОбъект () 
	
	Ссылка 	= Элементы.Список.ТекущаяСтрока;
	тОбъект = Ссылка.ПолучитьОбъект();
	
	тОбъект.Состояние = НЕ тОбъект.Состояние;
	тОбъект.Записать();    
			
	ВклВыкл = Истина;
	НовыйПользователь = УстановитьПользователя(  Ссылка, ВклВыкл );  
	Если тОбъект.Состояние = Ложь Тогда 
		
		НовыйПользователь =  Ложь; 
	
	КонецЕсли;
		
	
	КонецПроцедуры

&НаСервере
Функция  УстановитьПользователя( RDP, ВклВыкл )
	
	Набор = РегистрыСведений.RDP_Client_АктивныеСеансы.СоздатьНаборЗаписей();
	Набор.Отбор.RDP.Установить(RDP );	
	мз = Набор.Добавить();
	
	мз.RDP = RDP;
	мз. Пользователь = ?( ВклВыкл = Истина, ПараметрыСеанса.ТекущийПользователь,Неопределено);
	
	Набор.Записать();
			
	Возврат мз. Пользователь;