---

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

	Если ЗначениеЗаполнено(Объект.Парик) Тогда
		Объект.Цена = ПолучитьЦенуПарика(Объект.Парик);
	Иначе
		Объект.Цена = 0;
	КонецЕсли;

	ПересчитатьСумму();

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


&НаКлиенте
Процедура КоличествоПриИзменении(Элемент)

	ПересчитатьСумму();

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


&НаКлиенте
Процедура ПересчитатьСумму()

	Объект.Сумма = Объект.Количество * Объект.Цена;

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


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

	Если Не ЗначениеЗаполнено(Парик) Тогда
		Возврат 0;
	КонецЕсли;

	Возврат Парик.ЦенаПродажи;

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