|   |   | 
| 
 | Добавить папку в команды печати | ☑ | ||
|---|---|---|---|---|
| 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) См. расширения     | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |