Поиск дублей в таблице значений или табличном поле

Проверка любой таблицы на повторяющиеся строки, с выводом сообщения какие строки задублированны, и режимом "Отказ" для проведения документов.

В данной процедуре поиск дублей происходит по всем колонкам строк. Тоесть дублем считается повтор значений в двух строках по всем колонкам.

Если повторяющих строк больше одной, то они все будут показаны в сообщении, с порядковым номером исходной строки и повторяющейся строки.

Данную процедура лучше использовать в общем модуле и вызывать её из процедур "ПриЗаписи" или "ОбработкаПроведения", и т.п. То есть в тех, где можно сделать отказ от выполнения дальнейших дествий
В качестве Таблицы — можно указать "ТаблицуЗначений", либо "ТабличнуюЧасть" документа, Справочника и т.д.

// !!! Павел С.С. 2 июня 2011 г. 17:49:14
// Проверка любой таблицы на повторяющиеся строки
// Данную процедура лучше использовать в процедурах ПриЗаписи, ОбработкаПроведения, и т.п. Тоесть в тех, где можно сделать отказ от выполениядальнейших дествий
// Параметры:
// ТЧ — можно указать «ТаблицуЗначений», либо «ТабличнуюЧасть» документа
// Отказ — параметр «Отказ» или «Истина», «Ложь»
Процедура ПоискДублейСтрокВТабЧасти(ТЧ, Отказ) Экспорт

Если Тип(ТЧ) = Тип(«ТаблицаЗначений») Тогда
ТаблЗнач = ТЧ;
Иначе
ТаблЗнач = ТЧ.Выгрузить();
КонецЕсли;

Отбор = Новый Структура();

Для каждого Стр Из ТаблЗнач Цикл
Отбор.Очистить();
Для каждого Колонки Из ТаблЗнач.Колонки Цикл
Если Колонки.Имя <> «НомерСтроки» Тогда
Отбор.Вставить(Колонки.Имя, Стр[Колонки.Имя]);
КонецЕсли;
КонецЦикла;

Строки = ТаблЗнач.НайтиСтроки(Отбор);
Если Строки.Количество() > 1 Тогда
   Для каждого НайденныеСтроки Из Строки Цикл
Если Строки.Найти(НайденныеСтроки) > 0 Тогда
   СтрокаСообщения = «Строка № » + Строки[0].НомерСтроки + » совпадает со строкой № » + НайденныеСтроки.НомерСтроки;
   СообщитьОбОшибке(СтрокаСообщения, Отказ, «Уберите задвоения строк!»);
КонецЕсли;
   КонецЦикла;
   КонецЕсли;
КонецЦикла;
КонецПроцедуры

42 Comments

pavel_pss 01.01.2005 at 03:00

Проверка любой таблицы на повторяющиеся строки, с выводом сообщения какие строки задублированны, и режимом «Отказ» для проведения документов.

В данной процедуре поиск дублей происходит по всем колонкам строк. Тоесть дублем считается повтор значений в двух строках по всем колонкам.

Если повторяющих строк больше одной, то они все будут показаны в сообщении, с порядковым номером исходной строки и повторяющейся строки.

Данную процедура лучше использовать в общем модуле и вызывать её из процедур «ПриЗаписи» или «ОбработкаПроведения», и т.п. То есть в тех, где можно сделать отказ от выполнения дальнейших дествий

В качестве Таблицы — можно указать «ТаблицуЗначений», либо «ТабличнуюЧасть» документа, Справочника и т.д.

Перейти к публикации

Reply ↓
kapustinag 25.10.2011 at 23:29

Думаю, небрежно сделано.

1. В приведенном куске кода последняя команда «Найти» лишняя:

Если Строки.Количество() > 1 Тогда

Для каждого НайденныеСтроки Из Строки Цикл

Если Строки.Найти(НайденныеСтроки) > 0 Тогда

— так как все строки для данного отбора уже найдены, то незачем делать последнее «Найти». Нужно просто вывести номера найденных строк.

