Поместить файл во временное хранилище

[magnifico61]

Код Выделить Развернуть

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

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

Процедура ЗаполнитьИмяФайла(Имя)
Объект.Файл = Имя;
КонецПроцедуры

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

АдресЭксель = ПолучитьИзВременногоХранилища(Объект.СсылкаНаХранилище);
ФайлЭксель = Новый Файл(АдресЭксель);
Если ФайлЭксель.Существует() Тогда
Об_Конект = ADO_ПолучитьПодключениеКФайлуExcel(Объект.Файл);
ВысотаЗаголовка = 0;
СтрЗапроса = "
|SELECT *
|FROM [A" + ВысотаЗаголовка + ":AZ100000]
|";

Об_РекордСет = Новый COMОбъект("ADODB.Recordset");
Попытка
Об_РекордСет=Об_Конект.Execute(СтрЗапроса);
Исключение
Сообщить("Не удалось выполнить запрос к файлу Excel");
Возврат;
КонецПопытки;
ЗагрузитьВТЧТовары(Об_РекордСет);
Об_Конект=Неопределено;
Об_РекордСет=Неопределено;
Иначе
Сообщить("Файл "+ Объект.Файл +" не найден!");
КонецЕсли;
Иначе
Сообщить("Не заполнены поля колонки артикул и количество!");
КонецЕсли;
КонецПроцедуры

При получении файла из временного хранилища это не выбранный файл, Где ошибка?

[wise]

(0) а ГДЕ описание {УникальныйИдентификатор}, типа УникальныйИдентификатор=Новый УникальныйИдентификатор;

НачатьПомещениеФайла(Оповещение,   ,   ,   Истина,   УникальныйИдентификатор);

и отладчиком посмотри КАК у тебя идёт всё...

[magnifico61]

Смотрел отладчиком. Получаю адрес во временном хранилище и сохраняю его, потом на сервере получаю по адресу из временного хранилища. Возвращает двоичные данные. Видимо что то не так. Как получить файл из временного хранилища по адресу или может подправить что то надо в помещение во временное хранилище?

[oleg-x]

Не знаю как там с временным хранилищем, но я бы переписал выполнения чтения файла и его обработку не на сервере, а на клиенте.

[Dethmontt]

magnifico61,

Код Выделить Развернуть

Об_Конект = ADO_ПолучитьПодключениеКФайлуExcel(ФайлЭксель.ПолноеИмя);

[magnifico61]

magnifico61,

Код Выделить Развернуть

Об_Конект = ADO_ПолучитьПодключениеКФайлуExcel(ФайлЭксель.ПолноеИмя);

файл эксель не существует на сервере, до этого момента не доходит

Добавлено: 20 июн 2017, 11:15

Не знаю как там с временным хранилищем, но я бы переписал выполнения чтения файла и его обработку не на сервере, а на клиенте.

Если можно пример как это сделать при данном варианте.

[oleg-x]

magnifico61,

Код Выделить Развернуть

Об_Конект = ADO_ПолучитьПодключениеКФайлуExcel(ФайлЭксель.ПолноеИмя);

файл эксель не существует на сервере, до этого момента не доходит

Добавлено: 20 июн 2017, 11:15

Не знаю как там с временным хранилищем, но я бы переписал выполнения чтения файла и его обработку не на сервере, а на клиенте.

Если можно пример как это сделать при данном варианте.

Вот это:

Код Выделить Развернуть

&НаСервере
Процедура ЗагрузитьИзExcelНаСервере()

Переделать на

Код Выделить Развернуть

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

Далее смотрим что либо все работает, либо смотрим что еще переписать.

[Dethmontt]

АдресЭксель = ПолучитьИзВременногоХранилища(Объект.СсылкаНаХранилище);

Что в переменной АдресЭксель ???

Добавлено: 20 июн 2017, 12:06

Что нибудь типа такого

Код Выделить Развернуть

&НаСервере
Процедура ЗагрузитьИзExcelНаСервере()
    Если ЗначениеЗаполнено(Объект.КолонкаАртикул) И ЗначениеЗаполнено(Объект.КолонкаКоличество) Тогда
        //ФайлЭксель = Новый Файл(Объект.Файл);
         
        АдресЭксель = ПолучитьИзВременногоХранилища(Объект.СсылкаНаХранилище);
        //Если АдресЭксель это ДвоичныеДанные
        ПутьТемп = ПолучитьИмяВременногоФайла("xls"); //Нужно передавать сюда расширение файла типа Объект.РасширениеФайла
        АдресЭксель.Записать(ПутьТемп);
            Об_Конект = ADO_ПолучитьПодключениеКФайлуExcel(ПутьТемп);
            ВысотаЗаголовка = 0;

[magnifico61]

сделал через сохранение файла на сервере.