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