2. Данная процедура будет делать отбор для каждой строки, в том числе и для тех, которые дублируют строки, обработанные ранее. То есть, в частности, будет выдаваться несколько сообщений по поводу одних и тех же дублей.

3. Для каждой строки ТЧ идет цикл по колонкам Отбор.Вставить… Вставить все колонки в отбор правильнее перед циклом по строкам ТЧ. А в цикле по строкам — заполнять значения отбора.

4. Отбор делается по строковому представлению, что неправильно. Есть куча примеров, когда объекты разные, но их строковое представление совпадает. Например, наименования номенклатуры совпадают, но разные артикулы.

5. Более того, зачем вообще эти многократные отборы и поиски? Лучше отсортировать таблицу значений по всем колонкам. Тогда все дублирующиеся строки окажутся рядом друг с другом. Останется только один раз пройтись циклом сверху вниз, сравнивая текущую строку со следующей.

(Если п.5 еще можно снять по той причине, что сортировка меняет исходную ТЧ — что нежелательно — то с п.п.1-4 вряд ли можно спорить)

Так что, наверно, «минус».

Reply ↓
Программулькин 26.10.2011 at 05:12

на работоспособность не проверял, особо сильно не вникал, но за интересную мысль плюс, сложил в «судук», авось пригодится.

Reply ↓
V.Nikonov 26.10.2011 at 08:14

К тому же обработка отлавливает только АБСОЛЮТНЫХ двойников! Если например, ТЧ Товары содержит две строки с одинаковыми товарами, характеристиками, сериями и т.п., но с разным количеством по строкам, то такие строки не будут дублями….?

Reply ↓
V.Nikonov 26.10.2011 at 08:14

А если ТЧ документа устанавливающего свойства, и в одной строке устанавливается Истина, а вдругой Ложь? Это ошибочное состояние документа не будет распознано!!!

Сыровато, недодлано, крайне ограниченное применение идеи как таковой!

Минус пока..

Reply ↓
artmicro 26.10.2011 at 09:02

Для дальнейшего развития, так сказать, если твоя табличная часть будет довольно большая, не плохо было использовать индексы и исключить из проверки колонки с числовым типом.

Ну и вообщем — метод типовой. Есть куда более интересные и более продуктивные решения.

Reply ↓
pavel_pss 26.10.2011 at 09:32

Если кому не нравиться, можете не пользоваться, или пишите свои, но для начинающих программеров как пример вполне может сойти. А вы типа продвинутые программеры, если такие умные возьмите и выложите свою реализацию данного примера. А то умничать все крутые, а взять написать и выложить слабо. Так что …

Reply ↓
kosmo0 26.10.2011 at 13:32

(6)

Не кипи. Ты не в детском саду и здесь не будут радостно хлопать в ладоши только потому, что ты ЧТО-ТО сделал. Скопируют твой код люди не глядючи и кое-кто получит проблему на свою голову. Поэтому и указывают на недостатки в коде. А минус как предупреждение, чтобы хоть в комментарии заглянули отчего так.

Reply ↓
pavel_pss 26.10.2011 at 15:51

kosmo0 пишет:

(6)

Не кипи. Ты не в детском саду и здесь не будут радостно хлопать в ладоши только потому, что ты ЧТО-ТО сделал. Скопируют твой код люди не глядючи и кое-кто получит проблему на свою голову. Поэтому и указывают на недостатки в коде. А минус как предупреждение, чтобы хоть в комментарии заглянули отчего так.

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

Reply ↓
MarryJane 27.10.2011 at 00:49

Думаю что колонка Номерстроки есть не во всех таблиц значений.

Reply ↓
anig99 27.10.2011 at 00:58

Проще всего создать временную таблицу, поместить туда таблицу значений + 1 колонка с цифрой 1 Свернуть всё это просуммировав колонку с цифрой 1 и отбор на итог >1. В результате получим таблицу дублей. При желании можно настроить не на все колонки, а только определенные.

Reply ↓
pavel_pss 27.10.2011 at 09:29

anig99 пишет:

