Найти цену на каждую дату продажи

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

			КонецЦикла;
		КонецЦикла;
	КонецЦикла;

Запрос.Текст = 
		"ВЫБРАТЬ
		|	Данные.Период КАК Период,
		|	Данные.Количество КАК Количество
		|ПОМЕСТИТЬ ДатыКоличество
		|ИЗ
		|	РегистрСведений.Данные КАК Данные
		|;
		|
		|////////////////////////////////////////////////////////////­////////////////////
		|ВЫБРАТЬ
		|	ДатыКоличество.Период КАК Период,
		|	ДатыКоличество.Количество КАК Количество,
		|	Цены.Цена КАК Цена,
		|	МАКСИМУМ(Цены.Период) КАК Период1
		|ПОМЕСТИТЬ МаксПериод
		|ИЗ
		|	ДатыКоличество КАК ДатыКоличество
		|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Цены КАК Цены
		|		ПО ДатыКоличество.Период >= Цены.Период
		|
		|СГРУППИРОВАТЬ ПО
		|	ДатыКоличество.Период,
		|	ДатыКоличество.Количество,
		|	Цены.Цена
		|;
		|
		|////////////////////////////////////////////////////////////­////////////////////
		|ВЫБРАТЬ
		|	МаксПериод.Период КАК Период,
		|	МаксПериод.Количество КАК Количество,
		|	МаксПериод.Цена КАК Цена
		|ИЗ
		|	МаксПериод КАК МаксПериод
		|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Цены КАК Цены
		|		ПО МаксПериод.Период1 = Цены.Период";

ВЫБРАТЬ
	Сводная.Номенклатура КАК Номенклатура,
	МАКСИМУМ(ЦеныНоменклатуры.Период) КАК Период,
	Сводная.День КАК День
ПОМЕСТИТЬ ВТ_ПериодыДляЦен
ИЗ
	Сводная КАК Сводная
		ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры КАК ЦеныНоменклатуры
		ПО Сводная.Номенклатура = ЦеныНоменклатуры.Номенклатура
			И Сводная.День >= ЦеныНоменклатуры.Период
			И (ЦеныНоменклатуры.ТипЦен = &ТипЦен)

СГРУППИРОВАТЬ ПО
	Сводная.Номенклатура,
	Сводная.День
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	ЦеныНоменклатуры.Номенклатура КАК Номенклатура,
	ЦеныНоменклатуры.Цена КАК Цена,
	ВТ_ПериодыДляЦен.Период КАК Период,
	ВТ_ПериодыДляЦен.День КАК День
ПОМЕСТИТЬ ВТ_ЦеныНоменулатуры
ИЗ
	РегистрСведений.ЦеныНоменклатуры КАК ЦеныНоменклатуры
		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВТ_ПериодыДляЦен КАК ВТ_ПериодыДляЦен
		ПО ЦеныНоменклатуры.Период = ВТ_ПериодыДляЦен.Период
			И ЦеныНоменклатуры.Номенклатура = ВТ_ПериодыДляЦен.Номенклатура
			И (ЦеныНоменклатуры.ТипЦен = &ТипЦен)