Визуализация электронной подписи на исходящих документах в соответствии с ГОСТ Р 7.0.97-2016. Полная автоматизация

22.05.20

Визуализация ЭЦП по ГОСТу Р 7.0.97-2016, предложенная в предыдущей статье (https://infostart.ru/public/931674/) на данную тему, очень прижилась у меня в организации. Начальник часть писем повелел подписывать ЭЦП и не тревожить его по пустякам. Но механизм подписи требовал некоторого количества ручных действий, а хочется полной автоматизации. Итак, постановка задачи: штамп должен позиционироваться сам, pdf-файл со штампом ЭЦП должен создаваться сам и в карточку исходящего документа тоже должен сам загружаться.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
Визуализация ЭП на документах в соответствии с ГОСТ Р 7.0.97-2016. Полная автоматизация.: .zip 27,76Kb 80	80	Скачать (1 SM)	Купить за 1 850 руб.

На помощь нам приходит заполнение файла по шаблону, в который мы поместим особую метку. Но раз мы используем заполнение по шаблону, то правильно будет заполнять автоматически исходящий номер, краткое наименование документа, сведения о подписывающем лице и исполнителе документа. Файл шаблона и алгоритмы заполнения полей MS Word я приложу в архиве вместе с реализацией алгоритмов заполнения.
Алгоритм действий пользователей при подготовке исходящего письма следующий:

Исполнитель создаёт письмо по шаблону, заполняет реквизиты и допечатывает необходимый текст в частично заполненный документ.
Документ проходит процессы согласования, которые приняты в организации для такого вида документов.
Согласованный документ отправляется на регистрацию.
Сотрудник документооборота, снабжённый ЭЦП начальника:
- проверяет правильность оформления документа;
- регистрирует документ;
- заполняет регистрационную информацию в файле;
- подписывает документ ЭЦП;
- формирует визуализацию данного документа;
- отправляет документ по почте (при использовании внутренней почты в исходящем письме необходимо удалить файл, подписанный ЭЦП, т. к. он всё равно не уйдёт).

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

Небольшая ремарка про метки. Их в общем случае может быть несколько. Называются они «Sign1”, “Sign2” и т. д. Они расставляются в нужных местах документа и красятся белым цветом, чтобы их не было видно. Размер штампа по вертикали составляет 2,7 см, и чтобы текст ниже штампа не поплыл (MS Word не позволяет использовать поля формы в колонтитулах), необходимо создавать запас пространства. В файле примера используется невидимая таблица с фиксированной высотой.

Непосредственно в форме элемента справочника «Исходящие документы» необходимо создать команды «Визулизация ЭЦП» и «Создать файл визуализации», и привязать их к функциональной опции «Использовать электронные подписи». Эти команды нужно разместить в группе «Форма ЭП и Шифрование/ЭП» с настройкой «Только во всех действиях» и в группе “КонтекстноеМенюФайлыГруппаЭП” таблицы значений «Файлы». Чтобы было совсем красиво, можно внести изменения в процедуру «УстановитьДоступностьКоманд».

Пара моментов про создание файлов PDF. Файлы создаются на компьютере пользователя и по этому MS Word 2007+ должен стоять там. Но MS Word умеет сохранять документы в формат PDF только с версии 2010. Для пользователей MS Word 2007 необходимо установить надстройку 2007 Microsoft Office: сохранение в формате PDF или XPS (Майкрософт).

Блоки кода большие и я их спрячу под спойлер.

Модифицированная процедура "УстановитьДоступностьКоманд"

&НаКлиенте
Процедура УстановитьДоступностьКоманд(ТекущиеДанные)
	
	Если Элементы.Обзор.Видимость Тогда
		Префикс = "";
	Иначе	
		Префикс = "Создание";
	КонецЕсли;

	Если ТекущиеДанные = Неопределено
		Или ТипЗнч(Элементы["Файлы"+Префикс].ТекущаяСтрока) = Тип("СтрокаГруппировкиДинамическогоСписка") Тогда
				
		УстановитьДоступностьКоманды(Элементы["ОткрытьФайл"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыОткрытьФайл"+Префикс], Ложь);
				
		УстановитьДоступностьКоманды(Элементы["Напечатать"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыНапечатать"+Префикс], Ложь);
		
		УстановитьДоступностьКоманды(Элементы["Редактировать"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыРедактировать"+Префикс], Ложь);
		
		УстановитьДоступностьКоманды(Элементы["ЗакончитьРедактирование"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыЗакончитьРедактирование"+Префикс], Ложь);

		УстановитьДоступностьКоманды(Элементы["Изменить"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыИзменить"+Префикс], Ложь);
		
		УстановитьДоступностьКоманды(Элементы["Занять"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыЗанять"+Префикс], Ложь);
		
		УстановитьДоступностьКоманды(Элементы["СохранитьИзменения"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыСохранитьИзменения"+Префикс], Ложь);
		
		УстановитьДоступностьКоманды(Элементы["Удалить"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыУдалить"+Префикс], Ложь);
		
		УстановитьДоступностьКоманды(Элементы["СохранитьКак"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыСохранитьКак"+Префикс], Ложь);
		
		УстановитьДоступностьКоманды(Элементы["Освободить"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыОсвободить"+Префикс], Ложь);
		
		УстановитьДоступностьКоманды(Элементы["ОбновитьИзФайлаНаДиске"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыОбновитьИзФайлаНаДиске"+Префикс], Ложь);
		
		УстановитьДоступностьКоманды(Элементы["ФайлыРаспознать"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыРаспознать"+Префикс], Ложь);
		
		УстановитьДоступностьКоманды(Элементы["ФайлыПодписатьФайл"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыПодписатьФайл"+Префикс], Ложь);
	                                 
		УстановитьДоступностьКоманды(Элементы["ФайлыДобавитьЭПИзФайла"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыДобавитьЭПИзФайла"+Префикс], Ложь);
		
		УстановитьДоступностьКоманды(Элементы["ФайлыСохранитьВместеСЭП"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыСохранитьВместеСЭП"+Префикс], Ложь);

		УстановитьДоступностьКоманды(Элементы["ФайлыЗашифровать"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыЗашифровать"+Префикс], Ложь);
		
		УстановитьДоступностьКоманды(Элементы["ФайлыРасшифровать"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыРасшифровать"+Префикс], Ложь);
		
		УстановитьДоступностьКоманды(Элементы["ФайлыЗаполнитьФайлДаннымиДокумента"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыЗаполнитьФайлДаннымиДокумента"+Префикс], Ложь);
		
		УстановитьДоступностьКоманды(Элементы["ФайлыВставитьРегистрационныйНомер"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыВставитьРегистрационныйНомер"+Префикс], Ложь);
		
		УстановитьДоступностьКоманды(Элементы["ФайлыВставитьШтрихкод"+Префикс], Ложь);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыВставитьШтрихкод"+Префикс], Ложь);
		
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыСнятьОтметкуСканКопияОригиналаУВсехФайлов"+Префикс], Ложь);
		
		// начало модификации кода
		УстановитьДоступностьКоманды(Элементы["ФайлыКонтекстноеМенюВизулизацияЭЦП"], Ложь);
		УстановитьДоступностьКоманды(Элементы["ВизулизацияЭЦП"], Ложь);
		
		УстановитьДоступностьКоманды(Элементы["ФайлыКонтекстноеМенюСоздатьФайлВизуализации"], Ложь);
	        УстановитьДоступностьКоманды(Элементы["СоздатьФайлВизуализации"], Ложь);
		// конец модификации кода
	
	Иначе
		
		РедактируетТекущийПользователь = ТекущиеДанные.РедактируетТекущийПользователь;
		Редактирует = ТекущиеДанные.Редактирует;
		ПодписанЭП = ТекущиеДанные.ПодписанЭП;
		Зашифрован = ТекущиеДанные.Зашифрован;
		СозданПоШаблонуДокумента = ТекущиеДанные.СозданПоШаблонуДокумента;
		РазрешеноРедактирование = Не (ЗапретитьРедактироватьФайлы И СозданПоШаблонуДокумента);
		РазрешеноУдаление = Не (ЗапретитьУдалятьФайлы И СозданПоШаблонуДокумента);
		
		УстановитьДоступностьКоманды(Элементы["ОткрытьФайл"+Префикс], Истина);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыОткрытьФайл"+Префикс], Истина);
				
		УстановитьДоступностьКоманды(Элементы["Напечатать"+Префикс], Истина);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыНапечатать"+Префикс], Истина);

		УстановитьДоступностьКоманды(Элементы["Редактировать"+Префикс], НЕ ТекущиеДанные.ПодписанЭП И РазрешеноРедактирование);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыРедактировать"+Префикс], НЕ ТекущиеДанные.ПодписанЭП И РазрешеноРедактирование);
		
		УстановитьДоступностьКоманды(Элементы["ЗакончитьРедактирование"+Префикс], РедактируетТекущийПользователь И РазрешеноРедактирование);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыЗакончитьРедактирование"+Префикс], РедактируетТекущийПользователь И РазрешеноРедактирование);

		УстановитьДоступностьКоманды(Элементы["Изменить"+Префикс], Истина);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыИзменить"+Префикс], Истина);
		
		УстановитьДоступностьКоманды(Элементы["Занять"+Префикс], Редактирует.Пустая() И РазрешеноРедактирование);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыЗанять"+Префикс], Редактирует.Пустая() И РазрешеноРедактирование);

		УстановитьДоступностьКоманды(Элементы["СохранитьИзменения"+Префикс], РедактируетТекущийПользователь И РазрешеноРедактирование);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыСохранитьИзменения"+Префикс], РедактируетТекущийПользователь И РазрешеноРедактирование);

		УстановитьДоступностьКоманды(Элементы["Удалить"+Префикс], РазрешеноУдаление);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыУдалить"+Префикс], РазрешеноУдаление);
		
		УстановитьДоступностьКоманды(Элементы["СохранитьКак"+Префикс], Истина);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыСохранитьКак"+Префикс], Истина);

		УстановитьДоступностьКоманды(Элементы["Освободить"+Префикс],  Не Редактирует.Пустая() И РазрешеноРедактирование);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыОсвободить"+Префикс],  Не Редактирует.Пустая() И РазрешеноРедактирование);

		УстановитьДоступностьКоманды(Элементы["ОбновитьИзФайлаНаДиске"+Префикс], РазрешеноРедактирование);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыОбновитьИзФайлаНаДиске"+Префикс], РазрешеноРедактирование);
				
		Расширение = ТекущиеДанные.Расширение;
		ИспользоватьImageMagickДляРаспознаванияPDF = ФайловыеФункцииКлиентПовтИсп.ПолучитьПерсональныеНастройкиРаботыСФайлами().ИспользоватьImageMagickДляРаспознаванияPDF;
		РасширениеПоддерживается = РаботаСФайламиКлиентСервер.ЭтотФайлМожноРаспознать(Расширение, ИспользоватьImageMagickДляРаспознаванияPDF);
		
		УстановитьДоступностьКоманды(Элементы["ФайлыРаспознать"+Префикс], РасширениеПоддерживается И Редактирует.Пустая());
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыРаспознать"+Префикс], РасширениеПоддерживается И Редактирует.Пустая());

		УстановитьДоступностьКоманды(Элементы["ФайлыПодписатьФайл"+Префикс], Редактирует.Пустая() И НЕ Зашифрован);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыПодписатьФайл"+Префикс], Редактирует.Пустая() И НЕ Зашифрован);

                УстановитьДоступностьКоманды(Элементы["ФайлыДобавитьЭПИзФайла"+Префикс], Редактирует.Пустая() И НЕ Зашифрован);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыДобавитьЭПИзФайла"+Префикс], Редактирует.Пустая() И НЕ Зашифрован);
		
		УстановитьДоступностьКоманды(Элементы["ФайлыСохранитьВместеСЭП"+Префикс], ПодписанЭП);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыСохранитьВместеСЭП"+Префикс], ПодписанЭП);
				
		УстановитьДоступностьКоманды(Элементы["ФайлыЗашифровать"+Префикс], Редактирует.Пустая() И НЕ Зашифрован);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыЗашифровать"+Префикс], Редактирует.Пустая() И НЕ Зашифрован);
		
		УстановитьДоступностьКоманды(Элементы["ФайлыРасшифровать"+Префикс], Зашифрован);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыРасшифровать"+Префикс], Зашифрован);

		УстановитьДоступностьКоманды(Элементы["ФайлыВставитьШтрихкод"+Префикс], Редактирует.Пустая());
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыВставитьШтрихкод"+Префикс], Редактирует.Пустая());

		УстановитьДоступностьКоманды(Элементы["ФайлыВставитьРегистрационныйНомер"+Префикс], ЗначениеЗаполнено(Объект.РегистрационныйНомер));
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыВставитьРегистрационныйНомер"+Префикс], ЗначениеЗаполнено(Объект.РегистрационныйНомер));

		УстановитьДоступностьКоманды(Элементы["ФайлыСохранитьВместеСЭП"+Префикс], ПодписанЭП);
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыСохранитьВместеСЭП"+Префикс], ПодписанЭП);
		
		УстановитьДоступностьКоманды(Элементы["ФайлыЗаполнитьФайлДаннымиДокумента"+Префикс], ТекущиеДанные.СозданИзШаблона И Редактирует.Пустая());
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыЗаполнитьФайлДаннымиДокумента"+Префикс], ТекущиеДанные.СозданИзШаблона И Редактирует.Пустая());
		
		УстановитьДоступностьКоманды(Элементы["КонтекстноеМенюФайлыСнятьОтметкуСканКопияОригиналаУВсехФайлов"+Префикс], Не Элементы.Оригинал.ТолькоПросмотр);
		
		// начало модификации кода
		УстановитьДоступностьКоманды(Элементы["ФайлыКонтекстноеМенюВизулизацияЭЦП"], ПодписанЭП);
		УстановитьДоступностьКоманды(Элементы["ВизулизацияЭЦП"], ПодписанЭП);
		
		УстановитьДоступностьКоманды(Элементы["ФайлыКонтекстноеМенюСоздатьФайлВизуализации"], ПодписанЭП);
	        УстановитьДоступностьКоманды(Элементы["СоздатьФайлВизуализации"], ПодписанЭП);
		// конец модификации кода
	КонецЕсли;
	
КонецПроцедуры

Текст команд визуализации

#Область ВизуализацияЭЦП

&НаКлиенте
Процедура ВизулизацияЭЦП(Команда)
	// открываем форму настройки положения
	ПараметрыНастроек = Новый Структура;
	ПараметрыНастроек.Вставить("ЗаголовокФормы", НСтр("ru = 'Положение штампа ЭПЦ странице'"));
	ПараметрыНастроек.Вставить("РежимИспользованияНастроек", 1);
	ПараметрыНастроек.Вставить("ЗапросОриентацииСтраницы", Ложь);
	ОписаниеОповещения = Новый ОписаниеОповещения("ВизуализацияЭЦППродолжение", ЭтотОбъект);
	ШтрихкодированиеКлиент.ПолучитьНастройкиШтрихкода(ПараметрыНастроек, ОписаниеОповещения);		
КонецПроцедуры

&НаКлиенте
Процедура ВизуализацияЭЦППродолжение(НастройкиШтрихкода, ДополнительныеПараметры) Экспорт
	ВизуализацияЭЦПКлиент.СоздатьВизуализациюЭЦП(ЭтаФорма);
КонецПроцедуры	

&НаКлиенте
Процедура СоздатьФайлВизуализации(Команда)
	ВизуализацияЭЦПКлиент.СоздатьВизуализациюЭЦП(ЭтаФорма, Истина);
КонецПроцедуры


#КонецОбласти

Вот и всё, останется только заставить пользователей делать исходящие письма по шаблону. Очень помогает открыть тайну копирования карточки документов, а то люди думают, что им нужно будет заново набирать тексты у всех исходящих писем.

В архиве содержатся следующие файлы:

файл конфигурации для объединения с основной;
пример шаблона исходящего письма;
скрипты заполнения полей файла шаблона.

P.S. Чуть не забыл. При заполнении шаблона в качестве телефона исполнителя документа выводится рабочий телефон и чтобы он появился в системе нужно добавить соответствующую запись в справочнике "Виды контактной информации" в группу "Контактная информация справочника "Пользователи".

Все доработки реально работают в 1С:Документооборот версии 2.1.12.2. Теперь не стыдно и в XXI век шагнуть.

UPD: Для версии 1С:Документооборот 2.1.13.28 и выше смотрите другую статью, там много чего поменялось.

ЭЦП электронная подпись ГОСТ Р 7.0.97-2016

+32 –

См. также

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

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

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

48500 руб.

19.02.2016 108547 121 5

SALE! 20%

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

Загрузка и выгрузка в Excel Оптовая торговля Печатные формы Бухгалтер Пользователь Платформа 1С v8.3 Управляемые формы Платформа 1C v8.2 Конфигурации 1cv8 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С:Розница 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Универсальная обработка для загрузки документов из Excel в 1С одним нажатием. Не требует указания параметров (номера колонок, номер первой строки таблицы и т.д.) и предварительной настройки. Просто выбираете файл Excel, документ 1С и нажимаете кнопку "Загрузить". Обработка сама находит таблицу в файле Excel, необходимые для загрузки данные в ней (номенклатура, количество, НДС, цена, сумма) и загружает ее в 1С. Вместе с номенклатурой может найти контрагента, номер и дату документа, штрих-коды, серии ГТД, страну и т.д. Распознает документы ЛЮБОЙ ФОРМЫ (УПД, ТОРГ-12, заказ, отчет комиссионера и т.д.). Не требует MS Office. Для поиска таблиц используются методы эвристического поиска. Загружает только то, что нужно, т.е. пропускает повторы шапки таблицы, заголовки, промежуточные итоги, подписи и т.д. Содержит модуль работы с электронной почтой и api-загрузчик отчетов о продажах маркетплейсов.

~~6000~~ 5100 руб.

09.11.2016 234094 1062 898

1003

SALE! 15%

Infostart PrintWizard - создание и редактирование печатных форм в 1С 8.3

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

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

~~22200~~ 19980 руб.

06.10.2023 15396 35 7

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С и нажимаете кнопку "Распознать и загрузить".

~~8400~~ 5880 руб.

04.06.2019 106902 313 173

326

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

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

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

14400 руб.

13.03.2018 60694 207 76

120

Универсальная печать по шаблонам 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 46989 166 95

160

Путевые листы (расширение)

Печатные формы Бухгалтер Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Транспорт, автопарки, такси Бухгалтерский учет Платные (руб)

Учет путевых листов выполнен в виде расширения. Предназначен для учета путевых листов в конфигурации БП 3.0., УТ 11.5 и КА 2.5 Печатная форма: Типовая межотраслевая форма № 3. Утверждена постановлением Госкомстата России от 28.11.97 № 78. Типовая межотраслевая форма № 4-П от 18.09.2008 г. N 152 с учетом изменений указанных в Приказе Министерства транспорта Российской Федерации №368 от 11 сентября 2020 г. №368, Типовая межотраслевая форма № ЭСМ-7, и др. ЭСМ-2, 4-С, 3 спец., 6 спец., ПЛ для Автомобильного крана.

3600 руб.

14.10.2019 38848 258 216

167

КС 2 и КС 3 в 1С Бухгалтерия 3.0: заполнить, распечатать, сохранить. Отправить по ЭДО!

Печатные формы Производство готовой продукции (работ, услуг) Бухгалтер Платформа 1С v8.3 Бухгалтерский учет Оперативный учет 1С:Бухгалтерия 3.0 Строительство Россия Бухгалтерский учет Платные (руб)

Откройте для себя заполнение КС-2 и КС-3 в "1С:Бухгалтерия 3.0". Вы получаете удобство, скорость и систему, чтобы заполнить, распечатать и сохранить формы КС-2 и КС-3 из документов "Оказание производственных услуг" или "Реализация товаров услуг". Вы можете заполнить дополнительную информацию о материалах из документов "Требование-накладная" и указать сведения, которые не предусмотрены типовой конфигурацией "1С:Бухгалтерия 3.0". Так же доступно множество настроек для формирования КС-2 и КС-3.

3600 руб.

13.02.2019 96244 440 44

423

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. antonio_i 81 18.03.19 17:53 Сейчас в теме

Здравствуйте.
Правильно ли я понимаю, что штамп позиционируется только при использовании шаблона файла, а в случае, если файл будет загружен не по шаблону, а произвольный, то установка штампа не произойдёт?
И вопросец. А пробовали добавлять штамп в xml в нижней части страницы, чтобы просто отдельной строкой или таблицей?

2. soulner 461 18.03.19 23:37 Сейчас в теме

Доброй ночи! Штамп ЭЦП впечатывается вместо текстовой метки "Sign1" (или 2, 3 и т.д.). Эта метка может быть где угодно и её удобно использовать в шаблоне, но совершенно не обязательно.
Обработка меток происходит в 2 этапа:
1. сначала определяется количество меток в тексте шаблона

код подсчёта количества меток
// считаем количество меток ЕстьМетка = Истина; ВсегоМеток = 0; Пока ЕстьМетка И ВсегоМеток < 10 Цикл ЕстьМетка = СтрНайти(ПробныйФайл.ПолучитьТекст(), "Sign" + Строка(ВсегоМеток + 1)) > 0; Если ЕстьМетка Тогда ВсегоМеток = ВсегоМеток + 1; КонецЕсли; КонецЦикла; ЕстьМеткиВставки = ВсегоМеток > 0; Показать

код подсчёта количества меток

2. потом xml-файл пересоздаётся с заменой этих меток на код соответствующего по номеру штампа.

код замены меток на штампы
//вставка разметки для штампа в файл Пока ЧтениеXML.Прочитать() Цикл Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда ... ИначеЕсли ЧтениеXML.ТипУзла = ТипУзлаXML.Текст Тогда Если ЕстьМеткиВставки И ЧтениеXML.Значение = "Sign" + Строка(НомерШтампа + 1) Тогда // вставляем штамп с определённым номером // проверяем, чтобы не превысить количество штампов в массиве Если ГотовыеШтампыЭП.Количество() > НомерШтампа Тогда ЗаписьXML.ЗаписатьБезОбработки(ГотовыеШтампыЭП[НомерШтампа]); КонецЕсли; НомерШтампа = НомерШтампа + 1; Иначе ЗаписьXML.ЗаписатьТекст(ЧтениеXML.Значение); КонецЕсли; ИначеЕсли ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда ЗаписьXML.ЗаписатьКонецЭлемента(); КонецЕсли; КонецЦикла; Показать

код замены меток на штампы

Второго вопроса я не понял. Что имеется ввиду под нижней частью таблицы? Нижний колонтитул? Если да, то штамп туда поставить можно, а вывести поля формы для автозаполнения нет.

3. antonio_i 81 19.03.19 07:11 Сейчас в теме

(2)То есть к первому вопросу. Если нет меток то штамп не будет вставлен, т.е. в произвольном документе, который загрузит пользователь ничего не изменится, если его попытаться подписать и впечатать штампы.
2. Во втором вопросе я имел в виду:
А почему бы не добавлять абзацы(строки) с подписями и штампами прямо в нижней части документа без использования позиционирования? Я предположил, что, возможно, вы это пробовали сделать, может быть столкнулись с трудностями.

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

4. antonio_i 81 19.03.19 08:53 Сейчас в теме

(2) Словил ошибку:

{ОбщийМодуль.ПЛ_ВизуализацияЭЦПСервер.Модуль(42)}: Поле объекта не обнаружено (SN)
?(Сертификат.Субъект.Свойство("O"), Сертификат.Субъект.SN + " " + Сертификат.Субъект.GN, Сертификат.Субъект.CN)));

У себя поправил на:
...Сертификат.Субъект.Свойство("SN ")...

И ещё:

{ОбщийМодуль.ПЛ_ВизуализацияЭЦП_Клиент.Модуль(215)}: Ошибка при вызове метода контекста (Close)
МСВорд.Documents.Close();
по причине:
Произошла исключительная ситуация (Microsoft Word): Метод или свойство недоступны, поскольку эту команду нельзя использовать в режиме чтения.

5. soulner 461 19.03.19 09:07 Сейчас в теме

1. Там в меню 2 команды: "Визуализация ЭЦП" и "Создать файл визуализации". По команде "Визуализация ЭЦП" метки не ищутся и выводится штамп прямо сверху документа, чтобы его можно было позиционировать руками куда надо (предварительно запрашиваются координаты). А по команде "Создать файл визуализации" ищутся метки и вместо них вставляются штампы. Если метки не найдены, то файл визуализации не формируется и выводится предупреждение.
2. Отвечу цитатой п.п. "а" п. 5.23 ГОСТ Р 7.0.97-2016: "место размещения отметки об электронной подписи должны соответствовать месту размещения собственноручной подписи в аналогичном документе на бумажном носителе;". Однако многим на это начхать. В версии 1С БГУ 1.0, например, информация об ЭЦП выводится над документом, полученным по ЭДО. И ничего страшного, мы публикуем такие документы на портале госзакупок и пока никто ничего не сказал. Несоответствие ГОСТу не делает документ юридически менее значимым.
3. По этому вопросу ничего не скажу. Выводить подписи снизу не по ГОСТу, но при формировании на сервере без меток непонятно как распределить штампы. ХЗ, короче.
Подписывать визуализированный файл идеологически неверно. По закону № 63-ФЗ "Об ЭЦП" есть определение: электронная подпись - информация в электронной форме, которая присоединена к другой информации в электронной форме (подписываемой информации) или иным образом связана с такой информацией и которая используется для определения лица, подписывающего информацию; Соответственно ЭЦП может быть прикреплённая и откреплённая (отдельный файл). Если Вы хотите отправлять юридически значимый файл контрагенту, то нужно его отправлять вместе с файлом ЭЦП, а на принимающей стороне должна производиться проверка корректности ЭЦП.
В настоящее время складывается практика отправки сканов документов со штампами ЭЦП (визуализированных документов), что неверно с точки зрения закона, но, как сказал наш юрист, "допустимо в сложившейся практике документооборота".

7. antonio_i 81 19.03.19 09:23 Сейчас в теме

(5)

Подписывать визуализированный файл идеологически неверно.

Это потому что подписывание идёт вслед за установкой штампа?
Но получается, что установка штампа после подписи сломает подпись.

(5)

Выводить подписи снизу не по ГОСТу

А почему не по ГОСТу? Ведь даже в примере подпись (штампик) снизу.
Ну может я плохо объясняю.
Я имел в виду всю строку, где указан подписант, его должность и сам штамп формировать полностью.

9. antonio_i 81 19.03.19 09:29 Сейчас в теме

(5) И ещё
Правильно ли я понимаю, что на не-windows системах работать не будет?

6. soulner 461 19.03.19 09:13 Сейчас в теме

По поводу имён свойств не подскажу, всегда считал, что есть общепринятые свойства сертификата (O, CN, SN и т.д.), если у вас по-другому, то это странно.
Команду МСВорд.Documents.Close(); оберните в конструкцию Попытка ... Исключение ... У меня на клиентских машинах без данной команды оставались висеть процессы MS Word.

8. antonio_i 81 19.03.19 09:25 Сейчас в теме

(6) Да в итоге когда закомментировал уже ошибка совместного доступа.

{ОбщийМодуль.ПЛ_ВизуализацияЭЦП_Клиент.Модуль(181)}: Ошибка при вызове метода контекста (ПереместитьФайл)
	ПереместитьФайл(НовыйФайлZip, НовыйПутьКФайлу);
по причине:
Ошибка переименования файлов
по причине:
Ошибка совместного доступа к файлу 'C:\temp\!!!!!!!Исх шаблон.docx'. 32(0x00000020): Процесс не может получить доступ к файлу, так как этот файл занят другим процессом.

Надо будет добавить проверку на существование одноимённого файла.

11. antonio_i 81 19.03.19 14:07 Сейчас в теме

(6)
Оказалось, что документ открывался только на чтение в строке

WordДокумент = МСВорд.Documents.Open(НовыйПутьКФайлу,, -1);

Исправил на

WordДокумент = МСВорд.Documents.Open(НовыйПутьКФайлу,, Ложь);

и ошибка пропала.
Возможно разные версии office. Не понятно.

Ещё всё же, думаю, стоит имена файлов во временном хранилище формировать с помощью
ПолучитьИмяВременногоФайла ()
Ну или уникальный идентификатор приписывать...
и потом в конце прикрепления удалять файлы из временного хранилища. (в процессе их можно накапливать в массиве, к примеру)

10. soulner 461 19.03.19 10:24 Сейчас в теме

1. Идеологически неверно потому, что визуализируется уже существующая подпись (так следует из ГОСТа), а сама подпись - это информация. И, конечно, вставка подписи в файл сделает подпись недействительной (1C:Документооборот не даст сохранить файл).
2. В примере штампик внизу, но он находится между полей формы, которые заполняются при заполнении шаблона: слева должность подписанта, справа его ФИО, так, что строго выполняется п.п. "а" п. 5.23 ГОСТа.
3. Для не-Windows систем есть следующие выходы:
а) если не-Windows клиент, а сервер Windows, то можно переписать алгоритм для формирования визуализации на сервере, но тогда только по шаблону с метками;
б) если Windows нет совсем, то можно адаптировать работу алгоритма к LibreOffice (тут коллеге удалось, можно связаться и уточнить), но тогда нужно решать вопрос с созданием PDF и либо искать соответствующую команду COM-сервера, либо пытаться реализовать печать на виртуальном принтере PDF (примеры для 1С и windows я находил в сети).
4.Ошибка МСВорд.Documents.Close(); очень странная. Я тестировал работу алгоритма на MS Word 2007 и 2016 и всё было нормально. Может переменная МСВорд.Documents как-то переинициализируется. Не знаю что и предположить.

12. kaljro 21.03.19 13:22 Сейчас в теме

"Произошла исключительная ситуация (Microsoft Word): Метод или свойство недоступны, поскольку эту команду нельзя использовать в режиме чтения." - Такая же ошибкаи у меня. Ворд подвешивается, и если еще раз прожать, то уже "Процесс не может получить доступ к файлу" естественно.

13. soulner 461 21.03.19 14:15 Сейчас в теме

(12) Очень жаль, что вы не указываете хотя бы номер строки, в которой произошла ошибка. А в телепатии я пока слаб.
Очень похоже на ошибку, описанную с посте № 4, уважаемого antonio_i, он нашёл решение и описал его в посте № 11. Лично я с такой ошибкой не сталкивался.

14. antonio_i 81 21.03.19 15:14 Сейчас в теме

(12)
Посмотрите мой ответ № 11
Там у меня была такая же ошибка, я исправил.

15. Монту 31.05.19 16:12 Сейчас в теме

Неплохая реализация, никаких проблем как у antonio_i не было. Жаль что юридическая составляющая этого всего никакая... т.к. док не подписан, а просто картинка.

А идей по поводу добавления визуализации в pdf нету?

16. soulner 461 31.05.19 16:38 Сейчас в теме

(15) Позвольте не согласиться. Юридическая составляющая нормальная. Документ подписан в соответствии с ФЗ № 63 и визуализирован согласно ГОСТу.
Визуализация в pdf делается с помощью библиотеки pdftk. Там можно слепить 2 pdf-документа. Верхний содержит визуализацию и прозрачный фон, а нижний - сам документ. Тут сложными являются вопросы позиционирования штампа и согласования размеров изображений, на основании которых сделаны файлы pdf.

47. ilya-golev 04.02.21 15:31 Сейчас в теме

(16)По юридической составляющей - визуализация согласно ГОСТа требуется для документа, который будет просмотрен на экране или распечатан на принтере (бумаге). Это требование формально соблюдено, Но.... кода вы попытаетесь открыть такой файл в ПО, предназначено для проверки подписи, то увидите два штампа подписи - один Ваш, интегрированный в сам файл и второй, сгенерированный этим ПО на основании приложенного к документу сертификата, а это уже юридически неверно - добавленный Вами штамп (в виде картинки) никак не относится к ЭЦП, это просто картинка.

48. soulner 461 04.02.21 21:01 Сейчас в теме

(47) Не соглашусь. Какой "такой файл"? У нас есть 3 файла:
1. непосредственно сам документ (например, письмо или договор);
2. откреплённая электронная подпись в формате PKCS#7;
3. визуализация в формате Adobe PDF.
Программа проверки ЭП возьмёт файл 1 и 2, проверит, а потом создаст новую визуализацию.

49. ilya-golev 05.02.21 07:34 Сейчас в теме

(48)Какой из файлов вы отправите получателю в качестве эл.документа? 1 и 2. Тогда зачем делать 3, если визуализировать он будет 1+2? Но если 3, то он никак не относится к ЭД, т.к не подписан ЭЦП.

17. it@medipal-onko.ru 30.07.19 14:43 Сейчас в теме

1. Если файл подписан несколькими подписями (Петров, Сидоров), то выводится 2 подписи Петрова.
2. Как заставить подпись позиционироваться внизу документа?

18. soulner 461 30.07.19 16:45 Сейчас в теме

(17) 1. Я не тестировал на предмет вставки нескольких штампов (у меня только одна ЭП). Разные варианты штампов хранятся в массиве ГотовыеШтампыЭП. Надо посмотреть отладчиком что там. В новой версии ДО, разработчики суют все подписи в один штамп, может так и надо.
2. Штамп может вставляться вместо метки или по координатам. Подберите координаты, чтобы подпись вставала куда надо. Координаты указываются в форме настройки положения штрихода (https://infostart.ru/public/931674/)

19. it@medipal-onko.ru 05.08.19 10:06 Сейчас в теме

(18) 1. У Вас ошибка, Вы не обнуляете Шаблон после замены, поэтому при наличии нескольких подписей всегда печатается первая заполненная. Нужно добавить в конец цикла получение шаблона
ШаблонДляВставкиШтампа = ВизуализацияЭЦПСервер.ПолучитьТекстДляВставки();

Тогда все красиво

2. Подскажите, как получить координаты подвала последней страницы в файле?

20. izidakg 172 06.12.19 08:21 Сейчас в теме

а если нужно в обычную печатную форму сделать вывод и потом сохранить в PDF? есть варианты?
через Word все плывет, а вывод, т.е. дорисовка чего-либо в PDF требует дополнительных программ, что тоже стабильности и простоты не добавляет

21. soulner 461 08.12.19 12:37 Сейчас в теме

(20) Добрый день. Не по теме вопрос. В данной публикации рассматривается подпись и визуализация произвольного документа (формат MS Word 2007+). В частности исходящего письма. А как у вас реализована генерация писем через обычную печатную форму? Поделитесь, интересно.
Если у Вас печатная форма, то всё значительно проще. Штамп с параметрами для подписи можно задизайнить прямо в макете и потом вжух:

ТабДок.Записать(ИмяФайла,ТипФайлаТабличногоДокумента.PDF);

и получить pdf-файл.

22. izidakg 172 08.12.19 14:01 Сейчас в теме

(21) еще не доделал, по сути таже зд, только другие детали
сохранение в виде Word, Excel, PDF роли не играет. Ваш вариант заточен на письма, мне нужно шире. Нужно сохранить печатную форму, наложить подпись ЭЦП, возможно подписать ЭЦП

23. ignor 237 23.12.19 12:38 Сейчас в теме

Поправьте программный код с учётом моих доработок по DOC

	Если НЕ Результат.ФайлПолучен Тогда
		Сообщить("Файл не получен на клиент, работа не возможна");
		Возврат;
	КонецЕсли;
	
	
	ВременныйФайлZip = ПолучитьИмяВременногоФайла("zip");
	НовыйФайл = Новый Файл(Результат.ПолноеИмяФайла);

	Если НРег(Результат.ДанныеФайла.Расширение)=НРег("doc") Тогда
		ВременныйФайлDocx = РабочийКаталогДанныхПользователя()+НовыйФайл.ИмяБезРасширения+".docx";
		НовыйФайл = "";
		НовыйПутьКФайлу = ВременныйФайлDocx;
		Попытка
			МСВорд = Новый COMОбъект("Word.Application");
		Исключение
		    Сообщить("Ошибка при попытке создать объект ""MS Word""!" + Символы.ПС + 
		             "Возможно приложение ""MS Word"" не установлено или установлено неправильно.", СтатусСообщения.Внимание);
		    Возврат;
		КонецПопытки;
		WordДокумент = МСВорд.Documents.Open(Результат.ПолноеИмяФайла);
		WordДокумент .SaveAs(ВременныйФайлDocx,16);
	    
		МСВорд.Application.Quit();
		НовыйФайл = Новый Файл(ВременныйФайлDocx);
		КопироватьФайл(ВременныйФайлDocx, ВременныйФайлZip);
		
	Иначе
		КопироватьФайл(Результат.ПолноеИмяФайла, ВременныйФайлZip);
	КонецЕсли;
	
	
	// копируем файл во временный каталог
	
	// распаковываем архив

Показать

24. soulner 461 23.12.19 15:52 Сейчас в теме

(23) Респект, коллега! Я не брался за doc, т.к. было лень изучать формат файла, а до вашего решения не додумался. Обязательно внесу изменения.

25. ignor 237 23.12.19 17:21 Сейчас в теме

Пардон ещё чуть-чуть кода который я у себя добавил. На предмет проверки версии офиса

		ВременныйФайлDocx = РабочийКаталогДанныхПользователя()+НовыйФайл.ИмяБезРасширения+".docx";
		НовыйФайл = "";
		НовыйПутьКФайлу = ВременныйФайлDocx;
		Попытка
			МСВорд = Новый COMОбъект("Word.Application");
		Исключение
		    Сообщить("Ошибка при попытке создать объект ""MS Word""!" + Символы.ПС + 
		             "Возможно приложение ""MS Word"" не установлено или установлено неправильно.", СтатусСообщения.Внимание);
		    Возврат;
		КонецПопытки;
		ver=МСВорд.Version;
		Если Число(Лев(ver,Найти(ver,".")-1))<12 Тогда
			Сообщить("Требуется версия не ниже Winword 2007!");
			Возврат;
		КонецЕсли;
		
		WordДокумент = МСВорд.Documents.Open(Результат.ПолноеИмяФайла);
		WordДокумент .SaveAs(ВременныйФайлDocx,16);

Показать

26. ignor 237 24.12.19 02:02 Сейчас в теме

Я в том смысле что я проверяю версию офиса. Если мы можем ставить штамп только в docx то такая проверка особо не нужна. Достаточно откроется файл или не откроется, а если мы ставим ещё штамп и в docx то лучше всё-таки проверить номер версии офиса. Нагуглено что для WinWord 2007 номер версии 12.

27. ignor 237 24.12.19 08:33 Сейчас в теме

и ещё совет по моей практике....
в макете поменяйте конструкцию color2="fill lighten(0)"
на opacity="0" color2="fill lighten(0)"

opacity="0" даёт прозрачность заливки, а то под штампом текст у Вас не проглядывается

хорошо бы коллеги ещё свой вариант под libre office

28. soulner 461 26.12.19 13:29 Сейчас в теме

(27) Благодарю за интерес к моей публикации, но почему бы не перейти на визуализацию ЭП описанную тут https://infostart.ru/public/1090369/. Она и красивей и современней. Код из текущей публикации, в случае его модификации, мне негде проверить, а выкладывать код с потенциальными багами очень не хочется. Ваши замечания будут внесены последнюю версию визуализатора ЭП.

29. soulner 461 14.01.20 20:59 Сейчас в теме

(27) Натолкнулся на статью https://habr.com/ru/post/320268/ Понятно, что COM-объектов быть не может под LibreOffice, но не важно. Можно из MsWord сконвертить в PDF с помощью консольной команды. У меня скоро выйдет новая публикация про визуализацию https://infostart.ru/public/1179881/, там можно с помощью небольшой доработки сделать поддержку LibreOffice.

30. Jasam 20.05.20 19:48 Сейчас в теме

Планируется ли встроить что-то подобное в стандартную конфигурацию 1С-ДО ? С учетом "удаленки" и "самоизоляции" - это стало ОЧЕНЬ АКТУАЛЬНО!

31. soulner 461 21.05.20 17:35 Сейчас в теме

(30) Сделали в версии 2.1.13.28, но не красиво на мой взгляд. Посмотрите тут https://infostart.ru/public/1179881/

32. user1263334 22.05.20 06:18 Сейчас в теме

Можно ли кроме визуализации ЭП скопировать саму ЭП из docx файла в pdf? Т.е., в карточке документа, при подписании ЭП docx файла появляется отметка, что он подписан ЭП. Возможно ли такое сделать и куда смотреть?

33. soulner 461 22.05.20 08:38 Сейчас в теме

(32) Нет, так нельзя. Файл MS Word подписан ЭП и по этому у него отметка, а визуализация не подписана и у неё отметки быть не может. Сама ЭП это файл, вы можете его выгрузить и посмотреть.

34. user1263334 03.06.20 20:01 Сейчас в теме

Доброго времени суток! А данный механизм подойдет для реализации вставки штампа регистрации+штамп ЭП. Т.е. должны вставляться два штампа в PDF после подписания электронной подписью?

35. soulner 461 04.06.20 13:30 Сейчас в теме

(34) Добрый день. Это не просто. Я дам ссылки на мысли по этому поводу. Свои и чужие.
1. вот публикация на эту тему, недавно обсуждалась в телеграмм-канале https://infostart.ru/public/830374/
2. это мой алгоритм http://forum.infostart.ru/forum24/topic233386/message2368407/#message2368407
3. вот коллега интересную идею предложил http://forum.infostart.ru/forum24/topic233386/message2368672/#message2368672

Сама по себе задача не сложная, только один вопрос не знаю, как решить. Слой изображения у входного pdf нужно привести к определённому разрешению. А дальше дело техники.

36. user1263334 04.06.20 14:00 Сейчас в теме

(35) Спасибо за подсказки. Будем думать дальше в этом направлении.

37. user1263334 09.06.20 13:50 Сейчас в теме

Доброго времени суток! Гипотетически, если нужно сохранить штамп подписи в doc файл без создания нового, куда смотреть? В пример вставки штампа?

38. user1263334 09.06.20 13:54 Сейчас в теме

Получилось снимать и возвращать электронную подпись на файл в момент регистрации (могу позже публикацию сделать). Хотелось бы, чтобы вставлялся в этот момент штамп ЭП.

39. soulner 461 09.06.20 14:22 Сейчас в теме

(38) Извините, я ваш первый вопрос не понял. В данной версии, штамп это фигура с шаблоном текста внутри. В новых версиях ДО, штамп - это изображение (https://infostart.ru/public/1179881/). В новых версиях ДО, вставка ЭП работает примерно так, как вы хотите (не при подписи, а при первом просмотре).

40. user1263334 09.06.20 19:19 Сейчас в теме

(39)Версия Документооборот 8 КОРП, редакция 2.1 (2.1.12.2). Нужно сохранять штамп ЭЦП в первоначальный docx файл.

41. soulner 461 09.06.20 20:13 Сейчас в теме

(40) Тогда перестанет быть валидной ЭП. Так нельзя. Да и программа не даёт сохранить файл с признаком, что он подписан ЭП

42. user1263334 09.06.20 21:10 Сейчас в теме

(41)В данный момент при регистрации ЭП снимается, затем ставиться обратно после автозаполнения. Нужно, чтобы Штам ЭП отображался в файле doxc с ЭП. Ниже код обработчика.

    // автозаполнение файлов
    
    Документ = Событие.Источник;

	ПодчиненныеФайлы = РаботаСФайламиВызовСервера.ПолучитьВсеПодчиненныеФайлы(Документ, Ложь);
	
	Для Каждого Файл Из ПодчиненныеФайлы Цикл       
        Если (Файл.ТекущаяВерсияРасширение = "docx" ИЛИ Файл.ТекущаяВерсияРасширение = "doc") 
             И НЕ Файл.ПометкаУдаления 
             И НЕ Файл.ШаблонОснованиеДляСоздания = Справочники.Файлы.ПустаяСсылка()
             И Файл.Редактирует = Справочники.Пользователи.ПустаяСсылка() Тогда
 
           Если ПолучитьФункциональнуюОпцию("ИспользоватьЭлектронныеПодписи") И Файл.ПодписанЭП Тогда

			  СуществующаяВерсия = Файл.ТекущаяВерсия;
			  ФайлОбъект = Файл.ПолучитьОбъект();
			  ФайлОбъект.ПодписанЭП = Ложь;
			  ФайлОбъект.Записать();
                ДанныеВыполнения = АвтозаполнениеШаблоновФайловКлиентСервер.ЗаполнитьПоляФайлаДаннымиВладельца(Истина, Файл, Истина);
			  ФайлОбъект = Файл.ПолучитьОбъект();
			  ФайлОбъект.ПодписанЭП = Истина;
			  ФайлОбъект.Записать();
			  НоваяВерсия = Файл.ТекущаяВерсия;

                УстановитьПривилегированныйРежим(Истина);
				ТекВерсияФайла = Файл.ТекущаяВерсия;
            	ТекущаяВерсия = ТекВерсияФайла.ПолучитьОбъект();
            	ТекущаяВерсия.ПодписанЭП = Ложь;
            	ТекущаяВерсия.Автор = Файл.Автор;
            	ТекущаяВерсия.ПодписанЭП = Истина;
            	ТекущаяВерсия.Записать();

			НаборЗаписей = РегистрыСведений.ЭлектронныеПодписи.СоздатьНаборЗаписей();
			НаборЗаписей.Отбор.Объект.Установить(СуществующаяВерсия);
			НаборЗаписей.Прочитать();
			Для Каждого Запись Из НаборЗаписей Цикл
				НоваяЗапись = РегистрыСведений.ЭлектронныеПодписи.СоздатьМенеджерЗаписи();
				НоваяЗапись.ДатаПодписи = Запись.ДатаПодписи;
				НоваяЗапись.Объект = НоваяВерсия;
				НоваяЗапись.УстановившийПодпись = Запись.УстановившийПодпись;
				НоваяЗапись.Версия = Запись.Версия;
				НоваяЗапись.ДатаПроверкиПодписи = Запись.ДатаПроверкиПодписи;
				НоваяЗапись.Комментарий = Запись.Комментарий;
				НоваяЗапись.КомуВыданСертификат = Запись.КомуВыданСертификат;
				НоваяЗапись.Отпечаток = Запись.Отпечаток;
				НоваяЗапись.Подпись = Запись.Подпись;
				НоваяЗапись.ПодписьВерна = Запись.ПодписьВерна;
				НоваяЗапись.Сертификат = Запись.Сертификат;
				НоваяЗапись.СертификатДействителен = Запись.СертификатДействителен;
				НоваяЗапись.ТекстОшибкиПроверкиПодписи = Запись.ТекстОшибкиПроверкиПодписи;
				НоваяЗапись.ТекстОшибкиПроверкиСертификата = Запись.ТекстОшибкиПроверкиСертификата;
				НоваяЗапись.Записать();
			КонецЦикла;

              УстановитьПривилегированныйРежим(Ложь);

           Иначе
                ДанныеВыполнения = АвтозаполнениеШаблоновФайловКлиентСервер.ЗаполнитьПоляФайлаДаннымиВладельца(Истина, Файл, Истина);
            	ТекущаяВерсия = Файл.ТекущаяВерсия.ПолучитьОбъект();
            	ТекущаяВерсия.Автор = Файл.Автор;
            	ТекущаяВерсия.Записать();
           КонецЕсли;

        КонецЕсли;
    КонецЦикла;

Показать

43. user1263334 10.06.20 07:22 Сейчас в теме

(41) Для получения данных сертификата ЭП в шаблон word можно отталкиваться от этой автоподстановки?

ПодписалДолжность СведенияПользователей = РегистрыСведений.СведенияОПользователяхДокументооборот.Получить(Новый Структура("Пользователь", Файл.ВладелецФайла.Подписал));
РезультатОбработки = СведенияПользователей.Должность;

44. user1263334 10.06.20 08:21 Сейчас в теме

Пример

Прикрепленные файлы:

screenshotf6e.pdf

45. soulner 461 11.06.20 09:44 Сейчас в теме

(44) Очень может быть, что код рабочий, но я с вами не согласен по одной очень принципиальной позиции. Электронная подпись письма формируется на основе результата хэш-функции, на вход которой подаются двоичные данные документа. Т.е. любое изменение документа приведёт к изменению его хэша и соответственно к недействительности подписи. Это одна из задач подписи (п. 3 ст. 5 63-ФЗ). Т.е. если вы уже создали документ (по шаблону или нет, не важно) и подписали его, то вносить изменения в него нельзя. И то, что вы снимаете признак, запрещающий запись, ничего не меняет.
Также, на мой взгляд некорректно самостоятельно менять регистр, если для этого есть специализированный функционал. Например процедура "ДобавитьПодпись" из общего модуля "ЭлектроннаяПодпись". Поверьте, там не только изменение регистра. Для примера могу рекомендовать моё расширение по приёму письма с ЭЦП (https://infostart.ru/public/1231374/). Я много сил потратил, чтобы разобраться в этом механизме.