Поиск и замена дублирующих элементов (условие по нескольким полям, определение правильных по заполненности реквизитов)

26.04.12

Разработка - Инструментарий разработчика

Поиск и замена дублирующих элементов (условие по нескольким полям, определение правильных по заполненности реквизитов)

Скачать файлы

Наименование Файл Версия Размер
ПоискИЗаменаДублирующихсяЭлементов_Доработанный.epf
.epf 53,78Kb
550
.epf 53,78Kb 550 Скачать
Поиск и замена дублей подчиненных справочников.docx
.docx 563,11Kb
53
.docx 563,11Kb 53 Скачать

Отличается от типовой:

1. добавлена возможности поиска на равное значение по нескольким реквизитам

2. добавлена возможность вручную дописывать условие текста запроса поиска дублей

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

4. добавлена возможность определения правильных элементов, заполненным реквизитом (выбирается в диалоге)

 

Обработка полезна для замены дублей подчиненных справочников (например: "Единицы измерения", так как при использовании стандартной обработки по наименованию найдутся все одинаковые единицы измерения, а необходимо искать в пределах подчинения), а так же других ситуаций.

 

Обработка универсальна и может применятся для любой конфигурации.

 

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

Так же добавлено условие установки верным элементом, с условием на равенство реквизита (в примере это реквизит "Управленческий код")

См. также

SALE! 20%

Infostart Toolkit: Инструменты разработчика 1С 8.3 на управляемых формах

Инструментарий разработчика Роли и права Запросы СКД Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Конфигурации 1cv8 Платные (руб)

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

13000 10400 руб.

02.09.2020    121630    670    389    

711

SALE! 25%

Infostart PrintWizard

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

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

18000 15300 руб.

06.10.2023    7266    21    6    

39

SALE! 20%

Infostart УДиФ: Управление данными и формами

Инструменты администратора БД Инструментарий разработчика Роли и права Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

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

10000 8000 руб.

10.11.2023    3512    11    1    

33

SALE! 30%

PowerTools

Инструментарий разработчика Инструменты администратора БД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

3600 2520 руб.

14.01.2013    177729    1073    0    

849

Многопоточность. Универсальный «Менеджер потоков» 2.1

Инструментарий разработчика Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Восстановление партий или взаиморасчетов, расчет зарплаты, пакетное формирование документов или отчетов - теперь все это стало доступнее. * Есть желание повысить скорость работы медленных алгоритмов! Но... * Нет времени думать о реализации многопоточности? * о запуске и остановке потоков? * о поддержании потоков в рабочем состоянии? * о передаче данных в потоки и как получить ответ из потока? * об организации последовательности? Тогда ЭТО - то что надо!!!

5000 руб.

07.02.2018    99342    239    97    

296

[ЕХТ] Фреймворк для Расширений 1С

Инструментарий разработчика Платформа 1С v8.3 Управляемые формы Платные (руб)

"Фреймворк для Расширений 1С" это универсальное и многофункциональное решение, упрощающее разработку и поддержку создаваемых Расширений. Поставляется в виде комплекта из нескольких Расширений с открытым исходным кодом. Работает в любых Конфигурациях в режиме Управляемого приложения с режимом совместимости 8.3.12 и выше без необходимости внесения изменений в Конфигурацию.

3000 руб.

27.08.2019    18104    6    8    

39

1С HTML Шаблоны / HTML Templates

Инструментарий разработчика Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Быстрая и удобная обработка для работы с шаблонами HTML. Позволяет легко и быстро формировать код HTML.

2040 руб.

27.12.2017    28099    3    10    

15

Выполнение произвольного кода или запроса с параметрами через Web-сервис (замена COM-подключений)

Инструментарий разработчика Обмен между базами 1C Платформа 1С v8.3 Платные (руб)

В процессе работы в 1С часто возникает потребность получить данные из другой базы.  Обычно это делается через COM-соединение, и время выполнения запроса при этом оставляет желать лучшего. В данной публикации представлено универсальное решение, позволяющее практически моментально выполнить произвольный код или запрос с параметрами в другой информационной базе через Web-сервис.

2400 руб.

24.09.2019    23598    15    15    

32
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Artemuch2 26.04.12 13:13 Сейчас в теме
Добрый день! А в обработке вы учли функционал наработанный коллегами в предыдущих версиях или это совсем другая обработка замены значений"
2. sokol_5441 142 27.04.12 08:09 Сейчас в теме
Это обработка взята из "Управление торговлей 10.3", доработана. Она универсальна
3. xrays 25.07.12 16:59 Сейчас в теме
Замечательная обработка. Здорово помогла для исправления ситуации с задвоенной номенклатурой. Спасибо!!!
4. ylyas 25 14.09.12 15:45 Сейчас в теме
доп отборы на сравнение не работают.
проверял на упп справочник договоров.
задав сравнение на орг = орг и контрагент= контрагент и вид договора = вид договора
получил в совпавших группах договора разных организаций.
pechenka1440; +1 Ответить
5. Pim 180 11.01.13 08:30 Сейчас в теме
согласен с (4).

жаль, только поздно понял...

вот "заплатка":
вместо НайтиПоРавенствуРеквизитов надо вставить
вроде больше ничего не менял ( :-P )
------------------------------------------------------------------
///==============================================================================
function CheckAttrsForDifference(vLine, vStructForCompare)

	for each item in vStructForCompare do
		fieldName = item.Key;
		if vLine[fieldName] <> item.value then
			return true;
		endIf;
	endDo;
	return false;
endFunction // CheckAttrsForDifference

///=========================================================­=====================
Процедура НайтиПоРавенствуРеквизитов()
	
	//СоколовЮВ+
	structForCompare        = new Структура;
	attrStr                 = "";
	ПостроительОтчета.Текст = ПолучитьТекстЗапросаДляПостроителя(РежимПоиска);
	Если ЗначениеЗаполнено(ДопУсловие) Тогда
		ПостроительОтчета.Текст = СтрЗаменить(ПостроительОтчета.Текст, "{ГДЕ", ДопУсловие + " {ГДЕ");
		ТекстПоля               = "";
		ТекстСгруппировать      = "";
		Для Каждого ЭлементСписка Из СписокРеквизитовСправочника Цикл
			Если Не ЭлементСписка.Пометка Тогда
				Продолжить;
			КонецЕсли;

			ТекстПоля = ТекстПоля + Символы.ПС + "Спр1." + ЭлементСписка.Значение + ", ";
			structForCompare.Insert(ЭлементСписка.Значение, "-");
			attrStr   = attrStr + ", " + ЭлементСписка.Значение;
		КонецЦикла;
		
		ПостроительОтчета.Текст = СтрЗаменить(ПостроительОтчета.Текст, "СГРУППИРОВАТЬ ПО", " СГРУППИРОВАТЬ ПО " + ТекстПоля);
		ПостроительОтчета.Текст = СтрЗаменить(ПостроительОтчета.Текст, "ВЫБРАТЬ", "ВЫБРАТЬ " + ТекстПоля);
	КонецЕсли;
	//СоколовЮВ-
	
	ПостроительОтчета.Выполнить();
	
	мРезультатыПоиска = ПостроительОтчета.Результат.Выгрузить();
	мРезультатыПоиска.Колонки.Добавить("НомерГруппы");
	мРезультатыПоиска.Колонки.Добавить("Правильный", Новый ОписаниеТипов("Булево"));
	мРезультатыПоиска.Колонки.Добавить("КоличествоСсылок");
	мРезультатыПоиска.Сортировать("ЗначениеРеквизита" + attrStr);
	
	ТаблицаГрупп.Очистить();
	
	ЗначениеРеквизита = Неопределено;
	ТекущаяГруппа = 0;
	ЭлементовВГруппе = 0;
	Для Каждого СтрокаПоиска ИЗ мРезультатыПоиска Цикл
		Если (СтрокаПоиска.ЗначениеРеквизита <> ЗначениеРеквизита) or CheckAttrsForDifference(СтрокаПоиска, structForCompare) Тогда
			for each item in structForCompare do
				structForCompare.Insert(item.Key, СтрокаПоиска[item.Key]);
			endDo;

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


2-ой нюанс: не до конца исправлен косяк типовой обработки в части замены в регистрах бухгалтерии.
функция ВыполнитьЗаменуЭлементов

				ЭтоДвижениеРегистраБухгалтерии = Метаданные.РегистрыБухгалтерии.Содержит(Движение);
				ЕстьКорреспонденция = ЭтоДвижениеРегистраБухгалтерии и Параметры[Движение.Имя + "Корреспонденция"];
				
				НаборЗаписей  = Параметры.Объект.Движения[Движение.Имя];
				НаборЗаписей.Прочитать();
				НадоЗаписывать = Ложь;
				ТаблицаНабора = НаборЗаписей.Выгрузить();
				Для Каждого Измерение ИЗ Движение.Измерения Цикл
					Если Измерение.Тип.СодержитТип(ТипЗнч(Ссылка)) Тогда
						Если ЕстьКорреспонденция and (ТаблицаНабора.Columns.Find(Измерение.Имя) = undefined) Тогда
							СтрокаТабЧасти = ТаблицаНабора.Найти(Ссылка, Измерение.Имя + "ДТ");
							Пока СтрокаТабЧасти <> Неопределено Цикл
								СтрокаТабЧасти[Измерение.Имя + "ДТ"] = ПравильныйЭлемент;
								НадоЗаписывать = Истина;
								СтрокаТабЧасти = ТаблицаНабора.Найти(Ссылка, Измерение.Имя + "ДТ");
							КонецЦикла;
							СтрокаТабЧасти = ТаблицаНабора.Найти(Ссылка, Измерение.Имя + "КТ");
							Пока СтрокаТабЧасти <> Неопределено Цикл
								СтрокаТабЧасти[Измерение.Имя + "КТ"] = ПравильныйЭлемент;
								НадоЗаписывать = Истина;
								СтрокаТабЧасти = ТаблицаНабора.Найти(Ссылка, Измерение.Имя + "КТ");
							КонецЦикла;
						Иначе
							
							СтрокаТабЧасти = ТаблицаНабора.Найти(Ссылка, Измерение.Имя);
							Пока СтрокаТабЧасти <> Неопределено Цикл
								СтрокаТабЧасти[Измерение.Имя] = ПравильныйЭлемент;
								НадоЗаписывать = Истина;
								СтрокаТабЧасти = ТаблицаНабора.Найти(Ссылка, Измерение.Имя);
							КонецЦикла;
						КонецЕсли;
					КонецЕсли; 
				КонецЦикла;
