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

25.10.11

Разработка - Универсальные функции

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

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

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

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

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

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

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

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

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

См. также

Вставляем картинку из буфера обмена (платформа 1С 8.3.24)

Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024    2667    0    John_d    8    

53

GUID в 1С 8.3 - как с ними быть

Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    4600    atdonya    22    

45

Переоткрытие внешних обработок

Универсальные функции Платформа 1С v8.3 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    3960    ke.92@mail.ru    16    

61

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    8813    YA_418728146    6    

141

Печать непроведенных документов для УТ, КА, ERP. Настройка печати по пользователям, документам и печатным формам

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023    2071    21    progmaster    7    

3

Расширение: Быстрые отборы через буфер [Alt+C] Копировать список, [Alt+V] Вставить список, [Ctrl+C] Копировать из файлов

Инструментарий разработчика Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

Копирует в буфер значения из списков, из ячеек отчетов, таблиц, настроек списков, других отборов и вставляет в выбранную настройку отбора. Работает с Объект не найден. Работает как в одной так и между разными базами 1С. Использует комбинации [Alt+C] Копировать список, [Alt+V] Вставить список. Также для копирования данных используется стандартная [Ctrl+C] (например из открытого xls, mxl, doc и т.п. файла скопировать список наименований)

1 стартмани

13.10.2022    16142    133    sapervodichka    112    

129

Система контроля ведения учета [БСП]

Универсальные функции Механизмы типовых конфигураций БСП (Библиотека стандартных подсистем) Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

В данном материале рассмотрим типовой алгоритм подсистемы контроля учета БСП в конфигурациях на примерах.

18.07.2022    7242    quazare    8    

109
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
0. pavel_pss 289 01.01.70 03:00 Сейчас в теме
Проверка любой таблицы на повторяющиеся строки, с выводом сообщения какие строки задублированны, и режимом "Отказ" для проведения документов.

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

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

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


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

1. kapustinag 25.10.11 23:29 Сейчас в теме
Думаю, небрежно сделано.
1. В приведенном куске кода последняя команда "Найти" лишняя:

Если Строки.Количество() > 1 Тогда
Для каждого НайденныеСтроки Из Строки Цикл
Если Строки.Найти(НайденныеСтроки) > 0 Тогда

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

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

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

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

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

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

Так что, наверно, "минус".
14. direktorSan 297 27.10.11 20:37 Сейчас в теме
Согласен с (1) - небрежно.
1. Проверка в самом начале:

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

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

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

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


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

(11) Ваш вариант сработает только в том случае, если все колонки в ТЗ типизированы.
А данная реализация претендует на универсальность.
2. Программулькин 301 26.10.11 05:12 Сейчас в теме
на работоспособность не проверял, особо сильно не вникал, но за интересную мысль плюс, сложил в "судук", авось пригодится.
3. V.Nikonov 120 26.10.11 08:14 Сейчас в теме
К тому же обработка отлавливает только АБСОЛЮТНЫХ двойников! Если например, ТЧ Товары содержит две строки с одинаковыми товарами, характеристиками, сериями и т.п., но с разным количеством по строкам, то такие строки не будут дублями....?
4. V.Nikonov 120 26.10.11 08:14 Сейчас в теме
А если ТЧ документа устанавливающего свойства, и в одной строке устанавливается Истина, а вдругой Ложь? Это ошибочное состояние документа не будет распознано!!!
Сыровато, недодлано, крайне ограниченное применение идеи как таковой!
Минус пока..
5. artmicro 26.10.11 09:02 Сейчас в теме
Для дальнейшего развития, так сказать, если твоя табличная часть будет довольно большая, не плохо было использовать индексы и исключить из проверки колонки с числовым типом.

