Проект

Общее

Профиль

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

Всеволод Дорофеев, 20.01.2023 12:46

1 1 Всеволод Дорофеев
h1. Дополнительные печатные формы
2 1 Всеволод Дорофеев
3 1 Всеволод Дорофеев
h3. Подключение функционала печати к новым справочникам, документам
4 1 Всеволод Дорофеев
5 1 Всеволод Дорофеев
https://infostart.ru/1c/articles/1382297/
6 3 Всеволод Дорофеев
https://infostart.ru/1c/articles/1132897/
7 1 Всеволод Дорофеев
8 1 Всеволод Дорофеев
В форме объекта
9 1 Всеволод Дорофеев
<pre>
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 Всеволод Дорофеев
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
34 1 Всеволод Дорофеев
</pre>
35 1 Всеволод Дорофеев
36 1 Всеволод Дорофеев
На форме списка
37 1 Всеволод Дорофеев
38 1 Всеволод Дорофеев
<pre>
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 Всеволод Дорофеев
67 1 Всеволод Дорофеев
</pre>
68 1 Всеволод Дорофеев
69 1 Всеволод Дорофеев
70 1 Всеволод Дорофеев
В общем модуле (в расширении До или После) УправлениеПечатьюПереопределяемый, в процедуре ПриОпределенииОбъектовСКомандамиПечати  нужно добавить свои созданные документы, для которых нужна печать:
71 1 Всеволод Дорофеев
72 1 Всеволод Дорофеев
<pre>
73 1 Всеволод Дорофеев
74 1 Всеволод Дорофеев
Процедура ПриОпределенииОбъектовСКомандамиПечати(СписокОбъектов) Экспорт
75 1 Всеволод Дорофеев
               ....
76 1 Всеволод Дорофеев
	СписокОбъектов.Добавить(Документы.ксКонтрольКачестваНоменклатуры);
77 1 Всеволод Дорофеев
78 1 Всеволод Дорофеев
               ....
79 1 Всеволод Дорофеев
КонецПроцедуры
80 1 Всеволод Дорофеев
</pre> 
81 1 Всеволод Дорофеев
82 2 Всеволод Дорофеев
83 1 Всеволод Дорофеев
В модуле менеджера:
84 2 Всеволод Дорофеев
Обязательно должна быть. Может быть пустой.
85 1 Всеволод Дорофеев
86 1 Всеволод Дорофеев
<pre>
87 1 Всеволод Дорофеев
Процедура ДобавитьКомандыПечати(КомандыПечати) Экспорт
88 1 Всеволод Дорофеев
	
89 1 Всеволод Дорофеев
	КомандаПечати = КомандыПечати.Добавить();
90 1 Всеволод Дорофеев
	КомандаПечати.Идентификатор = "АктКонтроляКачества";
91 1 Всеволод Дорофеев
	КомандаПечати.Представление = НСтр("ru = 'Акт контроля качества");
92 1 Всеволод Дорофеев
	КомандаПечати.СписокФорм = "ФормаДокумента, ФормаСписка";
93 1 Всеволод Дорофеев
	КомандаПечати.ПроверкаПроведенияПередПечатью = Истина;
94 1 Всеволод Дорофеев
	КомандаПечати.Порядок = 1;
95 1 Всеволод Дорофеев
	
96 1 Всеволод Дорофеев
КонецПроцедуры
97 1 Всеволод Дорофеев
</pre>