Проще всего создать временную таблицу, поместить туда таблицу значений + 1 колонка с цифрой 1 Свернуть всё это просуммировав колонку с цифрой 1 и отбор на итог >1. В результате получим таблицу дублей. При желании можно настроить не на все колонки, а только определенные.

да согласен, тоже как вариант., единственное, что так ты не сможешь сообщить какие строки одинаковые, и пользователю придется искать по наименованию, а если в табл. 500 строк то это увеличит время поиска.

Reply ↓
pavel_pss 27.10.2011 at 09:33

MarryJane пишет:

Думаю что колонка Номерстроки есть не во всех таблиц значений.

если я не ошибаюсь, то ее может не быть только в том случе, если таб. ты создаешь сам кодом. А если это табл. часть док. то там эта колонка есть всегда.

Reply ↓
direktorSan 27.10.2011 at 20:37

Согласен с (1) — небрежно.

1. Проверка в самом начале:

Если Тип(ТЧ) = Тип(«ТаблицаЗначений») Тогда

ТаблЗнач = ТЧ;

Иначе

ТаблЗнач = ТЧ.Выгрузить();

КонецЕсли;

В комментарии к функции описано, что передаваться может или таблица значений или табличная часть документа.

Проверка на таблицу значений есть, а проверки на табличную часть нет. Непорядок.

Т.е. если мы передадим в параметре ТЧ значение типа СписокЗначений (в нем же тоже можно дубли поискать), то завал обеспечен.

2. Не помню где, но сами 1С-овцы говорили, что при обработке таблиц значений вместо метода НайтиСтроки лучше использовать построитель запросов с соответствующим источником — и быстрее, и надежнее, и возможностей больше.

3. В дополнение к (1) о формировании отбора перед основным циклом добавлю, что заполнение такого отбора в основном цикле лучше производить методом ЗаполнитьЗначенияСвойств(…) — просто, быстро, надежно.

(6) «Слабо/не слабо» — не аргумент и не ответ на критику. А критика реализации, на мой взгдяд, вполне конструктивная. И если учесть все то, что здесь говорилось, то можно написать очень даже неплохой и эффективный обработчик.

(11) Ваш вариант сработает только в том случае, если все колонки в ТЗ типизированы.

А данная реализация претендует на универсальность.

Reply ↓
anig99 27.10.2011 at 21:55

(12) Можно пойти дальше и отобранные строки дубль соединить с исходной таблицей по полной — тогда можно получить номера строк.

Reply ↓
pavel_pss 28.10.2011 at 12:59

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

Знания бесценны и ими надо делиться, чтобы они совершенствовались — это так от себя 🙂

Reply ↓
artbear 14.11.2011 at 17:11

(0) Будем каждый программный «чих» сюда выкладывать? 🙁

Присоединяюсь к предудыщим словам — слабо, не все проверено, медленно, без ключевых полей дубли искать не смысла и т.п.

Минусую!

Reply ↓
artbear 14.11.2011 at 17:35

(12)

apalon_pss пишет:

единственное, что так ты не сможешь сообщить какие строки одинаковые, и пользователю придется искать по наименованию, а если в табл. 500 строк то это увеличит время поиска.

А кто мешает сделать еще один запрос к полученной таблице дублей и присоединить таблицу наименований?

и все это на сервере.

Reply ↓

artbear 14.11.2011 at 17:43

+(18) вот простой и не универсальный, но рабочий код

Функция ЕстьДублиТоваров()

Запрос = Новый Запрос;
Запрос.Текст = «ВЫБРАТЬ
| ПеремещениетчТовары.Товар,
| Перемещение

Reply ↓

OVladius 02.09.2013 at 12:18

Жесткий вариант конечно, юзать цикл.

Не проще так?)

Для каждого Строка Из Тз Цикл

НайденныеСтроки = Тз.НайтиСтроки(Новый Структура(«Сотрудник», Строка.Сотрудник));

Если НайденныеСтроки.Количество()>1 Тогда

ОбщегоНазначения.СообщитьОбОшибке(«По сотруднику «+Строка.Сотрудник+» имеются дубли!»);

КонецЕсли;

КонецЦикла;

