Имя: Пароль:
1C
 
Добавить папку в команды печати
0 Sanek77
 
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) См. расширения