Выгрузка в PDF из 1С (Средствами OpenOffice)

8134

Время чтения: 19 мин.

Нет времени читать? Отправить на почту

Возникла задача отправлять счета почтой. PDFcreator не подошёл поскольку не удалось вместить счёт на одну страницу по ширине. Решил попробовать OpenOffice. Как сохранять в PDF нашёл быстро, а вот как уместить счёт на одну страницу вширь искал долго.
В версии 1С 8.2.232 появилась возможность сохранять табличный документ в xls файл на сервера под линуксом. А вот работать с Опеном офисом из-под линукса пока не получается. Собственно комментари ненужны. Вот весь код. Самое интересное это бодание со стилями страниц в Опене Офисе. Жаль что этот фрагмент работает только на клиенте. На сервере вопрос не решается

Код 1C v 8.2 УП

 Процедура КнопкаВыполнитьНажатие(Кнопка) 
      

     Если Письмо.Основание.Пустая() Тогда 
      

     Возврат 
      

     КонецЕсли; 
      

      

     // Открыть OpenOffice 
      

     Попытка 
      

     ServiceManager = Новый COMОбъект("com.sun.star.ServiceManager"); 
      

     Исключение 
      

     Возврат // опен офис не установлен :-( 
      

     КонецПопытки; 
      

      

     // получим печатную форму и запишем её во временный XLS файл 
      

     Заказ = Письмо.Основание.ПолучитьОбъект(); 
      

      

     //Получим печатную форму 
      

     Расшифровка=Новый Структура; 
      

     Расшифровка.Вставить("СсылкаНаВнешнююОбработку",Константы.ПФСчетаДляКлиента.Получить()); 
      

     Расшифровка.Вставить("ВидПечатнойФормы",Перечисления.ВидыДополнительныхВнешнихОбработок.ПечатнаяФорма); 
      

     Расшифровка.Вставить("НомерСтроки",1); 
      

     тд = УниверсальныеМеханизмы.НапечататьВнешнююФорму(Заказ, Расшифровка); 
      

      

     ВременныйФайл =ПолучитьИмяВременногоФайла(); 
      

     ВременныйФайлXLS =ВременныйФайл + ".xls"; 
      

     ВременныйФайлPDF =ВременныйФайл + ".pdf"; 
      

     тд.Записать(ВременныйФайлXLS, ТипФайлаТабличногоДокумента.XLS97); 
      

      

     // Преобразовываем временный xls файл В PDF 
      

     Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop"); 
      

      

     НастройкиОткрытия = Новый COMSafeArray("VT_VARIANT", 1); 
      

     PropertyValue = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); 
      

     PropertyValue.Name = "Hidden"; 
      

     PropertyValue.Value = Истина; 
      

     НастройкиОткрытия.SetValue(0, PropertyValue); 
      

     ВременныйФайлXLS_какУРЛ = "file:///" + СтрЗаменить(ВременныйФайлXLS, "\", "/"); // приводим путь к файлу из виндового формата в опен офисный 
      

      

     // Откроем файл в опене офисе 
      

     ОпенОфис = Desktop.LoadComponentFromURL(ВременныйФайлXLS_какУРЛ, "_blank", 0, НастройкиОткрытия); 
      

      

     //ПараметрыСтраницы = ОпенОфис.createInstance("com.sun.star.style.PageStyle"); 
      

     //ПараметрыСтраницы.ScaleToPagesX = 1; 
      

     // 
      

     // Установим масштаб, чтобы счёт помещался на одной странице вширь 
      

     // страниц почему-то много, поэтому устанавливаем масштаб для всех 
      

     Стили = ОпенОфис.StyleFamilies.getByName("PageStyles"); 
      

     Для поз = 0 по Стили.count - 1 Цикл 
      

     МойСтиль = Стили.getByIndex(поз); 
      

     МойСтиль.ScaleToPagesX = 1; // уместить на одной странице вширь 
      

     //МойСтиль.PageScale = 50; // масштаб 50% 
      

     КонецЦикла; 
      

      

     НастройкиСохранения = Новый COMSafeArray("VT_VARIANT", 1); 
      

     PropertyValue = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); 
      

     PropertyValue.Name = "FilterName"; 
      

     PropertyValue.Value = "calc_pdf_Export"; 
      

     НастройкиСохранения.SetValue(0, PropertyValue); 
      

      

     ВременныйФайлPDF_какУРЛ = "file:///" + СтрЗаменить(ВременныйФайлPDF, "\", "/"); // приводим путь к файлу из виндового формата в опен офисный 
      

     ОпенОфис.storeToURL(ВременныйФайлPDF_какУРЛ, НастройкиСохранения); // сохранили PDF файл 
      

     ОпенОфис.close(-1); 
      

     ОпенОфис = Неопределено; 
      

      

     // С опеном офисом разобрались. Прикрепляем вложение к письму и удаляем временные файлы. 
      

     //Файл = Новый Файл(ВременныйФайлPDF); 
      

     объектПисьмо = Письмо.ПолучитьОбъект(); 
      

     стрВложение = объектПисьмо.Вложения.Добавить(); 
      

     стрВложение.ИмяФайла = "Счёт " + Строка(Заказ.Номер) + ".pdf"; 
      

     стрВложение.Файл = Новый ХранилищеЗначения(Новый ДвоичныеДанные(ВременныйФайлPDF)); 
      

     объектПисьмо.Записать(); 
      

     Попытка 
      

     УдалитьФайлы(ВременныйФайлXLS); 
      

     УдалитьФайлы(ВременныйФайлPDF); 
      

     Исключение 
      

     КонецПопытки; 
      

      

     КонецПроцедуры

Автор: Трактор

Функция позволяющая выполнить выгрузку табличного документа в PDF средствами OpenOffice

Код 1C v 8.х

 // Функция превращает табличный документ в PDF документ 
      

     // Возвращаемое значение: тип "Строка" - имя созданного PDF файла, 0 - в случае ошибки 
      

     // Параметры: ДанныеВыгрузки - Табличный или текстовый документ, который нужно выгрузить в PDF 
      

     // ПутьВыгрузки - тип "Строка", путь для сохраниения PDF файла (без имени и расширения файла) 
      

     // ИмяФайлаБезРасширения - тип "Строка", имя для вновь сформированного PDF файла 
      

     // Тестировалось на OpenOffice 3.x 
      

     Функция ВыгрузитьТабличныйДокументВPDF(ДанныеВыгрузки, ПутьВыгрузки, ИмяФайлаБезРасширения) 
      

     Если НЕ ЗначениеЗаполнено(ПутьВыгрузки) Тогда 
      

     ПутьВыгрузки = КаталогВременныхФайлов(); 
      

     КонецЕсли; 
      

     ПутьВыгрузки = ?(Прав(ПутьВыгрузки, 1) = "\", ПутьВыгрузки, ПутьВыгрузки + "\"); 
      

      

     РасширениеXSL = ".xls"; 
      

     РасширениеPDF = ".pdf"; 
      

     ПолноеИмяФайлаXLS = ПутьВыгрузки + ИмяФайлаБезРасширения + РасширениеXSL; 
      

     //Выгрузка данных печати в файл XLS 
      

     #Если Клиент Тогда 
      

     Состояние("Создание временного файла..."); 
      

     #КонецЕсли 
      

     Попытка 
      

     Если ТипЗнч(ДанныеВыгрузки) = Тип("ТабличныйДокумент") Тогда 
      

     ДанныеВыгрузки.Записать(ПолноеИмяФайлаXLS, "XLS"); 
      

     ИначеЕсли ТипЗнч(ДанныеВыгрузки) = Тип("ТекстовыйДокумент") Тогда 
      

     ДанныеВыгрузки.Записать(ПолноеИмяФайлаXLS, "XLS"); 
      

     Иначе 
      

     #Если Клиент Тогда 
      

     Сообщить("Данные для выгрузки переданы в неподдерживаемом формате. Дальнейшее выполнение невозможно." + Символы.ПС + ОписаниеОшибки()); 
      

     #КонецЕсли 
      

     Возврат 0; 
      

     КонецЕсли; 
      

     Исключение 
      

     #Если Клиент Тогда 
      

     Сообщить("Произошла ошибка при выгрузке временного файла. Возможно ошибка доступа к папке, в которую происходит запись." + Символы.ПС + ОписаниеОшибки()); 
      

     #КонецЕсли 
      

     Возврат 0; 
      

     КонецПопытки; 
      

      

     Попытка 
      

     #Если Клиент Тогда 
      

     Состояние("Открытие компоненты OpenOffice..."); 
      

     #КонецЕсли 
      

     ServiceManager = Новый COMОбъект("com.sun.star.ServiceManager"); 
      

      

     Скрипт = Новый COMОбъект("MSScriptControl.ScriptControl"); 
      

     Скрипт.language = "javascript"; 
      

     Скрипт.AddObject("OpenOffice", ServiceManager); 
      

      

     //Открытие временного файла без отображения его окна 
      

     #Если Клиент Тогда 
      

     Состояние("Открытие временного файла..."); 
      

     #КонецЕсли 
      

     Скрипт.eval("Массив=new Array()"); 
      

     Массив = Скрипт.eval("Массив"); 
      

     Скрипт.eval("Массив[0] = OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue')"); 
      

     Скрипт.eval("Массив[0].Name = 'Hidden'"); 
      

     Скрипт.eval("Массив[0].Value = true"); 
      

      

     Скрипт.AddCode("function SetItem(ind,val){Массив[ind]=val}"); 
      

     Скрипт.AddObject("ServiceManager",ServiceManager); 
      

     Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop"); 
      

     Document = Desktop.LoadComponentFromURL("file:///" + ПолноеИмяФайлаXLS, "_blank", 0, Массив); 
      

      

     //Сохранение в PDF встроенными средствами OpenOffice 
      

     #Если Клиент Тогда 
      

     Состояние("Запись в PDF..."); 
      

     #КонецЕсли 
      

     Скрипт.eval("Массив2=new Array()"); 
      

     Массив2 = Скрипт.eval("Массив2"); 
      

     Скрипт.eval("Массив2[0] = OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue')"); 
      

     Скрипт.eval("Массив2[0].Name = 'FilterName'"); 
      

     Скрипт.eval("Массив2[0].Value = 'writer_pdf_Export'"); 
      

      

     ПолноеИмяФайлаPDF = "file:///" + СтрЗаменить(ПолноеИмяФайлаXLS, РасширениеXSL, РасширениеPDF); 
      

     ПолноеИмяФайлаPDF = СтрЗаменить(ПолноеИмяФайлаPDF, ВРег(РасширениеXSL), РасширениеPDF); 
      

     ПолноеИмяФайлаPDF = СтрЗаменить(ПолноеИмяФайлаPDF, "\", "/"); 
      

      

     Document.storeToURL(ПолноеИмяФайлаPDF, Массив2); 
      

     Document.close(-1); //Закрыть документ 
      

      

     //Контрольная очистка переменных 
      

     Document = Неопределено; 
      

     Desktop = Неопределено; 
      

      

     //Удаление временного файла 
      

     #Если Клиент Тогда 
      

     Состояние("Удаление временного файла..."); 
      

     #КонецЕсли 
      

     Попытка 
      

     УдалитьФайлы(ПолноеИмяФайлаXLS); 
      

     Исключение 
      

     #Если Клиент Тогда 
      

     Сообщить("Произошла ошибка при удалении временного файла. Возможно, потребуется удалить его вручную." + Символы.ПС + ОписаниеОшибки()); 
      

     #КонецЕсли 
      

     КонецПопытки; 
      

      

     ПолноеИмяФайлаPDF = СтрЗаменить(ПолноеИмяФайлаPDF, "file:///", ""); 
      

     ПолноеИмяФайлаPDF = СтрЗаменить(ПолноеИмяФайлаPDF, "/", "\"); 
      

     #Если Клиент Тогда 
      

     Состояние("Выгрузка выполнена."); 
      

     Предупреждение("Выгрузка выполнена." + Символы.ПС + ПолноеИмяФайлаPDF); 
      

     #КонецЕсли 
      

     Возврат ПолноеИмяФайлаPDF; 
      

     Исключение 
      

     Document.close(-1); 
      

     #Если Клиент Тогда 
      

     Предупреждение(ОписаниеОшибки()); 
      

     #КонецЕсли 
      

     Возврат 0; 
      

     КонецПопытки 
      

     КонецФункции

Автор: doom_2001

Информация взята с сайта http://helpf.pro

Заказать звонок

Сэкономьте время! Оставьте заявку на консультацию специалиста 1С.

Ваше имя

Телефон *

Подтвердите, что вы не робот *

Нажимая на кнопку , Вы даете согласие на обработку своих персональных данных и соглашаетесь с политикой конфиденциальности

Вконтакте

Содержание статьи

Рассылка нашего блога

Электронная почта *

Политика конфиденциальности персональных данных.

Настоящая Политика конфиденциальности персональных данных (далее – Политика) действует в отношении всей информации, которую данный сайт, может получить о Пользователе во время использования (а также его субдоменов), его программ и его продуктов.
1. Определение терминов.
В настоящей Политике используются следующие термины:
– персональные данные – любая информация, относящаяся к прямо или косвенно определенному юридическому или физическому лицу (субъекту персональных данных);
– оператор персональных данных – Администрация сайта (далее – Администрация) – сотрудники, уполномоченные на управление, которые организуют и (или) осуществляют обработку персональных данных, а также определяет цели обработки персональных данных, состав персональных данных, подлежащих обработке, действия (операции), совершаемые с персональными данными;
– обработка персональных данных – любое действие (операция) или совокупность действий (операций), совершаемых с использованием средств автоматизации или без использования таких средств с персональными данными, включая сбор, запись, систематизацию, накопление, хранение, уточнение (обновление, изменение), извлечение, использование, передачу (распространение, предоставление, доступ), обезличивание, блокирование, удаление, уничтожение персональных данных;
– конфиденциальность персональных данных – обязательное для соблюдения оператором или иным получившим доступ к персональным данным лицом требование не допускать их распространения без согласия субъекта персональных данных или наличия иного законного основания.;
– сайт — это совокупность связанных между собой веб-страниц, размещенных в сети Интернет по уникальному адресу (URL), а также его субдоменах;
– субдомены – это страницы или совокупность страниц, расположенные на доменах третьего уровня, принадлежащие сайту, а также другие временные страницы, внизу который указана контактная информация Администрации;
– пользователь сайта (далее Пользователь) – лицо, имеющее доступ к сайту, посредством сети Интернет и использующее информацию, материалы и продукты сайта.
2. Общие положения.
2.1 Назначение политики конфиденциальности.
2.1.1. Настоящая Политика конфиденциальности устанавливает обязательства Администрации по неразглашению и обеспечению режима защиты конфиденциальности персональных данных, которые Пользователь предоставляет .
2.2. Права и обязанности сторон.
2.2.1. Пользователь вправе:
2.2.1.1. Принимать свободное решение о предоставлении своих персональных данных, необходимых для использования сайта, и давать согласие на их обработку.
2.2.1.2. Обновить, дополнить предоставленную информацию о персональных данных в случае изменения данной информации.
2.2.1.3. Пользователь имеет право на получение у Администрации информации, касающейся обработки его персональных данных, если такое право не ограничено в соответствии с федеральными законами. Пользователь вправе требовать от Администрации уточнения его персональных данных, их блокирования или уничтожения в случае, если персональные данные являются неполными, устаревшими, неточными, незаконно полученными или не являются необходимыми для заявленной цели обработки, а также принимать предусмотренные законом меры по защите своих прав.
2.2.2. Администрация обязана:
2.2.2.1. Использовать полученную информацию исключительно для целей, указанных в п. 3 настоящей Политики конфиденциальности.
2.2.2.2. Принять меры для хранения конфиденциальной информации в тайне,
не разглашать без предварительного письменного разрешения Пользователя, а также
не осуществлять продажу, обмен, опубликование, либо разглашение иными
возможными способами переданных персональных данных Пользователя,
за исключением п. 6.3. настоящей Политики Конфиденциальности.
2.2.2.3. Принимать меры предосторожности для защиты конфиденциальности персональных данных Пользователя согласно порядку, обычно используемого для защиты такого рода информации в существующем деловом обороте.
2.2.2.4. Осуществить блокирование персональных данных, относящихся к соответствующему Пользователю, с момента обращения или запроса Пользователя, или его законного представителя либо уполномоченного органа по защите прав субъектов персональных данных на период проверки, в случае выявления недостоверных персональных данных или неправомерных действий.
2.3. Использование сайта Пользователем означает согласие с настоящей Политикой конфиденциальности и условиями обработки персональных данных Пользователя.
2.4. В случае несогласия с условиями Политики конфиденциальности Пользователь должен прекратить использование сайта.
2.5. Настоящая Политика конфиденциальности применяется к сайту.
2.6. Администрация не проверяет достоверность персональных данных, предоставляемых Пользователем.
3. Цели сбора персональных данных.
3.1. Персональные данные Пользователя Администрация может использовать только в связи с заключением договора, стороной которого является субъект персональных данных. Персональные данные не распространяются, а также не предоставляются третьим лицам без согласия субъекта персональных данных и используются оператором исключительно для исполнения указанного договора и заключения договоров с субъектом персональных данных.
4. Правовые основания обработки персональных данных.
Правовым основанием обработки персональных данных является:
– федеральные законы и принятые на их основе нормативные правовые акты, регулирующие отношения, связанные с деятельностью оператора;
– уставные документы оператора;
– договоры, заключаемые между оператором и субъектом персональных данных;
– согласие субъекта на обработку персональных данных;
5. Объем и категории обрабатываемых персональных данных, категории субъектов персональных данных.
5.1. Персональные данные, разрешённые к обработке в рамках настоящей Политики конфиденциальности, предоставляются Пользователем путём заполнения форм на сайте и включают в себя следующую информацию:
5.1.1. имя Пользователя;
5.1.2. контактный телефон Пользователя;
5.1.3. адрес электронной почты (e-mail).
5.2. К категориям субъектов персональных данных относятся работники оператора.
Порядок и условия обработки персональных данных.
6.1. Обработка персональных данных Пользователя осуществляется без ограничения срока, любым законным способом, в том числе в информационных системах персональных данных с использованием средств автоматизации или без использования таких средств.
6.3. Персональные данные Пользователя могут быть переданы уполномоченным органам государственной власти Российской Федерации только по основаниям и в порядке, установленным законодательством Российской Федерации.
6.4. Администрация принимает необходимые организационные и технические меры для защиты персональной информации Пользователя от неправомерного или случайного доступа, уничтожения, изменения, блокирования, копирования, распространения, а также от иных неправомерных действий третьих лиц.
6.5. Администрация совместно с Пользователем принимает все необходимые меры по предотвращению убытков или иных отрицательных последствий, вызванных утратой или разглашением персональных данных Пользователя.
7. Разрешение споров.
7.1. До обращения в суд с иском по спорам, возникающим из отношений между Пользователем и Администрацией, обязательным является предъявление претензии (письменного предложения или предложения в электронном виде о добровольном урегулировании спора).
7.2. Получатель претензии в течение 30 календарных дней со дня получения претензии, письменно или в электронном виде уведомляет заявителя претензии о результатах рассмотрения претензии.
7.3. При не достижении соглашения спор будет передан на рассмотрение Арбитражного суда.
7.4. К настоящей Политике конфиденциальности и отношениям между Пользователем и Администрацией применяется действующее законодательство Российской Федерации.
8. Дополнительные условия.
8.1. Администрация вправе вносить изменения в настоящую Политику конфиденциальности без согласия Пользователя.
8.2. Новая Политика конфиденциальности вступает в силу с момента ее размещения на сайте, если иное не предусмотрено новой редакцией Политики конфиденциальности.

Настройки

Назад к списку

Выгрузка в PDF из 1С (Средствами OpenOffice)

Заказать звонок

Рассылка нашего блога

Политика конфиденциальности персональных данных.

Поможем подобрать нужные приложения