Передача параметров

Поможете исправить ошибки?
&НаКлиенте
Процедура ОказанныеУслугиУслугаПриИзменении(Элемент)
ТекДанные = Элементы.ОказанныеУслуги.ТекущиеДанные;
ПолучитьЦену(ТекДанные);
ТекДанные.Цена = Цена;
КонецПроцедуры

&НаСервере
Процедура ПолучитьЦену(ТекДанные)

Выборка = ПланыВидовРасчета.ВидыУслуг.Выбрать();
Пока Выборка.Следующий() цикл
Если Выборка.Наименование = ТекДанные.Услуга Тогда
Цена = Выборка.Цена;
КонецЕсли;
КонецЦикла;

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