Как запросом отобрать элементы справочника определенной папки?

1. user1089020 22.05.23 11:39 Сейчас в теме
Добрый день, старейшины 1С!

Имеется 1С 7.7. Нужно отобрать запросом элементы справочника "Контрагенты" которые находятся в пра-пра-пра-папке. Подскажите пожалуйста, как это сделать?
По теме из базы знаний
Найденные решения
3. user-z99999 75 22.05.23 12:48 Сейчас в теме
(1)
1С 7.7


https://forum.mista.ru/topic.php?id=17913

"//{{ЗАПРОС(ОстаткиНаСкладах)
|Период с ДатаДок по ТекДок ;
|ВидМПЗрег = Регистр.МестаХранения.ВидМПЗ;
|МПЗрег = Регистр.МестаХранения.МПЗ;
|МХ = Регистр.МестаХранения.МестоХранения;
|Колво = Регистр.МестаХранения.Количество;
|Функция КоличествоКонОст = КонОст(Колво);
|Группировка ВидМПЗрег;
|Группировка МПЗрег без групп;
|Условие (МХ = МестоХранения);
|Условие (МПЗрег в ВыбГруппа);
Показать
4. DenisVol 2 22.05.23 13:26 Сейчас в теме
Процедура Сформировать()
	Перем Запрос, ТекстЗапроса, Таб;
	//Создание объекта типа Запрос
	Запрос = СоздатьОбъект("Запрос");
	ТекстЗапроса = 
	"//{{ЗАПРОС(Сформировать)
	|Период с ВыбНачПериода по ВыбКонПериода;
	|ТекущийЭлемент = Справочник.Контрагенты.ТекущийЭлемент;
	|Наименование = Справочник.Контрагенты.Наименование;
	|Родитель = Справочник.Контрагенты.Родитель;
	|ЕДРПОУ = Справочник.Контрагенты.ЕДРПОУ;
	|Группировка ТекущийЭлемент без групп;
	|Условие (ТекущийЭлемент.ПринадлежитГруппе(Выбродитель) = 1);
	|"//}}ЗАПРОС
	;
	// Если ошибка в запросе, то выход из процедуры
	Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
		Возврат;
	КонецЕсли;

	// Подготовка к заполнению выходных форм данными запроса
	Таб = СоздатьОбъект("Таблица");
	Таб.ИсходнаяТаблица("Сформировать");
	// Заполнение полей "Заголовок"
	Таб.ВывестиСекцию("Заголовок");
	Состояние("Заполнение выходной таблицы...");
	Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
	Пока Запрос.Группировка(1) = 1 Цикл
		// Заполнение полей ТекущийЭлемент
		Таб.ВывестиСекцию("ТекущийЭлемент");
	КонецЦикла;
	// Вывод заполненной формы
	Таб.ТолькоПросмотр(1);
	Таб.Показать("Сформировать", "");
КонецПроцедуры
Показать


ВыбРодитель - это группа контрагентов на форме обработки
Остальные ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
3. user-z99999 75 22.05.23 12:48 Сейчас в теме
(1)
1С 7.7


https://forum.mista.ru/topic.php?id=17913

"//{{ЗАПРОС(ОстаткиНаСкладах)
|Период с ДатаДок по ТекДок ;
|ВидМПЗрег = Регистр.МестаХранения.ВидМПЗ;
|МПЗрег = Регистр.МестаХранения.МПЗ;
|МХ = Регистр.МестаХранения.МестоХранения;
|Колво = Регистр.МестаХранения.Количество;
|Функция КоличествоКонОст = КонОст(Колво);
|Группировка ВидМПЗрег;
|Группировка МПЗрег без групп;
|Условие (МХ = МестоХранения);
|Условие (МПЗрег в ВыбГруппа);
Показать
2. konsta2006 22.05.23 11:59 Сейчас в теме
Свойство родитель в объекте есть?
4. DenisVol 2 22.05.23 13:26 Сейчас в теме
Процедура Сформировать()
	Перем Запрос, ТекстЗапроса, Таб;
	//Создание объекта типа Запрос
	Запрос = СоздатьОбъект("Запрос");
	ТекстЗапроса = 
	"//{{ЗАПРОС(Сформировать)
	|Период с ВыбНачПериода по ВыбКонПериода;
	|ТекущийЭлемент = Справочник.Контрагенты.ТекущийЭлемент;
	|Наименование = Справочник.Контрагенты.Наименование;
	|Родитель = Справочник.Контрагенты.Родитель;
	|ЕДРПОУ = Справочник.Контрагенты.ЕДРПОУ;
	|Группировка ТекущийЭлемент без групп;
	|Условие (ТекущийЭлемент.ПринадлежитГруппе(Выбродитель) = 1);
	|"//}}ЗАПРОС
	;
	// Если ошибка в запросе, то выход из процедуры
	Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
		Возврат;
	КонецЕсли;

	// Подготовка к заполнению выходных форм данными запроса
	Таб = СоздатьОбъект("Таблица");
	Таб.ИсходнаяТаблица("Сформировать");
	// Заполнение полей "Заголовок"
	Таб.ВывестиСекцию("Заголовок");
	Состояние("Заполнение выходной таблицы...");
	Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
	Пока Запрос.Группировка(1) = 1 Цикл
		// Заполнение полей ТекущийЭлемент
		Таб.ВывестиСекцию("ТекущийЭлемент");
	КонецЦикла;
	// Вывод заполненной формы
	Таб.ТолькоПросмотр(1);
	Таб.Показать("Сформировать", "");
КонецПроцедуры
Показать


ВыбРодитель - это группа контрагентов на форме обработки
Оставьте свое сообщение

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