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