Имя: Пароль:
1C
1С v8
Косяк ЗУП3.1ОбщиеФормы"СохранениеПечатнойФормы"
0 bfss-732
 
28.12.22
07:58
Всем предновогодний привет!
Есть внешняя печатная форма, но не могу понять, почему при сохранении печатки  через  ОбщиеФормы"СохранениеПечатнойФормы" не выводит "Присоединить к документу(Присоединить)", т.е. присоеденить к документу.
Через отладчик нашел причину, в коде ниже Параметры.ОбъектыПечати пустой. Как его заполнить через внешнюю печатку?




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