Добрый день. Можно ли как то выстроить запрос, что бы он выдал все элементы справочника с совпадающими значениями конкретно заданными реквизита. Например реквизит ПорядковыйНомер, элементов в справочнике 10. Соответственно значения реквизита для элементов должны быть от 1 до 10. Но в реале имеем следующее 1,2,3,4,4,6,7,8,9,10. Результатом вывода запроса будет 2 элемента справочника со значением реквизита равным 4

База дбф или sql?

прямым запросом - запросто

кривым запросом - вываливай все в ТЗ, и сворачивай.

рекв = СПравочник.МойСправочник.Реквизит;
элем = Справочник.МойСправочник.ТекущийЭлемент;
функция колич = Счётчик();
группировака рекв;
группировка элем;

Вроде так в клюшках пишется....

//*******************************************
// Процедура генерации запроса Сформировать.
//
Процедура Сформировать()
    Перем Запрос, ТекстЗапроса, Таб;
    //Создание объекта типа Запрос
    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса =
    "//{{ЗАПРОС(Сформировать)
    |ТекущийЭлемент = Справочник.ТМЦ.ТекущийЭлемент;
    |ШтрихКод = Справочник.ТМЦ.ШтрихКод;
    |Функция Счётчик = Счётчик();
    |Группировка ШтрихКод;
    |Группировка ТекущийЭлемент без групп;
    |"//}}ЗАПРОС
    ;
    // Если ошибка в запросе, то выход из процедуры
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;

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

не совсем в запросе вылавливает дубли но работает

(5) а я что в (4) написал?
Кстати, если мне эклер не изменяет, недубли можно прямо в запросе отсечь...

База ДБФ

Спасибо за информацию. Буду пробовать

(5) если я правильно понимаю, то запрос на выходе получает полный перечень всех элементов. Я думал, может быть есть какой то вариант, где на выходе как раз таки можно получить именно список дублирующихся элементов

Условие (запрос.колич>1), функция запрса должна называться по другому.

И вычисления в запросе с использованием функций через запр., а произвольные вычисления через глобальную функцию присвоить(кому,что)

Что то я перемудрил....думал что условия одни, а оказались другие

    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса =
    "//{{ЗАПРОС(Дубли ШК)
    |ШтрихКод = Справочник.ШтрихКоды.Код;
    |Товар = Справочник.ШтрихКоды.Владелец;
    |Функция Итого = Счётчик();
    |Условие (Запрос.Итого>1);
    |Группировка ШтрихКод;
    |Группировка Товар без групп;
    |"//}}ЗАПРОС
    ;

Вот что сделал, но не работает. Данные не выходят. Запрос выполняется без ошибок

Может если запрос не работает, и база DBF, сделаешь по старинке: цикл, поиск дублирующих элементов, их собрать в ТЗ, и потом вывод куда надо?

(13) такая мысль была сразу...более 70000 элементов....долго однако

А без группировки по товару что?

И условие последней строкой например..

(0) ВыбратьЭлементыПоРеквизиту()

(0)На вот, развлекайся


Процедура Сформировать()
    
    Попытка
        база = СоздатьОбъект("SQLiteBase");
    Исключение
        ЗагрузитьВнешнююКомпоненту("1sqlite.dll");
        база = СоздатьОбъект("SQLiteBase");
    КонецПопытки;
    база.Открыть(":memory:");
    запрос = база.НовыйЗапрос();    
    ТекстЗапроса = "
    |select Спр.parentext [Номенклатура :Справочник.Номенклатура] ,Спр.Code ШтрихКод
    |from [Справочник.ШтрихКоды] Спр
    |where Спр.Code in (select Code from [Справочник.ШтрихКоды]  where Ltrim(Code)<>'' group by Code having count(id)>2)
    |
    |order by Спр.Code
    |";
    запрос.ВыполнитьЗапрос(ТекстЗапроса).ВыбратьСтроку();
    

КонецПроцедуры


Пробелы в образовании:(

(18) Почему больше 2? Больше одного же.

(20) ну, равно там забыл добавить

(18) справочник подчиненный

(22) Продолжайте наблюдение!

(22) и че ?

тебе дали готовый код, нужно только замечание в (20) учесть

Если ты его за 3 дня не смог проверить..ну..тут только

Вон из профессии!