Сделать форму с настройками перед печатью
Есть такая задачка. Необходимо сделать внешнюю обработку. На форме списка документа выбираются несколько документов при нажатиии на кнопку печать выбирается моя внешняя обработка открывается форма внешней обработки и там указывается еще пару параметров. Как сделать вызов этой формы внешней обработки?
По теме из базы знаний
- Корректная двусторонняя печать табличных документов + Простой пример создания внешней печатной формы
- Формирование комплекта печатных форм в типовых конфигурациях для разнотипных документов
- Переход с 1С:УПП на 1C:ERP: Задача переноса печатных форм в сжатые сроки. Конструктор печати
- Внешняя печатная форма с выводом формы настроек перед печатью (выбор подписантов). Работает на БСП 3.1.9, имеет 1 форму настроек, есть режим отладки, управляемые формы 8.3
- PrintWizard: Консоль команд печати
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
если есть справочник для хранения внешних печатных форм и обработок то как то так, название реквизитов могут отличаться
ВременныйФайл = ПолучитьИмяВременногоФайла();
ЭлСпр = Справочники.ВнешниеПечатныеФормы.НайтиПоКоду("Код");
ДвоичныеДанныеОбработки = ЭлСпр.Хранилище.Получить();
ДвоичныеДанныеОбработки.Записать(ВременныйФайл);
ВнешняяОбработкаОбъект = ВнешниеОбработки.Создать(ВременныйФайл);
ФормаЗаписи = ВнешняяОбработкаОбъект.ПолучитьФорму("НазваниеФормы");
ФормаЗаписи .Открыть();
ВременныйФайл = ПолучитьИмяВременногоФайла();
ЭлСпр = Справочники.ВнешниеПечатныеФормы.НайтиПоКоду("Код");
ДвоичныеДанныеОбработки = ЭлСпр.Хранилище.Получить();
ДвоичныеДанныеОбработки.Записать(ВременныйФайл);
ВнешняяОбработкаОбъект = ВнешниеОбработки.Создать(ВременныйФайл);
ФормаЗаписи = ВнешняяОбработкаОбъект.ПолучитьФорму("НазваниеФормы");
ФормаЗаписи .Открыть();
(12) В функции СведенияОВнешнейОбработке использовать "ВызовКлиентскогоМетода", вместо "ВызовСерверногоМетода". В примере ниже при печати будет открыта форма "ФормаПодписей" обработки.
Функция СведенияОВнешнейОбработке() Экспорт
...
// Создадим таблицу команд (подробнее смотрим ниже)
ТаблицаКоманд = ПолучитьТаблицуКоманд();
// Добавим команду в таблицу
ДобавитьКоманду(ТаблицаКоманд, НаименованиеДляПользователя, "ФормаПодписей", "ВызовКлиентскогоМетода", Истина, "ПечатьMXL");
//ДобавитьКоманду(ТаблицаКоманд, НаименованиеДляПользователя, Наименование, "ВызовСерверногоМетода", Истина, "ПечатьMXL");
// Сохраним таблицу команд в параметры регистрации обработки
ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);
// Теперь вернем системе наши параметры
Возврат ПараметрыРегистрации;
КонецФункции
Показать
(14)
{ВнешняяОбработка.МТД_ПечатьНаОбработку.МодульОбъекта(11,21)}: Процедура или функция с указанным именем не определена (ПолучитьТаблицуКоманд)
ТаблицаКоманд = <<?>>ПолучитьТаблицуКоманд(); (Проверка: Сервер)
{ВнешняяОбработка.МТД_ПечатьНаОбработку.МодульОбъекта(14,5)}: Процедура или функция с указанным именем не определена (ДобавитьКоманду)
<<?>>ДобавитьКоманду(ТаблицаКоманд, "Нов печать", "Форма", "ВызовКлиентскогоМетода", Истина, "ПечатьMXL"); (Проверка: Сервер)
(16) Обычно берешь готовую внешнюю печатную форму и переделываешь ее для текущих нужд. Весь код модуля объекта внешней печатной формы М-11 для БП 3.0
Функция ПолучитьТаблицуКоманд()
// Создадим пустую таблицу команд и колонки в ней
Команды = Новый ТаблицаЗначений;
// Как будет выглядеть описание печатной формы для пользователя
Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
// Имя нашего макета, что бы могли отличить вызванную команду в обработке печати
Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));
// Тут задается, как должна вызваться команда обработки
// Возможные варианты:
// - ОткрытиеФормы - в этом случае в колонке идентификатор должно быть указано имя формы, которое должна будет открыть система
// - ВызовКлиентскогоМетода - вызвать клиентскую экспортную процедуру из модуля формы обработки
// - ВызовСерверногоМетода - вызвать серверную экспортную процедуру из модуля объекта обработки
Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));
// Следующий параметр указывает, необходимо ли показывать оповещение при начале и завершению работы обработки. Не имеет смысла при открытии формы
Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
// Для печатной формы должен содержать строку ПечатьMXL
Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));
Возврат Команды;
КонецФункции
Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")
// Добавляем команду в таблицу команд по переданному описанию.
// Параметры и их значения можно посмотреть в функции ПолучитьТаблицуКоманд
НоваяКоманда = ТаблицаКоманд.Добавить();
НоваяКоманда.Представление = Представление;
НоваяКоманда.Идентификатор = Идентификатор;
НоваяКоманда.Использование = Использование;
НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
НоваяКоманда.Модификатор = Модификатор;
КонецПроцедуры
&НаСервере
//////////////////////////////////////////////
//ОБРАБОТКИ ПОДКЛЮЧЕНИЯ ВНЕШНЕЙ ПЕЧАТНОЙ ФОРМЫ
Функция СведенияОВнешнейОбработке() Экспорт
//---------------
Наименование = "(ИС КФ) М-11";
НаименованиеДляПользователя = "(ИС КФ) М-11";
Версия = "3.0";
//---------------
// Объявим переменную, в которой мы сохраним и вернем "наружу" необходимые данные
ПараметрыРегистрации = Новый Структура;
// Объявим еще одну переменную, которая нам потребуется ниже
////МассивНазначений = Новый Массив;
// Первый параметр, который мы должны указать - это какой вид обработки системе должна зарегистрировать.
// Допустимые типы: ДополнительнаяОбработка, ДополнительныйОтчет, ЗаполнениеОбъекта, Отчет, ПечатнаяФорма, СозданиеСвязанныхОбъектов
ПараметрыРегистрации.Вставить("Вид", "ПечатнаяФорма");
// Теперь нам необходимо передать в виде массива имен, к чему будет подключена наша ВПФ
// Имейте ввиду, что можно задать имя в таком виде: Документ.* - в этом случае обработка будет подключена ко всем документам в системе,
// которые поддерживают механизм ВПФ
МассивНазначений = Новый Массив;
МассивНазначений.Добавить("Документ.ПередачаМатериаловВЭксплуатацию");
МассивНазначений.Добавить("Документ.ТребованиеНакладная");
ПараметрыРегистрации.Вставить("Назначение", МассивНазначений);
// Теперь зададим имя, под которым ВПФ будет зарегистрирована в справочнике внешних обработок
ПараметрыРегистрации.Вставить("Наименование", Наименование);
// Зададим право обработке на использование безопасного режима. Более подробно можно узнать в справке к платформе (метод УстановитьБезопасныйРежим)
ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина);
// Следующие два параметра играют больше информационную роль, т.е. это то, что будет видеть пользователь в информации к обработке
ПараметрыРегистрации.Вставить("Версия", Версия);
ПараметрыРегистрации.Вставить("Информация", НаименованиеДляПользователя);
// Создадим таблицу команд (подробнее смотрим ниже)
ТаблицаКоманд = ПолучитьТаблицуКоманд();
// Добавим команду в таблицу
ДобавитьКоманду(ТаблицаКоманд, НаименованиеДляПользователя, "ФормаПодписей", "ВызовКлиентскогоМетода", Истина, "ПечатьMXL");
//ДобавитьКоманду(ТаблицаКоманд, НаименованиеДляПользователя, Наименование, "ВызовСерверногоМетода", Истина, "ПечатьMXL");
// Сохраним таблицу команд в параметры регистрации обработки
ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);
// Теперь вернем системе наши параметры
Возврат ПараметрыРегистрации;
КонецФункции
Функция ПолучитьТаблицуКоманд()
// Создадим пустую таблицу команд и колонки в ней
Команды = Новый ТаблицаЗначений;
// Как будет выглядеть описание печатной формы для пользователя
Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
// Имя нашего макета, что бы могли отличить вызванную команду в обработке печати
Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));
// Тут задается, как должна вызваться команда обработки
// Возможные варианты:
// - ОткрытиеФормы - в этом случае в колонке идентификатор должно быть указано имя формы, которое должна будет открыть система
// - ВызовКлиентскогоМетода - вызвать клиентскую экспортную процедуру из модуля формы обработки
// - ВызовСерверногоМетода - вызвать серверную экспортную процедуру из модуля объекта обработки
Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));
// Следующий параметр указывает, необходимо ли показывать оповещение при начале и завершению работы обработки. Не имеет смысла при открытии формы
Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
// Для печатной формы должен содержать строку ПечатьMXL
Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));
Возврат Команды;
КонецФункции
Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")
// Добавляем команду в таблицу команд по переданному описанию.
// Параметры и их значения можно посмотреть в функции ПолучитьТаблицуКоманд
НоваяКоманда = ТаблицаКоманд.Добавить();
НоваяКоманда.Представление = Представление;
НоваяКоманда.Идентификатор = Идентификатор;
НоваяКоманда.Использование = Использование;
НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
НоваяКоманда.Модификатор = Модификатор;
КонецПроцедуры
//////////////////////////////////////////////
//ПРОЦЕДУРЫ ВНЕШЕЙ ПЕЧАТНОЙ ФОРМЫ
Функция Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
Наименование = "(ИС КФ) М-11";
НаименованиеДляПользователя = "(ИС КФ) М-11";
ТабДокументНаПечать = СформироватьТабличныйДокумент(МассивОбъектов);
Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, Наименование) Тогда
УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм,
Наименование, НаименованиеДляПользователя,
ТабДокументНаПечать);
КонецЕсли;
КонецФункции
Функция СформироватьТабличныйДокумент(МассивОбъектов, ОбъектыПечати = неопределено, СтруктураПодписей = неопределено) Экспорт
Перем ЧерезКогоДолжность;
Перем ЧерезКогоФИО;
Перем ЗатребовалДолжность;
Перем ЗатребовалФИО;
Перем РазрешилДолжность;
Перем РазрешилФИО;
Перем ОтпустилДолжность;
Перем ОтпустилФИО;
Перем ПолучилДолжность;
Перем ПолучилФИО;
//ВЗ 20170215 УстановитьПривилегированныйРежим(Истина);
Макет=ПолучитьМакет("М11");
ТабДокумент=Новый ТабличныйДокумент;
ТабДокумент.АвтоМасштаб=Истина;
ТабДокумент.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;
ТабДокумент.ИмяПараметровПечати="ПАРАМЕТРЫ_ПЕЧАТИ_ТребНаклСПодписями_М11 Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот