перезаписать элементы справочника

Процедура КнопкаВыполнитьНажатие(Кнопка)
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   Контрагенты.Ссылка
        |ИЗ
        |   Справочник.Контрагенты КАК Контрагенты";
 
    Результат = Запрос.Выполнить();
 
    ВыборкаДетальныеЗаписи = Результат.Выбрать();
 
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        СпрОбъект = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
        СпрОбъект.Записать();
    КонецЦикла;
 
    
КонецПроцедуры

Запрос = Новый Запрос;
    
    ТекстЗапроса = "ВЫБРАТЬ
                   |    Номенклатура.Ссылка,
                   |    Номенклатура.БазоваяЕдиницаИзмерения,
                   |    ЕдиницыИзмерения.Ссылка КАК ЕдиницаИзмерения
                   |ИЗ
                   |    Справочник.Номенклатура КАК Номенклатура
                   |        ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ЕдиницыИзмерения КАК ЕдиницыИзмерения
                   |        ПО Номенклатура.Ссылка = ЕдиницыИзмерения.Владелец
                   |            И Номенклатура.БазоваяЕдиницаИзмерения = ЕдиницыИзмерения.ЕдиницаПоКлассификатору
                   |ГДЕ
                   |    Номенклатура.ЭтоГруппа = ЛОЖЬ
                   |    И Номенклатура.ЕдиницаХраненияОстатков = &ПустаяЕдиница
                   |    И НЕ Номенклатура.БазоваяЕдиницаИзмерения = &ПустаяЕдиницаКл";
    
    Запрос.Текст = ТекстЗапроса;
    Запрос.УстановитьПараметр("ПустаяЕдиница",Справочники.ЕдиницыИзмерения.ПустаяСсылка());
    Запрос.УстановитьПараметр("ПустаяЕдиницаКл",Справочники.КлассификаторЕдиницИзмерения.ПустаяСсылка());
    РезультатЗапроса = Запрос.Выполнить();
    
    Выборка = РезультатЗапроса.Выбрать();
    КоличествоСтрок = Выборка.Количество(); 
    
    НачатьТранзакцию();
    КоличествоОбработанных = 0;   
    Пока Выборка.Следующий() Цикл
        
        ОбработкаПрерыванияПользователя();
 
        КоличествоОбработанных = КоличествоОбработанных + 1;                
            
        Если ЗначениеЗаполнено(Выборка.ЕдиницаИзмерения) Тогда
            НайденнаяЕдиница = Выборка.ЕдиницаИзмерения.Ссылка;
        Иначе
            НайденнаяЕдиницаОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
            НайденнаяЕдиницаОбъект.Наименование            = Выборка.БазоваяЕдиницаИзмерения.Наименование;
            НайденнаяЕдиницаОбъект.ЕдиницаПоКлассификатору = Выборка.БазоваяЕдиницаИзмерения;
            НайденнаяЕдиницаОбъект.Коэффициент             = 1;
            НайденнаяЕдиницаОбъект.Владелец                = Выборка.Ссылка;
            
            НайденнаяЕдиницаОбъект.Записать();
            
            НайденнаяЕдиница = НайденнаяЕдиницаОбъект.Ссылка;
        КонецЕсли;
        
        Объект = Выборка.Ссылка.ПолучитьОбъект();
        Объект.ЕдиницаХраненияОстатков = НайденнаяЕдиница;
        Объект.ЕдиницаДляОтчетов       = НайденнаяЕдиница;
        Объект.Записать();
        
        Если КоличествоОбработанных = 200 Тогда
            
            // промежуточную транзакцию закрываем и открываем новую
            ЗафиксироватьТранзакцию();
            НачатьТранзакцию();
            
            КоличествоОбработанных = 0;
        КонецЕсли;
        
    КонецЦикла;
    
    ЗафиксироватьТранзакцию();