Универсальное сравнение таблиц значений

21.05.24

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

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

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
Универсальное сравнение таблиц значений: .epf 9,63Kb 10	10	Скачать (1 SM)	Купить за 1 850 руб.

В обработке представлен пример реализации с выводом данных пользователю

Реализация: Программный интерфейс имеет две функции

&НаСервере
 Функция ОписаниеДанныхДляСравнения()  Экспорт
	 
	 Результат = Новый Структура;
	 ВходныеТаблицы = Новый Массив; 
	 КлючиСравненияДанных = Новый Массив;
	 КлючиАнализаДанных = Новый Массив;
	 
	 Результат.Вставить("ВходныеТаблицы", ВходныеТаблицы);
	 Результат.Вставить("КлючиСравненияДанных", КлючиСравненияДанных);
	 Результат.Вставить("КлючиАнализаДанных", КлючиАнализаДанных);
	 
	 Возврат Результат;
	 
 КонецФункции	

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

За фасадом программного интерфейса кроются три служебные процедуры. которые собирают текст запроса через схему запроса

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

	КонецЦикла;	
	
	Запрос.Текст = СхемаЗапроса.ПолучитьТекстЗапроса(); 
		
КонецПроцедуры  

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

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

	Запрос.Текст = СхемаЗапроса.ПолучитьТекстЗапроса();
	
КонецПроцедуры

Алгоритм работы с функционалом

1) Получить описание структуры данных

//ОписаниеДанныхДляСравнения = ОписаниеДанныхДляСравнения()

2) Заполнить массив входящих таблиц и передать его в ОписаниеДанныхДляСравнения.ВходныеТаблицы

3) Заполнить ключи анализа данных - это поля, по которым будет происходить идентификация сравнения, и передать массив полей в ОписаниеДанныхДляСравнения.КлючиАнализаДанных

4) Заполнить ключи сравнения данных - это поля, которые будут сравниваться, и передать их в массив ОписаниеДанныхДляСравнения.КлючиСравненияДанных

5) Передать подготовленные данные в функцию СравнитьДанные

На выходе мы получим структуру с двумя таблицами. Пример

На выходе получаем таблицу с одинаковыми данными

И таблицу с расхождениями

Проверено на следующих конфигурациях и релизах:

Управление торговлей, редакция 11, релизы 11.5.12.265

+52 –

См. также

Infostart Toolkit — Инструменты разработчика 1С 8.3

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

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

12000 руб.

02.09.2020 169273 937 403

905

Database Compression Tool (DCT) Универсальный инструмент сжатия, свертки и конвертации баз данных 1С

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

Инструмент представляет собой обработку для проведения свёртки или обрезки баз данных. Работает на ЛЮБЫХ конфигурациях (УТ, БП, ERP и т.д.). Поддерживаются серверные и файловые базы, управляемые и обычные формы. Может выполнять свертку сразу нескольких баз данных и выполнять их автоматически без непосредственного участия пользователя. Решение в Реестре отечественного ПО

8400 руб.

20.08.2024 12597 99 42

101

OneDebugger - инструмент для отладки кода в 1С без использования конфигуратора

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

Инструмент для написания и отладки кода в режиме «1С:Предприятие». Представляет собой консоль кода с возможностью пошаговой отладки, просмотра значений переменных любых типов, использования процедур и функций, просмотра стека вызовов, вычисления произвольных выражений на встроенном языке в контексте точки останова, синтаксического контроля и остановки по ошибке. В консоли используется удобный редактор кода с подсветкой, контекстной подсказкой, возможностью вызова конструкторов запроса и форматной строки.

9360 руб.

17.05.2024 26528 90 48

134

Infostart PrintWizard (конструктор печатных форм)

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

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

22200 руб.

06.10.2023 16825 41 15

SALE! %

PowerTools: Инструменты администратора 1С 8.3

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

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

~~4800~~ 3840 руб.

14.01.2013 190549 1150 0

918

Infostart DataFormWizard: Управление данными и формами 1С 8.3

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

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

15000 руб.

10.11.2023 11392 40 27

Конструктор АРМ

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

Разработка Конструктор автоматизированных рабочих мест "Конструктор АРМ" реализована в виде расширения и является универсальным инструментом для создания АРМ любой сложности в пользовательском режиме.

3600 руб.

27.12.2024 775 2 0

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

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

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

5000 руб.

07.02.2018 103926 244 100

306