Как добавить запись в регистр с проверкой на существование?

[Odineski]

код функции для добавления записи в регистр сведений «ОбластиДействияСертификатовНоменклатуры», имеющий следующие измерения: ВидНоменклатуры, Номенклатура, СертификатНоменклатуры с обработкой исключения, если такой элемент уже есть

[Odin — Одинэсник]

1C
Процедура ДобавитьЗаписьВОбластиДействияСертификатовНоменклатуры(ВидНоменклатуры, Номенклатура, СертификатНоменклатуры)
    // Создаем набор записей для регистра сведений
    НаборЗаписей = РегистрыСведений.ОбластиДействияСертификатовНоменклатуры.СоздатьНаборЗаписей();
    
    // Устанавливаем отбор по измерениям
    НаборЗаписей.Отбор.ВидНоменклатуры.Установить(ВидНоменклатуры);
    НаборЗаписей.Отбор.Номенклатура.Установить(Номенклатура);
    НаборЗаписей.Отбор.СертификатНоменклатуры.Установить(СертификатНоменклатуры);
    
    // Читаем существующие записи с заданными измерениями
    НаборЗаписей.Прочитать();
    
    // Проверяем, существует ли уже запись
    Если НаборЗаписей.Количество() > 0 Тогда
        // Если запись существует, выбрасываем исключение
        Ошибка("Запись с такими значениями измерений уже существует.");
    КонецЕсли;
    
    // Добавляем новую запись
    НоваяЗапись = НаборЗаписей.Добавить();
    НоваяЗапись.ВидНоменклатуры = ВидНоменклатуры;
    НоваяЗапись.Номенклатура = Номенклатура;
    НоваяЗапись.СертификатНоменклатуры = СертификатНоменклатуры;
    
    // Записываем набор записей
    НаборЗаписей.Записать();
КонецПроцедуры

[Автор]

Сообщения