Здесь идет поиск дублей по 1 полю, но нет проблем в структуру добавить все поля.

Reply ↓
freebsdd 14.11.2013 at 06:29

Спасибо за обработку, молодец! У меня вопрос появился, быть может я не сталкивался с такой потребностью, но для чего такая обработка, если можно всё содержимое в ТаблицеЗначений (или её клоне) при сворачивании определить точное количество дублей, всего «пара» строк, м?

Reply ↓
pavel_pss 14.11.2013 at 12:53

(21) freebsdd, нужно было обрабатывать в нескольких видов документов табличные части и сообщить пользователю какая позиция в таблице является дублем, т.к. табличная часть могла быть от 10 до 300 позиций. А время работы запроса не значительно бы уменьшило время ожидания, а то и вообще не был бы эффективен.

Reply ↓
Светлый ум 17.12.2013 at 08:20

(18) — верно только в случае для проверки документов «записанных», а если проверять из текущего документа — не будут проверены только что добавленные строки.

Reply ↓
Светлый ум 17.12.2013 at 08:23

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

Reply ↓
Светлый ум 17.12.2013 at 08:23

и не тратили свое драгоценное время.

Reply ↓

prodines 28.02.2014 at 14:17

Аналогичная функция: Удаление дублей из Таблицы значений:

Процедура УдалениеДублейСтрокТЗ(ТаблЗнач)

МассивУдаляемыхДублей = Новый Массив;

Отбор = Новый Структура();

Для каждого Стр Из ТаблЗнач Цикл

Если МассивУдаляемыхДублей.Найти(Стр) = Неопределено Тогда

Отбор.Очистить();
Для каждого Колонки Из ТаблЗнач.Колонки Цикл
Отбор.Вставить(Колонки.Имя, Стр[Колонки.Имя]);
КонецЦикла;

Строки = ТаблЗнач.НайтиСтроки(Отбор);

Если Строки.Количество() > 1 Тогда

Для Сч=1 По Строки.Количество()-1 Цикл

МассивУдаляемыхДублей.Добавить(Строки[Сч]);

КонецЦикла;

КонецЕсли;
КонецЕсли;
КонецЦикла;

Для каждого Элем Из МассивУдаляемыхДублей Цикл

ТаблЗнач.Удалить(Элем);

КонецЦикла;

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

Показать

Reply ↓

Vertex 05.05.2014 at 17:35

Товары.Свернуть(«Номенклатура»,»Количество»); и ВСЕ 🙂

Reply ↓

Bublik2011 16.01.2015 at 05:04

Вот тоже придумал,

Функция УбратьПовторенияВТЗ(ТаблицаЗначенийТЗ,ИмяКолонки)
djfhcgssnNP=Новый ТаблицаЗначений;
Для каждого КолонкиNP Из ТаблицаЗначенийТЗ.Колонки Цикл
djfhcgssnNP.Колонки.Добавить(КолонкиNP.Имя);
КонецЦикла;
Индекс = ТаблицаЗначенийТЗ.Количество() — 1;
Пока Индекс >= 0 Цикл
СтрокаТаблицаЗначенийТЗ=ТаблицаЗначенийТЗ[Индекс];


Если СокрЛП(ТипЗнч(djfhcgssnNP.Найти(СтрокаТаблицаЗначенийТЗ.Abcdefа, ИмяКолонки)))=»Не определено» Тогда
НоваяСтрока = djfhcgssnNP.Добавить();
НоваяСтрока[ИмяКолонки] = СтрокаТаблицаЗначенийТЗ[ИмяКолонки];
Для каждого КолонкиNPHN Из djfhcgssnNP.Колонки Цикл
НоваяСтрока[КолонкиNPHN.Имя] = СтрокаТаблицаЗначенийТЗ[КолонкиNPHN.Имя];
КонецЦикла;
КонецЕсли;

Индекс = Индекс — 1;
КонецЦикла;
Возврат djfhcgssnNP;
КонецФункции // УбратьПовторенияВТЗ()

Показать

Reply ↓

SkyLink2012 16.01.2015 at 19:16

Гораздо быстрее удалить дубли в таблице, по моему мнению, при помощи запроса |ВЫБРАТЬ РАЗЛИЧНЫЕ

   Запрос=новый Запрос;
МВТ = Новый МенеджерВременныхТаблиц;
Запрос.МенеджерВременныхТаблиц = МВТ;
Запрос.Текст=»
|ВЫБРАТЬ
| ТЗ1.*
|ПОМЕСТИТЬ ТЗ1
|ИЗ
| &ТЗ1 КАК ТЗ1
|;
|ВЫБРАТЬ РАЗЛИЧНЫЕ
|  ТЗ1.*,
|ИЗ ТЗ1 КАК ТЗ1
|;
|УНИЧТОЖИТЬ ТЗ1
|»;
Запрос.УстановитьПараметр(«ТЗ1»,ТаблицаЗначений);
Результат = Запрос.Выполнить().Выгрузить();

Показать

Reply ↓

Bublik2011 16.01.2015 at 19:20

Так ведь у меня несколько колонок, не одна. И «Выбрать Различные» не будет работать на строках неограниченной длины.

По крайней мере, сравнивая ТЗ со справочником по реквизиту «Строка неограниченной длины» выдавало ошибку «нельзя сравнивать поля бла-бла несовместимые типы»

Reply ↓

SkyLink2012 16.01.2015 at 23:57

(30) Bublik2011, разумеется. Вот между прочим, в посте (28) вероятно вместо

~~Если СокрЛП(ТипЗнч(djfhcgssnNP.Найти(СтрокаТаблицаЗначенийТЗ.Abcdefа, ИмяКолонки)))=»Не определено» Тогда~~

надо наверное

Если СокрЛП(ТипЗнч(djfhcgssnNP.Найти(СтрокаТаблицаЗначенийТЗ[ИмяКолонки], ИмяКолонки)))=»Не определено» Тогда

У меня синтакс контроль браузера ошибку нашел. Не знаю, может, неправильно.

Reply ↓

Wefast 11.07.2015 at 01:09

(29) SkyLink2012,

{Форма.Форма.Форма(26)}: Ошибка при вызове метода контекста (Выполнить)

Результат = Запрос.Выполнить().Выгрузить();

по причине:

{(6, 5)}: Тип не может быть выбран в запросе

<<?>>&ТЗ1 КАК ТЗ1

Reply ↓

perepetulichka 08.12.2016 at 13:47

Взяла за основу код из статьи и убрала дублирование сообщений:

 Отбор = Новый Структура();
НомерЗаписи = ТаблЗнач .Количество()-1;

Пока НомерЗаписи > 0 Цикл
Стр = ТаблЗнач.Получить(НомерЗаписи);

Отбор.Очистить();
Для каждого Колонки Из ТаблЗнач.Колонки Цикл
Если Колонки.Имя <> «НомерСтроки» Тогда
Отбор.Вставить(Колонки.Имя, Стр[Колонки.Имя]);
КонецЕсли;
КонецЦикла;

Строки = ТаблЗнач.НайтиСтроки(Отбор);
Если Строки.Количество() > 1 Тогда
НомерЗаписи = НомерЗаписи — Строки.Количество();

ПервыйНомер = Строки[0].НомерСтроки;
ТаблЗнач.Удалить(Строки[0]);
Строки.Удалить(0);
Для каждого НайденнаяСтрока Из Строки Цикл
Сообщить(«Строка № » + ПервыйНомер + » совпадает со строкой № » + НайденнаяСтрока.НомерСтроки);
ТаблЗнач.Удалить(НайденнаяСтрока);
КонецЦикла;

Иначе
НомерЗаписи = НомерЗаписи — 1;
КонецЕсли;
КонецЦикла;

Показать

Как пишет автор, вдруг пригодится новичкам 🙂

Reply ↓

agdam_m 04.02.2018 at 20:23

А так например можно просто проверить — есть дубли или нет:

тзТестДублей = Данные.Выгрузить(«Номенклатура»);
количествоДоСвертки = тзТестДублей.Количество();
тзТестДублей.Свернуть(«Номенклатура»);
Если тзТестДублей.Количество() <> количествоДоСвертки Тогда
Сообщить(«В таблице есть повторяющиеся строки!»);
КонецЕсли;

Reply ↓

leks88 04.02.2018 at 22:21

Подпишусь, интересно знать все способы, но если бы кто-то оформил все способы в статью — цены б этому автору не было)

Reply ↓
uri1978 05.02.2018 at 13:45

Из моих старых закромов, оформил.

Проверка таблицы на дублирование строк

Reply ↓

brylig 17.10.2018 at 07:08

(34) Еще доработал:

&НаКлиенте
Процедура НайтиДубли(Команда)
Поля = Новый Массив;
Поля.Добавить(«Номенклатура»);
Поля.Добавить(«Характеристика»);
Дубли = ПроверитьТЧНаДубли(Объект.ТЧ, Поля);
Если Дубли.Количество() > 0 Тогда
Для Каждого Дубль Из Дубли Цикл
Сообщить(«Табличная часть» имеет дубли в строках №:»);
Для Каждого СтрокаДубля Из Дубль Цикл
Сообщить(СтрокаДубля);
КонецЦикла;
КонецЦикла;
КонецЕсли;
КонецПроцедуры


&НаСервереБезКонтекста
Функция ПроверитьТЧНаДубли(Знач ТЧ, Поля)
Возврат ПроверитьТЗНаДубли(ТЧ.Выгрузить(), Поля);
КонецФункции


&НаСервереБезКонтекста
//Функция поиска дублей в таблицах значений.
//Получает:
//ТЗ — таблицу значений (должна иметь стандартную колонку с уникальным индексом «НомерСтроки»);
//Поля — массив полей для отбора.
//Возвращает:
//Массив Дубли массивов Дубль, содержащих НомерСтроки дублированных записей.
Функция ПроверитьТЗНаДубли(ТЗ, Поля)
Отбор = Новый Структура();
Дубли = Новый Массив;
Пока ТЗ.Количество() > 0 Цикл
СтрокаТЗ = ТЗ[0];
Отбор.Очистить();
Для Каждого Поле Из Поля Цикл
КолонкаТЗ = ТЗ.Колонки.Найти(Поле);
Если НЕ КолонкаТЗ = Неопределено Тогда Отбор.Вставить(Поле, СтрокаТЗ[Поле]); КонецЕсли;
КонецЦикла;
СтрокиДубля = ТЗ.НайтиСтроки(Отбор);
Если СтрокиДубля.Количество() > 1 Тогда
Дубль = Новый Массив;
Для Каждого СтрокаДубля Из СтрокиДубля Цикл
Дубль.Добавить(СтрокаДубля.НомерСтроки);
ТЗ.Удалить(СтрокаДубля);
КонецЦикла;
Дубли.Добавить(Дубль);
Иначе
ТЗ.Удалить(СтрокиДубля[0]);
КонецЕсли;
КонецЦикла;
Возврат Дубли;
КонецФункции

Показать

Находит дубли по определенным полям.

Reply ↓

brylig 17.10.2018 at 08:56

(38) Или по всем полям (кроме служебных), если конкретные поля не указаны:

&НаКлиенте
Процедура НайтиДубли(Команда)
Поля = Новый Массив;
Поля.Добавить(«Номенклатура»);
Поля.Добавить(«Характеристика»);
Дубли = ПроверитьТЧНаДубли(Объект.ТЧ, Поля);
Если Дубли.Количество() > 0 Тогда
Для Каждого Дубль Из Дубли Цикл
Сообщить(«Табличная часть имеет дубли в строках №:»);
Для Каждого СтрокаДубля Из Дубль Цикл
Сообщить(СтрокаДубля);
КонецЦикла;
КонецЦикла;
КонецЕсли;
КонецПроцедуры

&НаСервереБезКонтекста
Функция ПроверитьТЧНаДубли(Знач ТЧ, Поля) Экспорт
Возврат ПроверитьТЗНаДубли(ТЧ.Выгрузить(), Поля);
КонецФункции