Ну и вообщем - метод типовой. Есть куда более интересные и более продуктивные решения.
6. pavel_pss 289 26.10.11 09:32 Сейчас в теме
Если кому не нравиться, можете не пользоваться, или пишите свои, но для начинающих программеров как пример вполне может сойти. А вы типа продвинутые программеры, если такие умные возьмите и выложите свою реализацию данного примера. А то умничать все крутые, а взять написать и выложить слабо. Так что ...
svmix; Anatolia; Lacoste4life; ivangrant; marat.coolls; FeSTy; Светлый ум; rinik88; memo4i; V4L; Manticor; Gang031; +12 8 Ответить
7. kosmo0 107 26.10.11 13:32 Сейчас в теме
(6)
Не кипи. Ты не в детском саду и здесь не будут радостно хлопать в ладоши только потому, что ты ЧТО-ТО сделал. Скопируют твой код люди не глядючи и кое-кто получит проблему на свою голову. Поэтому и указывают на недостатки в коде. А минус как предупреждение, чтобы хоть в комментарии заглянули отчего так.
trest30; collider; Chaotic; Gendelf; ivangrant; гыук320; Pyryrym; Dmitri93; portal2011; kild; AlexO; fomix; ACE$; +13 Ответить
9. pavel_pss 289 26.10.11 15:51 Сейчас в теме
kosmo0 пишет:
(6)
Не кипи. Ты не в детском саду и здесь не будут радостно хлопать в ладоши только потому, что ты ЧТО-ТО сделал. Скопируют твой код люди не глядючи и кое-кто получит проблему на свою голову. Поэтому и указывают на недостатки в коде. А минус как предупреждение, чтобы хоть в комментарии заглянули отчего так.


глуп, тот программист, что просто тупо копирует чужой код, не разобравшись в нем. :)
Lacoste4life; +1 Ответить
8. пользователь 26.10.11 13:35
Сообщение было скрыто модератором.
...
10. MarryJane 31 27.10.11 00:49 Сейчас в теме
Думаю что колонка Номерстроки есть не во всех таблиц значений.
Natali-Avto; +1 Ответить
11. anig99 2843 27.10.11 00:58 Сейчас в теме
Проще всего создать временную таблицу, поместить туда таблицу значений + 1 колонка с цифрой 1 Свернуть всё это просуммировав колонку с цифрой 1 и отбор на итог >1. В результате получим таблицу дублей. При желании можно настроить не на все колонки, а только определенные.
Ingraf; Chaotic; Gendelf; Nikitos_NSK; Basil_Kudinov; portal2011; srGray; +7 Ответить
12. pavel_pss 289 27.10.11 09:29 Сейчас в теме
anig99 пишет:
Проще всего создать временную таблицу, поместить туда таблицу значений + 1 колонка с цифрой 1 Свернуть всё это просуммировав колонку с цифрой 1 и отбор на итог >1. В результате получим таблицу дублей. При желании можно настроить не на все колонки, а только определенные.


да согласен, тоже как вариант., единственное, что так ты не сможешь сообщить какие строки одинаковые, и пользователю придется искать по наименованию, а если в табл. 500 строк то это увеличит время поиска.
15. anig99 2843 27.10.11 21:55 Сейчас в теме
(12) Можно пойти дальше и отобранные строки дубль соединить с исходной таблицей по полной - тогда можно получить номера строк.
18. artbear 1448 14.11.11 17:35 Сейчас в теме
(12)
apalon_pss пишет:
единственное, что так ты не сможешь сообщить какие строки одинаковые, и пользователю придется искать по наименованию, а если в табл. 500 строк то это увеличит время поиска.

А кто мешает сделать еще один запрос к полученной таблице дублей и присоединить таблицу наименований?
и все это на сервере.
19. artbear 1448 14.11.11 17:43 Сейчас в теме
+(18) вот простой и не универсальный, но рабочий код
Функция ЕстьДублиТоваров()
	
	Запрос = Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ
	|	ПеремещениетчТовары.Товар,
	|	ПеремещениетчТовары.Товар.Наименование,
	|	ПеремещениетчТовары.НомерСтроки
	|ПОМЕСТИТЬ Таблица
	|ИЗ
	|	Документ.Перемещение.тчТовары КАК ПеремещениетчТовары
	|ГДЕ
	|	ПеремещениетчТовары.Ссылка = &Ссылка
	|	И ПеремещениетчТовары.Товар <> ЗНАЧЕНИЕ(Справочник.Товары.ПустаяСсылка)
	|	И ПеремещениетчТовары.Товар.ВидТовара <> ЗНАЧЕНИЕ(Перечисление.ВидыТоваров.Услуга)
	|;
	|
	|ВЫБРАТЬ
	|	Таблица.Товар
	|ПОМЕСТИТЬ Дубли
	|ИЗ
	|	Таблица КАК Таблица
	|
	|СГРУППИРОВАТЬ ПО
	|	Таблица.Товар
	|
	|ИМЕЮЩИЕ
	|	КОЛИЧЕСТВО(РАЗЛИЧНЫЕ Таблица.НомерСтроки) > 1
	|;
	|
	|////////////////////////////////////////////////////////////­////////////////////
	|ВЫБРАТЬ
	|	Таблица.ТоварНаименование,
	|	Таблица.НомерСтроки
	|ИЗ
	|	Дубли КАК Дубли
	|		ЛЕВОЕ СОЕДИНЕНИЕ Таблица КАК Таблица
	|		ПО Дубли.Товар = Таблица.Товар";
	Запрос.УстановитьПараметр("Ссылка", Ссылка);
	Результат = Запрос.Выполнить();
	естьДубли = НЕ Результат.Пустой();
	
	Если естьДубли Тогда
		Выборка = Результат.Выбрать();
		Пока Выборка.Следующий() Цикл
			Сообщить("Повторение товара: "+СокрЛП(Выборка.ТоварНаименование)+ " в строке "+Выборка.НомерСтроки);
			Возврат истина;
		КонецЦикла;
	КонецЕсли; 
	
	Возврат естьДубли;	
