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