• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

поиск элементов справочника7

  • Автор темы kleo
  • Дата начала
K

kleo

Люди добрые, подскажите, пожалуйста, как найти элементы справочника с одиннаковым наименованием, а потом среди них один элемент с нужными мне реквизитами!! Заранее очень спасибо!!!
 
K

kaa

Табло=СоздатьОбъект("ТаблицаЗначения");
Табло.НоваяКолонка("Элемент");
Табло.НоваяКолонка("НужныйРеквизит");
Наим = "одинаковое наименование";

Запрос = СоздатьОбъект("Запрос");

ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Элем = Справочник.ХХХ.ТекущийЭлемент;
|Наименование = Справочник.ХХХ.Наименование;
|Условие (Найти(Наименование,Наим)>0);
|Группировка Элем без групп;
|";

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;

Пока Запрос.Группировка(1) = 1 Цикл
Табло.НоваяСтрока();
Табло.Элемент = Запрос.Элем;
Табло.НужныйРеквизит = Запрос.Элем.НужныйРеквизит
КонецЦикла;

НужныйРеквизитПоиск = """"";

Стр = "";
Если Табло.НайтиЗначение(НужныйРеквизитПоиск,Стр,"НужныйРеквизит")=1 Тогда
НужныйЭлементПоПоиску = Табло.ПолучитьЗначение(Стр,"Элемент");
КонецЕсли;
 
K

kleo

Насчет перебора предложение не пойдет, так как займет очень много времени, а вот запрос сейчас испробую. Спасибо большое!!!!!
 
Z

Zab

Можешь еще глянуть метод справочника НайтиПоНаименованию().
 
V

vbs

... и наткнувшись на нужное наименование, проверять нужные реквизиты, пока совпадает наименование
 
M

ModusPonens

Можно еще попробовать метод ВыбратьЭлементыПоРеквизиту, и из выборки выбрать нужный.
Но лучше всего - запросом.
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!