Как в управляемых формах можно Сохранять и Выгружать файлы PDF

        ОснДир = "E:\Общие документы";
	Кат = ; //Придумываешь правила формирования адреса каталога   
	Прил = "%windir%\explorer.exe ";

//Создание каталога
СоздатьКаталог(ОснДир + "\" + Кат);

        // далее открываешь директорию 
        КомандаСистемы(Прил + ОснДир + "\" + Кат);

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

Все хорошо отрабатывает. Затем я сохраняю этот файл, в нужное место

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

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

    Если НЕ ПодключитьРасширениеРаботыСФайлами() Тогда
        УстановитьРасширениеРаботыСФайлами();
    КонецЕсли;

    Адрес = "";
    НачальноеИмяФайла = "";
    ОписаниеОповещения = Новый ОписаниеОповещения("ЗагрузитьЗавершение", ЭтаФорма);
    НачатьПомещениеФайла(ОписаниеОповещения, Адрес, НачальноеИмяФайла, Истина, УникальныйИдентификатор);
	
КонецПроцедуры

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

    Файл = Новый Файл(ВыбранныйФайл);
    Объект.Имяфайла = Файл.ИмяБезРасширения;
    Объект.РасшриениеФайла = Файл.Расширение;
    Объект.Наименование = Файл.ИмяБезРасширения;
    // для записи в реквизит с типом хранилище значения
    АдресЗагруженногоФайла = Адрес;
			
КонецПроцедуры
//У нас есть адрес файла на сервере но нет доступа к реквизиту с типом "ХранилищеЗначений" на ////клиенте.
//Для записи в этот реквизит перед записью на сервере получим файл из временного хранилище и //положим в реквизит.
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
	
    Если ЭтоАдресВременногоХранилища(АдресЗагруженногоФайла) Тогда
		
         ЗагруженныйФайл = ПолучитьИзВременногоХранилища(АдресЗагруженногоФайла);
         ЭлементХранилища = Новый ХранилищеЗначения(ЗагруженныйФайл);
         ТекущийОбъект.Файл = ЭлементХранилища;
		
    КонецЕсли;
	
КонецПроцедуры
//Загрузка файла в базу данных готова.
//Концепция выгрузки с сервера на клиента следующая:
//1. Файл достаем с реквизита и ложим во временное хранилище
//2. Передаем с сервера на клиент адрес
//3. Сохраняем файл на клиенте
//Для работы с файлами на клиенте нужно получить от пользователя разрешение на работу с его //////файловой системой.
//Если НЕ ПодключитьРасширениеРаботыСФайлами() Тогда
//    УстановитьРасширениеРаботыСФайлами();
//КонецЕсли;
//На сервере готовим метод который вытащит файл из реквизита и положит во временное хранилще
&НаСервере
Функция ПоместитьШаблонВоВременноеХранилище()
	
    Реквизит = РеквизитФормыВЗначение("Объект");
    ДвоичныйФайл = Реквизит.Файл.Получить();
    Адрес = ПоместитьВоВременноеХранилище(ДвоичныйФайл, УникальныйИдентификатор);
	
    возврат Адрес;
	
КонецФункции
//Используем типовой метод "НачатьПолучениеФайлов" для передачи файла с сервера на клиента.
//В него необходимо передать массив получаемых файлов.
//В этом массиве необходимо указать адреса нахождения файлов на сервере или адреса временных //хранилищ файлов.
//Во время работы файлы будут загружены по этим адресам и положены в массиве "ПолученныеФайлы" //во временные хранилища.
//На клиенте из этих хранилищ достаем файлы и сохраняем.
&НаКлиенте
Процедура Выгрузить(Команда)
	
    Если НЕ ПодключитьРасширениеРаботыСФайлами() Тогда
        УстановитьРасширениеРаботыСФайлами();
    КонецЕсли;
	
    ВременнойФайл = ПолучитьИмяВременногоФайла();
    Адрес = ПоместитьШаблонВоВременноеХранилище();

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

&НаКлиенте
Процедура ВыгрузитьЗавершение(ПолученныеФайлы, ДополнительныеПараметры) Экспорт
	
    Если ПолученныеФайлы = Неопределено Тогда
        Возврат;
    КонецЕсли;

    Для Каждого Файл из ПолученныеФайлы Цикл
	    СохраняемыйФайл = ПолучитьИзВременногоХранилища(Файл.Хранение);
        СохраняемыйФайл.Записать(Файл.Имя);
        ОбщегоНазначенияКлиент.ВывестиСообщение("Сохранен файл " + Файл.Имя);
    КонецЦикла;
			
КонецПроцедуры