Пересчет цены или количества при изменении суммы

Доброго времени суток!

Необходимо реализовать пересчет цены или количества при изменении суммы (сам вариант пересчета - количества или цены, нужно определить с помощью константы).

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

&НаКлиенте
Процедура ВариантПересчетаСуммыПриИзменении(Элемент)
     ТекСтрока = Элементы.СписокНоменклатуры.ТекущиеДанные;
     ВариантПересчетаСуммыПриИзмененииНаСервере(ТекСтрока.Количество, ТекСтрока.Цена, ТекСтрока.Сумма);
     РасчетСуммыДокумента();
КонецПроцедуры

&НаСервере
Процедура ВариантПересчетаСуммыПриИзмененииНаСервере(Количество, Цена, Сумма)
   Пересчет = Константы.ВариантПересчетаСуммы.Получить();
   Если Пересчет = Перечисления.ВариантыПересчетаСуммы.Цена Тогда
      Цена = Сумма/Количество;
   Иначе
      Количество = Сумма/Цена;
   КонецЕсли;
КонецПроцедуры

Но данная процедура пересчитывает только цену, даже если указан вариант пересчета количество. Где ошибка?

Спасибо.