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