Доработка ТиС 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 не будет опубликован. Обязательные поля помечены *