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

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

1С (Код)

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

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

[Автор]

Сообщения