Проверка дублей строк с помощью 1С++

29.05.13

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

+5 –
Проверяются только справочники, для остального надо переделать немного фрагмент кода с метаданными
Функция 
глПроверкаДублейСтрок
( 
ВыбДок
, 
СтрокаСвертки
) Экспорт 
ВидДок
= 
ВыбДок
. 
Вид
() 
;
	Список
= 
глРазложить
( 
СтрокаСвертки
) 
;
	
	ТекстЗапроса
= " 
|SELECT Строки1
. 
LINENO_ НомерСтроки
	|
"; Для 
Сч
= 1 
по Список
. 
РазмерСписка
() Цикл 
ТекИД
= 
Список
. 
ПолучитьЗначение
( 
Сч
) 
;
		Вид
= Метаданные. 
Документ
( 
ВидДок
). 
РеквизитТабличнойЧасти
( 
ТекИД
). 
Вид;
		ТекстЗапроса
= 
ТекстЗапроса
+ " 
|
, 
$Строки1
." + ТекИД + " 
[
" + ТекИД + " 
$Справочник
." + Вид + " 
]
		|
"; КонецЦикла 
;	
		
	ТекстЗапроса
= 
ТекстЗапроса
+ " 
|FROM
( 
|SELECT 
	|
"; Для 
Сч
= 1 
по Список
. 
РазмерСписка
() Цикл 
ТекИД
= 
Список
. 
ПолучитьЗначение
( 
Сч
) 
;
		Доб
= 
?
( 
Сч
= 1, "", ",") 
;
		ТекстЗапроса
= 
ТекстЗапроса
+ " 
|
" + Доб + " 
$Строки
." + ТекИД + " " + ТекИД + " 
|
"; КонецЦикла 
;	
	
	ТекстЗапроса
= 
ТекстЗапроса
+ " 
|FROM $ДокументСтроки
." + ВидДок + " 
AS Строки With
( 
NOLOCK
) 
|WHERE
( 
Строки
. 
IDDOC
= 
:ВыбДок
) 
|GROUP BY 
	|
"; Для 
Сч
= 1 
по Список
. 
РазмерСписка
() Цикл 
ТекИД
= 
Список
. 
ПолучитьЗначение
( 
Сч
) 
;
		Доб
= 
?
( 
Сч
= 1, "", ",") 
;
		ТекстЗапроса
= 
ТекстЗапроса
+ " 
|
" + Доб + " 
$Строки
." + ТекИД + " 
|
"; КонецЦикла 
;	
	
	ТекстЗапроса
= 
ТекстЗапроса
+ " 
|HAVING COUNT
(*) > 1 
|
) 
AS Подзапрос
	|LEFT JOIN $ДокументСтроки
." + ВидДок + " 
AS Строки1 With
( 
NOLOCK
) 
ON Строки1
. 
IDDOC
= 
:ВыбДок 
	|
"; Для 
Сч
= 1 
по Список
. 
РазмерСписка
() Цикл 
ТекИД
= 
Список
. 
ПолучитьЗначение
( 
Сч
) 
;
		Доб
= 
?
( 
Сч
= 1, "", ",") 
;
		ТекстЗапроса
= 
ТекстЗапроса
+ " 
|
AND 
$Строки1
." + ТекИД + " = 
Подзапрос
." + ТекИд + " 
|
"; КонецЦикла 
;	
		
	RecordSet
. 
УстановитьТекстовыйПараметр
("ВыбДок", 
ВыбДок
) 
;
	
	ТЗ
= 
RecordSet
. 
ВыполнитьИнструкцию
( 
ТекстЗапроса
) 
;
    
	Статус
= 0 
;
	
	ТЗ
. 
ВыбратьСтроки
() 
;
Пока 
ТЗ
. 
ПолучитьСтроку
() = 1 Цикл 
Статус
= 1 
;
		
		СтрокаСообщения
= "Строка: " + 
Строка
( 
ТЗ
. 
НомерСтроки
) 
;
Для 
Сч
= 1 
по Список
. 
РазмерСписка
() Цикл 
ТекИД
= 
Список
. 
ПолучитьЗначение
( 
Сч
) 
;
			СтрокаСообщения
= 
СтрокаСообщения
+ ", " + 
ТекИД
+ ": " + 
ТЗ
. 
ПолучитьЗначение
( 
ТЗ
. 
НомерСтроки
, 
ТекИД
) 
;
КонецЦикла 
;	
		Сообщить
( 
СтрокаСообщения
) 
;
КонецЦикла 
;
Возврат 
Статус;
КонецФункции


Функция глРазложить() есть в ТиС, примерно следующего содержания:

Функция 
глРазложить
(Знач 
Стр
, 
Разделитель
= ",") Экспорт 
Список
= СоздатьОбъект("СписокЗначений") 
;
	Длина
= 
СтрДлина
( 
Разделитель
) 
;
	
	Стр
= 
СокрЛП
( 
Стр
) 
;
	Поз
