Автоматизация установки печати на документ при помощи GhostScript (PDF в картинку)

02.07.25

Разработка - Работа с интерфейсом

По причине того, что сотрудникам требовалось много времени на установку печатей на сопроводительных документах для поставщика, причем делали они это в каких-то левых программах, необходимо было это автоматизировать в 1С.

Требовалось:

1) Пользователь загружает документ, который может быть в форматах как JGP, PNG, так и PDF.

 

 

&НаСервере
Функция GhostScript_ПреобразоватьPDFВJPG(ПутьКGhostScript, стрИсходныйPDF, УникальныйИдентификатор)
	
	мМассивКартинок = Новый Массив;
	бОшибка = Ложь;
	
	стрПутьКПапкеДляСохранения = КаталогВременныхФайлов() + Новый УникальныйИдентификатор() + "\";	 
	
	Попытка
		СоздатьКаталог(стрПутьКПапкеДляСохранения);	
	Исключение
		бОшибка = Истина;
	КонецПопытки;
	
	Если НЕ бОшибка Тогда
		
		стрКоммандаGhostScriptДляКонвертацииPDFВJPG = ПутьКGhostScript + " -dUseCIEColor -dSAFER -dBATCH -dNOPAUSE -dPDFSETTINGS=/screen -sDEVICE=jpeg -dJPEGQ=60 -dTextAlphaBits=4 -dGraphicsAlphaBits=4 -r400 -sOutputFile="  + стрПутьКПапкеДляСохранения + "page-%d.jpg " + """" + стрИсходныйPDF + """";
		                                                                              
		Попытка		
			shell = Новый COMОбъект("WScript.Shell");
			shell.Run(стрКоммандаGhostScriptДляКонвертацииPDFВJPG, 0, -1);
		Исключение 
			стр = ОписаниеОшибки();
			бОшибка = Истина; 
		КонецПопытки;
		
		Если Не бОшибка Тогда
			
			мНайденныеФайлы = НайтиФайлы(стрПутьКПапкеДляСохранения,"*.jpg",Истина);	
			Для Каждого НайденныйФайл Из мНайденныеФайлы Цикл   				
				
				Если мНайденныеФайлы.Найти(НайденныйФайл) = 0 Тогда 
					ФайлКартинка = Новый COMОбъект("WIA.ImageFile");
					ФайлКартинка.LoadFile(НайденныйФайл.ПолноеИмя); 
					ВысотаСтраницы = ФайлКартинка.Height/400 * 25.4;
					ШиринаСтраницы = ФайлКартинка.Width/400 * 25.4;   
					
				КонецЕсли;
				
				Попытка      				
					мМассивКартинок.Добавить(ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(НайденныйФайл.ПолноеИмя), УникальныйИдентификатор));		
					УдалитьФайлы(НайденныйФайл.ПолноеИмя);
				Исключение
					
				КонецПопытки;
			КонецЦикла;
			
		КонецЕсли;	
		
	КонецЕсли;	
	
	Попытка
		УдалитьФайлы(стрПутьКПапкеДляСохранения);	
	Исключение 
		
	КонецПопытки;
	
	Возврат мМассивКартинок;
	
КонецФункции

 

2) Пользователь загружает печать, которая также может быть в форматах как JGP, PNG, так и PDF, причем печатей может быть несколько.

 

 

3) Пользователь переносит печать на документ в любое место.

4) Сохраняет документ в тех же пропорциях и в том же формате, что и исходный.

Сохранить пропорции и качество документа удалось, указав DPI 400 и количество пикселей в дюйме 25.4

ВысотаСтраницы = ФайлКартинка.Height/400 * 25.4;
ШиринаСтраницы = ФайлКартинка.Width/400 * 25.4;

 

Все это планировал делать, конечно же, в табличном документе, и сразу же возникла проблема, как это запихнуть PDF документ в ТабДок.

Использовал для этого GhostScript, который должен быть установлен на сервере или на клиентской машине, смотря где будет вызываться.

См. также

Работа с интерфейсом Анализ учета Мониторинг 1С v8.3 8.3.14 1C:Бухгалтерия 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 Платные (руб)

Создайте свой функциональный интерфейс в любой конфигурации 1С с помощью подсистемы "Инфоборды". Настраивайте панели виджетов с метриками, индикаторами и показателями на начальном экране. Подсистема реализована в форме расширения 1С.

16800 руб.

27.03.2025    4291    12    11    

15

Работа с интерфейсом Системный администратор Программист 1С v8.3 Управляемые формы 1C:Бухгалтерия Платные (руб)

Механизм «Динамическое управление доступом к элементам форм объектов 1С8» предназначен для обеспечения возможности оперативного управления видимостью и доступностью элементов форм документов и справочников продуктов фирмы «1С» «1С:Предприятие 8». Решение универсальное, встраивается в любую конфигурацию с минимальными доработками, что позволяет без проблем обновлять типовые решения.

6000 руб.

14.01.2016    57043    19    25    

45

Работа с интерфейсом 1С v8.3 Платные (руб)

Подсистема условного оформления элементов форм (далее подсистема) предназначена для настройки оформления элементов форм (видимость, доступность, цвет фона, цвет текста и прочее) в пользовательском режиме 1С. Также подсистему возможно использовать для ограничения доступа к реквизитам формы для определенных пользователей (или групп пользователей).

6000 руб.

18.01.2022    11023    2    2    

7

Работа с интерфейсом Программист 1С v8.3 1C:Бухгалтерия 1С:ERP Управление предприятием 2 Платные (руб)

Обработка предназначена для создания и управления дашбордами.

2400 руб.

29.06.2020    20955    30    6    

46

Работа с интерфейсом Программист Стажер 1С v8.3 Бесплатно (free)

Это инструкция по дизайну форм в среде 1С. Гайд охватывает рекомендации и стандарты для оптимизации пользовательского интерфейса. В гайде содержатся указания по использованию элементов интерфейса, включая как основные, так и продвинутые аспекты. Предоставляются также примеры и антипримеры для наглядного понимания принципов дизайна

20.08.2024    32376    mrXoxot    44    

134

Работа с интерфейсом Программист 1С v8.3 Бесплатно (free)

Пример простого и симпатичного прогресс-бара в динамическом списке, без картинок, используя редактирование запроса.

27.05.2024    18235    smielka    37    

105

Работа с интерфейсом 1С v8.3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 Бесплатно (free)

Добавьте новогоднего настроения! Расширение создает декорацию в виде гирлянды на некоторых формах объектов.

27.12.2023    20056    1261    elcoan    53    

128

Инструментарий разработчика Работа с интерфейсом Программист 1С v8.3 1C:Бухгалтерия Абонемент ($m)

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

3 стартмани

10.04.2023    14165    174    acces969    31    

131
Оставьте свое сообщение