Проект

Общее

Профиль

Дополнительные печатные формы » История » Версия 2

Всеволод Дорофеев, 30.10.2022 12:20

1 1 Всеволод Дорофеев
h1. Дополнительные печатные формы
2 1 Всеволод Дорофеев
3 1 Всеволод Дорофеев
h3. Подключение функционала печати к новым справочникам, документам
4 1 Всеволод Дорофеев
5 1 Всеволод Дорофеев
https://infostart.ru/1c/articles/1382297/
6 1 Всеволод Дорофеев
7 1 Всеволод Дорофеев
В форме объекта
8 1 Всеволод Дорофеев
<pre>
9 1 Всеволод Дорофеев
&НаСервере 
10 1 Всеволод Дорофеев
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
11 1 Всеволод Дорофеев
           // СтандартныеПодсистемы.ПодключаемыеКоманды
12 1 Всеволод Дорофеев
           ПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
13 1 Всеволод Дорофеев
           // Конец СтандартныеПодсистемы.ПодключаемыеКоманды
14 1 Всеволод Дорофеев
КонецПроцедуры
15 1 Всеволод Дорофеев
16 1 Всеволод Дорофеев
17 1 Всеволод Дорофеев
// СтандартныеПодсистемы.ПодключаемыеКоманды
18 1 Всеволод Дорофеев
&НаКлиенте 
19 1 Всеволод Дорофеев
Процедура Подключаемый_ВыполнитьКоманду(Команда)
20 1 Всеволод Дорофеев
          ПодключаемыеКомандыКлиент.ВыполнитьКоманду(ЭтотОбъект, Команда, Объект);
21 1 Всеволод Дорофеев
КонецПроцедуры 
22 1 Всеволод Дорофеев
23 1 Всеволод Дорофеев
&НаСервере
24 1 Всеволод Дорофеев
Процедура Подключаемый_ВыполнитьКомандуНаСервере(Контекст, Результат)
25 1 Всеволод Дорофеев
          ПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, Контекст, Объект, Результат);
26 1 Всеволод Дорофеев
КонецПроцедуры 
27 1 Всеволод Дорофеев
28 1 Всеволод Дорофеев
&НаКлиенте
29 1 Всеволод Дорофеев
Процедура Подключаемый_ОбновитьКоманды()
30 1 Всеволод Дорофеев
          ПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект);
31 1 Всеволод Дорофеев
КонецПроцедуры 
32 1 Всеволод Дорофеев
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
33 1 Всеволод Дорофеев
</pre>
34 1 Всеволод Дорофеев
35 1 Всеволод Дорофеев
На форме списка
36 1 Всеволод Дорофеев
37 1 Всеволод Дорофеев
<pre>
38 1 Всеволод Дорофеев
&НаСервере
39 1 Всеволод Дорофеев
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
40 1 Всеволод Дорофеев
	// Вставить содержимое обработчика.
41 1 Всеволод Дорофеев
	ПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
42 1 Всеволод Дорофеев
КонецПроцедуры
43 1 Всеволод Дорофеев
44 1 Всеволод Дорофеев
// СтандартныеПодсистемы.ПодключаемыеКоманды
45 1 Всеволод Дорофеев
&НаКлиенте
46 1 Всеволод Дорофеев
Процедура Подключаемый_ВыполнитьКоманду(Команда)
47 1 Всеволод Дорофеев
	ПодключаемыеКомандыКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда, Элементы.Список);
48 1 Всеволод Дорофеев
КонецПроцедуры
49 1 Всеволод Дорофеев
50 1 Всеволод Дорофеев
&НаКлиенте
51 1 Всеволод Дорофеев
Процедура Подключаемый_ПродолжитьВыполнениеКомандыНаСервере(ПараметрыВыполнения, ДополнительныеПараметры) Экспорт
52 1 Всеволод Дорофеев
	ВыполнитьКомандуНаСервере(ПараметрыВыполнения);
53 1 Всеволод Дорофеев
КонецПроцедуры
54 1 Всеволод Дорофеев
55 1 Всеволод Дорофеев
&НаСервере
56 1 Всеволод Дорофеев
Процедура ВыполнитьКомандуНаСервере(ПараметрыВыполнения)
57 1 Всеволод Дорофеев
	ПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, ПараметрыВыполнения, Элементы.Список);
58 1 Всеволод Дорофеев
КонецПроцедуры
59 1 Всеволод Дорофеев
60 1 Всеволод Дорофеев
&НаКлиенте
61 1 Всеволод Дорофеев
Процедура Подключаемый_ОбновитьКоманды()
62 1 Всеволод Дорофеев
	ПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Элементы.Список);
63 1 Всеволод Дорофеев
КонецПроцедуры
64 1 Всеволод Дорофеев
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
65 1 Всеволод Дорофеев
66 1 Всеволод Дорофеев
</pre>
67 1 Всеволод Дорофеев
68 1 Всеволод Дорофеев
69 1 Всеволод Дорофеев
В общем модуле (в расширении До или После) УправлениеПечатьюПереопределяемый, в процедуре ПриОпределенииОбъектовСКомандамиПечати  нужно добавить свои созданные документы, для которых нужна печать:
70 1 Всеволод Дорофеев
71 1 Всеволод Дорофеев
<pre>
72 1 Всеволод Дорофеев
73 1 Всеволод Дорофеев
Процедура ПриОпределенииОбъектовСКомандамиПечати(СписокОбъектов) Экспорт
74 1 Всеволод Дорофеев
               ....
75 1 Всеволод Дорофеев
	СписокОбъектов.Добавить(Документы.ксКонтрольКачестваНоменклатуры);
76 1 Всеволод Дорофеев
77 1 Всеволод Дорофеев
               ....
78 1 Всеволод Дорофеев
КонецПроцедуры
79 1 Всеволод Дорофеев
</pre> 
80 1 Всеволод Дорофеев
81 2 Всеволод Дорофеев
82 1 Всеволод Дорофеев
В модуле менеджера:
83 2 Всеволод Дорофеев
Обязательно должна быть. Может быть пустой.
84 1 Всеволод Дорофеев
85 1 Всеволод Дорофеев
<pre>
86 1 Всеволод Дорофеев
Процедура ДобавитьКомандыПечати(КомандыПечати) Экспорт
87 1 Всеволод Дорофеев
	
88 1 Всеволод Дорофеев
	КомандаПечати = КомандыПечати.Добавить();
89 1 Всеволод Дорофеев
	КомандаПечати.Идентификатор = "АктКонтроляКачества";
90 1 Всеволод Дорофеев
	КомандаПечати.Представление = НСтр("ru = 'Акт контроля качества");
91 1 Всеволод Дорофеев
	КомандаПечати.СписокФорм = "ФормаДокумента, ФормаСписка";
92 1 Всеволод Дорофеев
	КомандаПечати.ПроверкаПроведенияПередПечатью = Истина;
93 1 Всеволод Дорофеев
	КомандаПечати.Порядок = 1;
94 1 Всеволод Дорофеев
	
95 1 Всеволод Дорофеев
КонецПроцедуры
96 1 Всеволод Дорофеев
</pre>