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

Posted On 2019-03-27

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

Процедура ПередЗаписью(Отказ,)

Если Не Справочники.ТМЦ.НайтиПоНаименованию(Наименование) = Справочники.ТМЦ.ПустаяСсылка() Тогда

Текст = "ru = ""Наименование записи справочника не уникально!""";

Предупреждение(НСтр(Текст), 10);

Отказ = Истина;

ЭтаФорма.Закрыть(Отказ);

Возврат;

КонецЕсли;

КонецПроцедуры

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

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

Процедура НаименованиеПриИзменении(Элемент)

Если Не Справочники.КартыИСкидки.НайтиПоНаименованию(Наименование) = Справочники.КартыИСкидки.ПустаяСсылка() Тогда

Наименование = "";

Текст = "ru = ""Наименование записи справочника не уникально!""";

Предупреждение(НСтр(Текст), 10);

Отказ = Истина;

// ЭтаФорма.Закрыть(Отказ);

Возврат;

КонецЕсли;