Проблема при переносе данных

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

ЗагруженныеОбъектыПереноса = Параметры.ЗагруженныеОбъектыПереноса;
ЗагруженныеОбъектыПереноса.Сортировать("ИмяПКО");

Для Каждого СтрокаТаблицы Из ЗагруженныеОбъектыПереноса Цикл
    
    Если СтрокаТаблицы.Объект.ЭтоНовый() Тогда
        Продолжить;
    КонецЕсли;
    
    Объект = СтрокаТаблицы.Объект.Ссылка.ПолучитьОбъект();
    ПараметрыОбъекта = СтрокаТаблицы.Параметры;
    ИмяПКО = СтрокаТаблицы.ИмяПКО;
    
    ОбъектМодифицирован = Истина;
    
    Если Метаданные.Справочники.Содержит(Объект.МетаДанные()) Тогда
        Выполнить(Алгоритмы.ОбработкаСправочниковОтложенная);
    КонецЕсли;
    
    Если ОбъектМодифицирован Тогда
        Объект.ОбменДанными.Загрузка = Истина;
        Объект.Записать();
    КонецЕсли;
    
КонецЦикла;

//+изм
Если Не Параметры.ОтключитьРегДействияПриЗагрузкеОборотовДокументов Тогда
    //-изм
    
    // Заполнение файла изображения номенклатуры.
    Для Каждого СтрокаТаблицы Из Параметры.ОсновныеИзображенияНоменклатуры Цикл
        Если СтрокаТаблицы.Номенклатура.ФайлКартинки <> СтрокаТаблицы.ФайлКартинки Тогда
            НоменклатураОбъект = СтрокаТаблицы.Номенклатура.ПолучитьОбъект();
            НоменклатураОбъект.ФайлКартинки = СтрокаТаблицы.ФайлКартинки;
            НоменклатураОбъект.ОбменДанными.Загрузка = Истина;
            НоменклатураОбъект.Записать();
        КонецЕсли;
    КонецЦикла;
    
    Выполнить(Алгоритмы.ОбработатьПослеЗаписиСкладыУчитывающиеСерии);
    Выполнить(Алгоритмы.ОбработатьВидыНоменклатурыПослеЗаписи);
    Выполнить(Алгоритмы.ЗаполнитьНастройкиКонтроляОбеспеченияУСкладов);
    Выполнить(Алгоритмы.НастроитьСпособыОтраженияВРегламентированномУчете);
    Выполнить(Алгоритмы.СформироватьСчетаФактурыНДСПредъявленный);
    
    //+изм
КонецЕсли;
//-изм

Выполнить(Алгоритмы.ВыполнитьПроведениеДокументов);
Выполнить(Алгоритмы.ПослеЗагрузкиПроверитьСальдоСчетов);