&НаСервереБезКонтекста
//Функция поиска дублей в таблицах значений.
//Получает:
//ТЗ — таблицу значений (должна иметь стандартную колонку с уникальным индексом «НомерСтроки»);
//Поля — массив полей для отбора (если нет, то используются все поля таблицы, кроме «НомерСтроки» и «ИсходныйНомерСтроки»).
//Возвращает:
//Массив Дубли массивов Дубль, содержащих НомерСтроки дублированных записей.
Функция ПроверитьТЗНаДубли(ТЗ, Поля) Экспорт
Если ТипЗнч(ТЗ) = Тип(«ТаблицаЗначений») Тогда
Отбор = Новый Структура();
Дубли = Новый Массив;
Если Поля.Количество() = 0 ИЛИ Поля = Неопределено Тогда
Для Каждого Поле Из ТЗ.Колонки Цикл
Если Поле.Имя <> «НомерСтроки» И Поле.Имя <> «ИсходныйНомерСтроки» Тогда Поля.Добавить(Поле.Имя); КонецЕсли;
КонецЦикла;
КонецЕсли;
Пока ТЗ.Количество() > 0 Цикл
СтрокаТЗ = ТЗ[0];
Отбор.Очистить();
Для Каждого Поле Из Поля Цикл
КолонкаТЗ = ТЗ.Колонки.Найти(Поле);
Если НЕ КолонкаТЗ = Неопределено Тогда Отбор.Вставить(Поле, СтрокаТЗ[Поле]); КонецЕсли;
КонецЦикла;
СтрокиДубля = ТЗ.НайтиСтроки(Отбор);
Если СтрокиДубля.Количество() > 1 Тогда
Дубль = Новый Массив;
Для Каждого СтрокаДубля Из СтрокиДубля Цикл
Дубль.Добавить(СтрокаДубля.НомерСтроки);
ТЗ.Удалить(СтрокаДубля);
КонецЦикла;
Дубли.Добавить(Дубль);
Иначе
ТЗ.Удалить(СтрокиДубля[0]);
КонецЕсли;
КонецЦикла;
Возврат Дубли;
Иначе
Возврат Неопределено;
КонецЕсли;
КонецФункции

Показать

Reply ↓

brylig 17.10.2018 at 09:42

(39) Если нет поля «НомерСтроки», то можно в начале функции продублировать индекс ТЗ в отдельное (дополнительное) поле и вернуть массив индексов с дублями. При этом ТЗ передавать по значению, а неизмененный источник уже потом кроить. Например, чтобы удалить дубли в источнике по полученным индексам, можно добавить поле ПризнакУдаления, заполнить его по индексам, а потом удалить помеченные строки с последующим удалением добавленного поля. Можно просто построчно перенести источник в новую ТЗ, исключая дублированные строки. В моем случае колхозить надо было с ТЧ и просто информировать юзера о проблемах.

Reply ↓
burstmashine 22.11.2018 at 19:19

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

Reply ↓
pavel_pss 23.11.2018 at 10:25

(41) , Да мое решение тебе не подойдет. Поэтому решение не дам, нужно пробовать, но самым лучшим вариантом в данном случае будет (как здесь писали) через запрос. К тому же не до конца понятно, что ты хочешь сделать. Что за документы в которых ты хочешь удалить дубли, уже проведенные или это новый документ в отношении старых?

Reply ↓
portal2011 29.01.2019 at 01:24

(35) Или так

Отбор = Новый Структура(«Номенклатура»);

Отбор.Вставить(«Номенклатура»,СтрокаТаблицы.Номенклатура);

НайденныеСтроки = Параметры.ТаблицаТовары.НайтиСтроки(Отбор);

Если НайденныеСтроки.Количество()>1 Тогда

КонецЕсли;

В моем случае, при обходе табличной части, мне нужно было выполнять определенные условия, если уже был или будет дальше дубль этой строки.

Reply ↓

Поиск дублей в таблице значений или табличном поле

Related Posts

42 Comments

Leave a Comment Отменить ответ