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