|
Косяк ЗУП3.1ОбщиеФормы"СохранениеПечатнойФормы" | ☑ | ||
|---|---|---|---|---|
|
0
bfss-732
28.12.22
✎
07:58
|
Всем предновогодний привет!
Есть внешняя печатная форма, но не могу понять, почему при сохранении печатки через ОбщиеФормы"СохранениеПечатнойФормы" не выводит "Присоединить к документу(Присоединить)", т.е. присоеденить к документу. Через отладчик нашел причину, в коде ниже Параметры.ОбъектыПечати пустой. Как его заполнить через внешнюю печатку? &НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) // заполнение списка форматов Для Каждого ФорматСохранения Из УправлениеПечатью.НастройкиФорматовСохраненияТабличногоДокумента() Цикл ВыбранныеФорматыСохранения.Добавить(Строка(ФорматСохранения.ТипФайлаТабличногоДокумента), ФорматСохранения.Представление, Ложь, ФорматСохранения.Картинка); КонецЦикла; ВыбранныеФорматыСохранения[0].Пометка = Истина; // По умолчанию выбран только первый формат из списка. // Заполнение списка выбора для присоединения файлов к объекту. Для Каждого ОбъектПечати Из Параметры.ОбъектыПечати Цикл Если КОбъектуМожноПрисоединятьФайлы(ОбъектПечати.Значение) Тогда Элементы.ВыбранныйОбъект.СписокВыбора.Добавить(ОбъектПечати.Значение); КонецЕсли; КонецЦикла; // Место сохранения по умолчанию. ВариантСохранения = "СохранитьВПапку"; // настройка видимости ЕстьВозможностьПрисоединения = Элементы.ВыбранныйОбъект.СписокВыбора.Количество() > 0; Элементы.ВыборМестаСохраненияФайла.Видимость = Параметры.РасширениеДляРаботыСФайламиПодключено Или ЕстьВозможностьПрисоединения; Элементы.ВариантСохранения.Видимость = ЕстьВозможностьПрисоединения; Если Не ЕстьВозможностьПрисоединения Тогда Элементы.ПапкаДляСохраненияФайлов.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх; КонецЕсли; Элементы.ПапкаДляСохраненияФайлов.Видимость = Параметры.РасширениеДляРаботыСФайламиПодключено; // Объект для присоединения по умолчанию. Если ЕстьВозможностьПрисоединения Тогда ВыбранныйОбъект = Элементы.ВыбранныйОбъект.СписокВыбора[0].Значение; КонецЕсли; Элементы.ВыбранныйОбъект.ТолькоПросмотр = Элементы.ВыбранныйОбъект.СписокВыбора.Количество() = 1; Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; Элементы.КнопкаСохранить.Отображение = ОтображениеКнопки.Картинка; КонецЕсли; КонецПроцедуры |
| Форум | Правила | Описание | Секции | Поиск |