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