Программное заполнение установки цен в УНФ

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


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

Док_УЦ.Автор = Пользователи.ТекущийПользователь();
Док_УЦ.Записать(РежимЗаписиДокумента.Запись);