Добрый день!

Не могу понять в чем проблема

Есть форма с реквизитом формы "Фото" тип "Картинка"

При открытии загружаю в "фото" картинку с диска, но поле фото остается пустым

Использую сл. код:

&НаКлиенте
Процедура ПриОткрытии(Отказ)
    ОтобразитьФото();
КонецПроцедуры

Процедура ОтобразитьФото()
    ФотоЗапчасти = Доп_Функции.НайтиФотоЗапчасти(Параметры.ИмяФайла,Параметры.ВладелецФайла);
    Если ФотоЗапчасти <> Неопределено Тогда
        Фото = Новый Картинка(ФотоЗапчасти.Том.ПолныйПутьWindows + ФотоЗапчасти.ПутьКФайлу);    
    КонецЕсли;    
КонецПроцедуры

Процедура ОтобразитьФото()

Она серверная и фото ищется на сервере.

(1) Т.е. вы хотите сказать что дело в том что на клиенте реквизит "Фото" не обновлен после загрузки?

(1) Переделал процедуру в функцию и вернул "Фото" на "Клиент"

&НаКлиенте
Процедура ПриОткрытии(Отказ)
    Фото = ОтобразитьФото();
КонецПроцедуры

Функция ОтобразитьФото()
    ФотоЗапчасти = Доп_Функции.НайтиФотоЗапчасти(Параметры.ИмяФайла,Параметры.ВладелецФайла);
    Если ФотоЗапчасти <> Неопределено Тогда
        ФотоТек = Новый Картинка(ФотоЗапчасти.Том.ПолныйПутьWindows + ФотоЗапчасти.ПутьКФайлу);
        Возврат ФотоТек;
    КонецЕсли;    
КонецФункции;

Но не помогло все тоже самое

Есть вот такой код и тут все нормально работает

&НаКлиенте
Процедура ПриОткрытии(Отказ)    
    //Подгружаем информацияю о прикрепленных фото
    ЗагрузитьДанныеОВложениях();
КонецПроцедуры

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

Вверх