From 436f19e77e67a9824d15659293c6a9e929d04500 Mon Sep 17 00:00:00 2001 From: Dmitry Date: Wed, 22 Nov 2023 10:18:13 +0300 Subject: [PATCH] =?UTF-8?q?+=20=D0=BE=D1=82=D0=BA=D1=80=D1=8B=D1=82=D0=B8?= =?UTF-8?q?=D0=B5=20=D1=84=D0=B0=D0=B9=D0=BB=D0=B0=20=D0=BD=D0=B0=20=D1=81?= =?UTF-8?q?=D0=B5=D1=80=D0=B2=D0=B5=D1=80=D0=B5?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Word2MXL.xml | 2 +- Word2MXL/Forms/Форма.xml | 2 +- Word2MXL/Forms/Форма/Ext/Form.xml | 22 +++++++++++++++++++++- Word2MXL/Forms/Форма/Ext/Form/Module.bsl | 6 +++--- 4 files changed, 26 insertions(+), 6 deletions(-) diff --git a/Word2MXL.xml b/Word2MXL.xml index baa325a..011b365 100644 --- a/Word2MXL.xml +++ b/Word2MXL.xml @@ -1,5 +1,5 @@  - + diff --git a/Word2MXL/Forms/Форма.xml b/Word2MXL/Forms/Форма.xml index e7d8003..876901f 100644 --- a/Word2MXL/Forms/Форма.xml +++ b/Word2MXL/Forms/Форма.xml @@ -1,5 +1,5 @@  - +
Форма diff --git a/Word2MXL/Forms/Форма/Ext/Form.xml b/Word2MXL/Forms/Форма/Ext/Form.xml index a554710..a097c62 100644 --- a/Word2MXL/Forms/Форма/Ext/Form.xml +++ b/Word2MXL/Forms/Форма/Ext/Form.xml @@ -1,5 +1,5 @@  - + Use UseList @@ -70,6 +70,12 @@ + + ОткрыватьНаСервере + Auto + + + рСантиметр @@ -235,6 +241,20 @@ рШиринаСтраницы + + + <v8:item> + <v8:lang>ru</v8:lang> + <v8:content>Открывать на сервере</v8:content> + </v8:item> + + + xs:boolean + + + ОткрыватьНаСервере + + diff --git a/Word2MXL/Forms/Форма/Ext/Form/Module.bsl b/Word2MXL/Forms/Форма/Ext/Form/Module.bsl index 63ecf4a..fb50386 100644 --- a/Word2MXL/Forms/Форма/Ext/Form/Module.bsl +++ b/Word2MXL/Forms/Форма/Ext/Form/Module.bsl @@ -22,7 +22,7 @@ Состояние = "Конвертация"; ОбновитьОтображениеДанных(Элементы.Состояние); - КонвертироватьНаСервере(ОписаниеФайла.Адрес, ОписаниеФайла.СсылкаНаФайл.Расширение); + КонвертироватьНаСервере(ОписаниеФайла.Адрес, ОписаниеФайла.СсылкаНаФайл.Расширение, ОписаниеФайла.СсылкаНаФайл.Файл.ПолноеИмя); Элементы.ГруппаПрогресс.Видимость = Ложь; Элементы.СтраницаРезультат.Видимость = Истина; Элементы.ГруппаСтраницы.ТекущаяСтраница = Элементы.СтраницаРезультат; @@ -48,7 +48,7 @@ КонецПроцедуры &НаСервере -Процедура КонвертироватьНаСервере(Знач Адрес, Знач Расширение) +Процедура КонвертироватьНаСервере(Знач Адрес, Знач Расширение, ПолноеИмя) Обработка = РеквизитФормыВЗначение("Объект"); РезультатКонвертации = Неопределено; @@ -57,7 +57,7 @@ Данные = ПолучитьИзВременногоХранилища(Адрес); Данные.Записать(ВремФайл); Данные = Неопределено; - ИмяФайла = ВремФайл; + ИмяФайла = ?(ОткрыватьНаСервере, ПолноеИмя, ВремФайл); Попытка РезультатКонвертации = Обработка.ВывестиДокументВордВМоксель(ИмяФайла, рСантиметр, рШиринаСтраницы, ФильтрТаблиц);