Создание документа на основании в обработке

Пока ВыборкаОрганизация.Следующий() Цикл
        
        Заказ = Документы.ЗаказНаПеремещение.СоздатьДокумент();
        Заказ.Ответственный = Пользователи.ТекущийПользователь();
        Заказ.Организация = ВыборкаОрганизация.Организация;
        Заказ.ЖелаемаяДатаПоступления = ТекущаяДата();
        Заказ.Статус = Перечисления.СтатусыВнутреннихЗаказов.КВыполнению;
        Заказ.ЗакрытВручную = Ложь;
        Заказ.РеакторВСборке = Ложь;
        Заказ.РеакторСкладОтгрузкиТовара = Объект.СкладОтправитель;
        Заказ.РеакторСкладПолученияТовара = Объект.СкладПолучатель;
        Заказ.РеакторЭкстренныеПеремещения = Ложь;
        Заказ.РеакторОтправленНаПечать = Ложь;
        МагазинОтправитель  = Справочники.Магазины.НайтиПоРеквизиту("СкладПродажи", Объект.СкладОтправитель);
        Заказ.МагазинОтправитель = МагазинОтправитель;
        МагазинПолучатель = Справочники.Магазины.НайтиПоРеквизиту("СкладПродажи", Объект.СкладПолучатель);
        Заказ.МагазинПолучатель = МагазинПолучатель;
        
        Перемещение = Документы.ПеремещениеТоваров.СоздатьДокумент();
          
        Перемещение.Организация = ВыборкаОрганизация.Организация;
        ОрганизацияПолучатель = Справочники.Организации.НайтиПоКоду(Объект.СкладПолучатель.Организация.Ссылка.Код);
        Перемещение.ОрганизацияПолучатель = ОрганизацияПолучатель;
        Перемещение.СкладОтправитель = Объект.СкладОтправитель;
        Перемещение.СкладПолучатель = Объект.СкладПолучатель;
        Перемещение.Ответственный = Пользователи.ТекущийПользователь();
        Перемещение.РеакторОтправленНаПечать = Ложь;
        Перемещение.НеСоздаватьСкладскиеОрдераДляВнутреннихПеремещений = Ложь;
        Перемещение.МагазинОтправитель = МагазинОтправитель;
        Перемещение.МагазинПолучатель = МагазинПолучатель;
        
        ВыборкаДетальныеЗаписи = ВыборкаОрганизация.Выбрать();
        
        Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
            Заказ.Дата = ТекущаяДата();
            
            Если Объект.ЗаказыНаПеремещения Тогда
                ЗаказТЧ = Заказ.Товары.Добавить();
                ЗаказТЧ.Номенклатура = ВыборкаДетальныеЗаписи.Номенклатура;
                ЗаказТЧ.Количество = ВыборкаДетальныеЗаписи.Количество;
                ЗаказТЧ.КоличествоУпаковок = ВыборкаДетальныеЗаписи.Количество;
                ЗаказТЧ.РеакторОтменено = Ложь;
                Попытка 
                    Заказ.Записать(РежимЗаписиДокумента.Проведение);
                Исключение
                    Заказ.Записать(РежимЗаписиДокумента.Запись);
                КонецПопытки;
                            КонецЕсли;
            
                    
          Если Объект.Перемещения Тогда

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

Сообщить("Создан документ " + Перемещение);
Сообщить("Создан документ " + Заказ);

    КонецЦикла;