---

&НаКлиенте
Процедура ПослеПомещенияФайла(ОписаниеПомещенногоФайла, ДополнительныеПараметры, Адрес, ИмяФайла) Экспорт

    Если ОписаниеПомещенногоФайла = Неопределено Тогда
        Возврат;
    КонецЕсли;

    СохранитьФайлНаСервере(Адрес, ИмяФайла);

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

&НаСервере
Процедура СохранитьФайлНаСервере(Адрес, ИмяФайла)

    Файл = Справочники.ФайлыВложений.СоздатьЭлемент();

    Файл.Наименование = ИмяФайла;
    Файл.Владелец = Объект.Ссылка;
    Файл.ИмяФайла = ИмяФайла;
    Файл.ДатаДобавления = ТекущаяДата();
    Файл.НомерВерсии = 1;
    Файл.Актуальная = Истина;

    Файл.Содержимое = ПолучитьИзВременногоХранилища(Адрес);

    Файл.Записать();

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