Доработка ТиС 9.2 на предмет запрета одинаковых (дублей) артикулов


Проверка уникальности артикула

В модуле Справочника.Номенклатура, в процедуре записи добавляем строки 

//***************************************************************************************
Спр = СоздатьОбъект("Справочник.Номенклатура");
Если Спр.НайтиПоРеквизиту("Артикул", Артикул, 1) = 1 Тогда
    Если Спр.Код <> Код Тогда
         Вопрос("Артикул НЕ УНИКАЛЕН !!! ATB Forever !!!","" ,60);
         СтатусВозврата(0);
     КонецЕсли;
    Возврат;
КонецЕсли;
// **************************************************************************************

7 Comments

  1. motorkuzbassa.it

    А кто назовет какой товар совпадает?

    Вопрос(«Артикул НЕ УНИКАЛЕН !!! Совпадает с: «+Спр.Наименование+»ATB Forever !!!»,»» ,60);

    Reply
  2. maxis33

    А если пользователь хочет код товара поменять, что произойдет?

    Reply
  3. atb123

    Если он уникальный, то все нормально новая номенклатура запишется !!!

    Reply
  4. Иваныч

    Идея верная

    Reply
  5. 2sw

    Оригинальный код не позволяет сохранять номенклатуру с пустым артикулом. Вот доработанный код

    Спр = СоздатьОбъект(«Справочник.Номенклатура»);
    Если Спр.НайтиПоРеквизиту(«Артикул», Артикул, 1) = 1 Тогда
    Если Спр.Код <> Код Тогда
    Если сокрлп(артикул)=»» Тогда
    СтатусВозврата(1);
    Иначе Вопрос(«Обнаружен дубль. Артикул НЕ УНИКАЛЕН !!! Совпадает с: «+Спр.Наименование+»
    |
    |Наименование для печати: «+Спр.ПолнНаименование+»
    |
    |Совет: Если требуется записать элемент, оставьте артикул пустым»,»» ,60);
    СтатусВозврата(0);
    КонецЕсли;
    
    КонецЕсли;
    Возврат;
    КонецЕсли; 

    Показать

    Reply
  6. Иваныч

    Я использую поле Артикул как каталожный номер детали. Производителей 3, каталожный номер — общий. Как быть?

    Reply
  7. user629924_info

    Мелочь, а чем то полезная!

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *