Всем доброе утро. У пользователей появилась хотелка получать в одном пдф файле пакет документов(СФ,Расходная накладная, ТТН,ТРН). Стоит ут 10.3 переписанная. Была идея запустить на платформе 8.3(там есть прекрасная возможность сохранять в один файл с помощью ПакетОтображаемыхДокументов), но не уверен что будет весь не типовой функционал нормально работать. Задача стоит именно в получении как отдельных файлов по каждому типу, так и общего файла. Копаю в сторону программного объединения с помощью PDFCreator(ручками объединять через программу естественно никто не хочет). Никто не сталкивался с такой задачей? Буду премного благодарен за любую помощь и идеи как это реализовать.
По теме из базы знаний
- Обзор консольных приложений для электронного архива
- Объединение изображений и pdf файлов в единый pdf файл
- PDF Extractor - извлекаем информацию из PDF с помощью Poppler
- Битва параллелизмов: MS SQL vs PostgreSQL
- Объединение файлов внутреннего документа и преобразование в один файл формата PDF в 1С: Документообороте
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1) werik,
волков боятся - в лес не ходить.
Уже все давно на 8.3 перешли.
По крайней мере 8.3.5 уже обкатана.
Даже если где то и вылезут косяки, - подпилишь и дело с концом.
Зато интересно, и новый функционал поюзаешь, и опыт расширишь, чем возится с этими мрачными, устаревшими обходными путями, типа пдф креатора.
но не уверен что будет весь не типовой функционал нормально работать
волков боятся - в лес не ходить.
Уже все давно на 8.3 перешли.
По крайней мере 8.3.5 уже обкатана.
Даже если где то и вылезут косяки, - подпилишь и дело с концом.
Зато интересно, и новый функционал поюзаешь, и опыт расширишь, чем возится с этими мрачными, устаревшими обходными путями, типа пдф креатора.
(1) werik, а что, типовой механизм уже не рулит?
| Код |
|---|
Пакет = Новый ПакетОтображаемыхДокументов;
Пакет.КоличествоЭкземпляров = Макет.КоличествоЭкземпляров;
Пакет.РазборПоКопиям = Истина;
ЭлементПакета = Пакет.Состав.Добавить();
ЭлементПакета.Данные = ПоместитьВоВременноеХранилище(Макет);
Пакет.ЗаписатьФайлДляПечати(имяФайла+"pdf");
Показать полностью |
(29) nightowl, да, правда на 8.3. Все работает. На прошлой работе так был реализован механизм автопечати для автоматически созданных за прошедший день пакетов документов. Потом все записывалось в пять потоков на 5 линуксовых серверов, с которых уже печаталось на ХХ принтеров по всей Расеи-матушке.
(30) starik-2005,
Прошу прощенья. И что я не так делаю? У меня не получилось :(
Прошу прощенья. И что я не так делаю? У меня не получилось :(
Пакет = Новый ПакетОтображаемыхДокументов;
Каталог = "C:\TEMP\";
Файлы = НайтиФайлы(Каталог,"*.pdf",Истина);
Для каждого Файл Из Файлы Цикл Сообщить(Файл.ПолноеИмя);
ЭлементПакета = Пакет.Состав.Добавить();
ДвоичныеДанные = Новый ДвоичныеДанные(Файл.ПолноеИмя);
ЭлементПакета.Данные = ПоместитьВоВременноеХранилище(ДвоичныеДанные);
КонецЦикла;
ИмяФайла = Каталог+Формат(ТекущаяДата(),"ДФ=yyyyMMdd_HHmmss")+".pdf";
Пакет.ЗаписатьФайлДляПечати(ИмяФайла); Показать
(31) nightowl, - там все написано. Вообще не понимаю, почему не воспользоваться гуглом, когда что-то не получается? А... Это же не Windows-way...
Пакет позволяет также экспортировать табличные документы в один PDF файл. Для этого предназначен метод пакета ЗаписатьФайлДляПечати(), которому передается полное имя файла.
(31) nightowl, я, по всей видимости, не сразу понял, что Вы пытаетесь PDF-файлы склеить. Выше речь шла о том, чтобы склеивать сформированные табличные документы с разной ориентацией в один pdf-файл. Т.к. Вы хотите что-то другого, то, полагаю, склеить таким образом просто кучу уже сформированных pdf не получится.
(11) Здравствуйте! 7 лет прошло, а тема все еще актуальна.
Я получил фалы с сайта PDF (путь к временному файлу), и мне надо их склеить, а после открыть. Получается, что у меня вместо макета - ВремФайл.
Помогите пожалуйста, если знаете:
Я получил фалы с сайта PDF (путь к временному файлу), и мне надо их склеить, а после открыть. Получается, что у меня вместо макета - ВремФайл.
Помогите пожалуйста, если знаете:
ПараметрыПолучения = ПолучениеФайловИзИнтернетаКлиентСервер.ПараметрыПолученияФайла();
ПараметрыПолучения.Таймаут = 120;
Результат = ПолучениеФайловИзИнтернета.СкачатьФайлВоВременноеХранилище(СсылкаНаСертификат, ПараметрыПолучения);
Если Результат.Статус Тогда
Данные = ПолучитьИзВременногоХранилища(Результат.Путь);
УдалитьИзВременногоХранилища(Результат.Путь);
ВремФайл = ПолучитьИмяВременногоФайла("pdf");
Данные.Записать(ВремФайл);
Возврат ВремФайл; Показать
Не пробовал но можно ещё попробовать:
1) Создание файла принтера - Функция «Печать в файл»
Дальше варианты:
2а) Формировать ПДФ из "пакета" файлов
2б) "Склеить" файлы - например copy 'file1' + 'file2' + 'file3' /b 'file.full' (Требует экспериментальной проверки)
3) "Печать" ПДФа
PDFBinder. Как объединить pdf файлы в один
Объединяйте файлы в одном документе PDF
Объединение pdf в один используя pdftk.exe 1С:Предприятие 8.3 (8.3.4.365)
ЗЫ Формирование печатных форм в pdf
1) Создание файла принтера - Функция «Печать в файл»
Дальше варианты:
2а) Формировать ПДФ из "пакета" файлов
2б) "Склеить" файлы - например copy 'file1' + 'file2' + 'file3' /b 'file.full' (Требует экспериментальной проверки)
3) "Печать" ПДФа
PDFBinder. Как объединить pdf файлы в один
Объединяйте файлы в одном документе PDF
Объединение pdf в один используя pdftk.exe 1С:Предприятие 8.3 (8.3.4.365)
ЗЫ Формирование печатных форм в pdf
(17) Xershi, не факт. У нас в режиме совместимости оказалось, что динамические списки ведут себя не совсем так, как привыкли пользователи. В итоге недели две зачищали вылезающие баги. Например, был баг с колонкой табличной части с наименованием "СтрокаПоиска" - в ней было пусто на форме, при попытке изменить платформа просто вылетала с ошибкой. Если на форме удалить старую ТЧ и перетащить ее снова из объекта - проблема исчезает.
все. решил. Установил программку pdftk. Мож кому понадобится.
В обработке пакетной печати после создания всех файлов в формате пдф создаю такой бат файл:
В обработке пакетной печати после создания всех файлов в формате пдф создаю такой бат файл:
Строка.ДобавитьСтроку("@echo on");
Строка.ДобавитьСтроку("cd "+ПутьКФайлу);
Строка.ДобавитьСтроку("pdftk *.pdf cat output 1111.pdf");
Строка.Записать(ПутьКФайлу+"\"+"dawn.bat","cp866");\\кодировку указываем чтобы он видел и папки названные на русском языке.
ЗапуститьПриложение(ПутьКФайлу+"\"+"dawn.bat");
сек = 5; \\ пауза чтобы отработал батник и удаляем его.
КонДата = ТекущаяДата() + сек;
Пока ТекущаяДата() < КонДата Цикл
// ждемссс....
КонецЦикла;
УдалитьФайлы(ПутьКФайлу+"\"+"dawn.bat"); Показать
правильно пишут, если есть возможность ,лучше изначально формировать из 1С нужный таб док и сохранять в pdf. если нет такой возможности, то можно и pdftk (публикацию уже кто-то сделал на эту тему). с другой стороны у меня есть моя глючная(не силен все таки я в плюсах( ) ВК , которая может это делать , которую пока не собираюсь выкладывать и еще я знаю есть com библиотека в интернете от сторонних разработчиков, которая отлично умеет это делать и многое другое. работает в том числе и на сервере. (минус только в инсталяции, регистрации, но достаточно сделать это на сервере) . если будет сильно интересно, как-нибудь опубликую публикацию по описанию библиотеки.
.
.
Если еще актуально кому-нибудь: в 1С при выполнении команды "ЗапуститьПриложение" почему-то не подхватываются переменные окружения винды, поэтому нужно указывать полные пути для всех исполняемых файлов. если указать полный путь к файлу pdftk.exe, то не нужно будут изобретать ни какие bat-ники
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот