В двух группах намеренно одинаковое имя Книга, но разные артикулы. Сравниваем точное имя, начало имени, точный реквизит, ограничение родителя и отсутствие результата.
Где и как запускать
Учебная база: создайте серверный общий модуль УчебныеЗадачи (флаг Сервер). Код без директив вставьте в тело процедуры ВыполнитьПример() Экспорт. Вызовите её из серверного обработчика команды учебной обработки. Не запускайте в рабочей базе.
Подготовка
Создайте НОВУЮ пустую файловую базу на точной платформе 8.5.1.1343. Имя конфигурации УчебныеВыборкиКаталога85, совместимость НеИспользовать. Это не копия рабочих УТ/КА/УНФ/БП; исходные конфигурации и рабочие базы не трогайте. Здесь код не запускался: runtimeVerifiedScenarios=0.
Создайте единственный справочник УчебныеТовары: иерархия групп и элементов, владельцы не назначены, предопределенных данных нет, код Строка длиной 10, автонумерация выключена, контроль уникальности включён, наименование длиной 100. Других объектов хранения данных не добавляйте.
Добавьте единственный реквизит Артикул: Строка длиной 20, использование для групп и элементов, Индексировать. Индекс обязателен для отбора Выбрать по этому реквизиту. Табличных частей нет. Модули справочника/менеджера, подписки, регламентные задания, разделители и расширения должны быть пустыми/отсутствовать.
Создайте два неглобальных общих модуля: УчебныйКаталог85 и УчебныеПримерыКаталога85, Сервер=Да, клиентские флаги=Нет, Вызов сервера=Да, привилегированный режим=Нет. В первый вставьте полный общий модуль подготовки ниже; во второй — полный основной код только одного выбранного урока. Не склеивайте разные процедуры ВыполнитьПример.
Создайте собственную обработку УчебныйПульт85, управляемую форму Пульт, команду Выполнить и кнопку этой команды. В модуль формы вставьте полный отдельный модуль запуска ниже и назначьте действие команды Выполнить. Обновите конфигурацию базы, проверьте F7; до запуска вручную сверяйте настройки справочника.
Данные создаёт сам урок: G01 Основной и G02 Архив в корне; A01 Книга/BOOK-A и A02 Ручка/PEN-A в Основной; B01 Книга/BOOK-B в Архив. Все пять записей существуют лишь внутри собственной транзакции. При успехе и ошибке выполняется откат; фиксации нет.
Будущий ручной запуск вызывает настоящую запись пяти собственных строк в учебной базе до отката. Откат не отменяет внешние действия неизвестных обработчиков, поэтому рабочая конфигурация или её копия здесь недопустима. Запускайте одним пользователем, вне чужой транзакции; существующие данные код не удаляет.
Процедура ВыполнитьПример() Экспорт
УчебныйКаталог85.ПроверитьСвойСтенд();
НачатьТранзакцию();
Попытка
Данные = УчебныйКаталог85.ПодготовитьСвоиТовары();
Менеджер = Справочники.УчебныеТовары;
ВОсновном = Менеджер.НайтиПоНаименованию("Книга", Истина, Данные.G01);
ВАрхиве = Менеджер.НайтиПоНаименованию("Книга", Истина, Данные.G02);
ПоНачалу = Менеджер.НайтиПоНаименованию("Кни", Ложь, Данные.G01);
Если ВОсновном <> Данные.A01 Или ВАрхиве <> Данные.B01 Или ПоНачалу <> Данные.A01 Тогда
ВызватьИсключение "Поиск по имени должен учитывать точность и родителя";
КонецЕсли;
ПоАртикулу = Менеджер.НайтиПоРеквизиту("Артикул", "BOOK-A", Данные.G01);
НетПрефикса = Менеджер.НайтиПоРеквизиту("Артикул", "BOOK", Данные.G01);
НетВДругойГруппе = Менеджер.НайтиПоРеквизиту("Артикул", "BOOK-A", Данные.G02);
НетИмени = Менеджер.НайтиПоНаименованию("Несуществующий учебный товар", Истина);
Если ПоАртикулу <> Данные.A01 Или НетПрефикса <> Данные.Пустая
Или НетВДругойГруппе <> Данные.Пустая Или НетИмени <> Данные.Пустая Тогда
ВызватьИсключение "Поиск по реквизиту точный, отсутствие возвращает пустую ссылку";
КонецЕсли;
ОдинДубль = Менеджер.НайтиПоНаименованию("Книга", Истина);
Если ОдинДубль <> Данные.A01 И ОдинДубль <> Данные.B01 Тогда
ВызватьИсключение "Во всём справочнике подготовлены две книги";
КонецЕсли;
ВсеКниги = Менеджер.Выбрать(, , Новый Структура("Наименование", "Книга"), "Код Возр");
КодыКниг = Новый Массив;
Пока ВсеКниги.Следующий() Цикл
КодыКниг.Добавить(ВсеКниги.Код);
КонецЦикла;
Если СтрСоединить(КодыКниг, ",") <> "A01,B01" Тогда
ВызватьИсключение "Проверка всех дублей должна вернуть две книги";
КонецЕсли;
Сообщить("Основной: A01; Архив: B01; префикс имени: A01; все книги: A01,B01");
ОтменитьТранзакцию();
Исключение
Если ТранзакцияАктивна() Тогда
ОтменитьТранзакцию();
КонецЕсли;
ВызватьИсключение;
КонецПопытки;
УчебныйКаталог85.ПроверитьОткат(Данные);
Сообщить("Собственные пять строк отменены; учебный справочник снова пуст");
КонецПроцедурыУчебныйКаталог85
УчебныеВыборкиКаталога85 → Общие → Общие модули → УчебныйКаталог85
Полный серверный общий модуль: защита стенда, подготовка пяти записей и проверка отката. Не выполнялся.
Процедура ПроверитьСвойСтенд() Экспорт
Если Метаданные.Справочники.Количество() <> 1 Или Метаданные.Документы.Количество() <> 0 Или Метаданные.Перечисления.Количество() <> 0 Или Метаданные.РегистрыСведений.Количество() <> 0 Или Метаданные.РегистрыНакопления.Количество() <> 0 Или Метаданные.РегистрыБухгалтерии.Количество() <> 0 Или Метаданные.РегистрыРасчета.Количество() <> 0 Или Метаданные.ПланыВидовХарактеристик.Количество() <> 0 Или Метаданные.ПланыВидовРасчета.Количество() <> 0 Или Метаданные.ПланыСчетов.Количество() <> 0 Или Метаданные.ПланыОбмена.Количество() <> 0 Или Метаданные.Последовательности.Количество() <> 0 Или Метаданные.БизнесПроцессы.Количество() <> 0 Или Метаданные.Задачи.Количество() <> 0 Или Метаданные.ОбщиеРеквизиты.Количество() <> 0 Или Метаданные.ПодпискиНаСобытия.Количество() <> 0 Или Метаданные.РегламентныеЗадания.Количество() <> 0 Или Метаданные.ВнешниеИсточникиДанных.Количество() <> 0 Тогда
ВызватьИсключение "Нужен только свой новый пустой учебный стенд";
КонецЕсли;
Каталог = Метаданные.Справочники[0];
Если Каталог.Имя <> "УчебныеТовары" Или Не Каталог.Иерархический
Или Каталог.Реквизиты.Количество() <> 1 Или Каталог.Реквизиты.Найти("Артикул") = Неопределено Тогда
ВызватьИсключение "Нужен собственный иерархический справочник с единственным реквизитом Артикул";
КонецЕсли;
Если Метаданные.ЕстьИзмененияРасширениямиКонфигурации() Тогда
ВызватьИсключение "Свой сеанс не должен изменяться расширениями";
КонецЕсли;
Источники = Новый Массив;
Источники.Добавить(ИсточникРасширенийКонфигурации.БазаДанных);
Источники.Добавить(ИсточникРасширенийКонфигурации.СеансАктивные);
Источники.Добавить(ИсточникРасширенийКонфигурации.СеансОтключенные);
Для Каждого Источник Из Источники Цикл
Расширения = РасширенияКонфигурации.Получить(, Источник);
Если ТипЗнч(Расширения) <> Тип("Массив") Тогда
ВызватьИсключение "Native список расширений должен иметь тип Массив";
КонецЕсли;
Если Расширения.Количество() <> 0 Тогда
ВызватьИсключение "В своём новом стенде нет расширений базы или сеанса";
КонецЕсли;
КонецЦикла;
Если ТранзакцияАктивна() Тогда
ВызватьИсключение "Чужая или вложенная активная транзакция не допускается";
КонецЕсли;
КонецПроцедуры
Функция ПодготовитьСвоиТовары() Экспорт
Если Не ТранзакцияАктивна() Тогда
ВызватьИсключение "Подготовка допустима только внутри собственной отменяемой транзакции";
КонецЕсли;
ПроверкаПустоты = Справочники.УчебныеТовары.Выбрать();
Если ПроверкаПустоты.Следующий() Тогда
ВызватьИсключение "Учебный справочник должен быть пуст; чужие записи не изменяются";
КонецЕсли;
Пустая = Справочники.УчебныеТовары.ПустаяСсылка();
Данные = Новый Структура;
Данные.Вставить("G01", СоздатьСвоюСтроку("G01", "Основной", "GROUP-A", Пустая, Истина));
Данные.Вставить("G02", СоздатьСвоюСтроку("G02", "Архив", "GROUP-B", Пустая, Истина));
Данные.Вставить("A01", СоздатьСвоюСтроку("A01", "Книга", "BOOK-A", Данные.G01, Ложь));
Данные.Вставить("A02", СоздатьСвоюСтроку("A02", "Ручка", "PEN-A", Данные.G01, Ложь));
Данные.Вставить("B01", СоздатьСвоюСтроку("B01", "Книга", "BOOK-B", Данные.G02, Ложь));
Данные.Вставить("Пустая", Пустая);
Возврат Данные;
КонецФункции
Функция СоздатьСвоюСтроку(Код, Наименование, Артикул, Родитель, Группа)
Если Группа Тогда
Объект = Справочники.УчебныеТовары.СоздатьГруппу();
Иначе
Объект = Справочники.УчебныеТовары.СоздатьЭлемент();
КонецЕсли;
Ссылка = Справочники.УчебныеТовары.ПолучитьСсылку(Новый УникальныйИдентификатор);
Объект.УстановитьСсылкуНового(Ссылка);
Объект.Код = Код;
Объект.Наименование = Наименование;
Объект.Артикул = Артикул;
Объект.Родитель = Родитель;
Объект.Записать();
Прочитанный = Ссылка.ПолучитьОбъект();
Если Прочитанный = Неопределено Тогда
ВызватьИсключение "Собственная учебная запись не прочитана";
КонецЕсли;
Если Прочитанный.Код <> Код Или Прочитанный.Наименование <> Наименование
Или Прочитанный.Артикул <> Артикул Или Прочитанный.Родитель <> Родитель
Или Прочитанный.ЭтоГруппа <> Группа Тогда
ВызватьИсключение "Прочитанная учебная строка отличается от подготовленной";
КонецЕсли;
Возврат Ссылка;
КонецФункции
Процедура ПроверитьОткат(Данные) Экспорт
Если ТранзакцияАктивна() Тогда
ВызватьИсключение "Собственная транзакция не завершена";
КонецЕсли;
Для Каждого Имя Из СтрРазделить("G01,G02,A01,A02,B01", ",") Цикл
Если Данные[Имя].ПолучитьОбъект() <> Неопределено Тогда
ВызватьИсключение "Собственная запись осталась после отката: " + Имя;
КонецЕсли;
КонецЦикла;
ПроверкаПустоты = Справочники.УчебныеТовары.Выбрать();
Если ПроверкаПустоты.Следующий() Тогда
ВызватьИсключение "После отката справочник не пуст";
КонецЕсли;
КонецПроцедурыУчебныйПульт85.Пульт
УчебныеВыборкиКаталога85 → Обработки → УчебныйПульт85 → Формы → Пульт → Модуль
Полный модуль управляемой формы только собственной обработки. Не выполнялся.
&НаКлиенте
Процедура Выполнить(Команда)
ВыполнитьНаСервере();
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ВыполнитьНаСервере()
УчебныеПримерыКаталога85.ВыполнитьПример();
КонецПроцедурыРазбор по шагам
ТочноеСоответствие=Истина ищет целое наименование, Ложь — его левую часть. Поэтому Кни находит Книга только в режиме начала строки. Хвостовые пробелы имени не участвуют в точном соответствии.
Третий параметр родителя разделяет две одинаково названные книги: G01 → A01, G02 → B01. Это не поиск по владельцу; владельцы в подготовке отсутствуют.
НайтиПоРеквизиту использует реальное имя собственного Артикул и точное значение строки фиксированной длины. BOOK не равно BOOK-A: здесь нет режима поиска по префиксу.
Отсутствие в этой подготовке возвращает пустую ссылку, не Неопределено. Отдельный случай имени длиной 0 и точного поиска может вернуть Неопределено; наш справочник имеет длину 100.
Поиск Книга без родителя возвращает одну из двух ссылок. Код не угадывает, какая будет выбрана, и не делает вывода об уникальности.
Чтобы действительно обнаружить дубли, создаём выборку с одним отбором Наименование и считаем все результаты: A01,B01. Значения не исправляем, базу заканчиваем откатом.
Как проверить результат
В своей учебной базе проверки подтверждают четыре успешных поиска и три пустые ссылки; сообщение показывает A01,B01 как полный набор книг.
Не требуйте, чтобы ОдинДубль всегда был A01: допустим и B01. Полная выборка обязана дать обе книги.
В копии урока поменяйте ожидание НетПрефикса на A01: должна возникнуть ошибка и откат, показывая отличие точного артикула от начала имени.
Ожидаемый результат
Показаны точный и префиксный поиск имени, точный поиск реквизита, ограничение группой и отдельное обнаружение дублей. runtimeVerifiedScenarios=0.
На что обратить внимание
Первое совпадение не гарантирует уникальность; автоматический подбор товара по одному имени опасен без отдельного правила.
НайтиПоРеквизиту не поддерживает ХранилищеЗначения и строки неограниченной длины. Точное имя и название реквизита задаёт ваша конфигурация.
Не используйте произвольное имя справочника из рабочей базы: все имена и данные здесь подготовлены явно.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.