КонецФункции
Показать
alenakrr; IVC_goal; Oblachnov; Збянтэжаны Саўка; +4 1 Ответить
23. Светлый ум 406 17.12.13 08:20 Сейчас в теме
(18) - верно только в случае для проверки документов "записанных", а если проверять из текущего документа - не будут проверены только что добавленные строки.
13. pavel_pss 289 27.10.11 09:33 Сейчас в теме
MarryJane пишет:
Думаю что колонка Номерстроки есть не во всех таблиц значений.


если я не ошибаюсь, то ее может не быть только в том случе, если таб. ты создаешь сам кодом. А если это табл. часть док. то там эта колонка есть всегда.
16. pavel_pss 289 28.10.11 12:59 Сейчас в теме
Признаяюсь, код не был доведен до ума, по причине загруженности, ну и в моем случае просто не нужна была универсальность. Поэтому благодарю всех за обсуждение, ну а если кто то хочет предложить что то еще, то пожалуйста. Ну и может либо я сам, либо кто нить другой учтет все высказывания и выложит реально универсальный алгоритм, может кому и пригодится.

Знания бесценны и ими надо делиться, чтобы они совершенствовались - это так от себя :)
svmix; rinik88; Gang031; freebsdd; +4 2 Ответить
17. artbear 1448 14.11.11 17:11 Сейчас в теме
(0) Будем каждый программный "чих" сюда выкладывать? :(
Присоединяюсь к предудыщим словам - слабо, не все проверено, медленно, без ключевых полей дубли искать не смысла и т.п.
Минусую!
20. OVladius 32 02.09.13 12:18 Сейчас в теме
Жесткий вариант конечно, юзать цикл.

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

Для каждого Строка Из Тз Цикл
НайденныеСтроки = Тз.НайтиСтроки(Новый Структура("Сотрудник", Строка.Сотрудник));

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

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

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

Здесь идет поиск дублей по 1 полю, но нет проблем в структуру добавить все поля.
collider; mart-sha; +2 Ответить
21. freebsdd 1 14.11.13 06:29 Сейчас в теме
Спасибо за обработку, молодец! У меня вопрос появился, быть может я не сталкивался с такой потребностью, но для чего такая обработка, если можно всё содержимое в ТаблицеЗначений (или её клоне) при сворачивании определить точное количество дублей, всего "пара" строк, м?
22. pavel_pss 289 14.11.13 12:53 Сейчас в теме
(21) freebsdd, нужно было обрабатывать в нескольких видов документов табличные части и сообщить пользователю какая позиция в таблице является дублем, т.к. табличная часть могла быть от 10 до 300 позиций. А время работы запроса не значительно бы уменьшило время ожидания, а то и вообще не был бы эффективен.
24. Светлый ум 406 17.12.13 08:23 Сейчас в теме
минус поставил не из вредности, а для того чтобы обратили внимание.
25. Светлый ум 406 17.12.13 08:23 Сейчас в теме
и не тратили свое драгоценное время.
26. prodines 107 28.02.14 14:17 Сейчас в теме
Аналогичная функция: Удаление дублей из Таблицы значений:

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

	МассивУдаляемыхДублей = Новый Массив;
	
	Отбор = Новый Структура();
	
	Для каждого Стр Из ТаблЗнач Цикл
		
		Если МассивУдаляемыхДублей.Найти(Стр) = Неопределено Тогда	
			
			Отбор.Очистить();
			Для каждого Колонки Из ТаблЗнач.Колонки Цикл
				Отбор.Вставить(Колонки.Имя, Стр[Колонки.Имя]);
			КонецЦикла;
			
			Строки = ТаблЗнач.НайтиСтроки(Отбор);
			
			Если Строки.Количество() > 1 Тогда	
				
				Для Сч=1 По Строки.Количество()-1 Цикл
					
					МассивУдаляемыхДублей.Добавить(Строки[Сч]);
					
				КонецЦикла;
				
			КонецЕсли;
		КонецЕсли; 
	КонецЦикла;	
	
	Для каждого Элем Из МассивУдаляемыхДублей Цикл
		
		ТаблЗнач.Удалить(Элем);
		
	КонецЦикла;	
	
КонецПроцедуры
Показать
41. burstmashine 22.11.18 19:19 Сейчас в теме
(26) Я так понял что это удаление дублей из одного документа с таб доком? А как , вот есть несколько доков и в каждом есть таб док, и чтобы удаляло дубли во всех где они встречаются или выдавало ошибку. При сохранении документа или проведении
42. pavel_pss 289 23.11.18 10:25 Сейчас в теме
(41) , Да мое решение тебе не подойдет. Поэтому решение не дам, нужно пробовать, но самым лучшим вариантом в данном случае будет (как здесь писали) через запрос. К тому же не до конца понятно, что ты хочешь сделать. Что за документы в которых ты хочешь удалить дубли, уже проведенные или это новый документ в отношении старых?
27. Vertex 63 05.05.14 17:35 Сейчас в теме
Товары.Свернуть("Номенклатура","Количество"); и ВСЕ :)
28. Bublik2011 9 16.01.15 05:04 Сейчас в теме
Вот тоже придумал,

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


			Если СокрЛП(ТипЗнч(djfhcgssnNP.Найти(СтрокаТаблицаЗначенийТЗ.Abcdefа, ИмяКолонки)))="Не определено" Тогда		
				НоваяСтрока = djfhcgssnNP.Добавить();
				НоваяСтрока[ИмяКолонки] = СтрокаТаблицаЗначенийТЗ[ИмяКолонки];
					Для каждого КолонкиNPHN Из djfhcgssnNP.Колонки Цикл
							НоваяСтрока[КолонкиNPHN.Имя] = СтрокаТаблицаЗначенийТЗ[КолонкиNPHN.Имя];
					КонецЦикла;
			КонецЕсли;		
				
			Индекс = Индекс - 1; 
		КонецЦикла;		
     Возврат djfhcgssnNP;
