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