Выбрать несколько элементов из формы выбора справочника и поместить в таб.часть

1. elena_re 10.11.23 14:50 Сейчас в теме
Подскажите, как правильно сделать выбор нескольких элементов из формы выбора справочника? По кнопке "Подбор" открывается форма, но "накликать" подразделения в табличную часть не получается. Есть процедуры ОбработкаВыбора и ОбработкаОповещения, но реализовать все равно не получается. Подскажите, что делаю не так?

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

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

Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
	Если ИмяСобытия = "ВыборПодразделения" Тогда
		НоваяЗапись = ДоступныеПодразделения.Добавить();
		НоваяЗапись.Подразделение = Параметр;
	КонецЕсли;
КонецПроцедуры
Показать
Прикрепленные файлы:
По теме из базы знаний
Найденные решения
3. independ 1556 10.11.23 15:33 Сейчас в теме
(1)
Форма=Справочники.Подразделения.ПолучитьФормуВыбора();
Форма.РежимВыбора=Истина;
Форма.ЗакрыватьПриВыборе=Ложь;
Форма.МножественныйВыбор=Истина;
Форма.ВладелецФормы=ЭтаФорма;
Форма.Открыть();


Процедура ОбработкаВыбора(ВыбранноеЗначение, Источник)
	Если ВыбранноеЗначение=Неопределено Тогда
		Возврат;
	КонецЕсли;
	Если ТипЗнч(ВыбранноеЗначение) = Тип("Массив") Тогда
		Для каждого Эл из ВыбранноеЗначение Цикл
			Если ДоступныеПодразделения.НайтиСтроки(Новый Структура("Подразделение", Эл)).Количество() = 0 Тогда
				новСтр = ДоступныеПодразделения.Добавить();
				новСтр.Подразделение = Эл;
			КонецЕсли;    
		КонецЦикла;
	КонецЕсли;
КонецПроцедуры
Показать
Прикрепленные файлы:
elena_re; +1 Ответить
Остальные ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
3. independ 1556 10.11.23 15:33 Сейчас в теме
(1)
Форма=Справочники.Подразделения.ПолучитьФормуВыбора();
Форма.РежимВыбора=Истина;
Форма.ЗакрыватьПриВыборе=Ложь;
Форма.МножественныйВыбор=Истина;
Форма.ВладелецФормы=ЭтаФорма;
Форма.Открыть();


Процедура ОбработкаВыбора(ВыбранноеЗначение, Источник)
	Если ВыбранноеЗначение=Неопределено Тогда
		Возврат;
	КонецЕсли;
	Если ТипЗнч(ВыбранноеЗначение) = Тип("Массив") Тогда
		Для каждого Эл из ВыбранноеЗначение Цикл
			Если ДоступныеПодразделения.НайтиСтроки(Новый Структура("Подразделение", Эл)).Количество() = 0 Тогда
				новСтр = ДоступныеПодразделения.Добавить();
				новСтр.Подразделение = Эл;
			КонецЕсли;    
		КонецЦикла;
	КонецЕсли;
КонецПроцедуры
Показать
Прикрепленные файлы:
elena_re; +1 Ответить
2. Ravil_ 10.11.23 15:29 Сейчас в теме
что происходит? отовсюду понемногу накопировали? в отладку хоть заходили?
https://infostart.ru/1c/articles/1233756/
4. pakill 43 02.03.25 17:33 Сейчас в теме
&НаКлиенте
Процедура ГрупповоеДобавлениеСсылок(МетаразделЕдЧ, МетаИмя)
	
	ТочкаПродолжения = Новый ОписаниеОповещения("ГрупповоеДобавлениеСсылок_Продолжение", ЭтаФорма);
	ИмяДрФормы = МетаразделЕдЧ + "." + МетаИмя + ".ФормаВыбора";
	ПараметрыОткрытия = Новый Структура("МножественныйВыбор", Истина);

	ОткрытьФорму(ИмяДрФормы, ПараметрыОткрытия, ЭтаФорма,,,, ТочкаПродолжения, РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
	
КонецПроцедуры

&НаКлиенте
Процедура ГрупповоеДобавлениеСсылок_Продолжение(МассивВыбранныхСсылок, ДопПараметры) Экспорт
	
	Если МасивВыбранныхСсылок = Неопределено Тогда
		Возврат;
	КонецЕсли;
	
	Для каждого Ссылка Из МассивВыбранныхСсылок Цикл
		// .... Ваш код
	КонецЦикла;
	
КонецПроцедуры
Показать
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот