Имя: Пароль:
1C
1С v8
Программное добавление команды печати пользовательского макета на форму УФ
0 art93
 
12.08.15
12:10
УТ11+CRM
Делаю выборку из регистра сведений, нахожу нужные имена макетов печатных форм.
Нужно добавить в ПодменюПечать программно все команды из выборки.
Подскажите пожалуйста как это реализовать
Вот что то начал делать, может чушь конечно

Процедура ДобавлениеПриИзменении()
    
    Выборка = ВыборкаМакетов();
    ПроверкаСоответствияДоговора();
    Пока  Выборка.Следующий() Цикл
        ИмяКоманды = Выборка.Получить(0);
        Элемент = ЭтаФорма.Элементы.ПодменюПечать.ПодчиненныеЭлементы..Добавить("Печать_"+ИмяКоманды,Тип("КомандаФормы"),ЭтаФорма.Элементы.ПодменюПечать);
        Элемент.Заголовок =СокрЛП(ИмяКоманды);
        Элемент.Действие = "Подключаемый_ПечатьВнешнегоМакета";
        Элемент.ИзменяетСохраняемыеДанные = Ложь;
        Элемент.Отображение = ОтображениеКнопки.КартинкаИТекст;
    КонецЦикла;
    
КонецПроцедуры
1 art93
 
12.08.15
12:23
Посоветуйте что нибудь пожалуйста
2 butterbean
 
12.08.15
12:30
(1) советую продолжать протестировать написанное, затем исправить выявленные ошибки