Как изменить запись регистра сведений?

 НаборЗаписей = РегистрыСведений.НумерацияДоговоров.СоздатьНаборЗаписей();  			
			НаборЗаписей.Отбор.Период.Установить(НачалоГода(Дата));
			НаборЗаписей.Отбор.Организация.Установить(Организация);
			НаборЗаписей.Прочитать();
			Если НаборЗаписей.Количество() = 0 Тогда
				НовыйНомер = НаборЗаписей.Добавить();
				НовыйНомер.Организация = Организация;
				НовыйНомер.Период = НачалоГода(Дата);
				НовыйНомер.Номер = 2; ном=1;
			ИначеЕсли НаборЗаписей.Количество() = 1 Тогда
				НовыйНомер = НаборЗаписей[0];
				ном = НовыйНомер.Номер;
				НовыйНомер.Номер = ном+1;
			КонецЕсли;
			НаборЗаписей.Записать();
			Номер = Организация.Префикс +  "-" + Ном + "/" + Строка(Прав(Год(ТекущаяДата()),2));
   

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

  //В регистр были ошибочно записаны штрихкоды. 
// Нужно по заданным Номенклатуре (Товар) и Характеристике (ХарактеристикаТовара) найти эту запись и заменить там штрихкод.
  Запрос = Новый Запрос;
    Запрос.Текст = 
    "ВЫБРАТЬ
    |    ШтрихкодыНоменклатуры.Штрихкод КАК Штрихкод
    |ИЗ
    |    РегистрСведений.ШтрихкодыНоменклатуры КАК ШтрихкодыНоменклатуры
    |ГДЕ
    |    ШтрихкодыНоменклатуры.Номенклатура = &Номенклатура И
    |    ШтрихкодыНоменклатуры.Характеристика = &Характеристика";
    
    Запрос.УстановитьПараметр("Номенклатура", Товар);
    Запрос.УстановитьПараметр("Характеристика", ХарактеристикаТовара);

    Выборка = Запрос.Выполнить().Выбрать();
        Если НЕ Выборка.Следующий() Тогда
        ТекЗапись = РегистрыСведений.ШтрихкодыНоменклатуры.СоздатьМенеджерЗаписи();
        ТекЗапись.Номенклатура = Товар;
        Если ЗначениеЗаполнено(ХарактеристикаТовара) Тогда
             ТекЗапись.Характеристика = ХарактеристикаТовара;
        Иначе    
             ТекЗапись.Характеристика = Справочники.ХарактеристикиНоменклатуры.ПустаяСсылка();
        КонецЕсли;
        ТекЗапись.Штрихкод  = ?(ПустаяСтрока(ШтрихКод),РегистрыСведений.ШтрихкодыНоменклатуры.СформироватьШтрихкодEAN13(), Штрихкод);
        Попытка
            ТекЗапись.Записать();
        Исключение
        КонецПопытки;
    Иначе
        НайденныйШтрихкод = Выборка.Штрихкод;
         ТекЗапись = РегистрыСведений.ШтрихкодыНоменклатуры.СоздатьМенеджерЗаписи();
        ТекЗапись.Штрихкод = НайденныйШтрихкод;
        ТекЗапись.Прочитать();
        
        ТекЗапись.Штрихкод  = Штрихкод;
        Попытка
            ТекЗапись.Записать();
        Исключение
        КонецПопытки;

    КонецЕсли;