Для каждого ТекСтрока Из ТекущийОбъект.Вложения Цикл
Если ЭтоАдресВременногоХранилища(ТекСтрока.АдресВременногоХранилища) Тогда
Данные = ПолучитьИзВременногоХранилища(ТекСтрока.АдресВременногоХранилища);
ХЗ = Новый ХранилищеЗначения(Данные);
ТекСтрока.ДанныеФайла = ХЗ;
КонецЕсли;
КонецЦикла;
Для каждого ТекСтрока Из Объект.Вложения Цикл
Если ЭтоАдресВременногоХранилища(ТекСтрока.АдресВременногоХранилища) Тогда
УдалитьИзВременногоХранилища(ТекСтрока.АдресВременногоХранилища);
ТекСтрока.АдресВременногоХранилища = "";
КонецЕсли;
КонецЦикла;
Если Объект.Вложения[НомерСтроки].ИмяФайла = "" Тогда
Предупреждение("Нет сохраненного в базе файла");
Иначе
СсылкаНаФайлВИБ = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "Вложения.ДанныеФайла",НомерСтроки);
ПолучитьФайл(СсылкаНаФайлВИБ, Объект.Вложения[НомерСтроки].ИмяФайла);
КонецЕсли;
КонецПроцедуры
Вот так добавляю и пытаюсь получить файл. При получении вываливается ошибка:
Ошибка при выполнении файловой операции 'e1c://server/s1cds:1741/Intelkom2/e1cib/data/Документ.АрхивДПР.Вложения.ДанныеФайла?ref=b7850013724124d511e31e97f0f332f5&index=1'
Подскажите, где не правильно?
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший