База знаний Одина — Одинэсника › Форумы › ODIN — Форум по 1С Предприятию › Как добавить запись в регистр с проверкой на существование? › RE: Как добавить запись в регистр с проверкой на существование?
25 января 2025 в 11:15
#31273
1С (Код)
|
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 Тогда // Если запись существует, выбрасываем исключение Ошибка("Запись с такими значениями измерений уже существует."); КонецЕсли; // Добавляем новую запись НоваяЗапись = НаборЗаписей.Добавить(); НоваяЗапись.ВидНоменклатуры = ВидНоменклатуры; НоваяЗапись.Номенклатура = Номенклатура; НоваяЗапись.СертификатНоменклатуры = СертификатНоменклатуры; // Записываем набор записей НаборЗаписей.Записать(); КонецПроцедуры |
База знаний 1С