Создание формы заимствованного документа

&НаСервере
Функция ПолучитьКурсВалюты(Валюта)           
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   КурсыВалютСрезПоследних.Валюта КАК Валюта,
        |   КурсыВалютСрезПоследних.Курс КАК Курс
        |ИЗ
        |   РегистрСведений.КурсыВалют.СрезПоследних(
        |           &Период,
        |           Валюта.Наименование <> ""Рубли""
        |               И Валюта = &Валюта) КАК КурсыВалютСрезПоследних";
    
    Запрос.УстановитьПараметр("Валюта", Валюта);
    Запрос.УстановитьПараметр("Период", Объект.Дата);
        
    Результат = Запрос.Выполнить().Выбрать();
    Если Результат.Следующий() Тогда
        Возврат Результат.Курс;
    Иначе
        Возврат 0;
    КонецЕсли; 
КонецФункции                               
 
&НаСервере
Процедура ПересчитатьСуммуВРублях() 
    Для каждого ТекущаяСтрока Из Объект.ФП_Расчеты Цикл
        Курс = ПолучитьКурсВалюты(ТекущаяСтрока.Валюта);
        Если Курс > 0 Тогда
            ТекущаяСтрока.СуммаВРублях = ТекущаяСтрока.СуммаВВалюте * Курс;
        КонецЕсли;
    КонецЦикла;   
КонецПроцедуры 
 
&НаКлиенте
Процедура ФП_РасчетыВалютаПриИзменении(Элемент)  
    ПересчитатьСуммуВРублях();               
КонецПроцедуры
 
&НаКлиенте
Процедура ФП_РасчетыСуммаВВалютеПриИзменении(Элемент)  
    ПересчитатьСуммуВРублях();       
КонецПроцедуры

&Вместо("ОбработкаПроведения")
Процедура ФП_ОбработкаПроведения(Отказ, Режим)  
    Движения.Взаиморасчеты.Записывать = Истина; 
    Для Каждого СтрокаТЧ Из ФП_Расчеты Цикл
        Движение = Движения.Взаиморасчеты.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
        Движение.Период = Дата;
        Движение.Контрагент = Покупатель;
        Движение.Валюта = СтрокаТЧ.Валюта;
        Движение.Сумма = СтрокаТЧ.СуммаВРублях; 
    КонецЦикла;
КонецПроцедуры