1с 8.3 УФ, тонкий клиент, Передать шаблон на сервер и там его прочитать в ТД

1С v8

24.03.15

✎

14:06

НаКлиенте
Процедура ДействияФормыИмпорт(Кнопка)


    Режим = РежимДиалогаВыбораФайла.Открытие;
    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);

    ДиалогОткрытияФайла.Заголовок = "Открыть шаблон";
    ДиалогОткрытияФайла.ПолноеИмяФайла = "";
    ДиалогОткрытияФайла.ПредварительныйПросмотр = Ложь;
    ДиалогОткрытияФайла.Фильтр = "Шаблоны|*.mxl";

    Если ДиалогОткрытияФайла.Выбрать() Тогда
               ЭлементыФормы.ТабличныйДокумент.Прочитать(ДиалогОткрытияФайла.ПолноеИмяФайла);
        КонецЕсли;
КонецПроцедура

ЭлементыФормы.ТабличныйДокумент.Прочитать(ДиалогОткрытияФайла.ПолноеИмяФайла);

Не читает на Тонком клиенте
Как лучше передать на сервер и там прочитать?

1 ДенисЧ

24.03.15

✎

14:08

Запихнуть во временное хранилище и передать

2 Geroy

24.03.15

✎

14:09

(1) получаю ДвоинчыеДанные
И как прочитать с них?

3 ДенисЧ

24.03.15

✎

14:09

(2) сохранить во временный файл и читать

4 hhhh

24.03.15

✎

14:10

ЭлементыФормы вообще нет такого слова в УФ.

5 Geroy

24.03.15

✎

14:11

(4) ЭтаФорма
Код просто со старой конфы взял

6 Geroy

24.03.15

✎

14:11

(3) есть какой-то пример?
ПоместитьФайл я так понимаю?

7 Geroy

25.03.15

✎

09:47

Сделал так

//Загрузка в табличный документ с файла
&НаКлиенте
Процедура ИмпортШаблона(Команда)

    длгВыборФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    длгВыборФайла.Заголовок = "Выберите табличный документ...";
    длгВыборФайла.Фильтр = "Табличный документ (*.mxl)|*.mxl";
    длгВыборФайла.Расширение = "mxl";
    длгВыборФайла.ПроверятьСуществованиеФайла = Истина;

    Если Не длгВыборФайла.Выбрать() Тогда
        Возврат;
    КонецЕсли;

    Адрес = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(длгВыборФайла.ПолноеИмяФайла));
    ЗаполнитьИзФайлаНаСервере(Адрес);

КонецПроцедуры

&НаСервере
Процедура ЗаполнитьИзФайлаНаСервере(Адрес)

    ФайлПриемник = ПолучитьИмяВременногоФайла("mxl");
    ДанныеХранилища = ПолучитьИзВременногоХранилища(Адрес);
    ДанныеХранилища.Записать(ФайлПриемник);
    ТабДок = Новый ТабличныйДокумент;
    ТабДок.Прочитать(ФайлПриемник);

    ЭтотОбъект.ТабличныйДокумент=ТабДок;
КонецПроцедуры

//Записать ТабличныйДокумент  в файл
&НаКлиенте
Процедура ЭкспортШаблона(Команда)
    длгВыборФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
    длгВыборФайла.Заголовок = "Выберите табличный документ...";
    длгВыборФайла.Фильтр = "Табличный документ (*.mxl)|*.mxl";
    длгВыборФайла.Расширение = "mxl";
    длгВыборФайла.ПроверятьСуществованиеФайла = Истина;

    Если Не длгВыборФайла.Выбрать() Тогда
        Возврат;
    КонецЕсли;

    ЭтотОбъект.ТабличныйДокумент.Записать(длгВыборФайла.ПолноеИмяФайла);

КонецПроцедуры