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