Загрузка данных

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

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

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

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

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

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

	Возврат Номенклатура.ВидНоменклатуры;

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