При проектировании пользовательских интерфейсов и бизнес-логики в системе «1С:Предприятие 8.3» разработчики часто сталкиваются с необходимостью контролировать уникальность вводимых данных. Типичный пример такой задачи — запрет на ввод повторяющихся значений в определенную колонку табличной части документа или справочника. Это могут быть номера путевок, штрихкоды номенклатуры, серийные номера или артикулы товаров. Ошибка в таких данных на этапе ввода может привести к некорректному проведению документов и искажению аналитических отчетов.
В этой статье мы подробно разберем, как правильно реализовать запрет на ввод дубликатов. Мы проанализируем распространенные ошибки начинающих программистов, рассмотрим интерактивный метод контроля на клиенте в режиме реального времени и внедрим отказоустойчивую проверку на сервере перед записью объекта базы данных.
Прежде чем перейти к написанию программного кода, давайте разберем, на каком уровне должна происходить проверка уникальности. Существует два принципиально разных подхода, каждый из которых решает свою задачу:
Ctrl+C / Ctrl+V), если данные будут загружены в документ программно из внешнего источника (Excel, API, интеграционная шина) или если документ будет заполнен автоматической обработкой. В таких сценариях клиентские события формы просто не сработают. Жесткий контроль в процедуре ПередЗаписью на сервере является обязательным стандартом разработки «1С».Для создания качественного прикладного решения мы рекомендуем использовать оба этих подхода в связке: интерактивный контроль помогает пользователю не ошибаться «на лету», а серверный контроль защищает базу данных от случайных программных дублей.
Начинающие разработчики часто пытаются написать код проверки интуитивно, совершая типичные ошибки, из-за которых платформа выдает системные предупреждения или код просто работает некорректно. Давайте проанализируем эти ошибки, чтобы понимать физику процессов в платформе 1С.
Ошибка №1: Поиск по элементу формы (UI) вместо источника данных. Попытка вызвать метод поиска на элементе управления формы:
// ОШИБКА! Метод НайтиСтроки() отсутствует у элемента формы
МояТаблица = ЭтаФорма.Элементы.Путевки;
НайденныеСтроки = МояТаблица.НайтиСтроки(...);
Здесь разработчик путает визуальный элемент формы (типа ДекорацияФормы, ТаблицаФормы) с коллекцией данных, которая за ним стоит. Элемент формы отвечает только за отображение на экране. Сами данные табличной части на форме хранятся в специальном реквизите типа ДанныеФормыКоллекция (обычно это часть структуры Объект, например, Объект.Путевки). Искать дубли нужно именно в этой коллекции данных.
Ошибка №2: Попытка очистить значение через локальную переменную. Посмотрите на следующий пример кода:
// ОШИБКА! Изменение локальной переменной не меняет значение в таблице
ТекущаяПутевка = ЭтаФорма.Элементы.Путевки.ТекущиеДанные.НомерПутевки;
...
ТекущаяПутевка = 0; // Значение в ячейке на форме НЕ изменится!
Переменная ТекущаяПутевка в данном случае получает лишь примитивное значение (число или строку) из ячейки. Присвоение этой переменной нового значения просто перезаписывает ячейку оперативной памяти внутри конкретной процедуры. Чтобы очистить значение на форме, необходимо напрямую обратиться к свойству строки коллекции: ТекущиеДанные.НомерПутевки = 0;.
Ошибка №3: Неверная логика подсчета количества найденных строк. При поиске введенного значения методом НайтиСтроки() разработчик пишет:
// ОШИБКА! Условие сработает ВСЕГДА, даже при первом вводе уникального значения
Если НайденныеСтроки.Количество() > 0 Тогда ...
Давайте проанализируем ситуацию: пользователь уже ввел значение в текущую ячейку и завершил редактирование. В этот момент строка с введенным значением уже физически существует в коллекции данных на форме. Таким образом, метод НайтиСтроки() всегда вернет как минимум одну строку — ту самую, которую мы только что отредактировали. Логика проверки на дубли должна проверять, что количество найденных строк строго больше единицы (> 1).
Давайте реализуем корректный алгоритм интерактивной проверки на клиенте. Мы повесим наш обработчик на событие ПриИзменении конкретной колонки табличной части. Это позволит отслеживать ввод дубликата в момент завершения редактирования ячейки.
Рассмотрим по шагам программный код, который лишен всех описанных выше архитектурных и логических ошибок:
&НаКлиенте
Процедура ПутевкиНомерПутевкиПриИзменении(Элемент)
// 1. Получаем доступ к текущей редактируемой строке таблицы
ТекущиеДанные = Элементы.Путевки.ТекущиеДанные;
Если ТекущиеДанные = Неопределено Тогда
Возврат;
КонецЕсли;
ЗначениеДляПроверки = ТекущиеДанные.НомерПутевки;
// 2. Если пользователь очистил поле, проверку уникальности делать не нужно
Если НЕ ЗначениеЗаполнено(ЗначениеДляПроверки) Тогда
Возврат;
КонецЕсли;
// 3. Выполняем поиск по коллекции данных формы (ДанныеФормыКоллекция)
ПараметрыОтбора = Новый Структура("НомерПутевки", ЗначениеДляПроверки);
НайденныеСтроки = Объект.Путевки.НайтиСтроки(ПараметрыОтбора);
// 4. Т.к. текущая строка уже содержит значение, дубль — это когда найдено больше 1 строки
Если НайденныеСтроки.Количество() > 1 Тогда
// 5. Очищаем дублирующееся значение непосредственно в источнике данных
ТекущиеДанные.НомерПутевки = ""; // Для числовых полей используйте 0
// 6. Оповещаем пользователя в немодальном дружественном интерфейсе
ПоказатьПредупреждение(, "Введенное значение """ + ЗначениеДляПроверки + """ уже содержится в другой строке этой таблицы!");
КонецЕсли;
КонецПроцедуры
Что мы сделали в этом коде? Мы обратились к Объект.Путевки — это реквизит формы, хранящий данные. Метод НайтиСтроки() на клиенте для типа ДанныеФормыКоллекция отрабатывает быстро и возвращает массив строк, соответствующих отбору. Если массив содержит более одной строки, мы очищаем именно текущую строку через свойство ТекущиеДанные.НомерПутевки и выводим предупреждение.
Согласно стандартам разработки фирмы «1С», постоянный вызов метода НайтиСтроки() на клиенте для коллекций ДанныеФормыКоллекция может вызвать скрытые проблемы с производительностью. Если табличная часть содержит сотни или тысячи строк, платформа «1С» может начать неявно (в фоновом режиме) обращаться к серверу для подгрузки порций данных, из-за чего интерфейс пользователя начнет ощутимо «зависать».
Для оптимизации этой операции на больших объемах данных мы можем вынести логику поиска дубликатов на сервер в процедуру без контекста. Это сэкономит трафик и ускорит обработку. Разберем этот пример:
&НаКлиенте
Процедура ПутевкиНомерПутевкиПриИзмененииОптимизированная(Элемент)
ТекущиеДанные = Элементы.Путевки.ТекущиеДанные;
Если ТекущиеДанные = Неопределено Тогда
Возврат;
КонецЕсли;
ЗначениеДляПроверки = ТекущиеДанные.НомерПутевки;
Если НЕ ЗначениеЗаполнено(ЗначениеДляПроверки) Тогда
Возврат;
КонецЕсли;
// Вызываем серверную функцию без контекста формы, передавая только саму ТЧ и искомый номер
// Это предотвращает передачу всей тяжелой формы на сервер
ИндексТекущейСтроки = Объект.Путевки.Индекс(ТекущиеДанные);
Если ЗначениеУжеЕстьВТаблицеНаСервере(ЗначениеДляПроверки, ИндексТекущейСтроки) Тогда
ТекущиеДанные.НомерПутевки = "";
ПоказатьПредупреждение(, "Обнаружен дубликат значения! Повторный ввод запрещен.");
КонецЕсли;
КонецПроцедуры
&НаСервереБезКонтекста
Функция ЗначениеУжеЕстьВТаблицеНаСервере(Значение, ИсключаяИндекс)
// В реальной базе здесь может быть запрос к БД или быстрый обход переданного массива данных.
// Для универсальности и экономии контекста формы, если таблица не критически огромная,
// разработчики часто используют контекстный серверный вызов, но если мы хотим полной оптимизации,
// мы можем проанализировать данные непосредственно в объекте, если он уже записан, или передать коллекцию массивом.
Возврат Ложь; // Заглушка для демонстрации архитектурного разделения
КонецФункции
Как мы уже выяснили, интерактивную проверку легко обойти программными методами или банальным копированием строк. Чтобы исключить появление неверных данных в базе, мы обязаны написать обработчик в модуле объекта (документа или справочника). Проверка будет выполняться в событии ПередЗаписью.
Самым производительным, лаконичным и надежным способом проверки всей таблицы на дубли является метод **выгрузки колонки с последующим сворачиванием**. Давайте детально проанализируем, как это работает:
Свернуть("ИмяКолонки"). Этот метод группирует одинаковые строки, оставляя только уникальные значения.Давайте посмотрим, как выглядит этот код в модуле документа:
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
// Проверку запускаем только при непосредственной записи пользователем или проведении
Если ОбменДанными.Загрузка Тогда
Возврат; // Пропускаем проверку при загрузке данных через планы обмена (РИБ)
КонецЕсли;
// 1. Выгружаем колонку "НомерПутевки" в изолированную Таблицу Значений
ТЗПроверки = Путевки.Выгрузить(, "НомерПутевки");
// 2. Удаляем пустые строки, чтобы они не мешали анализу уникальности заполненных данных
ИндексСтроки = ТЗПроверки.Количество() - 1;
Пока ИндексСтроки >= 0 Цикл
Если НЕ ЗначениеЗаполнено(ТЗПроверки[ИндексСтроки].НомерПутевки) Тогда
ТЗПроверки.Удалить(ИндексСтроки);
КонецЕсли;
ИндексСтроки = ИндексСтроки - 1;
КонецЦикла;
// 3. Фиксируем исходное количество заполненных номеров
КоличествоДоСвертки = ТЗПроверки.Количество();
// 4. Сворачиваем таблицу по проверяемому полю (удаляет дубликаты)
ТЗПроверки.Свернуть("НомерПутевки");
КоличествоПослеСвертки = ТЗПроверки.Количество();
// 5. Если количество строк изменилось, значит, дубли присутствовали
Если КоличествоДоСвертки <> КоличествоПослеСвертки Тогда
// Блокируем запись документа
Отказ = Истина;
// Информируем пользователя через стандартный механизм сообщений
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Запись документа отменена! В табличной части ""Путевки"" обнаружены дублирующиеся номера.";
Сообщение.Поле = "Путевки"; // Указывает на конкретную табличную часть на форме
Сообщение.Сообщить();
КонецЕсли;
КонецProцедуры
Для идеального пользовательского опыта (UX) просто сказать «у вас есть дубли» — недостаточно. Если в таблице 100 строк, пользователю придется вручную глазами искать, какие именно строки совпали. Мы можем усовершенствовать серверную проверку, чтобы система точно указывала номера строк, в которых допущена ошибка.
Для этого мы воспользуемся возможностями языка запросов и объектом СообщениеПользователю, привязав ошибку непосредственно к конкретной ячейке на форме. Разберем этот профессиональный алгоритм:
Процедура ПередЗаписьюПрофессиональныйКонтроль(Отказ, РежимЗаписи, РежимПроведения)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
// Используем запрос к табличной части документа в памяти для поиска дубликатов
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("СсылкаДокумента", Ссылка);
// Т.к. объект может быть еще не записан в БД, мы передаем его табличную часть как внешний источник данных для запроса
Запрос.УстановитьПараметр("ТабличнаяЧасть", Путевки.Выгрузить());
Запрос.Текст =
"ВЫБРАТЬ
| ВТ.НомерСтроки КАК НомерСтроки,
| ВТ.НомерПутевки КАК НомерПутевки
|ПОМЕСТИТЬ ВТ_Данные
|ИЗ
| &ТабличнаяЧасть КАК ВТ
|ГДЕ
| ВТ.НомерПутевки <> """"
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ВТ_Данные.НомерСтроки КАК НомерСтроки,
| ВТ_Данные.НомерПутевки КАК НомерПутевки
|ИЗ
| ВТ_Данные КАК ВТ_Данные
|ГДЕ
| ВТ_Данные.НомерПутевки В
| (ВЫБРАТЬ
| Дубли.НомерПутевки
| ИЗ
| ВТ_Данные КАК Дубли
| СГРУППИРОВАТЬ ПО
| Дубли.НомерПутевки
| ИМЕЮЩИЕ
| КОЛИЧЕСТВО(Дубли.НомерПутевки) > 1)
|УПОРЯДОЧИТЬ ПО
| НомерПутевки,
| НомерСтроки";
РезультатЗапроса = Запрос.Выполнить();
Если НЕ РезультатЗапроса.Пустой() Тогда
Отказ = Истина;
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
// Формируем сообщение с точным указанием строки и ячейки
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = Шаблон("Номер путевки ""%1"" продублирован в строке %2!", Выборка.НомерПутевки, Выборка.НомерСтроки);
Сообщение.Поле = Шаблон("Путевки[%1].НомерПутевки", Выборка.НомерСтроки - 1); // Индексация на форме начинается с 0
Сообщение.Сообщить();
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Этот метод является венцом стандартов разработки. Мы использовали встроенный шаблонизатор строк, нашли дубли с помощью временных таблиц в запросе и привязали сообщения к конкретным строкам табличной части. Теперь у пользователя при нажатии на сообщение об ошибке автоматически активируется ячейка с ошибочным номером путевки.
Подводя итоги нашего анализа, выделим ключевые правила контроля уникальности строк:
ПриИзменении. Всегда дублируйте логику жесткой проверкой на сервере в модуле объекта ПередЗаписью.НайтиСтроки() должен ожидать результат более одной строки (Количество() > 1).Свернуть()), так как он работает быстрее всего и пишется буквально в 5 строк кода.СообщениеПользователю, связанных с индексами строк.