Показать


Думаю, мои изменения здесь заметны без комментариев. Вот и ответ, тем кто спрашивает, почему я использую англ. язык.
10. heavymetal 86 07.04.15 11:38 Сейчас в теме
(5) Pim, спасибо, Ваша дописка помогла
6. ylyas 25 13.01.13 06:42 Сейчас в теме
ну использование английского чтобы отличать свой код среди остального - не супер четкий аргумент, скажем так ))
Дмитрий74Чел; +1 Ответить
7. tofree 15 29.04.13 15:46 Сейчас в теме
не работает в УТ 11 в серверном варианте (заупк клиента: обычное приложение)
8. prodines 107 06.05.13 13:36 Сейчас в теме
Привязки в форме не установлены.
9. heavymetal 86 07.04.15 11:32 Сейчас в теме
(0) исправьте ошибку, указанную в 4 комментарии, тогда плюсану
11. shard 279 31.05.17 11:47 Сейчас в теме
В процедуре УстановитьВернымПоЗаполненностиРеквизитаНажатие исправить
			Для Каждого Строка Из МассивСтрок Цикл
				Если ЗначениеЗаполнено(Строка.Ссылка[ИмяРеквизита]) Тогда
					Строка.Правильный = Истина;
					Прервать;
				КонецЕсли;
			КонецЦикла;

на
			Для Каждого Строка Из МассивСтрок Цикл
				Строка.Правильный = ЗначениеЗаполнено(Строка.Ссылка[ИмяРеквизита]);				
			КонецЦикла;
12. shard 279 02.06.17 10:58 Сейчас в теме
(11) а еще лучше эту процедуру заменить на
Процедура УстановитьВернымПоЗаполненностиРеквизитаНажатие(Элемент)
	
	ИмяРеквизита = "";
	ВыбранноеЗначение = ВыбратьИзСписка(СписокРеквизитовСправочника, ЭлементыФормы.УстановитьВернымПоЗаполненностиРеквизита);
	Если ВыбранноеЗначение = Неопределено Тогда
		Предупреждение("Действие отменено");
		Возврат;
	Иначе
		ИмяРеквизита = ВыбранноеЗначение.Значение;
	КонецЕсли;
	
	мРезультатыПоиска.сортировать("КоличествоСсылок убыв");
	Для каждого Стр Из ТаблицаГрупп Цикл
		НомерТекГруппы = Стр.НомерГруппы;
		Если НомерТекГруппы > 0 Тогда
			МассивСтрок = мРезультатыПоиска.НайтиСтроки(Новый Структура("НомерГруппы", НомерТекГруппы));
			ЕстьПравильный=ложь;
			Для Каждого Строка Из МассивСтрок Цикл
				Строка.Правильный = ?(не ЕстьПравильный,ЗначениеЗаполнено(Строка.Ссылка[ИмяРеквизита]),ложь);
				ЕстьПравильный=?(ЕстьПравильный,ЕстьПравильный,Строка.Правильный);
			КонецЦикла;
		КонецЕсли;
	КонецЦикла;
КонецПроцедуры
Показать

в предыдущем комментарии возможно некорректное срабатывание алгоритма.
13. Pim 180 02.06.17 13:02 Сейчас в теме
(12). Честно говоря, уже плохо помню о чём речь.
Но если уже говорить об элегантности кода,

ЕстьПравильный=ложь;
            Для Каждого Строка Из МассивСтрок Цикл
                Строка.Правильный = (not ЕстьПравильный and ЗначениеЗаполнено(Строка.Ссылка[ИмяРеквизита]) );
                ЕстьПравильный      = (ЕстьПравильный or Строка.Правильный);
            КонецЦикла;

PS:
Может мне кто-нибудь объяснить поголовную любовь к оператору "НЕ".
Почему пишут
?(не ЕстьПравильный, ЗначениеЗаполнено(Строка.Ссылка[ИмяРеквизита]), ложь);

вместо
?(ЕстьПравильный, ,ложь ЗначениеЗаполнено(Строка.Ссылка[ИмяРеквизита]));
14. shard 279 02.06.17 14:34 Сейчас в теме
(13) наверное вопрос нашей психологии: "если не так, то переделать иначе норм" ближе по духу, нежели "есть так, то все норм, иначе - переделать", другим не могу объяснить. Хотя так на одну логическую операцию больше.
15. ksen 06.09.18 12:33 Сейчас в теме
Исправил ли автор ошибку в сборке или надо будет самому доделывать?
Оставьте свое сообщение