Code: LIOKO. Chapter 1

[Абдулай Мухамедов]

 

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


Процедура ВыборФайла(Результат, Адрес, ПомещаемыйФайл, Параметры) Экспорт
Если не Результат тогда
Возврат;
КонецЕсли;

СсылкаНаКартинку = Адрес;
Модифицированность = Истина;
КонецПроцедуры

&НаКлиенте
Процедура СсылкаНаКартинкуНажатие(Элемент, СтандартнаяОбработка)
Оповещение = Новый ОписаниеОповещения("ВыборФайла", ЭтотОбъект);
НачатьПомещениеФайла(Оповещение,,,Истина,УникальныйИдентификатор);
СтандартнаяОбработка = Ложь;
КонецПроцедуры

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

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

&НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
ТекущийОбъект.Наименование = "Файл №" + Объект.Код;
ТекущийОбъект.Записать();
КонецПроцедуры
                 


[Абдулай Мухамедов]

Этот код наглядно показывает, как можно с легкостью сохранять файлы в системе 1С: Предприятие. Не стоит благодарности.