СправочникГруппа -> ТЧ

1. samlab 20 03.03.10 10:46 Сейчас в теме
Здравствуйте!
Делаю, что б при выборе группы в справочнике, ТЧ заполнялась автоматом по выбранной группе. Не получается, сделал так:
Отбор = Новый Структура;
    Отбор.Вставить("Наименование",ЭтотОбъект.ОН); //ОН - реквизит, ссылающийся на справочник 
       
    Выборка = Справочники.ОН.Выбрать(,,Отбор);
    Пока Выборка.Следующий() цикл
                  
		Значения = Выборка.ТЧ.ВыгрузитьКолонку("Адрес");
		ЭлементыФормы.Адрес.СписокВыбора.ЗагрузитьЗначения(Значения);
    КонецЦикла;
Показать
По теме из базы знаний
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. DimaP 63 03.03.10 10:58 Сейчас в теме
по-моему, он здесь будет выбираться именно то, значение, которое выбрано в отборе, ибо надо учитывать, что ЭтоГруппа, и надо выбрать отбором то, что принадлежит ей, а тут выбирается она же.
3. tango 542 03.03.10 11:04 Сейчас в теме
СписокПодВидовДеятельности = Элемент.СписокВыбора;
// заполним список
СписокПодВидовДеятельности.Очистить();
ЗапросПодвидыДляВыбора = Новый Запрос("ВЫБРАТЬ
| Подвид
|ИЗ
| Справочник.ВидыДеятельностиКонтрагентов.Подвиды
|ГДЕ
| Ссылка = &ТекВид
| И Подвид.Предопределенный = Истина
|
|УПОРЯДОЧИТЬ ПО
| Подвид.Наименование");
ЗапросПодвидыДляВыбора.УстановитьПараметр("ТекВид",ТекВид);
Результат = ЗапросПодвидыДляВыбора.Выполнить();
Если Результат.Пустой() Тогда
СтандартнаяОбработка = Ложь;
ЭлементыФормы.ВидыДеятельности.ТекущаяКолонка = ЭлементыФормы.ВидыДеятельности.Колонки.Округ;
Иначе
ВыборкаПодВидыДляВыбора = Результат.Выбрать();
Пока ВыборкаПодВидыДляВыбора.Следующий() Цикл
СписокПодВидовДеятельности.Добавить(ВыборкаПодВидыДляВыбора.Подвид);
КонецЦикла;
5. samlab 20 03.03.10 11:30 Сейчас в теме
(3) Спасибо.
(4) Спасибо, помогло!
4. DimaP 63 03.03.10 11:08 Сейчас в теме
Думаю, можно как-то так:

Процедура НоменклатураПриИзменении(Элемент)
	ТабНом.Очистить();
	
	Если Элемент.Значение.ЭтоГруппа Тогда 
		Выборка = Справочники.Номенклатура.ВыбратьИерархически(Элемент.Значение);
		Пока Выборка.Следующий() Цикл 
			Значение = Выборка.Ссылка;
			НовСтр = ТабНом.Добавить();
			НовСтр.Номенклатура = Значение;
		КонецЦикла;
	КонецЕсли;
КонецПроцедуры
Показать


http://slil.ru/28735335
Оставьте свое сообщение

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