Сложные печатные формы

1С v8

02.11.23

✎

11:14

Добрый день! Заказчик предоставляет шаблоны печатных форм в формате ворд. Через макет mxl, посчитали слишком сложно реализовать. Так и сделали, создаем Новый COMОбъект("Word.Application"), заменяем параметры, удаляем ненужные закладки и строки таблиц, выводим картинки. Работает не быстро. Какие еще есть варианты разработки сложных печатных форм, прошу поделиться.

1 Волшебник

02.11.23

✎

11:16

MXL побыстрее будет, сделайте над собой усилие

2 vicof

02.11.23

✎

11:18

Для начала посмотреть, что именно небыстро.

3 PLUT

гуру

02.11.23

✎

11:35

(0) убыстрить можно, если не использовать COMОбъект

а работать напрямую с XML шаблона печатных форм в формате ворд

ДД 		= РеквизитФормыВЗначение("Объект").ПолучитьМакет(ИмяМакета);
	Чтение 	= Новый ЧтениеДанных(ДД);
	БуферДД	= Чтение.ПрочитатьВБуферДвоичныхДанных();
	Поток	= Новый ПотокВПамяти(БуферДД);
	
	Каталог = КаталогВременныхФайлов() + "ШляпаКакаято";
	СоздатьКаталог(Каталог);

ЗИП 	= Новый ЧтениеZipФайла(Поток);
	ЗИП.ИзвлечьВсе(Каталог, РежимВосстановленияПутейФайловZIP.Восстанавливать);
	ЗИП.Закрыть();
	Поток.Закрыть();
	Чтение.Закрыть();
	
	ЧтениеXML = Новый ЧтениеXML;
	ЧтениеXML.ОткрытьФайл(Каталог + "\word\document.xml");
	
	Построитель = Новый ПостроительDOM;
	Док		= Построитель.Прочитать(ЧтениеXML);
	ЧтениеXML.Закрыть();

	Разыменователь = Новый РазыменовательПространствИменDOM(Док);
			
	ВыражениеXPath	= Док.СоздатьВыражениеXPath(...

...тут какие-то магические заклинания 1С по замене параметров, удалению ненужных закладок и строк таблиц и выводу картинки...

//Сохранение результата
	ЗаписьDOM = Новый ЗаписьDOM; 
	ЗаписьXML = Новый ЗаписьXML;
	ЗаписьXML.ОткрытьФайл(Каталог + "\word\document.xml"); 
	ЗаписьDOM.Записать(Док, ЗаписьXML); 
	ЗаписьXML.Закрыть();
	
	Поток = Новый ПотокВПамяти();
	
	ЗаписьZIP = Новый ЗаписьZipФайла(Поток,,,МетодСжатияZIP.Сжатие);                                  
	ЗаписьZIP.Добавить(Каталог + "\*.*", РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно); 
	ЗаписьZIP.Записать();
	
	ДД = Поток.ЗакрытьИПолучитьДвоичныеДанные();
	
	АдресВременногоХранилища = ПоместитьВоВременноеХранилище(ДД, УникальныйИдентификатор);

УдалитьФайлы(Каталог);

4 arsik

гуру

02.11.23

✎