---

&НаКлиенте
Процедура ПереченьНоменклатурыНоменклатураПриИзменении(Элемент)
	
	СтрокаТЧ = Элементы.ПереченьНоменклатуры.ТекущиеДанные;
	СтрокаТЧ.Цена = ПолучитьЦенуНаСервере(Объект.Дата, СтрокаТЧ.Номенклатура);
	РаботаСДокументами.РассчитатьСумму(СтрокаТЧ);

КонецПроцедуры

&НаСервереБезКонтекста
Функция ПолучитьЦенуНаСервере(Дата, Номенклатура)

	Отбор = Новый Структура("Номенклатура", Номенклатура);
	ЗначенияРесурсов = РегистрыСведений.Цены.ПолучитьПоследнее(Дата, Отбор);

	Возврат ЗначенияРесурсов.Цена;

КонецФункции