Ном = Справочники.Номенклатура.НайтиПоРеквизиту("Гарантия", ЗначениеРеквизита);
Этот способ подходит для поиска по реквизитам справочника. И он ищет только первый элемент и не годится, если их несколько.
Но, поскольку вы пишете что вам нужно осуществить поиск по дополнительному реквизиту, то вам прийдеться писать запрос, и решение зависит от того, как в вашей конфигурации реализованы дополнительные реквизиты.
Например, в конфигурации УНФ, дополнительные реквизиты, это элементы табличной части справочника Номенклатура. При этом «свойство», т.е. имя реквизита, в вашем случае «Гарантия», это план видов характеристик ДополнительныеРеквизитыИСведения. Запрос будет выглядеть примерно так:
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| НоменклатураДополнительныеРеквизиты.Ссылка КАК НоменклатураСсылка
|ИЗ
| Справочник.Номенклатура.ДополнительныеРеквизиты КАК НоменклатураДополнительныеРеквизиты
|ГДЕ
| НоменклатураДополнительныеРеквизиты.Свойство = &Свойство
| И НоменклатураДополнительныеРеквизиты.Значение = &Значение";
Запрос.УстановитьПараметр("Значение", ЗначениеГарантии);
Запрос.УстановитьПараметр("Свойство", СсылкаНаПВХ_Гарантия);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
// Вставить обработку выборки ВыборкаДетальныеЗаписи
КонецЦикла;Спасибо всем. Заработало вот так, кому нибудь пригодится.
&НаСервере
Функция НайдемКонтрагента(НаименованиеПоиска,КодКонтрагента)
Запрос = Новый Запрос;
Запрос.Текст =
«ВЫБРАТЬ РАЗЛИЧНЫЕ
| КонтрагентыДополнительныеРеквизиты.Ссылка КАК Контрагент
|ИЗ
| Справочник.Контрагенты.ДополнительныеРеквизиты КАК КонтрагентыДополнительныеРеквизиты
|ГДЕ
| КонтрагентыДополнительныеРеквизиты.Значение = &Значение
| И КонтрагентыДополнительныеРеквизиты.Свойство.Имя = &Имя»;
Свойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию(«КодУТ», Истина);
Запрос.УстановитьПараметр(«Имя», «КодУТ_7fa830250b37400a8c11df50f9bc7e62»); // Это ИМЯ реквизита (не Наименование которое просто = КодУТ, а Имя «для разработчиков»)
Запрос.УстановитьПараметр(«Значение»,КодКонтрагента); // Это значение Вашего реквизита
Результат = Запрос.Выполнить().Выбрать();
Пока Результат.Следующий() цикл
ИскомыйКонтрагент = Результат.Контрагент;
КонецЦикла;
// Сообщить(ИскомыйКонтрагент);
Возврат ИскомыйКонтрагент;
Показывать по
10
20
40
сообщений
Новая тема
Ответить
Юлия78
Дата регистрации: 16.05.2011
Сообщений: 63
Создали в пользовательском режиме (не в конфигураторе) дополнительный реквизит для справочника «номенклатура», он отображается в отдельной графе в форме списка справочника «номенклатура».
Но поиск по этой графе почему-то не работает!
Мы что-то недонастроили или поиск возможен только по артикулу и наименованию товара?
Заранее спасибо за подсказки.
ОльгаН
Дата регистрации: 18.02.2009
Сообщений: 985
У меня получилось.
Открываете справочник Номенклатура. Встаете курсором на любую строчку. Нажимаете «Ещё» — «Изменить форму». Там уже курсор находится в нужном месте. Вам надо ниже найти чуть ниже в этой же группе строчку «Ссылка», встать на неё курсором и нажать на панеле «Добавить поля». В выпадающем списке найти нужный реквизит. Поставить галочку. Применить. Проверить результат. Должна появится колонка с новым реквизитом и значения.
Делать сначала лучше в копии базы.
Если ничего не появилось, то попробуйте ещё раз, только следите, чтобы перед тем, как идти в «Ещё» курсор был на любой строчке в списке, а не где-нибудь ещё ( в шапке или поиске). Это потому что, в настройках много разных похожих по наименованию групп. Но если Вы будете стоять курсором на наименовании или артикле или коде любой номенклатуры, то откроется сразу нужная группа.
На самой «Ссылка» ставить галочку не надо, только на новом реквизите.
Prikum
активный пользователь
офлайн
Дата регистрации: 18.02.2002
Сообщений: 20842
ОльгаН, вопрос вроде как в другом, как сделать поиск по графе доп.реквизита.
Юлия78
Дата регистрации: 16.05.2011
Сообщений: 63
Да, вопрос был именно о поиске.
Доп. реквизит мы добавили, он виден отдельной графой в справочнике номенклатуры, но поиск по этой графе не работает.
Prikum
активный пользователь
офлайн
Дата регистрации: 18.02.2002
Сообщений: 20842
Юлия78, а если нажать Alt+F или Ctrl+F, то тогда все равно не ищет?
Юлия78
Дата регистрации: 16.05.2011
Сообщений: 63
Prikum, нет, по этим комбинациям тоже не ищет.
По ним не ищет даже в поле «наименование», где работает стандартный поиск.
Показывать по
10
20
40
сообщений
Нередко у пользователей есть потребность искать номенклатуру не только по основным реквизитам (наименование, код и артикул), но и по дополнительным (которые пользователи создали самостоятельно). Типовые возможности конфигураций не предполагают такой опции. Расширение предоставляет такую возможность.
К примеру создадим дополнительный реквизит и заполним его для нескольких номенклатурных карточек.
Затем попробуем отфильтровать список по значению дополнительного реквизита, при этом в качестве поискового запроса можно указать как часть значения доп. реквизита, так и полное значение.
Видим, что поиск отработал как нужно.
Обязательное условие — дополнительный реквизит должен быть строкового типа.
Для корректной работы расширения необходимо отключить Безопасный режим.
Функция позволяет найти ссылку на объект любого типа в конфигурации ERP2.0 (либо любой другой построенной на БСП).
Поиск может выполняться по реквизитам основной таблицы, значениям дополнительных реквизитов по табличной части «Дополнительные реквизиты», значениям доп. сведений (регистр сведений «ДополнительныеСведения»).
Используется объектная модель работы с запросом (СхемаЗапроса). Поддерживается в версиях платформы: 8.3.5 и выше.
Параметры:
Имя параметра Тип Описание
ИмяТаблицы Строка Имя таблицы, по которой осуществляется поиск. Пример: «Справочник.Номенклатура»
СтруктураРеквизитов Структура В качестве ключа передается имя реквизита основной таблицы, в качестве значения — значение реквизита
СоответствиеДопРеквизитов Соответствие В качестве ключа передается ссылка на доп. реквизит — элемент плана вида характеристик «ДополнительныеРеквизитыИСведения», в качестве значения — значение реквизита
СоответствиеДопСведений Соответствие В качестве ключа передается ссылка на доп. сведение — элемент плана вида характеристик «ДополнительныеРеквизитыИСведения», в качестве значения — значение доп. сведения
| Имя параметра | Тип | Описание |
|---|---|---|
| ИмяТаблицы | Строка | Имя таблицы, по которой осуществляется поиск. Пример: «Справочник.Номенклатура» |
| СтруктураРеквизитов | Структура | В качестве ключа передается имя реквизита основной таблицы, в качестве значения — значение реквизита |
| СоответствиеДопРеквизитов | Соответствие | В качестве ключа передается ссылка на доп. реквизит — элемент плана вида характеристик «ДополнительныеРеквизитыИСведения», в качестве значения — значение реквизита |
| СоответствиеДопСведений | Соответствие | В качестве ключа передается ссылка на доп. сведение — элемент плана вида характеристик «ДополнительныеРеквизитыИСведения», в качестве значения — значение доп. сведения |
Функция СсылкаНаОбъектПоРеквизитам(ИмяТаблицы, СтруктураРеквизитов = Неопределено, СоответствиеДопРеквизитов = Неопределено, СоответствиеДопСведений = Неопределено)
ИмяТаблицыВЗапросе = СтрЗаменить(ИмяТаблицы, ".", "");
СхемаЗапроса = Новый СхемаЗапроса;
ЗапросПакета = СхемаЗапроса.ПакетЗапросов[0];
ОператорВыбора = ЗапросПакета.Операторы[0];
Если СтруктураРеквизитов <> Неопределено Тогда
ИсточникСправочник = ОператорВыбора.Источники.Добавить(ИмяТаблицы, ИмяТаблицыВЗапросе);
ОператорВыбора.ВыбираемыеПоля.Добавить(ИмяТаблицыВЗапросе + ".Ссылка");
Для Каждого КлючИЗначение Из СтруктураРеквизитов Цикл
ОператорВыбора.Отбор.Добавить(ИмяТаблицыВЗапросе + "." + КлючИЗначение.Ключ + " = &" + КлючИЗначение.Ключ);
КонецЦикла;
Если СоответствиеДопРеквизитов <> Неопределено
ИЛИ СоответствиеДопСведений <> Неопределено Тогда
ЗапросПакета.ТаблицаДляПомещения = "ОсновнаяТаблица";
ЗапросПакета = СхемаЗапроса.ПакетЗапросов.Добавить(Тип("ЗапросВыбораСхемыЗапроса"));
ОператорВыбора = ЗапросПакета.Операторы[0];
КонецЕсли;
КонецЕсли;
Если СоответствиеДопРеквизитов <> Неопределено Тогда
Для Сч = 0 По СоответствиеДопРеквизитов.Количество()-1 Цикл
ИсточникСправочник = ОператорВыбора.Источники.Добавить(ИмяТаблицы + ".ДополнительныеРеквизиты", ИмяТаблицыВЗапросе + "ДополнительныеРеквизиты");
ОператорВыбора.ВыбираемыеПоля.Добавить(ИмяТаблицыВЗапросе + "ДополнительныеРеквизиты.Ссылка");
ОператорВыбора.Отбор.Добавить(ИмяТаблицыВЗапросе + "ДополнительныеРеквизиты.Свойство = &Свойство" + Формат(Сч+1, "ЧГ=0"));
ОператорВыбора.Отбор.Добавить(ИмяТаблицыВЗапросе + "ДополнительныеРеквизиты.Значение = &Значение" + Формат(Сч+1, "ЧГ=0"));
Если СтруктураРеквизитов <> Неопределено Тогда
ИсточникОсновнаяТаблица = ОператорВыбора.Источники.Добавить("ОсновнаяТаблица", "ОсновнаяТаблица");
Соединение = ИсточникОсновнаяТаблица.Соединения.Добавить(ИсточникСправочник);
ИсточникОсновнаяТаблица.Соединения[0].ТипСоединения = ТипСоединенияСхемыЗапроса.Внутреннее;
КонецЕсли;
Если СоответствиеДопРеквизитов.Количество()> 1
ИЛИ СоответствиеДопСведений <> Неопределено Тогда
ЗапросПакета.ТаблицаДляПомещения = "ДопРеквизит" + Формат(Сч+1, "ЧГ=0");
ЗапросПакета = СхемаЗапроса.ПакетЗапросов.Добавить(Тип("ЗапросВыбораСхемыЗапроса"));
ОператорВыбора = ЗапросПакета.Операторы[0];
КонецЕсли;
КонецЦикла;
КонецЕсли;
Если СоответствиеДопСведений <> Неопределено Тогда
Для Сч = 0 По СоответствиеДопСведений.Количество()-1 Цикл
ИсточникРегистр = ОператорВыбора.Источники.Добавить("РегистрСведений.ДополнительныеСведения", "ДополнительныеСведения");
ОператорВыбора.ВыбираемыеПоля.Добавить("ДополнительныеСведения.Объект");
ЗапросПакета.Колонки[0].Псевдоним = "Ссылка";
ОператорВыбора.Отбор.Добавить("ДополнительныеСведения.Свойство = &Сведение" + Формат(Сч+1, "ЧГ=0"));
ОператорВыбора.Отбор.Добавить("ДополнительныеСведения.Значение = &ЗначениеСведения" + Формат(Сч+1, "ЧГ=0"));
Если СтруктураРеквизитов <> Неопределено Тогда
ИсточникОсновнаяТаблица = ОператорВыбора.Источники.Добавить("ОсновнаяТаблица", "ОсновнаяТаблица");
Соединение = ИсточникОсновнаяТаблица.Соединения.Добавить(ИсточникРегистр, "ОсновнаяТаблица.Ссылка = ДополнительныеСведения.Объект");
ИсточникОсновнаяТаблица.Соединения[0].ТипСоединения = ТипСоединенияСхемыЗапроса.Внутреннее;
КонецЕсли;
Если СоответствиеДопСведений.Количество()> 1
ИЛИ СоответствиеДопРеквизитов <> Неопределено Тогда
ЗапросПакета.ТаблицаДляПомещения = "ДопСведение" + Формат(Сч+1, "ЧГ=0");
ЗапросПакета = СхемаЗапроса.ПакетЗапросов.Добавить(Тип("ЗапросВыбораСхемыЗапроса"));
ОператорВыбора = ЗапросПакета.Операторы[0];
КонецЕсли;
КонецЦикла;
КонецЕсли;
Если СоответствиеДопРеквизитов <> Неопределено
И (СоответствиеДопРеквизитов.Количество() <> 1 ИЛИ СоответствиеДопСведений <> Неопределено) Тогда
ИсточникВТ1 = ОператорВыбора.Источники.Добавить("ДопРеквизит1", "ДопРеквизит1");
ОператорВыбора.ВыбираемыеПоля.Добавить("ДопРеквизит1.Ссылка");
Для Сч = 1 По СоответствиеДопРеквизитов.Количество()-1 Цикл
СчСтрока = Формат(Сч+1, "ЧГ=0");
ИсточникВТ = ОператорВыбора.Источники.Добавить("ДопРеквизит" + СчСтрока, "ДопРеквизит" + СчСтрока);
Соединение = ИсточникВТ1.Соединения.Добавить(ИсточникВТ, "ДопРеквизит1.Ссылка = ДопРеквизит" + СчСтрока + ".Ссылка");
ИсточникВТ1.Соединения[ИсточникВТ1.Соединения.Количество()-1].ТипСоединения = ТипСоединенияСхемыЗапроса.Внутреннее;
КонецЦикла;
КонецЕсли;
Если СоответствиеДопСведений <> Неопределено
И (СоответствиеДопСведений.Количество()> 1 ИЛИ СоответствиеДопРеквизитов <> Неопределено) Тогда
Если СоответствиеДопРеквизитов = Неопределено Тогда
ИсточникВТ1 = ОператорВыбора.Источники.Добавить("ДопСведение1", "ДопСведение1");
ОператорВыбора.ВыбираемыеПоля.Добавить("ДопСведение1.Ссылка");
СтартовыйИндекс = 1;
ИмяПервойТаблицы = "ДопСведение1";
Иначе
СтартовыйИндекс = 0;
ИмяПервойТаблицы = "ДопРеквизит1";
КонецЕсли;
Для Сч = СтартовыйИндекс По СоответствиеДопСведений.Количество()-1 Цикл
СчСтрока = Формат(Сч+1, "ЧГ=0");
ИсточникВТ = ОператорВыбора.Источники.Добавить("ДопСведение" + СчСтрока, "ДопСведение" + СчСтрока);
Соединение = ИсточникВТ1.Соединения.Добавить(ИсточникВТ, ИмяПервойТаблицы + ".Ссылка = ДопСведение" + СчСтрока + ".Ссылка");
ИсточникВТ1.Соединения[ИсточникВТ1.Соединения.Количество()-1].ТипСоединения = ТипСоединенияСхемыЗапроса.Внутреннее;
КонецЦикла;
КонецЕсли;
Запрос = Новый Запрос;
Запрос.Текст = СхемаЗапроса.ПолучитьТекстЗапроса();
Если СтруктураРеквизитов <> Неопределено Тогда
Для Каждого КлючИЗначение Из СтруктураРеквизитов Цикл
Запрос.УстановитьПараметр(КлючИЗначение.Ключ, КлючИЗначение.Значение);
КонецЦикла;
КонецЕсли;
Если СоответствиеДопРеквизитов <> Неопределено Тогда
Сч = 1;
Для Каждого КлючИЗначение Из СоответствиеДопРеквизитов Цикл
СчСтрока = Формат(Сч, "ЧГ=0");
Запрос.УстановитьПараметр("Свойство" + СчСтрока, КлючИЗначение.Ключ);
Запрос.УстановитьПараметр("Значение" + СчСтрока, КлючИЗначение.Значение);
Сч = Сч + 1;
КонецЦикла;
КонецЕсли;
Если СоответствиеДопСведений <> Неопределено Тогда
Сч = 1;
Для Каждого КлючИЗначение Из СоответствиеДопСведений Цикл
СчСтрока = Формат(Сч, "ЧГ=0");
Запрос.УстановитьПараметр("Сведение" + СчСтрока, КлючИЗначение.Ключ);
Запрос.УстановитьПараметр("ЗначениеСведения" + СчСтрока, КлючИЗначение.Значение);
Сч = Сч + 1;
КонецЦикла;
КонецЕсли;
РезультатЗапроса = Запрос.Выполнить();
Если РезультатЗапроса.Пустой() Тогда
Возврат Неопределено;
КонецЕсли;
Выборка = РезультатЗапроса.Выбрать(); Выборка.Следующий();
Возврат Выборка.Ссылка;
КонецФункции
Опубликовано в Статьи по 1С 27.10.2018
В библиотеке стандартных подсистем 1С дополнительные реквизиты и сведения включены и активно применяются. Эти механизмы позволяют добавить дополнительный реквизит к объекту метаданных без изменения типовой конфигурации. Принцип работы дополнительных реквизитов и сведений, их добавление и получение значений.
Отличие дополнительного реквизита от дополнительного сведения в том, что
- Дополнительные реквизиты – список реквизитов, доступных в форме документа или справочника; причем эти реквизиты хранятся в табличной части объекта, к которому они добавлены;
- Дополнительные сведения – список значений доступных по дополнительной кнопке; причем доп. сведения хранятся в отдельном регистре.
После ввода дополнительного реквизита или сведения 1С, можно создать подключаемую обработку, где считать введенные дополнительные данные и задать необходимую логику обработки данных, в которой использовать этот реквизит или сведение.
Как получить 1С дополнительные реквизиты и сведения программно:
Для получения дополнительных данных используем запрос, в котором получим значение дополнительных реквизитов и сведений:
////
Запрос = Новый Запрос;
Запрос.Текст =
«ВЫБРАТЬ РАЗРЕШЕННЫЕ
| ДополнительныеСведения.Свойство,
| ДополнительныеСведения.Значение
|ИЗ
| РегистрСведений.ДополнительныеСведения КАК ДополнительныеСведения
|ГДЕ
| ДополнительныеСведения.Объект = &Объект»;
Запрос.УстановитьПараметр(«Объект», СсылкаДокумент);
////
Для получения дополнительного реквизита использую код вида:
////
Запрос = Новый Запрос;
Запрос.Текст =
«ВЫБРАТЬ
| НоменклатураДополнительныеРеквизиты.Свойство,
| НоменклатураДополнительныеРеквизиты.Значение
|ИЗ
| Справочник.Номенклатура.ДополнительныеРеквизиты КАК НоменклатураДополнительныеРеквизиты
|ГДЕ
| НоменклатураДополнительныеРеквизиты.Свойство = &Свойство
| И НоменклатураДополнительныеРеквизиты.Ссылка = &Ссылка»;
Запрос.УстановитьПараметр(«Ссылка», СсылкаДокумент);
Запрос.УстановитьПараметр(«Свойство», ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию(«Коэффициент бруто»));
////
Теперь вы без труда сможете добавить и получить необходимые дополнительные 1С данные без снятия конфигурации 1С с поддержки и изменения типовой конфигурации. Без сомнения, такой инструмент должен быть в арсенале 1С программиста и активно использоваться в работе.