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