---

&НаКлиенте
Процедура УщербОценкаУщербаПриИзменении(Элемент)
	РассчитатьВыплату();
КонецПроцедуры

&НаКлиенте
Процедура УщербПроцентПокрытияПриИзменении(Элемент)
	РассчитатьВыплату();
КонецПроцедуры

&НаКлиенте
Процедура УщербФраншизаПриИзменении(Элемент)
	РассчитатьВыплату();
КонецПроцедуры

&НаКлиенте
Процедура РассчитатьВыплату()

	ТекущаяСтрока = Элементы.Ущерб.ТекущиеДанные;

	Если ТекущаяСтрока <> Неопределено Тогда
		
		ТекущаяСтрока.СуммаВыплаты =
			ТекущаяСтрока.ОценкаУщерба
			* ТекущаяСтрока.ПроцентПокрытия / 100
			- ТекущаяСтрока.Франшиза;
			
		Если ТекущаяСтрока.СуммаВыплаты < 0 Тогда
			ТекущаяСтрока.СуммаВыплаты = 0;
		КонецЕсли;
		
	КонецЕсли;

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