даже если в массиве элемент один, то находит все в справочнике, делаю несколько запросов, дабы из результатов вытянуть те изделия, в которых есть ВСЕ комплектующие из массива. как мне это сделать или хотя бы чтобы запрос по параметру искал?
Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
Если ТабличныйПоиск.Количество()>0 Тогда
КомпоновщикНастроек.Настройки.Структура.Очистить();
//СхемаКомпоновкиДанных.НаборыДанных.Очистить();
СтрПар=Новый Массив;
Сч=0;
ВнешНаб=Новый Структура;
Для каждого Пункт Из ТабличныйПоиск Цикл
СтрПар.Добавить(Пункт);
КонецЦикла;
СКД=Новый СхемаКомпоновкиДанных;
ИД = СКД.ИсточникиДанных.Добавить();
ИД.Имя = "СхемаСКД";
ИД.ТипИсточникаДанных = "Local";
НД=СКД.НаборыДанных.Добавить(Тип("НаборДанныхОбъектСхемыКомпоновкиДанных"));
НД.Имя="НД"+Сч;
НД.ИмяОбъекта="НД"+Сч;
НД.ИсточникДанных="СхемаСКД";
ПНД = НД.Поля.Добавить(Тип("ПолеНабораДанныхСхемыКомпоновкиДанных"));
ПНД.Поле = "Наименование";
ПНД.ПутьКДанным = "Наименование";
ПНД.Заголовок = "Наименование";
ПНД2 = НД.Поля.Добавить(Тип("ПолеНабораДанныхСхемыКомпоновкиДанных"));
ПНД2.Поле = "Комплектующие";
ПНД2.ПутьКДанным = "Комплектующие";
ПНД2.Заголовок = "Комплектующие";
НК=КомпоновщикНастроек.Настройки;
Если НК.Структура.Количество()=0 Тогда
Таб=НК.Структура.Добавить(Тип("ТаблицаКомпоновкиДанных"));
ГКД1 = Таб.Строки.Добавить();
ГКД1.Использование = Истина;
ПГКД1 = ГКД1.ПоляГруппировки.Элементы.Добавить(Тип("ПолеГруппировкиКомпоновкиДанных"));
ПГКД1.Использование = Истина;
ПГКД1.Поле = Новый ПолеКомпоновкиДанных("Наименование");
ВП1=ГКД1.Выбор.Элементы.Добавить(Тип("АвтоВыбранноеПолеКомпоновкиДанных"));
ВП1.Использование=Истина;
ГКД2 = ГКД1.Структура.Добавить();
ГКД2.Использование = Истина;
ПГКД2 = ГКД2.ПоляГруппировки.Элементы.Добавить(Тип("ПолеГруппировкиКомпоновкиДанных"));
ПГКД2.Использование = Истина;
ПГКД2.Поле = Новый ПолеКомпоновкиДанных("Комплектующие");
ВП2=ГКД2.Выбор.Элементы.Добавить(Тип("АвтоВыбранноеПолеКомпоновкиДанных"));
ВП2.Использование=Истина;
КонецЕсли;
Пока Сч<СтрПар.Количество() Цикл
Запр=Новый Запрос;
Запр.Текст="ВЫБРАТЬ РАЗЛИЧНЫЕ
| ИзделиеСостав.Ссылка КАК Ссылка
|ПОМЕСТИТЬ ВТ_Изделия
|ИЗ
| Справочник.Изделие.Состав КАК ИзделиеСостав
|ГДЕ
| ИзделиеСостав.Комплектующие = &Комплектующие;
|
|ВЫБРАТЬ
| ВТ_Изделия.Ссылка.Наименование КАК Наименование,
| ИзделиеСостав.Комплектующие КАК Комплектующие
|ИЗ
| ВТ_Изделия КАК ВТ_Изделия
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Изделие.Состав КАК ИзделиеСостав
| ПО ВТ_Изделия.Ссылка = ИзделиеСостав.Ссылка";
Запр.УстановитьПараметр("Комплектующие",Справочники.Комплектующее.НайтиПоНаименованию(Строка(СтрПар[Сч])));
РезЗап=Запр.Выполнить().Выгрузить();
ВнешНаб.Вставить("НД"+Сч,РезЗап);
Сч=Сч+1
КонецЦикла;
КМ=Новый КомпоновщикМакетаКомпоновкиДанных;
МКМ=КМ.Выполнить(СКД,НК);
ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки.Инициализировать(МКМ,ВнешНаб);
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
ПроцессорВывода.Вывести(ПроцессорКомпоновки);
КонецЕсли;
КонецПроцедуры ПоказатьПо теме из базы знаний
- Создание подключаемой обработки табличной части с диалогом запроса параметров заполнения (управляемые формы)
- Управляемая консоль запросов, отчетов 3.9.0 (расширение, внешняя обработка)
- Как читать чужой код? Часть 3. Разбор и доработка запросов
- Модель запроса SQL
- Как посмотреть запрос 1С в PostgreSQL
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(2) даже если в массиве один элемент для параметра одного запроса соответственно, находит все элементы справочника, даже те, которые к параметру по данным не относятся. Как мне это исправить? А лучше чтобы находил те изделия, в которых есть ВСЕ элементы из массива. Как это организовать? Так лучше?
(6)
махинации с отчетом - дальше сам.
махинации с отчетом - дальше сам.
//1. выбрать все комплектующие из Подбора (ТабличныйПоиск) и поместить в втКомплект
//2. Отбираем все изделия где хоть что-то совпало по комплектующим
//3. Отбираем Те изделия у которых есть лишние(втКомплект.Ссылка is null) или недостающие комплектующие (ИзделиеСостав.Комплектующие is null)
//4. Из тех у которых хоть что-то совпало убираем те у которых не комплект(ЛишниеИзделия.Ссылка is null).
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Комплект", МассивКомплектующих);
Запрос.Текст =
"ВЫБРАТЬ
| Комплектующее.Ссылка КАК Ссылка
|ПОМЕСТИТЬ втКомплект
|ИЗ
| Справочник.Комплектующее КАК Комплектующее
|ГДЕ
| Комплектующее.Ссылка В (&Комплект)
|;
|/////////////////////////
|ВЫБРАТЬ различные
| ИзделиеСостав.Ссылка КАК Ссылка
| ПОМЕСТИТЬ втИзделияСовпадающиеПоОднойСоставлящией
|ИЗ
| Справочник.Изделие.Состав КАК ИзделиеСостав
|ГДЕ
| ИзделиеСостав.Комплектующие В (&Комплектующие)
|;
|
|/////////////////////////
|
|ВЫБРАТЬ различные
| втИзделия.Ссылка КАК Ссылка
| ПОМЕСТИТЬ втИзделияСНедостающимЛибоЛишнимиКомплектующими
|ИЗ
| втИзделияСовпадающиеПоОднойСоставлящией как втИзделия
| Соединение Справочник.Изделие.Состав КАК ИзделиеСостав
| Полное Соединение втКомплект как втКомплект
| По ИзделиеСостав.Комплектующие = втКомплект.Ссылка
| По ИзделиеСостав.Ссылка = втИзделия.Ссылка
|ГДЕ
| ИзделиеСостав.Комплектующие is null
| Или втКомплект.Ссылка is null
|;
|/////////////////////////
|ВЫБРАТЬ
| ВсеИзделия.Ссылка КАК Ссылка
|
|ИЗ
| втИзделияСовпадающиеПоОднойСоставлящией Как ВсеИзделия
| Левое Соединение втИзделияСНедостающимЛибоЛишнимиКомплектующими Как ЛишниеИзделия
| По ВсеИзделия.Ссылка = ЛишниеИзделия.Ссылка
|ГДЕ
| ЛишниеИзделия.Ссылка is null
|";
МассивИзделийСоответствующийКомплекту = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка"); Показать
(10) Теперь это выдает"Ошибка компоновки данных
по причине:
Ошибка инициализации
по причине:
Ошибка создания набора данных "НД1"
по причине:
Не найден внешний набор данных "НД1"
" может чего по дороге поломал?
причем восстанавливаю к прежней версии- все равно выдает.
по причине:
Ошибка инициализации
по причине:
Ошибка создания набора данных "НД1"
по причине:
Не найден внешний набор данных "НД1"
" может чего по дороге поломал?
причем восстанавливаю к прежней версии- все равно выдает.
(10) теперь такую ошибку:"Ошибка передачи данных между клиентом и сервером. Значение недопустимого типа.
по причине:
Ошибка преобразования данных XDTO:
Запись значения свойства 'v':
форма: Элемент
имя: {}v
по причине:
Ошибка преобразования данных XDTO:
Запись значения свойства 'settings':
форма: Элемент
имя: {}settings
по причине:
Ошибка преобразования данных XDTO:
Запись значения свойства 'item':
форма: Элемент
имя: {}item
по причине:
Ошибка преобразования данных XDTO:
Запись значения свойства 'value':
форма: Элемент
имя: {}value
по причине:
Ошибка преобразования данных XDTO:
Запись значения свойства 'Value':
форма: Элемент
имя: {}Value
по причине:
Ошибка отображения типов:
Отсутствует отображение для типа 'ОтчетТабличнаяЧастьСтрока.ИзделияСКомплектующими.ТабличныйПоиск'
"
по причине:
Ошибка преобразования данных XDTO:
Запись значения свойства 'v':
форма: Элемент
имя: {}v
по причине:
Ошибка преобразования данных XDTO:
Запись значения свойства 'settings':
форма: Элемент
имя: {}settings
по причине:
Ошибка преобразования данных XDTO:
Запись значения свойства 'item':
форма: Элемент
имя: {}item
по причине:
Ошибка преобразования данных XDTO:
Запись значения свойства 'value':
форма: Элемент
имя: {}value
по причине:
Ошибка преобразования данных XDTO:
Запись значения свойства 'Value':
форма: Элемент
имя: {}Value
по причине:
Ошибка отображения типов:
Отсутствует отображение для типа 'ОтчетТабличнаяЧастьСтрока.ИзделияСКомплектующими.ТабличныйПоиск'
"
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот