Добавить папку в команды печати

02.09.23

✎

14:13

Подскажите пожалуйста. Зуп 3.1 справочник сотрудники. Есть много внешних печатных форм, которые печатаются из формы справочника сотрудника. Как сделать папку в команде печать, чтобы сгрупировать печатные формы по папкам?

1 sdf

02.09.23

✎

15:38

КомандаПечати.МестоРазмещения = "Моя папка";

+ в ОМ ПодключаемыеКоманды:

&После("ВывестиКоманды")
Процедура _ВывестиКоманды(Форма, Команды, ПараметрыРазмещения)

    //в ДобавитьКомандыПечати может быть указано КомандаПечати.МестоРазмещения = "Моя папка";

    ПодменюПечать = Форма.Элементы.Найти("ПодменюПечать");
    МоёПодменю = неопределено;

    Для Каждого к Из Команды Цикл
        Если к.Подменю = "Моя папка"  И НЕ ПодменюПечать = Неопределено Тогда

            Если МоёПодменю = Неопределено Тогда
                МоёПодменю = Форма.Элементы.Добавить("ПодменюПечать_"+к.Подменю, Тип("ГруппаФормы"), ПодменюПечать);
                МоёПодменю.Вид = ВидГруппыФормы.Подменю;
                МоёПодменю.Заголовок = к.Подменю;
                МоёПодменю.Картинка = БиблиотекаКартинок.МОЁ_Лого16;

                ПерваяКоманда = Форма.Элементы.Найти(Команды[0].ИмяВФорме);
                Если НЕ ПерваяКоманда = Неопределено Тогда
                    Форма.Элементы.Переместить(МоёПодменю,ПодменюПечать,ПерваяКоманда)
                КонецЕсли;

            КонецЕсли;

            КомандаПечати = Форма.Элементы.Найти(к.ИмяВФорме);

            Если НЕ КомандаПечати = Неопределено Тогда
                Форма.Элементы.Переместить(КомандаПечати, МоёПодменю);
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;

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

2 Sanek77

02.09.23

✎

15:53

(1) Извините не понял а это "КомандаПечати.МестоРазмещения = "Моя папка";" где прописать надо

3 sdf

02.09.23

✎

18:19

конечно же в ДобавитьКомандыПечати
https://its.1c.ru/db/bsp318doc#content:4:hdoc:issogl3_разработка_команд_печати

4 Sanek77

02.09.23

✎

19:16

(3)у меня в сведениях о внешней обработке прописано
Команда = ПараметрыРегистрации.Команды.Добавить();
    Команда.Представление = "Дополнительное соглашение к трудовому договору";
    Команда.Идентификатор = ИдентификаторКомандыПечати();
    Команда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовСерверногоМетода();
    Команда.ПоказыватьОповещение = Истина;
    Команда.Модификатор = "ПечатьMXL";

Сюда не добавляется

5 Мимохожий Однако

03.09.23

✎

08:59

(4) См. расширения