Контроль уникальности заводского номера - вариант №1

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
    // Запрос для поиска дублей в регистре сведений
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   ШиныСпецтехники.ЗаводскойНомер КАК ЗаводскойНомер,
        |   ШиныСпецтехники.Регистратор.Ссылка КАК РегистраторСсылка
        |ИЗ
        |   РегистрСведений.ШиныСпецтехники КАК ШиныСпецтехники
        |ГДЕ
        |   ШиныСпецтехники.ЗаводскойНомер = &ЗаводскойНомер
        |   И ШиныСпецтехники.Регистратор.Ссылка <> &Ссылка"; 
    // Флаги для отслеживания наличия ошибок
    ЕстьОшибки = Ложь;       // Ошибка: номер найден в ДРУГОМ документе
    ЕстьОшибкиТЧ = Ложь;     // Ошибка: номер повторяется внутри ТЕКУЩЕГО документа (в табличной части)
    // Устанавливаем параметр текущей ссылки документа для исключения его из поиска в БД
    Запрос.УстановитьПараметр("Ссылка", ЭтотОбъект.Ссылка);   
    // Проходим по каждой строке табличной части "Шины"
    Для каждого Строка Из Шины Цикл       
        // 1. Подготовка параметров для запроса к базе данных
        Запрос.УстановитьПараметр("ЗаводскойНомер", Строка.ЗаводскойНомер);       
        // Выполняем запрос: ищем этот номер в регистрах, исключая текущий документ
        РезультатЗапроса = Запрос.Выполнить();       
        // 2. Проверка на дубли внутри текущего документа (в табличной части)
        // Создаем структуру для поиска строк с таким же заводским номером
        ПараметрыПоискаШины = Новый Структура("ЗаводскойНомер", Строка.ЗаводскойНомер);
        // Находим все совпадающие строки в табличной части
        РезультатПоискаШины = Шины.НайтиСтроки(ПараметрыПоискаШины);       
        // Если найдено более 1 строки с таким номером -> дубль внутри документа
        Если РезультатПоискаШины.Количество() > 1 Тогда 
            ЕстьОшибкиТЧ = Истина;
        КонецЕсли;     
        // Если запрос вернул результаты -> номер уже есть в другом документе
        Если НЕ РезультатЗапроса.Пустой() Тогда
            ЕстьОшибки = Истина;
        КонецЕсли;         
    КонецЦикла;   
    // Обработка результата: вывод сообщений пользователю и блокировка записи
    // Если найдены дубли внутри текущего документа
    Если ЕстьОшибкиТЧ Тогда
        // Если дублей несколько, сообщится только о последнем найденном.
        Сообщить("Введенный заводской номер '" + Строка.ЗаводскойНомер + "' уже присутствует в текущем документе.");
        Отказ = Истина; // Запрещаем запись
    КонецЕсли; 
    // Если найдены дубли в других документах базы
    Если ЕстьОшибки Тогда 
        // Получаем выборку из результата последнего выполненного запроса
        Выборка = РезультатЗапроса.Выбрать();
        Выборка.Следующий(); // Переходим к первой найденной записи      
        // Формируем сообщение со ссылкой на документ-нарушитель
        Сообщить("Введенный заводской номер '" + Выборка.ЗаводскойНомер + "' указан в другом документе: " + Выборка.РегистраторСсылка);
        Отказ = Истина; // Запрещаем запись
    КонецЕсли;
КонецПроцедуры