Загрузка из Excel на сервере

[magnifico61]

Была база Розница 2.2 файловая, все работало хорошо. Перевели базу в sql. И теперь не работает загрузка из Excel, так как не находит на сервере выбранный файл на клиенте. Как решить эту проблему?

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

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

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

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

Функция ADO_ПолучитьПодключениеКФайлуExcel(ПутьКФайлу, ЧитатьЗаголовок = Ложь)
ADO_Connection = Новый COMОбъект("ADODB.Connection");

HDRSwitch = ?(ЧитатьЗаголовок, "YES", "NO");
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ПутьКФайлу + ";Extended Properties=""Excel 8.0;"
+ "HDR=" + HDRSwitch + ";IMEX=1;""";

ADO_Connection.ConnectionString = ConnectionString;
ADO_Connection.CursorLocation = 3;

Try
ADO_Connection.Open();
Except
Сообщить("Не удалось поключится к файлу: " + ОписаниеОшибки());
Возврат Неопределено;
EndTry;

Возврат ADO_Connection;
КонецФункции

[alex0402]

Передать файл через Временное хранилище на сервер.
ПоместитьВоВременноеХранилище(<Данные>, <Адрес>)
ПолучитьИзВременногоХранилища(<Адрес>)

[oleg-x]

Еще можно сделать два варианта:
1) Размещать данные файлы на сервере, где сама база.
2) Дописать код, который будет выполнятся на клиенте, как пример универсальный обмен данными. Там выбрать файл можно как на клиенте, так и на сервере.

[alex0402]

1) Размещать данные файлы на сервере, где сама база.

не база, а сервер приложений.

[magnifico61]

Передать файл через Временное хранилище на сервер.
ПоместитьВоВременноеХранилище(<Данные>, <Адрес>)
ПолучитьИзВременногоХранилища(<Адрес>)

Ругается, что нельзя поместить файл во временное хранилище.

[alex0402]

Код и "ругань" дословно в студию!

[magnifico61]

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

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


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

{Обработка.ПечатьЭтикетокИЦенников.Форма.Форма.Форма(3869)}: Ошибка при вызове метода контекста (ПоместитьВоВременноеХранилище)
Адрес = ПоместитьВоВременноеХранилище(ФайлЭксель);
по причине:
Переданное значение не может быть помещено во временное хран

[alex0402]

да. я напутал. Попробуй еще поместить так:

Интерактивно = Ложь;
ПоместитьФайл(<Адрес>, <НачальноеИмяФайла>, <ВыбранноеИмяФайла>, <Интерактивно>, <УникальныйИдентификаторФормы>)

Описание:

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

[magnifico61]

а пример можно как с этим работать, в синтаксис-помощнике ничего нет.