Заполнение Заявки на расходование средств из документа поступление

	ЕстьКолонкаЗаказ = ЕстьЗаказВТабличнойЧасти(ДокументВидОперации, ДокументОбъект.ДоговорКонтрагента, ВидОперации);
	
	// Если есть заказ в ТЧ, тогда заполнять не нужно.
	Если ЕстьКолонкаЗаказ Тогда
		Возврат;
	КонецЕсли;	
	
	ИмяРеквЗаказ = "ЗаказПокупателя";
	Если ВидОперации = "Реализация" ИЛИ ВидОперации = "ВозвратОтПокупателя" Тогда
		ИмяРеквЗаказ = "Сделка";
	КонецЕсли;
		
	БратьЗаказИзШапки = ТипЗнч(ДокументОбъект[ИмяРеквЗаказ]) = Тип("ДокументСсылка.ЗаказПокупателя");
	ЗаказИзШапки     = ?(БратьЗаказИзШапки, ДокументОбъект[ИмяРеквЗаказ], Документы.ЗаказПокупателя.ПустаяСсылка());
	
	Для каждого СтрокаТЧ Из ДокументОбъект.Товары Цикл
		СтрокаТЧ.ЗаказПокупателя = ЗаказИзШапки;
	КонецЦикла;
	Если НЕ (ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.КорректировкаРеализации")
		ИЛИ ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.КорректировкаПоступления"))
	Тогда
		Для каждого СтрокаТЧ Из ДокументОбъект.ВозвратнаяТара Цикл
			СтрокаТЧ.ЗаказПокупателя = ЗаказИзШапки;
		КонецЦикла;
	КонецЕсли;
	Если ВидОперации <> "ВозвратОтПокупателя" Тогда
		Для каждого СтрокаТЧ Из ДокументОбъект.Услуги Цикл
			СтрокаТЧ.ЗаказПокупателя = ЗаказИзШапки;
		КонецЦикла;
	КонецЕсли;

	ЕстьКолонкаЗаказ = ЕстьЗаказВТабличнойЧасти(ДокументВидОперации, ДокументОбъект.ДоговорКонтрагента, ВидОперации);
	
	// Если есть заказ в ТЧ, тогда заполнять не нужно.
	Если ЕстьКолонкаЗаказ Тогда
		Возврат;
	КонецЕсли;	
	
	БратьЗаказИзШапки = ТипЗнч(ДокументОбъект.Сделка) = Тип("ДокументСсылка.ЗаказПоставщику");
	ЗаказИзШапки     = ?(БратьЗаказИзШапки, ДокументОбъект.Сделка, Документы.ЗаказПоставщику.ПустаяСсылка());
	
	Для каждого СтрокаТЧ Из ДокументОбъект.Товары Цикл
		СтрокаТЧ.ЗаказПоставщику = ЗаказИзШапки;
	КонецЦикла;
	Если ТипЗнч(ДокументОбъект) <> Тип("ДокументОбъект.КорректировкаПоступления") Тогда
		Для каждого СтрокаТЧ Из ДокументОбъект.ВозвратнаяТара Цикл
			СтрокаТЧ.ЗаказПоставщику = ЗаказИзШапки;
		КонецЦикла;
	КонецЕсли;
	Для каждого СтрокаТЧ Из ДокументОбъект.Услуги Цикл
		СтрокаТЧ.ЗаказПоставщику = ЗаказИзШапки;
	КонецЦикла;

	
	Если СтатусПартии = Неопределено Тогда
		СтатусПартии = Перечисления.СтатусыПартийТоваров.Купленный;
	КонецЕсли;

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

	Запрос = Новый Запрос;
	Запрос.Текст = ТекстЗапроса;

	Запрос.УстановитьПараметр( "КонДата", КонДата);
	Запрос.УстановитьПараметр( "Заказ",   Заказ);
	Запрос.УстановитьПараметр( "Договор", Договор);
	Запрос.УстановитьПараметр( "Статус",  СтатусПартии);

	Возврат Запрос.Выполнить().Выгрузить();