МенеджерЗаписи = РегистрыСведений.ЦеныНоменклатуры.СоздатьМенеджерЗаписи();
МенеджерЗаписи.ВидЦен	=	стрВидЦены.Ссылка;
МенеджерЗаписи.Номенклатура	=	стрХар.Владелец;
МенеджерЗаписи.Характеристика	=	стрХар.Ссылка;
МенеджерЗаписи.Цена	=	ПолучитьЦенуНоменклатуры2(МенеджерЗаписи.Номенклатура,стрВидЦены);
МенеджерЗаписи.ЕдиницаИзмерения =	Справочники.КлассификаторЕдиницИзмерения.шт;
МенеджерЗаписи.Актуальность	= Истина;
МенеджерЗаписи.Период	=	ТекущаяДата();
МенеджерЗаписи.Записать();