Контроль уникальности Артикула Номенклатуры в ТиС

[imok]

Платформа 7.70.027
Конфигурация 7.70.970
Господа. Подскажите как сделать проверку уникальности Артикула при записи новой номенклатуры в справочник.
Изначально в конфигурации нет контроля уникальности

[alexandr_ll]

imok, Уникальность можно соблюсти только при автоматическом присвоении артикула программой. Создать отдельный справочник "Артикулы", при запписи нового элемента справочника "Номенклатура" автоматически добавляется элемент в справочник "Артикулы" и его код присваевается в качестве реквизита "Артикул" номенклатуры.
Если делать просто проверку артикула на уникальность при записи номенклатуры, это будет выполняться очень медленно. Для этого сначала выгрузить все имеющиеся артикулы в список значений и при записи проверять на вхождение нового артикула в этот список.

[Иван_Василич]

imok, получилось у вас или уже неактуально? Готов показать идею

Код Выделить Развернуть

//******************************************************************************
//Функция ПохожийАртикул()
// Проверим есть ли похожие артикулы в остальной номенклатуре
Функция ПохожийАртикул()
    ВыборкаКода = СоздатьОбъект("Справочник.Номенклатура");
    ВыборкаКода.ВыбратьЭлементы();

//Проверим, чтобы в значении поля Артикул, если содержатся разделители,
//то их не учитываем при записи данного поля в новом элементе Номенклатуры
//Считаем, что у нас поле Артикул имеет цельное значение.
    АртикулДляСравнения = СтрЗаменить(Артикул,".","");
    АртикулДляСравнения = СтрЗаменить(АртикулДляСравнения," ","");
    АртикулДляСравнения = СтрЗаменить(АртикулДляСравнения,"-","");
    АртикулДляСравнения = СтрЗаменить(АртикулДляСравнения,"/","");
    АртикулДляСравнения = СтрЗаменить(АртикулДляСравнения,"\","");
    АртикулДляСравнения = СтрЗаменить(АртикулДляСравнения,"(","");
    АртикулДляСравнения = СтрЗаменить(АртикулДляСравнения,")","");
   
    Пока ВыборкаКода.ПолучитьЭлемент() = 1 Цикл
       
        ВыборкаКодаАртикул = СтрЗаменить(ВыборкаКода.Артикул,".","");
        ВыборкаКодаАртикул = СтрЗаменить(ВыборкаКодаАртикул," ","");
        ВыборкаКодаАртикул = СтрЗаменить(ВыборкаКодаАртикул,"-","");
        ВыборкаКодаАртикул = СтрЗаменить(ВыборкаКодаАртикул,"/","");
        ВыборкаКодаАртикул = СтрЗаменить(ВыборкаКодаАртикул,"\","");
        ВыборкаКодаАртикул = СтрЗаменить(ВыборкаКодаАртикул,"(","");
        ВыборкаКодаАртикул = СтрЗаменить(ВыборкаКодаАртикул,")","");
       
        Если ВыборкаКодаАртикул <> АртикулДляСравнения Тогда
            Продолжить;
        КонецЕсли;
        Если Выбран() = 0 Тогда
            Возврат ВыборкаКода.ТекущийЭлемент();
        Иначе           
            Если ТекущийЭлемент() <> ВыборкаКода.ТекущийЭлемент() Тогда
                Возврат ВыборкаКода.ТекущийЭлемент();
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
    Возврат "";
КонецФункции // ПохожийАртикул()

Вот эту процедуру добавить перед процедурой ПриЗаписи.

А вот этот кусок добавить в процедуру ПриЗаписи, по логике работы найдёте:
// Проверим, есть ли такой артикул в остальной номенклатуре   
        Дубль = ПохожийАртикул();
        Если ПустоеЗначение(Дубль) = 0 Тогда
            Предупреждение("В справочнике номенклатуры" + "
            |" + Дубль + "
            |" + "уже есть такой артикул:" + "
            |" + Артикул + " " + ?(Дубль.ПометкаУдаления() = 1," (помечена на удаление).","."), 60);
            Активизировать("Артикул");
            СтатусВозврата(1);
        КонецЕсли;
В данном варианте если Артикул будет у вас ,например, А-212-045ВС, то если вы создаете точно такой же, система предупредит, что уже есть такой. А вариант А212045ВС или А2.1204.5ВС или А 21-20 45ВС, т.е с разделителем тоже будут считаться как похожие, т.е дубли. Единственно, есть желание добавить различие строчные/прописные буквы, но пока нет времени. 

[alexandr_ll]

Иван_Василич, Ваш код будет работать, но на больших справочниках, (порядка десятков тысяч наименований) запись элемента справочника будет занимать несколько минут.

[Иван_Василич]

alexandr_ll, у меня порядка 22 тыс., пока устраивает.

[imok]

Иван_Василич, в личку отписал