Здравствуйте!
Делаю, что б при выборе группы в справочнике, ТЧ заполнялась автоматом по выбранной группе. Не получается, сделал так:
Делаю, что б при выборе группы в справочнике, ТЧ заполнялась автоматом по выбранной группе. Не получается, сделал так:
Отбор = Новый Структура;
Отбор.Вставить("Наименование",ЭтотОбъект.ОН); //ОН - реквизит, ссылающийся на справочник
Выборка = Справочники.ОН.Выбрать(,,Отбор);
Пока Выборка.Следующий() цикл
Значения = Выборка.ТЧ.ВыгрузитьКолонку("Адрес");
ЭлементыФормы.Адрес.СписокВыбора.ЗагрузитьЗначения(Значения);
КонецЦикла;
ПоказатьПо теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
СписокПодВидовДеятельности = Элемент.СписокВыбора;
// заполним список
СписокПодВидовДеятельности.Очистить();
ЗапросПодвидыДляВыбора = Новый Запрос("ВЫБРАТЬ
| Подвид
|ИЗ
| Справочник.ВидыДеятельностиКонтрагентов.Подвиды
|ГДЕ
| Ссылка = &ТекВид
| И Подвид.Предопределенный = Истина
|
|УПОРЯДОЧИТЬ ПО
| Подвид.Наименование");
ЗапросПодвидыДляВыбора.УстановитьПараметр("ТекВид",ТекВид);
Результат = ЗапросПодвидыДляВыбора.Выполнить();
Если Результат.Пустой() Тогда
СтандартнаяОбработка = Ложь;
ЭлементыФормы.ВидыДеятельности.ТекущаяКолонка = ЭлементыФормы.ВидыДеятельности.Колонки.Округ;
Иначе
ВыборкаПодВидыДляВыбора = Результат.Выбрать();
Пока ВыборкаПодВидыДляВыбора.Следующий() Цикл
СписокПодВидовДеятельности.Добавить(ВыборкаПодВидыДляВыбора.Подвид);
КонецЦикла;
// заполним список
СписокПодВидовДеятельности.Очистить();
ЗапросПодвидыДляВыбора = Новый Запрос("ВЫБРАТЬ
| Подвид
|ИЗ
| Справочник.ВидыДеятельностиКонтрагентов.Подвиды
|ГДЕ
| Ссылка = &ТекВид
| И Подвид.Предопределенный = Истина
|
|УПОРЯДОЧИТЬ ПО
| Подвид.Наименование");
ЗапросПодвидыДляВыбора.УстановитьПараметр("ТекВид",ТекВид);
Результат = ЗапросПодвидыДляВыбора.Выполнить();
Если Результат.Пустой() Тогда
СтандартнаяОбработка = Ложь;
ЭлементыФормы.ВидыДеятельности.ТекущаяКолонка = ЭлементыФормы.ВидыДеятельности.Колонки.Округ;
Иначе
ВыборкаПодВидыДляВыбора = Результат.Выбрать();
Пока ВыборкаПодВидыДляВыбора.Следующий() Цикл
СписокПодВидовДеятельности.Добавить(ВыборкаПодВидыДляВыбора.Подвид);
КонецЦикла;
Думаю, можно как-то так:
http://slil.ru/28735335
Процедура НоменклатураПриИзменении(Элемент)
ТабНом.Очистить();
Если Элемент.Значение.ЭтоГруппа Тогда
Выборка = Справочники.Номенклатура.ВыбратьИерархически(Элемент.Значение);
Пока Выборка.Следующий() Цикл
Значение = Выборка.Ссылка;
НовСтр = ТабНом.Добавить();
НовСтр.Номенклатура = Значение;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот