Запись движений документа для получения остатков с учетом движения

Источник.Движения.Записать();

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