Нужна помощь с приходной

[Dmitry Qwe]

Есть справочник контрагенты, где у каждого элемента(контрагента) есть реквизиты с валютой(RUB, USD, etc) хочу в приходной при выборе контрагента чтобы реквизит валюта(в приходной) принимал значение которое есть у контрагента.
Например
Контрагент Иванов, валюта USD
В приходной при выборе Иванова, поле с валютой должно быть USD
Пытаюсь сделать так, но ничего не происходит, даже ошибок нет:

Код Выделить Развернуть

&НаСервере 
Функция ВалютаКонтрагента()
Валюта = Объект.Контрагент.ВалютаВзаиморасчета;
Возврат Валюта;
КонецФункции;

&НаКлиенте
Процедура КонтрагентПриИзменении(Элемент)
ВалютаКонтрагента();
КонецПроцедуры


[alex0402]

&НаКлиенте Процедура КонтрагентПриИзменении(Элемент) ВалютаКонтрагента(); КонецПроцедуры

Код Выделить Развернуть

&НаКлиенте
Процедура КонтрагентПриИзменении(Элемент)
    Объект.Валюта = ВалютаКонтрагента();
КонецПроцедуры