Проделал все по книге не один раз. Но всеравно не сохраняется картинка (Выбираю - отображается - сохраняю - исчезает из формы. Вот код:
&НаКлиенте
Процедура ЗагрузитьСДиска(Команда)
АдресВХранилище = "";
ВыбранноеИмяФайла = "";
Если ПоместитьФайл(АдресВХранилище, , ВыбранноеИмяФайла, , УникальныйИдентификатор) Тогда
Файл = Новый Файл(ВыбранноеИмяФайла);
ИмяФайлаКартинки = Файл.Имя;
СсылкаНаКартинку = АдресВХранилище;
Модифицированность = Истина;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СохранитьНаДиск(Команда)
Если Объект.ИмяФайлаКартинки = "" Тогда
Предупреждение("У товара нет сохраненной в базе картинки");
Иначе
СсылкаНаФайлВИБ = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ФайлКартинки");
ПолучитьФайл(СсылкаНаФайлВИБ, Объект.ИмяФайлаКартинки);
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
// Получить файл из хранилища и поместить его в объект
Если ЭтоАдресВременногоХранилища(СсылкаНаКартинку) Тогда
ДвоичныеДанные = ПолучитьИзВременногоХранилища(СсылкаНаКартинку);
ТекущийОбъект.ФайлКартинки = Новый ХранилищеЗначения(ДвоичныеДанные, Новый СжатиеДанных(9));
ТекущийОбъект.ИмяФайлаКартинки = ИмяФайлаКартинки;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Объект.ИмяФайлаКартинки <> "" Тогда
СсылкаНаКартинку = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ФайлКартинки");
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПриЗаписиНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
// Удалить файл из временного хранилища
Если ЭтоАдресВременногоХранилища(СсылкаНаКартинку) Тогда
УдалитьИзВременногоХранилища(СсылкаНаКартинку);
СсылкаНаКартинку = ПолучитьНавигационнуюСсылку(ТекущийОбъект.Ссылка, "ФайлКартинки");
КонецЕсли;
КонецПроцедуры
Ошибок никаких не выдает. Отладчиком прошел, вроде бы все нужные данные есть. В чем проблема? Подскажите пожалуйста....
Вот, добрался до ошибки при нажатии на кнопку Сохранить на диск = выдает:
{Справочник.Номенклатура.Форма.ФормаЭлемента.Форма(28)}: Ошибка при вызове метода контекста (ПолучитьФайл)
ПолучитьФайл(СсылкаНаФайлВИБ, Объект.ИмяФайлаКартинки);
по причине:
Файл не обнаружен 'e1c://filev/G/1с видео литра инфа/Базы/УПП/e1cib/data/Справочник.Номенклатура.ФайлКартинки?ref="99a00022b0e5b4d011e14da816930e6a"'
по причине:
Неправильный путь к файлу '/e1cib/data/Справочник.Номенклатура.ФайлКартинки?ref="99a00022b0e5b4d011e14da816930e6a"'
Вопрос решен......в книге в явном виде не написано что у реквизита "ФайлКартинки" тип - Хранилище значения.