УТ11+CRM
Делаю выборку из регистра сведений, нахожу нужные имена макетов печатных форм.
Нужно добавить в ПодменюПечать программно все команды из выборки.
Подскажите пожалуйста как это реализовать
Вот что то начал делать, может чушь конечно
Процедура ДобавлениеПриИзменении()
Выборка = ВыборкаМакетов();
ПроверкаСоответствияДоговора();
Пока Выборка.Следующий() Цикл
ИмяКоманды = Выборка.Получить(0);
Элемент = ЭтаФорма.Элементы.ПодменюПечать.ПодчиненныеЭлементы..Добавить("Печать_"+ИмяКоманды,Тип("КомандаФормы"),ЭтаФорма.Элементы.ПодменюПечать);
Элемент.Заголовок =СокрЛП(ИмяКоманды);
Элемент.Действие = "Подключаемый_ПечатьВнешнегоМакета";
Элемент.ИзменяетСохраняемыеДанные = Ложь;
Элемент.Отображение = ОтображениеКнопки.КартинкаИТекст;
КонецЦикла;
(1) советую продолжать протестировать написанное, затем исправить выявленные ошибки
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший