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

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

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

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

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

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

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

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