= 
Найти
( 
Стр
, 
Разделитель
) 
;
Пока 0 < 
Поз
Цикл 
Список
. 
ДобавитьЗначение
( 
СокрП
( 
Лев
( 
Стр
, 
Поз
-1))) 
;
		
		Стр
= 
СокрЛ
( 
Сред
( 
Стр
, 
Поз
+ 
Длина
)) 
;
		Поз
= 
Найти
( 
Стр
, 
Разделитель
) 
;
КонецЦикла 
;
	
	Список
. 
ДобавитьЗначение
( 
Стр
) 
;
Возврат 
Список;
КонецФункции


Пример вызова функции глПроверкаДублейСтрок():

Если 
глПроверкаДублейСтрок
( 
ТекущийДокумент
(), "Товар,Партия") = 1 Тогда 
НеПроводить
(Контекст, "Устраните дубли!") 
;
Возврат 
;
КонецЕсли 
;
Оригинал статьи
http://1c911.by/stati_1s/statya-proverka-dubley-strok-s-pomoshchyu-1s.htm
Изменения и новые публикации смотрите на http://1c911.by/stati-1s.htm
+5 –

См. также

Библиотека процедур и функций для технологической платформы "1С Предприятие 7.7"

Универсальные функции Программист Платформа 1С v7.7 Россия Абонемент ($m)

В библиотеку собраны различные функции по работе с документами, журналами, типами данных, строками, датой и временем, таблицами значений, Excel, файлами, XML, JSON, Http-сервисами, SMTP серверами и т.п.

1 стартмани

22.12.2023    1616    14    user706545_kseg1971    0    

5
Функции работы с расписанием конфигурации Аналит.Стоматология 7.7

Универсальные функции Программист Платформа 1С v7.7 1C77 Здравоохранение, медицина, стоматология Россия Бесплатно (free)

Функции работы со временем (расчета номеров блоков) для обработки расписания конфигурации Аналит.Стоматология 7.7.

25.11.2022    1150    igor7777    0    

0
1С 7.7 и новый 1С:Контрагент

Универсальные функции Программист Платформа 1С v7.7 1C77 Россия Бесплатно (free)

Получение реквизитов контрагентов из 1С:Контрагент для старых конфигураций под 1с 7.7.

25.04.2022    2490    zhenyat    7    

8
Печать таблицы значений в 1С 7.7 при отладке

Универсальные функции Программист Платформа 1С v7.7 Россия Бесплатно (free)

Функция выводит таблицу значений в табличный документ. (v7.7) Особенно полезно при отладке. Не нужно вносить изменения в код, вызываем функцию как вычисляемое выражение при останове. Если таблица обрабатывается в несколько этапов, можно вывести её после каждого и визуально проследить эволюцию.

30.06.2021    5448    Zoltan_Black    11    

2
Установка принтера по умолчанию для 1С 7.7

Универсальные функции Системный администратор Программист Платформа 1С v7.7 1C77 Абонемент ($m)

Установка принтера по умолчанию в 1С 7.7. Обработка может быть полезна в том случае, когда нужно установить принтер по умолчанию, а доступа к рабочему столу нет (например, терминальный режим без рабочего стола или remoteApp)

1 стартмани

13.02.2019    14098    4    alsen    3    

5
Заполнение реквизитов документов из предыдущего документа

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

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

04.02.2019    7483    drevilo    2    

5
Формирование строки json в 1С: 7.7

Универсальные функции Программист Платформа 1С v7.7 1C77 1С:Комплексная 7.7 Абонемент ($m)

Предлагается набор функций 1с 7.7 для формирования строки json стандартными средствами.

1 стартмани

10.12.2018    11048    malovandrey    7    

19
Как создать индикатор в 1С:Предприятии 7.7

Универсальные функции Работа с интерфейсом Программист Платформа 1С v7.7 1C77 Россия Абонемент ($m)

В статье дано описание создания индикатора на форме в среде разработки 1С:Предприятие 7.7 исключительно типовыми средствами.

1 стартмани

27.09.2016    18954    2    HAMMER_59    6    

2
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. mihenius 83 23.11.07 13:49 Сейчас в теме
А может лучше дубли автоматом устранять?

не помешал бы вариант и для дбф ;)
+ – Ответить
2. Вадимко 156 23.11.07 14:24 Сейчас в теме
Может и лучше, ситуации разные бывают
Для ДБФ надо nolock убрать, остальное должно прокатить под ОЛЕДБ
+ – Ответить
3. adapter 418 26.11.07 09:59 Сейчас в теме
Вот вариант для борьбы с дублями, который работает на любом формате базы и без 1C++
http://www.adaptersoft.ru/index.php?name=News&file=article&sid=8

Таких вариантов в Сети много, мне моя реализация скромно кажется лучшей ;)
+ – Ответить
4. Вадимко 156 26.11.07 20:55 Сейчас в теме
2(3) Кхе-кхе... в принципе тут речь идет о проверке в обработке проведения, например
Конечно не спорю... мой пример - наиболее корявый и куевый, написан был быстро, на коленке
>>и без 1C++
это, наверное, очень медленно :)
+ – Ответить
Оставьте свое сообщение