Имя: Пароль:
1C
1С v8
Получить файл из ТЧ документа
0 адинэсниг1
 
16.09.13
10:51
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)

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

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

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

Для каждого ТекСтрока Из Объект.Вложения Цикл
        Если ЭтоАдресВременногоХранилища(ТекСтрока.АдресВременногоХранилища) Тогда  
            УдалитьИзВременногоХранилища(ТекСтрока.АдресВременногоХранилища);
   ТекСтрока.АдресВременногоХранилища = "";
        КонецЕсли;
КонецЦикла;

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

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

АдресВХранилище   = "";
ВыбранноеИмяФайла = "";
Если ПоместитьФайл(АдресВХранилище, , ВыбранноеИмяФайла, , УникальныйИдентификатор) Тогда
  Файл                               = Новый Файл(ВыбранноеИмяФайла);
  ТекСтрока                          = Объект.Вложения.Добавить();
  ТекСтрока.Версия                   = "1.0." + Строка(ТекСтрока.ПолучитьИдентификатор() + 1);
  ТекСтрока.ДатаФайла                = ТекущаяДата();
  ТекСтрока.ИмяФайла                 = Файл.Имя;
  ТекСтрока.АдресВременногоХранилища = АдресВХранилище;

  Модифицированность = Истина;
КонецЕсли;

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

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


    НомерСтроки = Элементы.Вложения.ТекущаяСтрока;

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

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




Вот так добавляю и пытаюсь получить файл. При получении вываливается  ошибка:
Ошибка при выполнении файловой операции  'e1c://server/s1cds:1741/Intelkom2/e1cib/data/Документ.АрхивДПР.Вложения.ДанныеФайла?ref=b7850013724124d511e31e97f0f332f5&index=1'

Подскажите, где не правильно?