Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 09:20

подменю печать на форме документа

Автор dimid, 07 окт 2016, 10:25

0 Пользователей и 1 гость просматривают эту тему.

dimid

создал внешнюю обработку печатной формы для документа Форма110. привязал к документу (доп внешние печатные формы). и столкнулся с такой проблемой. при открытии документа на командной панели отсутствует кнопка печать. Полез смотреть как в других доках, там кнопка присутствует. Делал по аналогии их кода. все равно кнопка отсутствует. код в форму документа "Форма110" добавлял такой:

Перем мДеревоМакетов;
// Хранит элемент управления подменю печати
Перем мПодменюПечати;

// Хранит элемент управления кнопку печать по умолчанию
Перем мПечатьПоУмолчанию;

Процедура УстановитьКнопкиПечати()
   
   мДеревоМакетов = УниверсальныеМеханизмы.ПолучитьДеревоМакетовПечати(Ссылка, неопределено, Новый Действие("ОсновныеДействияФормыПечать"), Новый Действие("ОсновныеДействияФормыУстановитьПечатьПоУмолчанию"));
   
   УниверсальныеМеханизмы.УстановитьПодменюПечати    (мПодменюПечати, ЭлементыФормы.ОсновныеДействияФормы, мДеревоМакетов.Строки.Количество() > 0);
   УниверсальныеМеханизмы.УстановитьПечатьПоУмолчанию(мПечатьПоУмолчанию, ЭлементыФормы.ОсновныеДействияФормы, мДеревоМакетов, Метаданные().Имя,Новый Действие("ОсновныеДействияФормыПечатьПоУмолчанию"));
   
   Если Не мПодменюПечати = Неопределено Тогда
      УниверсальныеМеханизмы.СформироватьПодменю(мДеревоМакетов, мПодменюПечати,Истина,Истина);
   КонецЕсли;    
   

КонецПроцедуры
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)

   // Установка кнопок печати
   УстановитьКнопкиПечати();
   
   
   
КонецПроцедуры // ПередОткрытием()
Процедура ОсновныеДействияФормыПечатьПоУмолчанию(Кнопка)
   УниверсальныеМеханизмы.ПечатьПоДополнительнойКнопке(мДеревоМакетов, ЭтотОбъект, ЭтаФорма, Кнопка.Текст);
   
КонецПроцедуры
Процедура ОсновныеДействияФормыПечать(Кнопка)
   УниверсальныеМеханизмы.ПечатьПоДополнительнойКнопке(мДеревоМакетов, ЭтотОбъект, ЭтаФорма, Кнопка.Текст);
   
КонецПроцедуры
Процедура ОсновныеДействияФормыУстановитьПечатьПоУмолчанию(Кнопка)
   
   Если УниверсальныеМеханизмы.НазначитьКнопкуПечатиПоУмолчанию(мДеревоМакетов, Метаданные().Имя) Тогда
      
      УстановитьКнопкиПечати();
      
   КонецЕсли;
   
   
КонецПроцедуры


Летящий в даль

Форму документа покажите, может быть вы не разместили ваще эту кнопку?

dimid

Цитата: Летящий в даль от 07 окт 2016, 11:17
Форму документа покажите, может быть вы не разместили ваще эту кнопку?
Процедура устанавливает подменю "Печать" и кнопку "Печать по умолчанию" при необходимости. На форме (по примеру которой вставлял код)кнопки нет.

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск