Обработка изображений (dpi, цветность) - для 1С отчетности. Обычные формы

20.11.15

Учетные задачи - Печатные формы

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

Скачать файлы

Наименование Файл Версия Размер
Конвертация картинок
.epf 9,06Kb
2
.epf 9,06Kb 2 Скачать

Бывает, что от компании требуется предоставить сканы документов в налоговую, и это можно сделать из 1с отчетности. Что удивительно - при привязке файлов к письму, разработчиками отчетности небыло предусмотрено никакой конвертации\сжатия картинок (только предупреждение, что, дескать, убедитесь что качество картинок соответствует), и когда бухгалтер через пару тысяч счет-фактур узнает что, видите ли, качество сканов слишком высокое - радости просто нету предела. По опыту, такие сканы просто не принимаются, приходит отбойник со словами "качество картинок не подходит".

Данная обработка заточена именно под налоговые, которым надо 150-300 dpi и 256-цветную ч\б картинку. Сначала искал что-то подобное, но примеров для работы с картинками из 1с не так уж и много.

Основа - компонента GFLAx, http://www.xnview.com/en/GFL/#downloads, ставится без проблем, если всетаки не работает - смотрим по ссылке http://infostart.ru/public/312924 (спасибо  insurgut )

Можно конечно, сделать через фотошоп\ ирфан вью, но пользователям проще выбрать файлы и нажать одну кнопку, чем руками крутить настройки

 

Добавлю основную процедуру, которой на вход идет строка с путем к файлу или папке с картинками, конвертированые картинки складываются в *\Обработанные файлы\


Процедура ОбработатьКартинку(ПутьФайла) Экспорт
	
	МассивРасширенийКартинок = Новый Массив;
	МассивРасширенийКартинок.Добавить(".bmp");
	МассивРасширенийКартинок.Добавить(".jpg");
	МассивРасширенийКартинок.Добавить(".jpeg");
	МассивРасширенийКартинок.Добавить(".tif");
	МассивРасширенийКартинок.Добавить(".gif");
	МассивРасширенийКартинок.Добавить(".png");
	
	ВхФайл = Новый Файл(ПутьФайла);
	Если Не ВхФайл.Существует() Тогда
		Сообщить("Указанный файл\каталог не существует!");
		Возврат;
	КонецЕсли;
	
	ОбъектКом = Новый COMОбъект("GFLAX.GFLAX");
	
	Если ВхФайл.ЭтоКаталог() Тогда
		КаталогСохранения = ПутьФайла + ?(Прав(ПутьФайла,1) = "\", "", "\")	+ "Обработанные файлы\";
		
		Файл = Новый Файл(КаталогСохранения);
		Если Не Файл.Существует() Тогда
			СоздатьКаталог(КаталогСохранения);
		КонецЕсли;
		
		///
		Для Каждого Расширение Из МассивРасширенийКартинок Цикл
			НайдФайлы = НайтиФайлы(ПутьФайла, "*" + Расширение, Ложь);
			Для Каждого НайдФайл Из НайдФайлы Цикл
				КонвертироватьПересохранитьФайл(ОбъектКом, НайдФайл, КаталогСохранения);
			КонецЦикла;				
		КонецЦикла;
				
	Иначе
		МассивЭлементов = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(ПутьФайла, "\");
		ПутьФайла2 = СтрЗаменить(ПутьФайла, МассивЭлементов[МассивЭлементов.Количество()-1], "");
		КаталогСохранения = ПутьФайла2 + ?(Прав(ПутьФайла2,1) = "\", "", "\") + "Обработанные файлы\";
		
		Файл = Новый Файл(КаталогСохранения);
		Если Не Файл.Существует() Тогда
			СоздатьКаталог(КаталогСохранения);
		КонецЕсли;
		
		КонвертироватьПересохранитьФайл(ОбъектКом, ВхФайл, КаталогСохранения);
	КонецЕсли;
	
	Сообщить("=== Выполнено. Обработанные файлы помещены в """ + КаталогСохранения + """");
	
КонецПроцедуры
Процедура КонвертироватьПересохранитьФайл(ОбъектКом, ВхФайл, КаталогСохранения)
	
	ТекИмяФайла = ВхФайл.ПолноеИмя;
	//ОбъектКом.EnableLZW = Истина;[=boolean] - для формата гиф
	ОбъектКом.LoadBitmap(ВхФайл.ПолноеИмя);
	
	ОбъектКом.Xdpi = 200;
	ОбъектКом.Ydpi = 200;
	
	ОбъектКом.ChangeColorDepth(256,0,1);
	ОбъектКом.SaveJPEGQuality = 75;
	
	Если ОбъектКом.SaveFormat <> 1 Тогда
		ОбъектКом.SaveFormat = 1;
		ТекИмяФайла = КаталогСохранения + ВхФайл.ИмяБезРасширения + ".jpg";
	Иначе
		ТекИмяФайла = КаталогСохранения + ВхФайл.Имя;
	КонецЕсли;
	
	Попытка
		ОбъектКом.SaveBitmap(ТекИмяФайла);
	Исключение
		Сообщить(ОписаниеОшибки());
	КонецПопытки;
	
КонецПроцедуры

См. также

1С:Документооборот - цена на лицензии КОРП, ПРОФ и ДГУ

Документооборот и делопроизводство (СЭД) Типовые Платформа 1С v8.3 Управленческий учет Платные (руб)

Организуйте правильный документооборот на вашем предприятии. Ведение учета и хранения документов. Управление потоками документации между подразделениями. Работа с договорами в компании. Автоматизация подготовки, согласования и подписания документов. Сократите время и объем ошибок с 1С:Документооборот!

42500 руб.

19.02.2016    107004    103    5    

84

SALE! 25%

Infostart PrintWizard

Пакетная печать Печатные формы Инструментарий разработчика Платформа 1С v8.3 Запросы 1С:Зарплата и кадры бюджетного учреждения 1С:Конвертация данных 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Платные (руб)

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

18000 15300 руб.

06.10.2023    7333    22    6    

39

Таймлист (1С:Совещание, Таймлист Лайт)

Документооборот и делопроизводство (СЭД) Конфигурации 1cv8

«Таймлист» – экосистема сервисов («Таймлист Лайт», «1C:Совещание», «Таймлист Recorder»), основанная на искусственном интеллекте Таймлист, который позволяет эффективно работать с легкими поручениями за счет фиксации всех важных идей при расшифровке и последующем формировании автопротокола встречи. Сервисы, в которые интегрирован ИИ, позволяют работать с задачами (поручениями), полученными из автопротокола.

10000 руб.

06.12.2023    1265    0    0    

5

Универсальная печать по шаблонам Word (Печать договоров из 1С БП 3, УНФ 1.6, ЗУП 3, УТ 11, КА 2, ERP 2, ДО 3)

Печатные формы Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 1С:ERP Управление предприятием 2 Платные (руб)

Научите вашу 1C печатать из 1С в файл Word (Например: трудовые договоры, договоры с контрагентами, спецификации, дополнительные соглашения, приказы, коммерческие предложения, акты, накладные, карточки партнера или любого справочника и многие другие). Универсальная печать предназначена для формирования печатных форм на основе шаблонов в формате Word из любой конфигурации 1С. С помощью данного инструмента можно самостоятельно заполнить шаблон реквизитами справочника или документа 1С и сформировать печатные формы на основании ссылки на любой объект.

5400 руб.

08.10.2019    42726    144    88    

134

SALE! 30%

Распознавание и загрузка сканов в 1С "одним нажатием": УПД, ТОРГ-12, накладные, счета, номенклатура, заказы и т.д.

Загрузка и выгрузка в Excel Документооборот и делопроизводство (СЭД) Учет документов Распознавание документов и образов Управляемые формы 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Управление холдингом 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Универсальная программа для распознавания ЛЮБЫХ СКАНОВ ИЛИ ФОТО ТОВАРНЫХ ДОКУМЕНТОВ в 1С. Не требует указания параметров и предварительной настройки. Просто выбираете файл (PDF, JPG, DOC, XLS, HTML и т.д.) выбираете документ 1С и нажимаете кнопку "Распознать и загрузить".

6000 5520 руб.

04.06.2019    101404    296    173    

312

1С:Архив

Документооборот и делопроизводство (СЭД) Платформа 1С v8.3 Платные (руб)

"1С:Архив" – это универсальная система, обеспечивающая надежное долговременное хранение документов с гарантией юридической значимости на неограниченный срок. "1С:Архив" разработан на основе нормативно-правовых актов по архивному делу, поддерживает операции хранения документов – от попадания в архив до уничтожения – и не имеет ограничений на объем хранимых данных. "1С:Архив" сопровождается методологической поддержкой в виде организационных документов по хранению, входящих в состав "Комплекта нормативных документов" к "Методике управления документами и совместной работой", разработанной специалистами фирмы "1С". Использование "1С:Архива" позволяет организовать единое хранилище всех бумажных и электронных документов из разных информационных систем, вести архивный учет в соответствии с требованиями Росархива и снизить нагрузку на учетные системы. Продукт подходит для малых, средних, крупных предприятий и учреждений любых отраслей.

90000 руб.

24.10.2022    4860    4    1    

4

SALE! 25%

УТ 11, КА 2, ERP 2: Настраиваемые под каждую организацию печать и подпись ответственных лиц в печатных формах (ТОРГ-12, Счёт-фактура, УПД, УКД, Заказ клиента, Акт сверки, М-15 и др.)

Печатные формы Взаиморасчеты Оптовая торговля Производство готовой продукции (работ, услуг) Акт сверки Оперативный учет Управляемые формы 1С:Управление торговлей 11 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Задайте для каждой организации свою печать и для каждого физического лица свою подпись. Выберите в документе печатную форму "... с печатью и подписью" - и автоматически сформируется табличный документ с печатью и подписями той организации и ответственных лиц, которые указаны в документе.

12000 9000 руб.

13.03.2018    56476    179    76    

112
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. salexdv 2327 20.11.15 15:18 Сейчас в теме
(0) Как вариант, можно воспользоваться GGraphics. Демо-версия, как раз, выводит только ч/б изображения.
Оставьте свое сообщение