Контроль уникальности Справочника 1С
Posted On 2019-03-27
Контроль уникальности Справочника 1С
1 2 3 4 5 6 7 8 9 |
Процедура ПередЗаписью(Отказ,) Если Не Справочники.ТМЦ.НайтиПоНаименованию(Наименование) = Справочники.ТМЦ.ПустаяСсылка() Тогда Текст = "ru = ""Наименование записи справочника не уникально!"""; Предупреждение(НСтр(Текст), 10); Отказ = Истина; ЭтаФорма.Закрыть(Отказ); Возврат; КонецЕсли; КонецПроцедуры |
Либо при изменении элемента формы
1 2 3 4 5 6 7 8 9 |
Процедура НаименованиеПриИзменении(Элемент) Если Не Справочники.КартыИСкидки.НайтиПоНаименованию(Наименование) = Справочники.КартыИСкидки.ПустаяСсылка() Тогда Наименование = ""; Текст = "ru = ""Наименование записи справочника не уникально!"""; Предупреждение(НСтр(Текст), 10); Отказ = Истина; // ЭтаФорма.Закрыть(Отказ); Возврат; КонецЕсли; |