Это старая версия документа!

&НаСервере Процедура ДобавитьКнопкуПечатиРН()

РодительКоманд = элементы.ПодменюПечать; ДобавитьКнопкуПечатиРННаСервере(«РаспечататьРасходнуюНакладную»+РодительКоманд.имя,«Расходная накладная», «ДействияФормыРаспечататьРасходнуюНакладную»,РодительКоманд , Тип(«КнопкаФормы»));

КонецПроцедуры

&НаСервере Процедура ДобавитьКнопкуПечатиРННаСервере(Имя,Синоним,Действие,Родитель, Тип)

Если Тип = Тип("КнопкаФормы") Тогда
	ИмяКоманды = Имя;
	Команда = Команды.Добавить(ИмяКоманды);
	Команда.Действие = Действие;
	Команда.Заголовок =  Родитель.Имя+"."+Имя;
КонецЕсли;

НовыйЭлемент = Элементы.Добавить(ИмяКоманды,Тип,Родитель);
Если Тип = Тип("КнопкаФормы") Тогда
	НовыйЭлемент.ИмяКоманды = ИмяКоманды;
КонецЕсли;
НовыйЭлемент.Заголовок = Синоним;

КонецПроцедуры