Контроль уникальности элементов справочника по произвольному количеству реквизитов, с использованием "И"

26.04.16

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

Методология основана на динамическом формировании текста запроса, где запрос формируется относительно контролируемого объекта и списка реквизитов контроля через "И".
В моем примере используется общий модуль, в котором находится функция контроля возвращающая булево (можно записать или нет).
Функция работает только с объектами "Справочник".

Мне был необходим функционал из заголовка.

Ядро 1С 8.3, конфигурация "СамИздат".

Собственно реализация этой возможности тривиальна:

В моделу объекта в теле процедуры "ПередЗаписью" вставляем код:

Процедура ПередЗаписью(Отказ) 
	ИмяОбъекта = ЭтотОбъект.Метаданные().Имя;
	СтрРеквизитов = Новый Структура; //
	СтрРеквизитов.Вставить("Наименование", Наименование);
	Если Не ОбщегоНазначения.ПрошелКонтрольУникальностиСправочникаПоРеквизиту(ИмяОбъекта, СтрРеквизитов, Ссылка) Тогда
		Сообщить("Подобный элемент справочника /" + Наименование + "/ существует!
				|Модуль: Контроль уникальности элементов справочника." );
		Отказ = Истина;
	КонецЕсли;
КонецПроцедуры

Далее в общем модуле (в моем случае это "ОбщегоНазначения") создаем функцию:

&НаСервере
Функция ПрошелКонтрольУникальностиСправочникаПоРеквизиту(ИмяОбъекта, СтрРеквизитов, ЗначениеСсылка) Экспорт

	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ ПЕРВЫЕ 1
	|	Спр.Ссылка
	|ИЗ
	|	Справочник." + ИмяОбъекта + " КАК Спр
	|ГДЕ
	|	Спр.Ссылка <> &парЗначениеСсылка
	|"; 	
	Нум = 0;
	Для Каждого Знч Из СтрРеквизитов Цикл
		ИмяПараметраВЗапросе = " = &Пар" + Строка(Нум);
		Запрос.Текст = Запрос.Текст + " И Спр." + Знч.Ключ + ИмяПараметраВЗапросе; 
		Запрос.УстановитьПараметр("Пар" + Строка(Нум),	Знч.Значение);
		Нум = Нум + 1;
	КонецЦикла;	
	Запрос.УстановитьПараметр("парЗначениеСсылка", 		ЗначениеСсылка);		
	РезультатЗапроса = Запрос.Выполнить();

        Возврат РезультатЗапроса.Пустой();

КонецФункции

Собственно, всё.

Наведен марафет в функции по рекомендациям NeviD
Спасибо.

Как просто сделать сложно и как сложно сделать просто.

контроль уникальности уникальность элементов справочника

+20 –

См. также

Загрузка табличного документа в таблицу значений. Пять строк кода, которые изменили мир

Универсальные функции Программист Платформа 1С v8.3 1C:Бухгалтерия Бесплатно (free)

Благодаря этим пяти строчкам можно больше не заморачиваться с загрузкой из внешних файлов. Пользуюсь везде, всегда и постоянно.

21.05.2024 25027 dimanich70 82

149

Вставляем картинку из буфера обмена (платформа 1С 8.3.24)

Универсальные функции Программист Платформа 1С v8.3 1C:Бухгалтерия Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024 4492 3 John_d 11

GUID в 1С 8.3

Универсальные функции Программист Стажер Платформа 1С v8.3 1C:Бухгалтерия Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024 25292 atdonya 25

Переоткрытие внешних обработок

Универсальные функции Программист Платформа 1С v8.3 Бесплатно (free)

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

30.11.2023 6052 ke.92@mail.ru 17

Генерация штрихкода и QR, разбор настроек и примеры

БСП (Библиотека стандартных подсистем) Сканер штрих-кода Универсальные функции Этикетки, ценники Программист Бизнес-аналитик 1C:Бухгалтерия Бесплатно (free)

Разберем на примерах использование компоненты из БСП для генерации штрихкода и матричных кодов.

15.09.2023 21985 YA_418728146 9

120

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Программист Платформа 1С v8.3 1C:Бухгалтерия Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023 16505 YA_418728146 8

170

Печать непроведенных документов для УТ, КА, ERP. Настройка печати по пользователям, документам и печатным формам

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023 4244 72 progmaster 9

Расширение: Быстрые отборы через буфер [Alt+C] Копировать список, [Alt+V] Вставить список, [Ctrl+C] Копировать из файлов

Инструментарий разработчика Универсальные функции Платформа 1С v8.3 1C:Бухгалтерия 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

Копирует в буфер значения из списков, из ячеек отчетов, таблиц, настроек списков, других отборов и вставляет в выбранную настройку отбора. Работает с Объект не найден. Работает как в одной так и между разными базами 1С. Использует комбинации [Alt+C] Копировать список, [Alt+V] Вставить список. Также для копирования данных используется стандартная [Ctrl+C] (например из открытого xls, mxl, doc и т.п. файла скопировать список наименований)

1 стартмани

13.10.2022 19118 180 sapervodichka 112

136

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. NeviD 26.04.16 17:03 Сейчас в теме

1. Зачем нужно добавлять в запрос "СГРУППИРОВАТЬ ПО"? Там же и так уникальные значения будут.
2. Смысл вводить переменную ЗначениеУникально, если она всё равно не меняется и всегда = Ложь?
3. На мой взгляд, лучше в названии параметров не использовать Счетчик, а называть Ключом из СтрРеквизитов. Тогда и нагляднее, если результирующий текст запроса смотреть, и ошибки не будет, если (вдруг) количество параметров будет больше 999.
4. Не нужно получать Выборку и начинать обход цикла. Просто:

Возврат НЕ РезультатЗапроса.Пустой();

И работает только для справочников... Хоть для документов добавить...
В общем, как то слабовато для публикации.

3. juker 254 27.04.16 09:11 Сейчас в теме

(1) NeviD,
1. Группировка осталась как аппендикс.
2. Та же история как и в п.1
3. Да, так намного читабельнее.
4. Тоже верное замечание.
Работает только для справочников - Надо было перефразировать - Применяю только для объектов типа "Справочник".
Слабовато для публикации - Это чисто субъективная оценка.

И спасибо за комментарии.

2. json 3359 27.04.16 00:51 Сейчас в теме

Вообще для контроля уникальности лучше использовать регистры сведений. См., например, в ERP справочник КлючиАналитикиУчетаНоменклатуры и регистр сведений АналитикаУчетаНоменклатуры. Да и сама функция в общем-то элементарная, проще написать, чем искать где-то

4. kuzyara 2108 14.09.18 07:23 Сейчас в теме

Не подходит для параллельной записи - создаются дубли, т.к. нет блокировок.

5. juker 254 17.09.18 16:52 Сейчас в теме

(4)

создаются дубли, т.к. нет блокировок.

Настройка блокировок не входила в данное повествование и в данном примере не упоминается.
Само собой, в зависимости от количества подключений и обращений на изменение информации требуется управления блокировками, тут каждый действует по своему разумению.

6. laby 29.11.18 09:43 Сейчас в теме

(5) А если делать проверку ПриЗаписи() ?

11. olim 09.11.23 14:13 Сейчас в теме

(6) Не получится, т.к. пока транзакция №1 не завершится и параллельно вклинится транзакция №2, то она не сможет прочитать актуальное (измененное транзакцией №1) значение если не установить блокировку (ответственное чтение).

7. user970589 10 12.07.20 00:22 Сейчас в теме

хм, а просто глаку поставить чем не устраивает?
Простите, понял.

8. user622682_toropina1 28.11.20 14:52 Сейчас в теме

а мне пригодилась процедурка. Огромное спасибо автору!!!!!

9. juker 254 05.12.20 16:58 Сейчас в теме

(8)Всегда пожалуйста! )

10. mwoleg 56 11.04.23 22:36 Сейчас в теме

Мне весьма пригодилась!
Все гениальное - просто!
Спасибо!

12. user655564_gulnara-68 16.01.24 09:00 Сейчас в теме

Мне тоже пригодилось. Спасибо!

13. Baszilio 3 26.12.24 19:23 Сейчас в теме

Спасибо. Простая, но дельная функция.
Можно сделать её ещё более независимой от типа объекта конфигурации, да и убрать лишний счет параметров. Я так понимаю, едва ли будет два рек-та с одинаковым наименованием?

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

Показать