|
||
|
Поступила задача разработки печатной формы документа с наклонами, выделением текста и т.д. Ничего особенного. Получил задачу – исполняй. Но оказалось, что таких печатных форм много. Захотелось облегчить свою жизнь и как-то все оптимизировать. Запустил в свой мозг задачу на сон грядущий и умище с утра выдало такое. Итак, как мне создать печатную форму 1С и сохранить в формате WORD? - Поле HTML документа – это что? Обычная строка. - Можно использовать возможности объекта ТекстовыйДокумент? Можно. После таких умозаключений разделил макет, тип ТекстовыйДокумент с HTML разметкой на области (#Область Имя области <Содержимое> #КонецОбласти) . |
||
 
|
||
| И набросал две простенькие функции. Жизнь стала прекрасна! | ||
|
Функция ПолучитьОбласть(МакетHTML,ИмяОбласти) ТекОбласть = МакетHTML.ПолучитьОбласть(ИмяОбласти); //Удаляем строки с определением области #Область, #КонецОбласти ТекОбласть.УдалитьСтроку(1); ТекОбласть.УдалитьСтроку(ТекОбласть.КоличествоСтрок()); Возврат ТекОбласть; КонецФункции Функция ВывестиОбласть(Область,Параметры = Неопределено) Текст = Область.ПолучитьТекст(); Если ТипЗнч(Параметры) = Тип("Структура") и Параметры.Количество() Тогда Для каждого Эл из Параметры Цикл Текст = СтрЗаменить(Текст,"["+Эл.Ключ+"]",Эл.Значение); КонецЦикла; КонецЕсли; Возврат Текст; КонецФункции |
||
| Далее простая обработка. |
| Например: | ||
|
Функция ПолучитьТекстHTML() МакетHTML = РеквизитФормыВЗначение("Объект").ПолучитьМакет("МакетПечати");
ОбластьШапка = ПолучитьОбласть(МакетHTML,"Шапка"); ОбластьШапкаТаблицы = ПолучитьОбласть(МакетHTML,"ШапкаТаблицы"); ОбластьСтрока = ПолучитьОбласть(МакетHTML,"Строка"); ОбластьПодвал = ПолучитьОбласть(МакетHTML,"Подвал"); ПараметрыШапки = Новый Структура("Номер,Дата,Контрагент" ,"000001" ,"01.01.2016" ,"ООО Рога и Копыта"); ТекстHTML = ТекстHTML+Символы.ПС + ВывестиОбласть(ОбластьШапка,ПараметрыШапки);
ТекстHTML = ТекстHTML+Символы.ПС + ВывестиОбласть(ОбластьШапкаТаблицы); СуммаИтог = 0; Для Сч= 1 по 10 Цикл Рандом = Новый ГенераторСлучайныхЧисел(150*Сч); Артикул = Рандом.СлучайноеЧисло(10000,30000); Рандом = Новый ГенераторСлучайныхЧисел(15*Сч); Цена = Окр(Рандом.СлучайноеЧисло(100,30000)/100,2); Рандом = Новый ГенераторСлучайныхЧисел(Сч); Количество = Рандом.СлучайноеЧисло(1,20); Сумма = Окр(Цена*Количество,2); СуммаИтог = СуммаИтог+Сумма; ПараметрыСтроки = Новый Структура("НомерСтроки,Артикул,Товар,Количество,Цена,Сумма" ,Сч ,Артикул ,"Товар такойто "+ Строка(Сч) ,Количество ,Формат(Цена,"ЧДЦ=2") ,Формат(Сумма,"ЧДЦ=2")); ТекстHTML = ТекстHTML+Символы.ПС + ВывестиОбласть(ОбластьСтрока,ПараметрыСтроки); КонецЦикла; ПараметрыПодвала = Новый Структура("Сумма",Формат(СуммаИтог,"ЧДЦ=2"));
ТекстHTML = ТекстHTML+Символы.ПС + ВывестиОбласть(ОбластьПодвал,ПараметрыПодвала); Возврат ТекстHTML; КонецФункции |
||
|
ПС: Как получить макет с HTML разметкой в 1С? Все знают, что 1С таблицу или документ WORD можно сохранить как HTML. Так же мы можем сохранить результат c расширением doc и получим обычный документ WORD |
||
|
Владимир Тюсин, разработчик компании ООО «Кодерлайн» |
