При работе с данными в 1С:Предприятии часто возникает необходимость сравнивать идентичные по структуре, но разные по содержимому наборы данных. Один из таких сценариев — когда на форме документа есть две табличные части, представляющие собой элементы типа "Таблица значений", и пользователю необходимо визуально сопоставлять их содержимое. Проблема усложняется, если этих данных много, и табличные части содержат большое количество колонок, из-за чего они не помещаются на экран целиком и требуют горизонтальной прокрутки. В такой ситуации возникает закономерный вопрос: можно ли синхронизировать горизонтальную прокрутку этих двух таблиц, чтобы при скроллинге одной таблицы вторая двигалась вслед за ней, как это происходит, например, при сравнении текстов модулей в конфигураторе?
Давайте подробно рассмотрим эту проблему и выясним, какие решения предлагает платформа 1С:Предприятие для достижения цели сравнения данных, учитывая ограничения на прямую синхронизацию прокрутки.
Начнем с того, что прямая синхронизация горизонтальной прокрутки двух отдельных элементов "Табличное поле" (или "Таблица значений", когда она отображается в виде табличного поля на форме) в управляемых формах 1С:Предприятия не является штатной, легкодоступной функцией платформы. Важно понимать следующие моменты:
ГоризонтальнаяПолосаПрокрутки и ВертикальнаяПолосаПрокрутки элементов формы предназначены для управления видимостью полос прокрутки, а не для программного управления их текущим положением или отслеживания событий прокрутки, вызванных пользователем.Из вышесказанного следует, что напрямую синхронизировать горизонтальную прокрутку двух табличных полей, как это делает конфигуратор, в режиме пользователя стандартными средствами не получится. Однако, основной целью автора является не столько синхронизация прокрутки, сколько возможность удобного сравнения данных. И здесь платформа 1С предоставляет нам несколько мощных альтернативных подходов, которые позволяют эффективно решить эту задачу.
Поскольку прямая синхронизация горизонтальной прокрутки затруднена, мы сосредоточимся на методах, которые позволяют достичь основной цели – удобного сравнения данных – с использованием других средств 1С:Предприятия.
Один из наиболее практичных и часто используемых подходов — это объединение данных из двух таблиц значений в один элемент формы "Табличное поле". Затем мы можем использовать мощный механизм УсловноеОформление для выделения различных значений или строк, что значительно упрощает визуальное сравнение.
Мы создаем новую ТаблицаЗначений или используем одну из существующих, чтобы загрузить в нее данные из обеих исходных таблиц. Если структура таблиц идентична, это упрощает задачу. Нам может потребоваться добавить дополнительные колонки, например, ИсточникДанных, чтобы указать, из какой исходной таблицы пришла строка, или СтрокаОтличается, чтобы отметить строки с различиями.
Предположим, у нас есть две исходные таблицы: ЛеваяТаблицаЗначений и ПраваяТаблицаЗначений.
&НаКлиенте
Процедура ОбъединитьИПоказатьТаблицы(ЛеваяТаблицаЗначений, ПраваяТаблицаЗначений)
// Создаем новую таблицу для объединенных данных
ПеременнаяФормы.ОбъединеннаяТаблица = Новый ТаблицаЗначений;
// Добавляем колонки из ЛевойТаблицыЗначений
Для Каждого Колонка Из ЛеваяТаблицаЗначений.Колонки Цикл
ПеременнаяФормы.ОбъединеннаяТаблица.Колонки.Добавить(Колонка.Имя, Колонка.ТипЗначения);
КонецЦикла;
// Добавляем колонку для индикации различий
ПеременнаяФормы.ОбъединеннаяТаблица.Колонки.Добавить("ЕстьРазличия", Новый ОписаниеТипов("Булево"));
ПеременнаяФормы.ОбъединеннаяТаблица.Колонки.Добавить("Источник", Новый ОписаниеТипов("Строка"));
// Заполняем объединенную таблицу
// Если строки должны соответствовать друг другу, нам нужно найти соответствия
Для Каждого СтрокаЛевая Из ЛеваяТаблицаЗначений Цикл
НоваяСтрока = ПеременнаяФормы.ОбъединеннаяТаблица.Добавить();
ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаЛевая);
НоваяСтрока.Источник = "Левая";
// Попытаемся найти соответствующую строку в правой таблице
// Предполагаем, что есть уникальный ключ, например, "Код"
СоответствующаяСтрокаПравая = ПраваяТаблицаЗначений.Найти(СтрокаЛевая.Код, "Код");
Если СоответствующаяСтрокаПравая <> Неопределено Тогда
// Добавляем еще одну строку для правой таблицы или сравниваем значения
НоваяСтрокаПравая = ПеременнаяФормы.ОбъединеннаяТаблица.Добавить();
ЗаполнитьЗначенияСвойств(НоваяСтрокаПравая, СоответствующаяСтрокаПравая);
НоваяСтрокаПравая.Источник = "Правая";
// Сравниваем поля и отмечаем различия
ЕстьРазличияПоСтроке = Ложь;
Для Каждого Колонка Из ЛеваяТаблицаЗначений.Колонки Цикл
Если Не Колонка.Имя В ("Код", "Наименование") Тогда // Исключаем поля-идентификаторы
Если СтрокаЛевая[Колонка.Имя] <> СоответствующаяСтрокаПравая[Колонка.Имя] Тогда
ЕстьРазличияПоСтроке = Истина;
Прервать;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Если ЕстьРазличияПоСтроке Тогда
НоваяСтрока.ЕстьРазличия = Истина;
НоваяСтрокаПравая.ЕстьРазличия = Истина;
КонецЕсли;
Иначе
// Если нет соответствия в правой таблице, левая строка считается отличающейся
НоваяСтрока.ЕстьРазличия = Истина;
КонецЕсли;
КонецЦикла;
// Добавляем строки из правой таблицы, для которых нет соответствия в левой
Для Каждого СтрокаПравая Из ПраваяТаблицаЗначений Цикл
СоответствующаяСтрокаЛевая = ЛеваяТаблицаЗначений.Найти(СтрокаПравая.Код, "Код");
Если СоответствующаяСтрокаЛевая = Неопределено Тогда
НоваяСтрока = ПеременнаяФормы.ОбъединеннаяТаблица.Добавить();
ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаПравая);
НоваяСтрока.Источник = "Правая";
НоваяСтрока.ЕстьРазличия = Истина;
КонецЕсли;
КонецЦикла;
// Привязываем объединенную таблицу к элементу формы
Элементы.ПолеОбъединеннойТаблицы.Значение = ПеременнаяФормы.ОбъединеннаяТаблица;
КонецПроцедуры
На форме, в свойствах элемента "Табличное поле", связанного с нашей объединенной таблицей, мы можем настроить УсловноеОформление. Это позволяет динамически изменять внешний вид ячеек или строк в зависимости от их значений.
Например, мы можем:
ЕстьРазличия равно Истина.Для настройки условного оформления в конфигураторе:
ЦветФона) или цвет текста (ЦветТекста).ОбъединеннаяТаблица.ЕстьРазличия = Истина.Программная настройка условного оформления (например, при открытии формы):
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
// ... (инициализация данных) ...
// Создаем элемент условного оформления
ЭлементОформления = Элементы.ПолеОбъединеннойТаблицы.УсловноеОформление.Элементы.Добавить();
// Устанавливаем условие
ЭлементОтбора = ЭлементОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ОбъединеннаяТаблица.ЕстьРазличия");
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
ЭлементОтбора.ПравоеЗначение = Истина;
// Устанавливаем оформление
ЭлементОформления.Оформление.УстановитьЗначениеПараметра("ЦветФона", Новый Цвет(255, 220, 220)); // Светло-красный
// Указываем поля, к которым применяется оформление
ПолеОформления = ЭлементОформления.Поля.Элементы.Добавить();
ПолеОформления.Поле = Новый ПолеКомпоновкиДанных("ОбъединеннаяТаблица"); // Применяем ко всей строке
КонецПроцедуры
Этот метод позволяет пользователю работать с одной полосой прокрутки, а различия будут сразу бросаться в глаза благодаря цветовому выделению.
Если цель пользователя — увидеть именно то, что изменилось, и не отвлекаться на идентичные данные, мы можем создать отдельную таблицу, которая будет содержать только те строки или поля, которые отличаются между исходными двумя таблицами.
Разместим на форме кнопку, по нажатию на которую будет формироваться и отображаться таблица с отличиями.
&НаКлиенте
Процедура ПоказатьОтличия(Команда)
СформироватьТаблицуОтличийНаСервере();
КонецПроцедуры
На сервере мы будем сравнивать две исходные таблицы значений построчно и поколоночно. Для каждой строки из первой таблицы пытаемся найти соответствующую строку во второй таблице (например, по уникальному идентификатору или комбинации ключевых полей). Если строка найдена, сравниваем значения во всех колонках. Если есть хоть одно отличие, или если строка есть только в одной из таблиц, добавляем ее (или обе версии) в новую ТаблицаЗначенийОтличий.
&НаСервере
Процедура СформироватьТаблицуОтличийНаСервере()
// Предполагаем, что ЛеваяТаблицаЗначений и ПраваяТаблицаЗначений уже заполнены
// и доступны на сервере как реквизиты формы или переданы параметром
ТаблицаОтличий = Новый ТаблицаЗначений;
// Добавляем колонки из исходных таблиц, возможно, с префиксами для ясности
Для Каждого Колонка Из ЛеваяТаблицаЗначений.Колонки Цикл
ТаблицаОтличий.Колонки.Добавить("Л_" + Колонка.Имя, Колонка.ТипЗначения);
КонецЦикла;
Для Каждого Колонка Из ПраваяТаблицаЗначений.Колонки Цикл
ТаблицаОтличий.Колонки.Добавить("П_" + Колонка.Имя, Колонка.ТипЗначения);
КонецЦикла;
ТаблицаОтличий.Колонки.Добавить("ВидОтличия", Новый ОписаниеТипов("Строка")); // Например: "Изменено", "Добавлено", "Удалено"
МассивОбработанныхКодовПравойТаблицы = Новый Массив;
// Сравнение Левой таблицы с Правой
Для Каждого СтрокаЛевая Из ЛеваяТаблицаЗначений Цикл
НайденнаяСтрокаПравая = ПраваяТаблицаЗначений.Найти(СтрокаЛевая.Код, "Код"); // Предполагаем "Код" как ключ
Если НайденнаяСтрокаПравая <> Неопределено Тогда
// Строка присутствует в обеих таблицах, сравниваем значения
ЕстьОтличияВЗначениях = Ложь;
Для Каждого Колонка Из ЛеваяТаблицаЗначений.Колонки Цикл
Если Не Колонка.Имя В ("Код") Тогда // Исключаем ключевые поля из сравнения значений
Если СтрокаЛевая[Колонка.Имя] <> НайденнаяСтрокаПравая[Колонка.Имя] Тогда
ЕстьОтличияВЗначениях = Истина;
Прервать;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Если ЕстьОтличияВЗначениях Тогда
// Добавляем обе версии строки в таблицу отличий
НоваяСтрокаОтличий = ТаблицаОтличий.Добавить();
ЗаполнитьЗначенияСвойств(НоваяСтрокаОтличий, СтрокаЛевая, , "Л_");
ЗаполнитьЗначенияСвойств(НоваяСтрокаОтличий, НайденнаяСтрокаПравая, , "П_");
НоваяСтрокаОтличий.ВидОтличия = "Изменено";
КонецЕсли;
МассивОбработанныхКодовПравойТаблицы.Добавить(СтрокаЛевая.Код);
Иначе
// Строка есть только в Левой таблице (удалена из Правой)
НоваяСтрокаОтличий = ТаблицаОтличий.Добавить();
ЗаполнитьЗначенияСвойств(НоваяСтрокаОтличий, СтрокаЛевая, , "Л_");
НоваяСтрокаОтличий.ВидОтличия = "Удалено";
КонецЕсли;
КонецЦикла;
// Сравнение Правой таблицы с Левой (для поиска новых строк)
Для Каждого СтрокаПравая Из ПраваяТаблицаЗначений Цикл
Если МассивОбработанныхКодовПравойТаблицы.Найти(СтрокаПравая.Код) = Неопределено Тогда
// Строка есть только в Правой таблице (добавлена)
НоваяСтрокаОтличий = ТаблицаОтличий.Добавить();
ЗаполнитьЗначенияСвойств(НоваяСтрокаОтличий, СтрокаПравая, , "П_");
НоваяСтрокаОтличий.ВидОтличия = "Добавлено";
КонецЕсли;
КонецЦикла;
ПеременнаяФормы.ТаблицаОтличий = ТаблицаОтличий; // Передаем на клиент
КонецПроцедуры
Сформированную ТаблицаОтличий мы можем отобразить в отдельном табличном поле на форме. Это значительно упрощает анализ для пользователя, так как ему не нужно прокручивать большое количество одинаковых данных.
Дополнительно можно использовать условное оформление для выделения строк с разными видами отличий (например, "Изменено", "Добавлено", "Удалено") разными цветами.
Для более сложного сравнения и анализа данных отчеты 1С, построенные на Системе Компоновки Данных (СКД), предоставляют гораздо больше гибкости в представлении информации, группировке, выделении различий и управлении прокруткой или разбивкой по страницам.
СКД позволяет создавать сложные запросы, объединять данные из различных источников (в том числе из двух таблиц значений, если их сначала сохранить во временные таблицы базы данных или использовать в качестве виртуальных таблиц в запросе), группировать их и выводить в удобном для анализа виде.
В СКД предусмотрен обширный механизм условного оформления, позволяющий выделить цветом, шрифтом или иным образом строки и ячейки, которые содержат различия.
Пользователь может самостоятельно настроить, по каким критериям сравнивать данные, какие колонки выводить и как группировать результат.
Отчеты, как правило, отображаются в отдельном окне, где прокрутка работает для всего документа. Кроме того, СКД позволяет разбивать большие отчеты на страницы, что уменьшает потребность в горизонтальной прокрутке.
Определяем два набора данных (датасета) в СКД. Каждый датасет может представлять собой запрос к нашей ТаблицеЗначений (если она является реквизитом объекта или временной таблицей).
Если данные изначально находятся в регистрах сведений, то запросы будут непосредственно к этим регистрам, с параметрами для получения "текущих" и "предыдущих" данных.
В СКД мы можем настроить связь между этими двумя наборами данных по ключевым полям. Например, если у нас есть "Код" или "Идентификатор" элемента, мы можем связать два набора данных по этому полю.
Создаем вычисляемые поля, которые будут показывать разницу между значениями из первого и второго наборов данных. Например, для каждого поля Значение1 и Значение2 можно создать вычисляемое поле РазницаЗначений с выражением типа ВЫБОР КОГДА Значение1 <> Значение2 ТОГДА ИСТИНА ИНАЧЕ ЛОЖЬ КОНЕЦ.
В настройках отчета (макеты) мы можем указать, какие поля выводить, как их группировать. В разделе "Условное оформление" мы задаем правила, чтобы выделить строки или ячейки, где есть различия (на основе наших вычисляемых полей).
Использование СКД — это наиболее универсальный и мощный способ для решения задач сравнения и анализа данных.
Для ситуаций, когда требуется быстрое и разовое сравнение, или когда пользователь предпочитает работать со знакомыми инструментами, можно предложить сохранение обеих таблиц в файлы формата MXL (собственный формат табличных документов 1С) или Excel, а затем использовать внешние программы для сравнения.
Каждую ТаблицуЗначений можно выгрузить в объект ТабличныйДокумент.
&НаСервере
Функция ТаблицаЗначенийВТабличныйДокумент(ТаблицаЗначенийДляВывода, ЗаголовокДокумента)
ТабДок = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ТаблицыЗначений";
// Заголовок
ОбластьЗаголовок = ТабДок.Области.ПолучитьОбласть(1, 1, 1, ТаблицаЗначенийДляВывода.Колонки.Количество());
ТабДок.ВывестиТекст(ЗаголовокДокумента);
// Вывод заголовков колонок
СтрокаЗаголовков = 2;
КолонкаНачало = 1;
Для Каждого Колонка Из ТаблицаЗначенийДляВывода.Колонки Цикл
ТабДок.Области.ПолучитьОбласть(СтрокаЗаголовков, КолонкаНачало).Текст = Колонка.Имя;
ТабДок.Области.ПолучитьОбласть(СтрокаЗаголовков, КолонкаНачало).Параметры = Новый Структура("Колонка", Колонка.Имя);
КолонкаНачало = КолонкаНачало + 1;
КонецЦикла;
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
// Вывод данных
СтрокаДанных = СтрокаЗаголовков + 1;
Для Каждого СтрокаТЗ Из ТаблицаЗначенийДляВывода Цикл
КолонкаТекущая = 1;
Для Каждого Колонка Из ТаблицаЗначенийДляВывода.Колонки Цикл
ТабДок.Области.ПолучитьОбласть(СтрокаДанных, КолонкаТекущая).Текст = СтрокаТЗ[Колонка.Имя];
КолонкаТекущая = КолонкаТекущая + 1;
КонецЦикла;
СтрокаДанных = СтрокаДанных + 1;
КонецЦикла;
Возврат ТабДок;
КонецФункции
Полученные ТабличныеДокументы можно сохранить на диск пользователя в формате MXL или XLSX. Это можно сделать, используя метод Записать() объекта ТабличныйДокумент в связке с диалогом выбора файла.
&НаКлиенте
Процедура СохранитьТаблицуВФайл(Команда)
ТабДокДляСохранения = ТаблицаЗначенийВТабличныйДокументНаСервере(ПеременнаяФормы.ЛеваяТаблицаЗначений, "Левая таблица");
ДиалогСохранения = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
ДиалогСохранения.ПолноеИмяФайла = "ЛеваяТаблица.mxl";
ДиалогСохранения.Фильтр = "Табличный документ 1С (*.mxl)|*.mxl|Все файлы (*.*)|*.*";
ДиалогСохранения.Заголовок = "Сохранить левую таблицу";
Если ДиалогСохранения.Выбрать() Тогда
ТабДокДляСохранения.Записать(ДиалогСохранения.ПолноеИмяФайла);
КонецЕсли;
КонецПроцедуры
&НаСервере
Функция ТаблицаЗначенийВТабличныйДокументНаСервере(ТаблицаЗначенийДляВывода, ЗаголовокДокумента)
// Реализация функции ТаблицаЗначенийВТабличныйДокумент из предыдущего примера
// ... (код функции) ...
КонецФункции
После сохранения двух файлов (например, ЛеваяТаблица.mxl и ПраваяТаблица.mxl) пользователь может открыть их в 1С или в Excel и использовать встроенные функции сравнения (например, в Excel есть функция "Сравнить книги"). Также существуют специализированные утилиты для сравнения текстовых и табличных файлов (diff-утилиты), которые могут быть полезны.
Этот метод не является интерактивным решением внутри 1С, но может быть быстрым и простым вариантом для разового анализа.
Хотя горизонтальная синхронизация прокрутки затруднена, мы можем реализовать частичную синхронизацию по вертикали. Если строки в обеих таблицах соответствуют друг другу (например, имеют одинаковый ключ), мы можем при позиционировании на строке в одной таблице автоматически позиционировать соответствующую строку во второй таблице.
Используйте событие ПриАктивизацииСтроки для элемента "Табличное поле" (левой таблицы). В этом обработчике мы будем получать текущую строку и искать соответствующую в правой таблице.
Получив данные текущей строки левой таблицы, мы ищем строку с таким же ключевым полем в правой таблице. Если находим, устанавливаем ее в качестве ТекущаяСтрока для правой таблицы.
&НаКлиенте
Процедура ЭлементыФормыЛеваяТаблицаПриАктивизацииСтроки(Элемент)
Если Элемент.ТекущиеДанные <> Неопределено Тогда
ТекущийКлюч = Элемент.ТекущиеДанные.КлючевоеПоле; // Например, "Код" или "Идентификатор"
// Ищем соответствующую строку в правой таблице
СоответствующаяСтрокаПравая = Неопределено;
Для Каждого СтрокаПравая Из ПеременнаяФормы.ПраваяТаблицаЗначений Цикл
Если СтрокаПравая.КлючевоеПоле = ТекущийКлюч Тогда
СоответствующаяСтрокаПравая = СтрокаПравая;
Прервать;
КонецЕсли;
КонецЦикла;
Если СоответствующаяСтрокаПравая <> Неопределено Тогда
Элементы.ПолеПравойТаблицы.ТекущиеДанные = СоответствующаяСтрокаПравая;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Аналогичный обработчик можно создать и для правой таблицы, чтобы синхронизация работала в обе стороны.
Этот подход не решает проблему горизонтальной прокрутки, но значительно улучшает удобство сравнения, поскольку пользователь всегда видит сопоставимые строки.
Мы выяснили, что прямая синхронизация горизонтальной прокрутки двух отдельных элементов "Табличное поле" в 1С:Предприятии не является функциональностью, поддерживаемой платформой на уровне встроенных механизмов или простых API. Однако, цель, которая стоит за этим запросом — удобное сравнение данных — может быть эффективно достигнута с помощью ряда альтернативных и более мощных инструментов 1С.
Самыми эффективными и рекомендованными подходами являются объединение данных в одну таблицу с использованием условного оформления и создание отчетов на Системе Компоновки Данных. Эти методы не только решают проблему сравнения, но и предлагают более широкие возможности для анализа и визуализации различий. В зависимости от специфики задачи и требований к интерактивности, можно также использовать вывод только отличающихся данных или сохранение в файлы для внешнего сравнения.
Выбор конкретного метода зависит от объема данных, частоты сравнения, сложности логики сравнения и предпочтений конечного пользователя.