---

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

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

    СохранитьФайлНаСервере(ДополнительныеПараметры, Адрес);

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


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

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

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

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

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

    Сообщить("Файл успешно сохранен");

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