1С 8.3 : Как установить цену из РегистраСведений на дату создания документа

 



&НаКлиенте

Процедура ТоварНоменклатураПриИзменении(Элемент)

	СтрокаТабличнойЧасти = ЭтаФорма.ТекущийЭлемент.ТекущиеДанные;

	Номенклатура = СтрокаТабличнойЧасти.Номенклатура;

	ТипЦен = ЭтаФорма.ТипЦен;

	ТекДата = Объект.Дата;

	СтрокаТабличнойЧасти.Цена = ПолучитьЦену(Номенклатура, ТипЦен, ТекДата);

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





&НаСервере

Функция ПолучитьЦену(Номенклатура, ТипЦен, ТекДата) Экспорт

	Отбор = Новый Структура;

	Отбор.Вставить("Номенклатура",Номенклатура);

	Отбор.Вставить("ТипЦены",ТипЦен);	

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

	Возврат ЦенаТовара.Цена;

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