Добавление печатей на PDF документ 1С + ActiveX

Для перевыставления клиентам комиссий по переводу и покупке валют потребовалось дополнительно заверить банковские ордера печатью организации и печатью "Копия верна" с подписью директора.

Сами банковские ордера в формате PDF бухгалтера получают из банка. На банковском ордере установлена отметка банка об исполнении.

Попросили помочь автоматизировать.

После недолгих блужданий по гуглу была найдена бесплатная библиотека, позволяющая на существующий PDF файл накладывать различные тексты, изображения, изменять размер листа, генерировать QR коды на PDF и выполнять другие трансформации.

Ссылка на сайт с библиотекой: ссылка

Библиотека есть в 32х битной и 64х битной версии, выбираем нужную (в зависимости от установленной платформы)

Регистрируем ее как обычно regsvr32 «Путь\DebenuPDFLibrary64Lite1114.dll» или regsvr32 «Путь\DebenuPDFLibrary32Lite1114.dll»

Сканируем печать организации и штамп "Копия верна" с подписью директора, удаляем фон, например в GIMP, помещаем файлы справочник для хранения файлов (в разных конфигурациях свой)

Создаем внешнюю обработку, размещаем на ней кнопку "Загрузить", поле для выбора каталога и пишем несложный код:

Процедура ЗагрузитьНажатие(Элемент)
	Если Вопрос("Загрузить файлы из папки в документы айти Банковский ордер?", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Нет Тогда
		Возврат;	
	КонецЕсли; 
	
	Если ПустаяСтрока(КаталогСФайлами) Тогда
		Сообщение = Новый СообщениеПользователю;
		Сообщение.Текст = "Каталог не выбран!";
		Сообщение.Сообщить(); 	
		
		ПоказатьПредупреждение(, Сообщение.Текст);
		
		Возврат
	КонецЕсли; 
	
	нФайлы = НайтиФайлы(КаталогСФайлами, "*.zip");
	
	Печать = Справочники.ХранилищеДополнительнойИнформации.ПолучитьСсылку(Новый УникальныйИдентификатор("идентификатор"));
	КопияВерна = Справочники.ХранилищеДополнительнойИнформации.ПолучитьСсылку(Новый УникальныйИдентификатор("идентификатор"));

	СтрукутраХранениеФайлов = Новый Структура;
	СтрукутраХранениеФайлов.Вставить("Печать", Печать);
	СтрукутраХранениеФайлов.Вставить("КопияВерна", КопияВерна);


	Сч = 1;
	Для каждого нФайл Из нФайлы Цикл

		Состояние(Окр(Сч / нФайлы.Количество() * 100, 0, 1));
	
	    ЗаверитьФайл(нФайл.ПолноеИмя, СтрукутраХранениеФайлов);
			
		Сч = Сч + 1;

	КонецЦикла; 
	
	Сообщение = Новый СообщениеПользователю;
	Сообщение.Текст = "Обработка завершена!";
	Сообщение.Сообщить(); 
КонецПроцедуры

Процедура ЗаверитьФайл(ПолноеИмя, СтрукутраХранениеФайлов)
   // Полное имя файла - полный путь к PDF файлу на диске, который трубеуеться заверить печатью и подписью
   // СтрукутраХранениеФайлов - содержатся ссылки на справочник с файлами печати организации, и "копия верна"
  
    ИмяФайлаПечать = ПолучитьИмяВременногоФайла("png");
    ИмяФайлаКопияВерна = ПолучитьИмяВременногоФайла("png");
    
   // Записываем во временную папку файлы с печать и штампом "Копия верна"

     СтрукутраХранениеФайлов.Печать.Хранилище.Получить().Записать(ИмяФайлаПечать);
     СтрукутраХранениеФайлов.КопияВерна.Хранилище.Получить().Записать(ИмяФайлаКопияВерна);
    
   // Непосредственно накладываем картинки на PDF 
    DPDF = Новый COMОбъект("DebenuPDFLibraryLite1114.PDFLibrary");    
    
    DPDF.LoadFromFile(ПолноеИмя, "");
    
    // Загружаем в КОМ объект картинку с печатью, параметр 2 - обозначает прозрачный фон
    DPDF.AddImageFromFile(ИмяФайлаПечать, 2);
    
    lWidth = DPDF.ImageWidth();
    lHeight = DPDF.ImageHeight();

    // Расположение картинки на листе, ширина и высота - подобраны опытным путем
    DPDF.DrawImage(30, 150, lWidth / 1.5, lHeight / 1.5); 
    
    Если DPDF.SaveToFile(ПолноеИмя) <> 1 Тогда
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = "Не удалось наложить печать на файл!";
        Сообщение.Сообщить();
    КонецЕсли;
    
    DPDF.LoadFromFile(ПолноеИмя, "");
    
    DPDF.AddImageFromFile(ИмяФайлаКопияВерна, 2);
    
    lWidth = DPDF.ImageWidth();
    lHeight = DPDF.ImageHeight();
    
    DPDF.DrawImage(200, 150, lWidth / 1.5, lHeight / 1.5);
    
    Если DPDF.SaveToFile(ПолноеИмя) <> 1 Тогда
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = "Не удалось наложить копия верна на файл!";
        Сообщение.Сообщить();
    КонецЕсли;
    
    Попытка
        УдалитьФайлы(ИмяФайлаКопияВерна);
        УдалитьФайлы(ИмяФайлаПечать);    
    Исключение    
    КонецПопытки; 
    
КонецПроцедуры