|
|
|
|
1с 8.3 УФ, тонкий клиент, Передать шаблон на сервер и там его прочитать в ТД |
☑ |
0
Geroy
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";
длгВыборФайла.ПроверятьСуществованиеФайла = Истина;
Если Не длгВыборФайла.Выбрать() Тогда
Возврат;
КонецЕсли;
ЭтотОбъект.ТабличныйДокумент.Записать(длгВыборФайла.ПолноеИмяФайла);
КонецПроцедуры
|
|
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн