0
Sanek77
02.09.23
✎
14:13
|
Подскажите пожалуйста. Зуп 3.1 справочник сотрудники. Есть много внешних печатных форм, которые печатаются из формы справочника сотрудника. Как сделать папку в команде печать, чтобы сгрупировать печатные формы по папкам?
|
|
1
sdf
02.09.23
✎
15:38
|
КомандаПечати.МестоРазмещения = "Моя папка";
+ в ОМ ПодключаемыеКоманды:
&После("ВывестиКоманды")
Процедура _ВывестиКоманды(Форма, Команды, ПараметрыРазмещения)
//в ДобавитьКомандыПечати может быть указано КомандаПечати.МестоРазмещения = "Моя папка";
ПодменюПечать = Форма.Элементы.Найти("ПодменюПечать");
МоёПодменю = неопределено;
Для Каждого к Из Команды Цикл
Если к.Подменю = "Моя папка" И НЕ ПодменюПечать = Неопределено Тогда
Если МоёПодменю = Неопределено Тогда
МоёПодменю = Форма.Элементы.Добавить("ПодменюПечать_"+к.Подменю, Тип("ГруппаФормы"), ПодменюПечать);
МоёПодменю.Вид = ВидГруппыФормы.Подменю;
МоёПодменю.Заголовок = к.Подменю;
МоёПодменю.Картинка = БиблиотекаКартинок.МОЁ_Лого16;
ПерваяКоманда = Форма.Элементы.Найти(Команды[0].ИмяВФорме);
Если НЕ ПерваяКоманда = Неопределено Тогда
Форма.Элементы.Переместить(МоёПодменю,ПодменюПечать,ПерваяКоманда)
КонецЕсли;
КонецЕсли;
КомандаПечати = Форма.Элементы.Найти(к.ИмяВФорме);
Если НЕ КомандаПечати = Неопределено Тогда
Форма.Элементы.Переместить(КомандаПечати, МоёПодменю);
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
|
|