v8: Проблема с сохранением картинки (начинающий программист)

 

&НаКлиенте

Процедура ЗагрузитьСДиска(Команда)

	

	АдресВХранилище = "";

	ВыбранноеИмяфайла = "";



	Если ПоместитьФайл(АдресВХранилище, , ВыбранноеИмяФайла, , УникальныйИдентификатор) Тогда

		Файл = Новый Файл(ВыбранноеИмяФайла);

		ИмяФайлаКартинки = Файл.Имя;

		СсылкаНаКартинку = АдресВХранилище;

		

		Модифицировать = Истина;

	КонецЕсли;



КонецПроцедуры



&НаСервере

Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)

	

	

	Если ЭтоАдресВременногоХранилища (СсылкаНаКартинку) Тогда

		ДвоичныеДанные = ПолучитьИзВременногоХранилища (СсылкаНаКартинку);

		ТекущийОбъект.ФайлКартинки = Новый ХранилищеЗначения (ДвоичныеДанные, Новый СжатиеДанных(9));

		ТекущийОбъект.ИмяФайлаКартинки = ИмяФайлаКартинки;

	КонецЕсли;



КонецПроцедуры



&НаСервере

Процедура ПриЗаписиНаСервере (Отказ, ТекущийОбъект, ПараметрыЗаписи)

	

	

	Если ЭтоАдресВременногоХранилища(СсылкаНаКартинку) Тогда

		УдалитьИзВременногоХранилища (СсылкаНаКартинку);

		СсылкаНаКартинку = ПолучитьНавигационнуюСсылку (ТекущийОбъект.Ссылка, "ФайлКартинки");

	КонецЕсли;

	

КонецПроцедуры



&НаСервере

Процедура ПриСозданииНаСервере (Отказ, СтандартнаяОбработка)

	

	Если Объект.ИмяФайлаКартинки <> "" Тогда

		СсылкаНаКартинку = ПолучитьНавигационнуюСсылку (Объект.Ссылка, "ФайлКартинки");

	КонецЕсли;

	

	

КонецПроцедуры



&НаКлиенте

Процедура СохранитьНаДиск(Команда)

	

	Если Объект.ИмяФайлаКартинки = "" Тогда

		Предупреждение ("У поставщика нет сохраненной в базе картинки");

	Иначе

		СсылкаНаФайлВИБ = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ФайлКартинки");

		ПолучитьФайл (СсылкаНаФайлВИБ, Объект.ИмяФайлаКартинки);

	КонецЕсли;



КонецПроцедуры