0
DeMi4
31.10.11
✎
16:10
|
Методичка 1С Основные объекты
Хранилище значений
&НаСервере
Процедура ПоместитьФайлОбъекта(Адрес)
Спр=РеквизитФормыВЗначение("Объект");
ДвоичныеДанные=ПолучитьИзВременногоХранилища(Адрес);
Спр.Фотография=Новый ХранилищеЗначения(ДвоичныеДанные);
Спр.Записать();
УдалитьИзВременногоХранилища(Адрес);
АдресКартинки=Адрес;
ЗначениеВРеквизитФормы(Спр,"Объект");
КонецПроцедуры
&НаКлиенте
Процедура Загрузить(Команда)
Перем Имя,Адрес;
Если ПоместитьФайл(Адрес,"",Имя,Истина,ЭтаФорма.УникальныйИдентификатор) Тогда
Объект.ИмяФайла=Имя;
ПоместитьФайлОбъекта(Адрес);
КонецЕсли
КонецПроцедуры
&НаСервере
Процедура ПриСозданииНаСервере(Отказ,СтандартнаяОбработка)
АдресКартинки=ПолучитьНавигационнуюСсылку(Объект.Ссылка,"Фотография");
КонецПроцедуры
&НаКлиенте
Процедура Выгрузить(Команда)
АдресКартинки=ПолучитьНавигационнуюСсылку(Объект.Ссылка,"Фотография");
ПолучитьФайл(АдресКартинки,Объект.ИмяФайла,Истина);
КонецПроцедуры
В команде загрузить ругается на Объект.ИмяФайла
Подскажите может кто прорешивал эту методичку, что я делаю не так?
|
|