Контроль уникальности Справочника 1С

Posted On 2019-03-27

Процедура ПередЗаписью(Отказ,)
Если Не Справочники.ТМЦ.НайтиПоНаименованию(Наименование) = Справочники.ТМЦ.ПустаяСсылка() Тогда    
     Текст = "ru = ""Наименование записи справочника не уникально!""";
     Предупреждение(НСтр(Текст), 10);
     Отказ = Истина;
     ЭтаФорма.Закрыть(Отказ);     
     Возврат;
КонецЕсли;            
КонецПроцедуры

Либо при изменении элемента формы

Процедура НаименованиеПриИзменении(Элемент)
Если Не Справочники.КартыИСкидки.НайтиПоНаименованию(Наименование) = Справочники.КартыИСкидки.ПустаяСсылка() Тогда 
    Наименование = "";
    Текст = "ru = ""Наименование записи справочника не уникально!""";
    Предупреждение(НСтр(Текст), 10);
    Отказ = Истина;
    // ЭтаФорма.Закрыть(Отказ); 
    Возврат;
КонецЕсли;