УТ 11. Динамическое изменение MXL-макета внешней печатной формы в режиме 1С.

1С:Предприятие 8.2 (8.2.14.533),  Управление торговлей, редакция 11.0 (11.0.7.2)

Макеты можем отредактировать на Администрирование — Макеты печатных форм. Наши будут в самом низу

 

Режим конфигуратор, изменения:

Регистр Сведений — ПользовательскиеМакетыПечати

Открываем форму МакетыПечатныхФорм и вносим следующие изменения

//********************************************************************************************

&НаСервере

      Процедура ЗаполнитьСписокМетаданных(Фильтр = Неопределено)

          СписокМакетовДерево = РеквизитФормыВЗначение(«СписокМакетов»);

          ЗаполнитьДеревоПоКоллекцииМетаданных(СписокМакетовДерево, Метаданные.Документы, Ложь, Фильтр);
          ЗаполнитьДеревоПоКоллекцииМетаданных(СписокМакетовДерево, Метаданные.Обработки, Ложь);
          ЗаполнитьДеревоПоКоллекцииМетаданных(СписокМакетовДерево, Метаданные.ОбщиеМакеты, Истина);

          //+gavrikprog

          //тут не запрос, потому что так быстро отлажиматься — у меня одна внешняя форма в тесте
          Выборка=Справочники.ДополнительныеОтчетыИОбработки.Выбрать();
          Пока Выборка.Следующий() Цикл
              абОбработкаEPF=Выборка.Ссылка.ХранилищеОбработки.Получить();
              ИмяВременногоФайла = ПолучитьИмяВременногоФайла();
              абОбработкаEPF.Записать(ИмяВременногоФайла);
              абОбработка=ВнешниеОбработки.Создать(ИмяВременногоФайла );
              ДобавитьКоллекциюМакетов(абОбработка.Метаданные().Макеты,
              СписокМакетовДерево,
              «Справочники.ДополнительныеОтчетыИОбработки/»+Выборка.Ссылка.УникальныйИдентификатор()+«#»,
              Выборка.Ссылка.Наименование,
              Фильтр);

          КонецЦикла;
          //-gavrikprog

          Если СписокМакетовДерево.Строки.Количество() > 0 Тогда

 

//********************************************************************************************

Также изменения модуля УправлениеПечатью
//********************************************************************************************

