Зачем:
для генерации нового изображения печати из шаблона путем: вращения, изменения цвета, осветления/затемнения, смещения (задается пользователем) и с последующим выводом нового изображения в печатную форму при формировании.
Примеры использования:
пример №1
пример №2 (на 1с8 обычная форма)
пусть есть макет с объектом Картинка (чаще всего печатная форма документа с печатью организации, например, Счет)
добавим код формирования и вывода табличного документа и изображения печати из оригинала
Таб = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("Макет");
СтрокаМ = Макет.ПолучитьОбласть("Строка");
фПрог = "c:\GvTemp\sPicture.exe";
фШаблон = "c:\GvTemp\p1.png";
WshShell=Новый COMОбъект("wscript.shell");
Для Н = 1 По 5 Цикл
фРез = "c:\GvTemp\r + " + Н + ".png";
//КомандаСистемы(фПрог + "" + фШаблон + "" + фРез + " 1 1 1");
WshShell.Run(фПрог + "" + фШаблон + "" + фРез + " 1 1 1", 0, -1);
физФРез = Новый Файл(фРез);
Если Не физФРез.Существует() Тогда
Продолжить;
КонецЕсли;
СтрокаМ.Рисунки.МП.Картинка = Новый Картинка(фРез);
Таб.Вывести(СтрокаМ);
УдалитьФайлы(физФРез.Путь, физФРез.Имя);
КонецЦикла;
Таб.АвтоМасштаб = Истина;
Таб.Показать();
где изображение формируется Командой системы с параметрами, где
фПрог - полный путь к программе sPicture
фШаблон - полный путь к файлу шаблону (в качестве шаблона рекомендуется использовать .png изображение с прозрачным фоном и наличием пустого пространства от краев (необходимо для функции "Сдвигать") )
фРез - полный путь к файлу-результату обрабоки данных
1 1 1 - функции: Поворачивать, Менять цвет, Сдвигать, где 1 - использовать функцию, 0 - не использовать
В результате :
пример №3 (на 1с8 управляемая форма, или 1с77, или просто командная строка)
принцип реализации метода см пример №2, проблем возникнуть не должно.
Замечания и дополнения приветствуются.
Вступайте в нашу телеграмм-группу Инфостарт
