Не отображается подменю Печать в ДоговорРаботыУслуги

Форум Программирование Общие вопросы программирования (Dev)

1C:Бухгалтерия 1С:Бухгалтерия 3.0 Платформа 1С v8.3

1. user2108413 25.12.24 19:48 Сейчас в теме

Добрый вечер! По какой-то причине у меня не отображается подменю Печать в форме документа договора работы услуги, при этом оно есть в форме списка.

Вот так выглядит код внешней обработки, в которой создается команда для печати:

#Область Инициализация_Обработки

Функция СведенияОВнешнейОбработке () экспорт  
    ПараметрыРегистрации = Новый Структура;
    ПараметрыРегистрации.Вставить("Вид","ПечатнаяФорма");
    ПараметрыРегистрации.Вставить( "Назначение",ПолучитьНазначениеОбработки());
    ПараметрыРегистрации.Вставить( "Наименование","Договор возмездного оказания услуг");
    ПараметрыРегистрации.Вставить( "Версия","1.0");
    ПараметрыРегистрации.Вставить( "Информация","Дополнительная печатная форма: Договор возмездного оказания услуг");
    ПараметрыРегистрации.Вставить( "БезопасныйРежим",Истина);
    Команды = ПолучитьТаблицуКоманд();
    ДобавитьКоманду(Команды,"Договор возмездного оказания услуг",
    "ДоговорВозмездногоОказанияУслуг","ВызовСерверногоМетода",Ложь,"ПечатьMXL"); 
    ПараметрыРегистрации.Вставить("Команды", Команды); 
    Возврат ПараметрыРегистрации;
КонецФункции  

Функция ПолучитьНазначениеОбработки () 
    Массив = Новый Массив;
    Массив.Добавить("Документ.ДоговорРаботыУслуги");
    Возврат Массив;
КонецФункции

Функция ПолучитьТаблицуКоманд () 
    Команды = Новый ТаблицаЗначений;
    Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов ("Строка")); 
    Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов ("Строка"));
      Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов ("Строка")); 
       Команды.Колонки.Добавить("ПоказатьОповещение", Новый ОписаниеТипов ("Булево")); 
    Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов ("Строка")); 
       
    Возврат Команды;
КонецФункции 

Процедура ДобавитьКоманду (ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказатьОповещение=Ложь, Модификатор="") 
    НоваяКоманда = ТаблицаКоманд.Добавить();
    НоваяКоманда.Представление = Представление;
    НоваяКоманда.Идентификатор =  Идентификатор;
    НоваяКоманда.Использование = Использование;
    НоваяКоманда.ПоказатьОповещение = ПоказатьОповещение; 
    НоваяКоманда.Модификатор = Модификатор;
КонецПроцедуры 

Процедура ДобавитьКомандыПечати(КомандыПечати) Экспорт
    КомандаПечати = КомандыПечати.Добавить();                                                                   
    КомандаПечати.Обработчик = "УправлениеПечатьюБЗККлиент.ВыполнитьКомандуПечати";
    КомандаПечати.МенеджерПечати = "Документ.ДоговорРаботыУслуги";
    КомандаПечати.Идентификатор = "ДоговорВозмездногоОказанияУслуг";
    КомандаПечати.Представление = НСтр("ru = 'Договор возмездного оказания услуг'");
    КомандаПечати.Порядок = 30;
    КомандаПечати.ПроверкаПроведенияПередПечатью = Ложь;        
КонецПроцедуры                                                               

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

#КонецОбласти

Показать

Как можно добавить подменю печати в форму документа?

Прикрепленные файлы:

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. jmw 61 26.12.24 04:44 Сейчас в теме

А так?

Функция СведенияОВнешнейОбработке() Экспорт
	
	ВерсияБСП = "3.0.1.0";
	МетаданныеОбработки  = ЭтотОбъект.Метаданные();
	
	ПараметрыРегистрации = ДополнительныеОтчетыИОбработки.СведенияОВнешнейОбработке(ВерсияБСП);
	ПараметрыРегистрации.Информация = НСтр("ru = '" + МетаданныеОбработки.Синоним + "'");
	ПараметрыРегистрации.Вид        = ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработкиПечатнаяФорма();
	ПараметрыРегистрации.Версия     = МетаданныеОбработки.Комментарий;
	ПараметрыРегистрации.Назначение.Добавить("Документ.ДоговорРаботыУслуги");
	
	Команда = ПараметрыРегистрации.Команды.Добавить();
	Команда.Представление = НСтр("ru = '" + МетаданныеОбработки.Синоним + "'");
	Команда.Идентификатор = МетаданныеОбработки.Имя;
	Команда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовСерверногоМетода();
	
	Возврат ПараметрыРегистрации;
	
КонецФункции

Показать

Минимум для заготовки обработки печати

Оставьте свое сообщение

E-mail: