УТ11.4.13.103 УФ РегистрыСведений ЦеныНоменклатуры

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

				Сообщить ("Номенклатура   "+Запись.Номенклатура);
				Сообщить ("Период         "+Запись.Период);
				Сообщить ("ВидЦены        "+Запись.ВидЦены);
				Сообщить ("Цена           "+Запись.Цена);
				Сообщить ("Валюта         "+Запись.Валюта);
				
			КонецЦикла;
			НаборЗаписей.Записать();
        КонецЦикла;

	КонецЦикла;