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