КонецФункции // УбратьПовторенияВТЗ()
Показать
29. SkyLink2012 266 16.01.15 19:16 Сейчас в теме
Гораздо быстрее удалить дубли в таблице, по моему мнению, при помощи запроса |ВЫБРАТЬ РАЗЛИЧНЫЕ

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

{Форма.Форма.Форма(26)}: Ошибка при вызове метода контекста (Выполнить)
Результат = Запрос.Выполнить().Выгрузить();
по причине:
{(6, 5)}: Тип не может быть выбран в запросе
<<?>>&ТЗ1 КАК ТЗ1
30. Bublik2011 9 16.01.15 19:20 Сейчас в теме
Так ведь у меня несколько колонок, не одна. И "Выбрать Различные" не будет работать на строках неограниченной длины.

По крайней мере, сравнивая ТЗ со справочником по реквизиту "Строка неограниченной длины" выдавало ошибку "нельзя сравнивать поля бла-бла несовместимые типы"
31. SkyLink2012 266 16.01.15 23:57 Сейчас в теме
(30) Bublik2011, разумеется. Вот между прочим, в посте (28) вероятно вместо
Если СокрЛП(ТипЗнч(djfhcgssnNP.Найти(СтрокаТаблицаЗначенийТЗ.Abcdefа, ИмяКолонки)))="Не определено" Тогда 


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

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


У меня синтакс контроль браузера ошибку нашел. Не знаю, может, неправильно.
34. perepetulichka 886 08.12.16 13:47 Сейчас в теме
Взяла за основу код из статьи и убрала дублирование сообщений:

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

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


