Как обойти дубли запроса и прибавить к их наименованию АБВ
Доброго времени суток! Прошу помощи уважаемые эксперты!
Есть запрос, он выводит дубли Наименований из справочника Контрагенты. Как правильно обойти выборку запроса и для каждого дубля дописать АБВ?
Есть запрос, он выводит дубли Наименований из справочника Контрагенты. Как правильно обойти выборку запроса и для каждого дубля дописать АБВ?
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 3
| Контрагенты.Наименование КАК Наименование
|ПОМЕСТИТЬ ДублиНаименований
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
|
|СГРУППИРОВАТЬ ПО
| Контрагенты.Наименование
|
|ИМЕЮЩИЕ
| СУММА(1) > 1
|;
|
|//////////////////////////////////////////////////////////// ////////////////////
|ВЫБРАТЬ ПЕРВЫЕ 3
| Контрагенты.Наименование КАК Наименование
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
|ГДЕ
| Контрагенты.Наименование В
| (ВЫБРАТЬ
| ДублиНаименований.Наименование КАК Наименование
| ИЗ
| ДублиНаименований КАК ДублиНаименований)
|ИТОГИ ПО
| Наименование";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаНаименование = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаНаименование.Следующий() Цикл
// Как обойти выборку? и добавить для дублей "АБВ" к наименованию?
КонецЦикла;
ПоказатьПрикрепленные файлы:

Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
А так
|ВЫБРАТЬ ПЕРВЫЕ 3
| Контрагенты.Наименование КАК Наименование,Контрагенты.ССылка
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
|ГДЕ
| Контрагенты.Наименование В
| (ВЫБРАТЬ
| ДублиНаименований.Наименование КАК Наименование
| ИЗ
| ДублиНаименований КАК ДублиНаименований)
|ИТОГИ ПО
| Наименование"
ВыборкаНаименование = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаНаименование.Следующий() Цикл
Выборка = ВыборкаНаименование.Выбрать();
Выборка.Следующий();//пропускаем первый не дубль
Пока Выборка.Следующий() цикл
Объект = Выборка.ССылка.ПолучитьОбъект();
Объект.Наименование = Выборка.Наименование+"Вася";
Объект.ОбменДанными.Загрузка = истина;
Объект.Записать();
КонецЦикла;
КонецЦикла
Показать
(4)
Походу заработало, только не понял, подскажите а как исключить что Это НЕ Группа (не папка) ?
Пока ВыборкаНаименование.Следующий() Цикл
Выборка = ВыборкаНаименование.Выбрать();
Выборка.Следующий();//пропускаем первый не дубль
Пока Выборка.Следующий() цикл
Объект = Выборка.ССылка.ПолучитьОбъект();
Объект.Наименование = Выборка.Наименование+"Вася";
Объект.ОбменДанными.Загрузка = истина;
Объект.Записать();
КонецЦикла;
КонецЦикла
Выборка = ВыборкаНаименование.Выбрать();
Выборка.Следующий();//пропускаем первый не дубль
Пока Выборка.Следующий() цикл
Объект = Выборка.ССылка.ПолучитьОбъект();
Объект.Наименование = Выборка.Наименование+"Вася";
Объект.ОбменДанными.Загрузка = истина;
Объект.Записать();
КонецЦикла;
КонецЦикла
Походу заработало, только не понял, подскажите а как исключить что Это НЕ Группа (не папка) ?
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот