Дополнительные печатные формы » История » Версия 2
« Предыдущее -
Версия 2/3
(Разница(diff)) -
Следующее » -
Текущая версия
Всеволод Дорофеев, 30.10.2022 12:20
Дополнительные печатные формы¶
Подключение функционала печати к новым справочникам, документам¶
https://infostart.ru/1c/articles/1382297/
В форме объекта
&НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) // СтандартныеПодсистемы.ПодключаемыеКоманды ПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект); // Конец СтандартныеПодсистемы.ПодключаемыеКоманды КонецПроцедуры // СтандартныеПодсистемы.ПодключаемыеКоманды &НаКлиенте Процедура Подключаемый_ВыполнитьКоманду(Команда) ПодключаемыеКомандыКлиент.ВыполнитьКоманду(ЭтотОбъект, Команда, Объект); КонецПроцедуры &НаСервере Процедура Подключаемый_ВыполнитьКомандуНаСервере(Контекст, Результат) ПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, Контекст, Объект, Результат); КонецПроцедуры &НаКлиенте Процедура Подключаемый_ОбновитьКоманды() ПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект); КонецПроцедуры // Конец СтандартныеПодсистемы.ПодключаемыеКоманды
На форме списка
&НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) // Вставить содержимое обработчика. ПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект); КонецПроцедуры // СтандартныеПодсистемы.ПодключаемыеКоманды &НаКлиенте Процедура Подключаемый_ВыполнитьКоманду(Команда) ПодключаемыеКомандыКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда, Элементы.Список); КонецПроцедуры &НаКлиенте Процедура Подключаемый_ПродолжитьВыполнениеКомандыНаСервере(ПараметрыВыполнения, ДополнительныеПараметры) Экспорт ВыполнитьКомандуНаСервере(ПараметрыВыполнения); КонецПроцедуры &НаСервере Процедура ВыполнитьКомандуНаСервере(ПараметрыВыполнения) ПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, ПараметрыВыполнения, Элементы.Список); КонецПроцедуры &НаКлиенте Процедура Подключаемый_ОбновитьКоманды() ПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Элементы.Список); КонецПроцедуры // Конец СтандартныеПодсистемы.ПодключаемыеКоманды
В общем модуле (в расширении До или После) УправлениеПечатьюПереопределяемый, в процедуре ПриОпределенииОбъектовСКомандамиПечати нужно добавить свои созданные документы, для которых нужна печать:
Процедура ПриОпределенииОбъектовСКомандамиПечати(СписокОбъектов) Экспорт .... СписокОбъектов.Добавить(Документы.ксКонтрольКачестваНоменклатуры); .... КонецПроцедуры
В модуле менеджера:
Обязательно должна быть. Может быть пустой.
Процедура ДобавитьКомандыПечати(КомандыПечати) Экспорт КомандаПечати = КомандыПечати.Добавить(); КомандаПечати.Идентификатор = "АктКонтроляКачества"; КомандаПечати.Представление = НСтр("ru = 'Акт контроля качества"); КомандаПечати.СписокФорм = "ФормаДокумента, ФормаСписка"; КомандаПечати.ПроверкаПроведенияПередПечатью = Истина; КомандаПечати.Порядок = 1; КонецПроцедуры