1С Разработка. Создание формы расчета валюты.

Судя по предоставленным изображениям, проблема заключается в проверке заполненности полей перед расчетом. В коде, который отвечает за расчет, возможно, не корректно обрабатывается значение поля "Курс".

В вашем коде функция КнопкаРассчитать проверяет заполненность полей следующим образом:

 Если Не ЗначениеЗаполнено(ВалютаИз) Или Не ЗначениеЗаполнено(СуммаИз) Или Не ЗначениеЗаполнено(Курс) Тогда 
    Сообщить("Заполните все поля."); 
    Возврат; 
КонецЕсли; 
 

Убедитесь, что после того как вы выбираете значение "Валюта из" и курс подставляется автоматически, значение в поле "Курс" действительно установлено. Возможно, проблема в том, что значение курса не обновляется в момент выполнения проверки.

Попробуйте внести следующие изменения:

Убедитесь, что после выбора валюты и автоматического подстановки курса выполняется вызов процедуры для пересчета значений. Например, добавьте обработчик события изменения значения поля "ВалютаИз".

Проверьте, что значение курса устанавливается до выполнения проверки. Вы можете вывести значение курса в окно сообщений перед проверкой для отладки:

 Сообщить("Курс: " + Курс); 
Если Не ЗначениеЗаполнено(ВалютаИз) Или Не ЗначениеЗаполнено(СуммаИз) Или Не ЗначениеЗаполнено(Курс) Тогда 
    Сообщить("Заполните все поля."); 
    Возврат; 
КонецЕсли; 
 

Убедитесь, что процедура ЗаполнитьКурс вызывается корректно и обновляет значение поля "Курс".

 Процедура ВалютаИзИзменилась(Элемент) 
    // Ваш код для получения курса 
    Курс = ПолучитьКурс(Элемент.Значение);  
    Если Курс <> 0 Тогда 
        Объект.Курс = Курс; 
    Иначе 
        Объект.Курс = 0; 
    КонецЕсли; 
КонецПроцедуры 
 

 Функция ПолучитьКурс(Валюта) 
    // Ваш код для получения курса из справочника или другой таблицы 
    Запрос = Новый Запрос; 
    Запрос.Текст = " 
        ВЫБРАТЬ 
            Курс 
        ИЗ 
            Справочник.КурсыВалют 
        ГДЕ 
            Валюта = &Валюта"; 
    Запрос.УстановитьПараметр("Валюта", Валюта); 
    Результат = Запрос.Выполнить().Выбрать(); 
     
    Если Результат.НайтиСледующий() Тогда 
        Возврат Результат.Курс; 
    Иначе 
        Возврат 0; 
    КонецЕсли; 
КонецФункции