"Подпись и печать" во внешней печатной форме.
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Помниться они очень хитро это сделали. Не разбиралась как эту галку они на форму выводили (у меня была внешняя обработка для пакетной печати счетов на оплату на которой пользователь и так ставил галку хочет он делать с факсимиле или нет) Поэтому разбираться как они ее в форму вывели мне было не вариант, но после обновления никак не могла вывести печатку с факсимиле(.
Но путем проб и ошибок нашла волшебную процедурку УправлениеПечатьюБП.ДобавитьФаксимилеВФоне
Если ее натравить на сформированный табдокумент и ссылку на документ, то подписи "волшебным путем" добавятся)
Но путем проб и ошибок нашла волшебную процедурку УправлениеПечатьюБП.ДобавитьФаксимилеВФоне
Если ее натравить на сформированный табдокумент и ссылку на документ, то подписи "волшебным путем" добавятся)
Оформил внешнюю печатную форму следующим образом (проверял на бухгалтерии 3.0.74.58):
Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
...
ПараметрыПечати = Новый Структура;
ПараметрыПечати.Вставить("ИмяПараметровПечати", ИмяПараметровПечати);
ПараметрыПечати.Вставить("ДополнитьКомплектВнешнимиПечатнымиФормами", Ложь);
Если УправлениеПечатью.НужноПечататьМакет( ...
...
УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию( ...
ПараметрыВывода.Вставить("ФормироватьЭД", Истина);
КонецЕсли;
...
ОбщегоНазначенияБП.ЗаполнитьДополнительныеПараметрыПечати(МассивОбъектов,
КоллекцияПечатныхФорм,
ОбъектыПечати,
ПараметрыВывода);
КонецПроцедуры // Печать()
Оставлю здесь, для бухгалтерии 3.0.112.34
Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
ТабДокумент = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("ИмяМакета");
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("МассивОбъектов", МассивОбъектов);
Запрос.Текст = "ВЫБРАТЬ
| РеализацияТоваровУслуг.Ссылка КАК Ссылка
|ИЗ
| Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
|ГДЕ
| РеализацияТоваровУслуг.Ссылка В(&МассивОбъектов)";
ДанныеОбъектовДляПечати = Запрос.Выполнить().Выгрузить();
Для Каждого ДанныеДокумента Из ДанныеОбъектовДляПечати Цикл
НомерСтрокиНачало = ТабДокумент.ВысотаТаблицы + 1; //необходимо для ЗадатьОбластьПечатиДокумента
ПечатьРеализации(ТабДокумент, ДанныеДокумента.Ссылка, Макет); //формирует табличный документ
//функции в которых формируются данные о печати и подписи
УправлениеПечатью.ЗадатьОбластьПечатиДокумента(
ТабДокумент, НомерСтрокиНачало, ОбъектыПечати, ДанныеДокумента.Ссылка);
УправлениеПечатьюБП.ДополнитьДокументПодписьюИПечатью(ТабДокумент, ДанныеДокумента, ОбъектыПечати, ПараметрыВывода);
КонецЦикла;
УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм,"Реализация (внешняя)","РеализацияВнешняя",ТабДокумент);
//так же требуется для правильной работы
ОбщегоНазначенияБП.ЗаполнитьДополнительныеПараметрыПечати(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода);
КонецПроцедуры
(5)
СПАС!
//функции в которых формируются данные о печати и подписи
УправлениеПечатью.ЗадатьОбластьПечатиДокумента(
ТабДокумент, НомерСтрокиНачало, ОбъектыПечати, ДанныеДокумента.Ссылка);
УправлениеПечатьюБП.ДополнитьДокументПодписьюИПечатью(ТабДокумент, ДанныеДокумента, Объ
УправлениеПечатью.ЗадатьОбластьПечатиДокумента(
ТабДокумент, НомерСтрокиНачало, ОбъектыПечати, ДанныеДокумента.Ссылка);
УправлениеПечатьюБП.ДополнитьДокументПодписьюИПечатью(ТабДокумент, ДанныеДокумента, Объ
СПАС!
Весело , стоит обратная задача
При формировании счета из внешней обработки раньше формировались печать и подпись , попросили убрать.
По идее надо сделать следующее:
Бухгалтерия предприятия, редакция 3.0 (3.0.129.13)
// ФайлИмяИПуть - тут путь и имя - в моем случае это PDF
При формировании счета из внешней обработки раньше формировались печать и подпись , попросили убрать.
По идее надо сделать следующее:
Бухгалтерия предприятия, редакция 3.0 (3.0.129.13)
// ФайлИмяИПуть - тут путь и имя - в моем случае это PDF
&НаСервере
Функция СформироватьФайлНаСервере(Документ, ФайлИмяИПуть )
/////////////////////////////////////////////////////////////////
ДокументСсылка = Документ;
Результат=СформироватьПечатнуюФорму(ДокументСсылка) ;
ИмяФайлаСчетаСПутем = ФайлИмяИПуть.ПутьСчета+"\"+ФайлИмяИПуть.ИмяФайлаСчета;
Результат.Записать(ИмяФайлаСчетаСПутем, ТипФайлаТабличногоДокумента.PDF);
Возврат Результат;
КонецФункции
&НаСервере
//По ссылке на документ получаем табличный документ печатной формы документа
функция СформироватьПечатнуюФорму(ДокументСсылка)
МассивОбъектов = Новый Массив();
МассивОбъектов.Добавить(ДокументСсылка);
ПараметрыПечати = Новый Структура();
ДопустимыеТипыОбъектовПечати = Неопределено;
Если ТипЗнч(ДокументСсылка) = Тип("ДокументСсылка.СчетНаОплатуПокупателю") Тогда
ИмяМенеджераПечати = "Обработка.ПечатьСчетаНаОплату";
ИменаМакетов = "СчетЗаказ";
Иначе
ИмяМенеджераПечати = "Документ.РеализацияТоваровУслуг";
ИменаМакетов = "Акт";
КонецЕсли;
// Получение табличного документа печатной формы документа
ПечатныеФормы = УправлениеПечатью.СформироватьПечатныеФормы(ИмяМенеджераПечати, ИменаМакетов, МассивОбъектов,
ПараметрыПечати, ДопустимыеТипыОбъектовПечати);
ТбДок =ПечатныеФормы.КоллекцияПечатныхФорм[0].ТабличныйДокумент;
// попросили убрать печать и подпись
// Если ТипЗнч(ДокументСсылка) = Тип("ДокументСсылка.СчетНаОплатуПокупателю") Тогда
// УправлениеПечатьюБП.ДобавитьФаксимилеВФоне(ТбДок,ДокументСсылка); //Добавление печати и подписи в табличный документ
// КонецЕсли;
Возврат ТБДок;
КонецФункции
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот