НачатьПолучениеФайлаССервера выдает Ошибка при выполнении файловой операции Ошибка при выполнении файловой операции 'e1cibdataДокумент.АсинхронноеСохранениеФайлов.Адресref=99dc005056a7852111ef65bd0e8ff69d'. Значение данного типа невозможно преобразовать

Форум Программирование Общие вопросы программирования (Dev)

1. user1979322 29.08.24 07:52 Сейчас в теме

Всем привет, как решить эту задачу. Нужно в форме сохранять и открывать файл. Сохранение идет удачно, а вот при открытии появляется ошибка

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

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

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

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

Показать

Прикрепленные файлы:

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. user1880116 29.08.24 07:58 Сейчас в теме

(1)

Всем привет, как решить эту задачу

Привет! Надо сходить на курсы!

5. Sashares 35 29.08.24 09:58 Сейчас в теме

(1)

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

6. user1979322 29.08.24 10:08 Сейчас в теме

(5) И что тут нужно изменить, в моем куске кода?

7. user1880116 29.08.24 10:29 Сейчас в теме

(6)

И что тут нужно изменить, в моем куске кода?

Прикрепленные файлы:

8. Sashares 35 29.08.24 10:45 Сейчас в теме

(6) Сравнить свою процедуру и эту не предлагать?

9. user1979322 29.08.24 10:53 Сейчас в теме

(8) Давай сравню процедуры, хоть 1-н дельный совет, а то читать засеральшиков надоело. Спасибо, хоть один адекватный

10. user1880116 29.08.24 11:14 Сейчас в теме

(9)

Давай сравню процедуры

Ливингстар.... это... ты???

11. spacecraft 29.08.24 13:50 Сейчас в теме

(1)

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

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

Показать

3. user1979322 29.08.24 09:52 Сейчас в теме

Может кто ни будь, толковый совет даст

4. user1880116 29.08.24 09:54 Сейчас в теме

(3)

толковый совет даст

Конечно!

Преподаватель. На курсах.

Оставьте свое сообщение

E-mail: