Замена значения в регистре сведений

Опять потребовалось заменить значение в регистре сведений, нашел старую обработку.

Подумалось, зачем эти танцы с таблицей? Или почему надо делать именно так?

Склад = Справочники.Склады.НайтиПоКоду("000001104");
СкладНов = Справочники.Склады.НайтиПоКоду("000000793");

НаборЗаписей = РегистрыСведений.СостояниеСклада.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Склад.Установить(Склад);
НаборЗаписей.Прочитать();

Если НаборЗаписей.Количество() > 0 Тогда

    // Запоминаем записи и подменяем Склад
    ТаблицаЗаписей = НаборЗаписей.Выгрузить();
    ТаблицаЗаписей.ЗаполнитьЗначения(СкладНов, "Склад");

    // Удаляем записи по плохой номенклатуре
    НаборЗаписей.Очистить();
    НаборЗаписей.Записать();

    // Загружаем записи из сохраненной таблицы
    НаборЗаписей.Отбор.Номенклатура.Установить(СкладНов);
    НаборЗаписей.Загрузить(ТаблицаЗаписей);
    НаборЗаписей.Записать(Ложь);

КонецЕсли;