Как пишет автор, вдруг пригодится новичкам :)
38. brylig 17.10.18 07:08 Сейчас в теме
(34) Еще доработал:

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


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


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


Находит дубли по определенным полям.
user1316759; dndw; +2 Ответить
39. brylig 17.10.18 08:56 Сейчас в теме
(38) Или по всем полям (кроме служебных), если конкретные поля не указаны:

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

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

&НаСервереБезКонтекста
//Функция поиска дублей в таблицах значений.
//Получает:
//ТЗ - таблицу значений (должна иметь стандартную колонку с уникальным индексом "НомерСтроки");
//Поля - массив полей для отбора (если нет, то используются все поля таблицы, кроме "НомерСтроки" и "ИсходныйНомерСтроки").
//Возвращает:
//Массив Дубли массивов Дубль, содержащих НомерСтроки дублированных записей.
Функция ПроверитьТЗНаДубли(ТЗ, Поля) Экспорт
	Если ТипЗнч(ТЗ) = Тип("ТаблицаЗначений") Тогда
		Отбор = Новый Структура();
		Дубли = Новый Массив;
		Если Поля.Количество() = 0 ИЛИ Поля = Неопределено Тогда
			Для Каждого Поле Из ТЗ.Колонки Цикл
				Если Поле.Имя <> "НомерСтроки" И Поле.Имя <> "ИсходныйНомерСтроки" Тогда Поля.Добавить(Поле.Имя); КонецЕсли;
			КонецЦикла;
		КонецЕсли;
		Пока ТЗ.Количество() > 0 Цикл
			СтрокаТЗ = ТЗ[0];
			Отбор.Очистить();
			Для Каждого Поле Из Поля Цикл
				КолонкаТЗ = ТЗ.Колонки.Найти(Поле);
				Если НЕ КолонкаТЗ = Неопределено Тогда Отбор.Вставить(Поле, СтрокаТЗ[Поле]); КонецЕсли;
			КонецЦикла;
			СтрокиДубля = ТЗ.НайтиСтроки(Отбор);
			Если СтрокиДубля.Количество() > 1 Тогда
				Дубль = Новый Массив;
				Для Каждого СтрокаДубля Из СтрокиДубля Цикл
					Дубль.Добавить(СтрокаДубля.НомерСтроки);
					ТЗ.Удалить(СтрокаДубля);
				КонецЦикла;
				Дубли.Добавить(Дубль);
			Иначе
				ТЗ.Удалить(СтрокиДубля[0]);
			КонецЕсли;
		КонецЦикла;
		Возврат Дубли;
	Иначе	
		Возврат Неопределено;
	КонецЕсли;
КонецФункции
Показать
user1316759; dndw; +2 Ответить
40. brylig 17.10.18 09:42 Сейчас в теме
(39) Если нет поля "НомерСтроки", то можно в начале функции продублировать индекс ТЗ в отдельное (дополнительное) поле и вернуть массив индексов с дублями. При этом ТЗ передавать по значению, а неизмененный источник уже потом кроить. Например, чтобы удалить дубли в источнике по полученным индексам, можно добавить поле ПризнакУдаления, заполнить его по индексам, а потом удалить помеченные строки с последующим удалением добавленного поля. Можно просто построчно перенести источник в новую ТЗ, исключая дублированные строки. В моем случае колхозить надо было с ТЧ и просто информировать юзера о проблемах.
35. agdam_m 6 04.02.18 20:23 Сейчас в теме
А так например можно просто проверить - есть дубли или нет:
        тзТестДублей = Данные.Выгрузить("Номенклатура");
	количествоДоСвертки = тзТестДублей.Количество();
	тзТестДублей.Свернуть("Номенклатура");
	Если тзТестДублей.Количество() <> количествоДоСвертки Тогда
		Сообщить("В таблице есть повторяющиеся строки!"); 
	КонецЕсли;
vikki0805; +1 Ответить
43. portal2011 24 29.01.19 01:24 Сейчас в теме
(35) Или так

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

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

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

КонецЕсли;


В моем случае, при обходе табличной части, мне нужно было выполнять определенные условия, если уже был или будет дальше дубль этой строки.
36. leks88 25 04.02.18 22:21 Сейчас в теме
Подпишусь, интересно знать все способы, но если бы кто-то оформил все способы в статью - цены б этому автору не было)
37. uri1978 137 05.02.18 13:45 Сейчас в теме
Оставьте свое сообщение