Сохранение файла в базу

[Aleks26]

Подскажите пожалуйста, написал код из учебника по сохранению файла в базу 1с, а он не работает в части этого самого сохранения.
Вот код:

Код Выделить Развернуть

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

АдресВХранилище = "";
ВыбранноеИмяФайла = "";

Если ПоместитьФайл(АдресВХранилище, , ВыбранноеИмяФайла, , УникальныйИдентификатор) Тогда
Файл = Новый Файл(ВыбранноеИмяФайла);
ИмяФайла = Файл.Имя;
СсылкаНаФайлВоВременномХранилище = АдресВХранилище;
Модифицированность = Истина;
КонецЕсли;

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

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

Если ЭтоАдресВременногоХранилища(СсылкаНаФайлВоВременномХранилище) Тогда
ДвоичныеДанные = ПолучитьИзВременногоХранилища(СсылкаНаФайлВоВременномХранилище);
ТекущийОбъект.ХранилищеФайлов = Новый ХранилищеЗначения(ДвоичныеДанные, Новый СжатиеДанных(9));
ТекущийОбъект.ИмяФайла = ИмяФайла;
КонецЕсли;

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

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

Если ЭтоАдресВременногоХранилища(СсылкаНаФайлВоВременномХранилище) Тогда
УдалитьИзВременногоХранилища(СсылкаНаФайлВоВременномХранилище);
КонецЕсли;

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

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

Если Объект.ИмяФайла = "" Тогда
Предупреждение("В базе нет сохраненного файла!");
Иначе
СсылкаНаФайлВБазе = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ХранилищеФайлов");
ПолучитьФайл(СсылкаНаФайлВБазе, Объект.ИмяФайла);
КонецЕсли;

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

Посмотрите, может что то неправильно. По сути при нажатии кнопки Записать не выполняется процедура ПередЗаписьюНаСервере. Я не могу понять почему.

[vitasw]

В параметрах формы процедура прописана?

[Aleks26]

В параметрах формы процедура прописана?

Да, это процедура из событий формы.

Добавлено: 04 окт 2017, 13:27

Обнаружил сам . У реквизита формы поставил ограниченную длину и ссылка прост не помещалась вся.