Функция ПолучитьМакет(ПолныйПутьКМакету) Экспорт

    ЧастиПути = СтрЗаменить(ПолныйПутьКМакету, «.», Символы.ПС);

    Если СтрЧислоСтрок(ЧастиПути) = 3 Тогда

        //+gavrikprog
        Если Лев(ПолныйПутьКМакету,12)=«Справочники.» Тогда
            абПозиция=Найти(ПолныйПутьКМакету,«/»);
            абПозиция1=Найти(ПолныйПутьКМакету,«#»);;
            Если абПозиция<>0 Тогда
                СтрокаУИД=Сред(ПолныйПутьКМакету,абПозиция+1,абПозиция1—абПозиция—1);
                УИД=Новый УникальныйИдентификатор(СтрокаУИД);
                абОбъект=Справочники.ДополнительныеОтчетыИОбработки.ПолучитьСсылку(УИД);

                Запрос = Новый Запрос;
                Запрос.Текст =
                    «ВЫБРАТЬ
                    |    ПользовательскиеМакетыПечати.ИмяМакета,
                    |    ПользовательскиеМакетыПечати.Объект,
                    |    ПользовательскиеМакетыПечати.Макет,
                    |    ПользовательскиеМакетыПечати.Использование
                    |ИЗ
                    |    РегистрСведений.ПользовательскиеМакетыПечати КАК ПользовательскиеМакетыПечати
                    |ГДЕ
                    |    ПользовательскиеМакетыПечати.Объект ПОДОБНО &Объект»;

                Запрос.УстановитьПараметр(«Объект», «%»+СтрокаУИД+«%»);

                Результат = Запрос.Выполнить();

                ВыборкаДетальныеЗаписи = Результат.Выбрать();

                Если ВыборкаДетальныеЗаписи.Следующий() Тогда
                    абМакет=ВыборкаДетальныеЗаписи.Макет.Получить();
                    Результат = ПолучитьТабличныйДокументПоДвоичнымДанным(абМакет);
                    Возврат Результат;
                Иначе
                    Если абОбъект<>Справочники.ДополнительныеОтчетыИОбработки.ПустаяСсылка() Тогда
                        абОбработкаEPF=абОбъект.ХранилищеОбработки.Получить();
                        ИмяВременногоФайла = ПолучитьИмяВременногоФайла();
                        абОбработкаEPF.Записать(ИмяВременногоФайла);
                        абОбработка=ВнешниеОбработки.Создать(ИмяВременногоФайла );
                        абМакет=абОбработка.ПолучитьМакет(«аб_ПФ_MXL_Заказ»);
                        Возврат  абМакет;
                    КонецЕсли;
                КонецЕсли;
            КонецЕсли;
        Иначе
            ПутьКМетаданным = СтрПолучитьСтроку(ЧастиПути, 1) + «.» + СтрПолучитьСтроку(ЧастиПути, 2);
            ПутьКОбъектуМетаданных = СтрПолучитьСтроку(ЧастиПути, 3);
        КонецЕсли;
        //ПутьКМетаданным = СтрПолучитьСтроку(ЧастиПути, 1) + «.» + СтрПолучитьСтроку(ЧастиПути, 2);
        //ПутьКОбъектуМетаданных = СтрПолучитьСтроку(ЧастиПути, 3);
        //-gavrikprog

    ИначеЕсли СтрЧислоСтрок(ЧастиПути) = 2 Тогда
        ПутьКМетаданным = СтрПолучитьСтроку(ЧастиПути, 1);
        ПутьКОбъектуМетаданных = СтрПолучитьСтроку(ЧастиПути, 2);
    Иначе
        ВызватьИсключение НСтр(«ru = ‘Некорректные параметры функции.'»);
    КонецЕсли;

//********************************************************************************************

Общий модуль «ДополнительныеОтчетыИОбработки«
//********************************************************************************************

Процедура ПечатьПоВнешнемуИсточнику(ИсточникДанных,
                                ПараметрыИсточника,
                                КоллекцияПечатныхФорм,
                                ОбъектыПечати,
                                ПараметрыВывода) Экспорт

    КоллекцияПечатныхФорм = УправлениеПечатью.ПодготовитьКоллекциюПечатныхФорм(ПараметрыИсточника.ИдентификаторКоманды);

    ПараметрыВывода = УправлениеПечатью.ПодготовитьСтруктуруПараметровВывода();

    ОбъектыПечати = Новый СписокЗначений;

    ВнешняяОбработкаОбъект = ПолучитьОбъектВнешнейОбработки(ИсточникДанных, ПараметрыИсточника.БезопасныйРежим);

    //+gavrikprog
    ПараметрыВывода.Вставить(«абОбработка», ИсточникДанных);
    //-gavrikprog

//********************************************************************************************

Изменения во внешней обработке:

Когда получаем макет выполняем свою функцию(тут сами крутитесь — думаю несложно)

но когда получаем макет —

Макет=абПолучитьМакет(абОбработка);

 

В модуле объекта внешней формы;

//********************************************************************************************

Перем абОбработка;

Процедура Печать(МассивОбъектов,
                КоллекцияПечатныхФорм,
                ОбъектыПечати,
                ПараметрыВывода) Экспорт

    //+gavrikprog
    ПараметрыВывода.Свойство(«абОбработка», абОбработка);
    //-gavrikprog

    ПараметрыВывода.ДоступнаПечатьПоКомплектно = Истина;

    Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, «Заказ») Тогда
        УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(
                        КоллекцияПечатныхФорм,
                        «Заказ», «заказ»,
                        абПечатьЗаказ(МассивОбъектов, ОбъектыПечати), ,
                        «Документ.абЗаказНаПеревозку.ПФ_MXL_Заказ»);
    КонецЕсли;

КонецПроцедуры

//+gavrikprog
Функция абПолучитьМакет(СсылкаНаЭлементСправочникаДополнительныеОтчетыИОбработки)
    УстановитьПривилегированныйРежим(Истина);
    Результат1=ПолучитьМакет(«аб_ПФ_MXL_Заказ»);

    Если абОбработка<>Неопределено Тогда

        СтрокаУИД=Строка(СсылкаНаЭлементСправочникаДополнительныеОтчетыИОбработки.УникальныйИдентификатор());

        Запрос = Новый Запрос;
        Запрос.Текст =
        «ВЫБРАТЬ
        |    ПользовательскиеМакетыПечати.ИмяМакета,
        |    ПользовательскиеМакетыПечати.Объект,
        |    ПользовательскиеМакетыПечати.Макет,
        |    ПользовательскиеМакетыПечати.Использование
        |ИЗ
        |    РегистрСведений.ПользовательскиеМакетыПечати КАК ПользовательскиеМакетыПечати
        |ГДЕ
        |    ПользовательскиеМакетыПечати.Объект ПОДОБНО &Объект»;

        Запрос.УстановитьПараметр(«Объект», «%»+СтрокаУИД+«%»);

        Результат = Запрос.Выполнить();

        ВыборкаДетальныеЗаписи = Результат.Выбрать();

        Если ВыборкаДетальныеЗаписи.Следующий() Тогда
            абМакет=ВыборкаДетальныеЗаписи.Макет.Получить();
            Результат1 = ПолучитьТабличныйДокументПоДвоичнымДанным(абМакет);
        КонецЕсли;

    КонецЕсли;

    Возврат Результат1;
КонецФункции

Функция ПолучитьТабличныйДокументПоДвоичнымДанным(ДвоичныеДанные) Экспорт

    ИмяВременногоФайла = ПолучитьИмяВременногоФайла();
    ДвоичныеДанные.Записать(ИмяВременногоФайла);
    ТабличныйДокумент = Новый ТабличныйДокумент;
    ТабличныйДокумент.Прочитать(ИмяВременногоФайла);
    //УдалитьФайлы(ИмяВременногоФайла);

    Возврат ТабличныйДокумент;

КонецФункции
//-gavrikprog

//********************************************************************************************

 

---

Иполнитель: 2011 г. www.rt-finance.ru