Odin | База знаний 1С

Как добавить запись...
 

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


Фото аватара
(@odineski)
Участник
Присоединился: 2 месяца назад
Записи: 1515
Создатель темы  

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



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


   
ОтветитьЦитата