Изменение цены номенклатуры в 1С УТ 11

Опубликовано автором

К примеру переменная СписокЦен содержит массив номенклатуры и цены на нее:

СписокЦен = [
{
Номенклатура: <Ссылка>,
Цена: <Цена номенклатуры>
}
];

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