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