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

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

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

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

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