v8.3: Как программно сформировать внешнюю печатную форму документа
Имеется обработка в которой есть реквизит Объект.ПрихНакл, в которой хранится ссылка на документ ПоступлениеТоваровУслуг, для этого документа прописана внешняя печатная форма "Приемо-сдаточный акт", из документа все печатает. а как эту форму сформировать из обработки, или с любого другого случайного места?
По теме из базы знаний
- Создаем печатную форму "Заказ клиента" для УТ 11.2
- Вывод печатных форм с запросом данных в форму "Печать документов" из подсистемы БСП "Печать".
- Альтернатива внешним печатным формам. ЗУП 3.1
- Шаблон разработки печатных форм и подключения к конфигурациям на БСП 2.х и БСП 3.0
- Программное формирование существующих печатных форм
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1) zerbite, к примеру(правда делал не для УТ, но как пример пойдет)
Запрос.Текст = "ВЫБРАТЬ
| ДополнительныеОтчетыИОбработки.Ссылка
|ИЗ
| Справочник.ДополнительныеОтчетыИОбработки КАК ДополнительныеОтчетыИОбработки
|ГДЕ
| ДополнительныеОтчетыИОбработки.Вид = ЗНАЧЕНИЕ(Перечисление.ВидыДополнительныхОтчетовИОбработок.ПечатнаяФорма)
| И ДополнительныеОтчетыИОбработки.Наименование = ""Имя твоей печатной формы""";
Результат = Запрос.Выполнить();
Если Результат.Пустой() Тогда
ТекстСообщения = НСтр("ru = 'Внешняя печатная форма ""Имя твоей печатной формы"" не найдена. Формирование ПФ не возможна!'");
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
Возврат;
КонецЕсли;
Выборка = Результат.Выбрать();
Выборка.Следующий();
ВО = Выборка.Ссылка.ХранилищеОбработки.Получить();
ВО.Записать(ИмяВременнойПапки+Выборка.Ссылка.ИмяФайла);
ВнешняяОбработка = ВнешниеОбработки.Создать(ИмяВременнойПапки+Выборка.Ссылка.ИмяФайла);
.........
.......................................
МассивОбъектовНазначения = Новый Массив;
МассивОбъектовНазначения.Добавить(Стр.СсылкаНаДокумент);
ТабДокумент = ВнешняяОбработка.ПечатьД(МассивОбъектовНазначения, Новый СписокЗначений, Истина, Ложь);
Показать
у меня уже есть вот такая процедура:
но она не работает, вы дает вот такую ошибку:
{Форма.Форма.Форма(206)}: Обращение к процедуре объекта как к функции (печать)
ТаблДок = ОбрОбъект.печать(МассивОбъектовНазначения, Новый СписокЗначений, Истина, Ложь);
процедура ПечатьИзВПФ |
|---|
| Процедура ПечатьИзВПФ(ИмяВПФ); //
СсылкаНаВПФ = Справочники.ДополнительныеОтчетыИОбработки.НайтиПоНаименованию(ИмяВПФ); Если СсылкаНаВПФ.Пустая() Тогда Сообщить("В справочнике 'Внешние обработки' не нашли внешнюю печатную форму с наименованием '"+ИмяВПФ+"'"); Возврат; КонецЕсли; Попытка ИмяВременногоФайла = КаталогВременныхФайлов()+"тмп_впф.epf"; Исключение Сообщить ("Невозможно создать файл обработке в каталоге временных файлов <<"+ +КаталогВременныхФайлов()+">>. Возможно, не хватает прав доступа в Windows в папку для данного сеанса 1С "); Возврат; КонецПопытки; ДвоичныеДанные = СсылкаНаВПФ.ХранилищеОбработки.Получить(); ДвоичныеДанные.Записать(ИмяВременногоФайла); Попытка ОбрОбъект = ВнешниеОбработки.Создать(ИмяВременногоФайла); //ОбрОбъект.ДокОбъект = ЭтотОбъект; // НЕ исп. метод скопировать. Передать ТАК - особенности ВДГБ; Исключение Сообщить("Ошибка создания объекта из временного файла обработки "+ИмяВременногоФайла); Возврат; КонецПопытки; МассивОбъектовНазначения = Новый Массив; МассивОбъектовНазначения.Добавить(Объект.ПрихНакл); // Проба печати Попытка ТаблДок = ОбрОбъект.печать(МассивОбъектовНазначения, Новый СписокЗначений, Истина, Ложь); ТаблДок.Вывести(); Исключение А=1; // Точка останова для отладки! Сообщить(ПодробноеПредставлениеОшибки(ИнформацияОбОшибке() )); // ВНЕШНЮЮ печатную форму из справончика ВПФ можно спокойно поправить! КонецПопытки; КонецПроцедуры |
но она не работает, вы дает вот такую ошибку:
{Форма.Форма.Форма(206)}: Обращение к процедуре объекта как к функции (печать)
ТаблДок = ОбрОбъект.печать(МассивОбъектовНазначения, Новый СписокЗначений, Истина, Ложь);
блин, все переделал, теперь ошибок нету... печ.форма формируется - но не выводиться на экран. как этого можно добиться?
процедура вызова ВПФ:
вот выдержка из ВПФ:
процедура вызова ВПФ:
Процедура ПечатьИзВПФ(ИмяВПФ); //
СсылкаНаВПФ = Справочники.ДополнительныеОтчетыИОбработки.НайтиПоНаименованию(ИмяВПФ);
Если СсылкаНаВПФ.Пустая() Тогда
Сообщить("В справочнике 'Внешние обработки' не нашли внешнюю печатную форму с наименованием '"+ИмяВПФ+"'");
Возврат;
КонецЕсли;
Попытка
ИмяВременногоФайла = КаталогВременныхФайлов()+"тмп_впф.epf";
Исключение
Сообщить ("Невозможно создать файл обработке в каталоге временных файлов <<"+
+КаталогВременныхФайлов()+">>. Возможно, не хватает прав доступа в Windows в папку для данного сеанса 1С ");
Возврат;
КонецПопытки;
ДвоичныеДанные = СсылкаНаВПФ.ХранилищеОбработки.Получить();
ДвоичныеДанные.Записать(ИмяВременногоФайла);
Попытка
ОбрОбъект = ВнешниеОбработки.Создать(ИмяВременногоФайла);
//ОбрОбъект.ДокОбъект = ЭтотОбъект; // НЕ исп. метод скопировать. Передать ТАК - особенности ВДГБ;
Исключение
Сообщить("Ошибка создания объекта из временного файла обработки "+ИмяВременногоФайла);
Возврат;
КонецПопытки;
МассивОбъектовНазначения = Новый Массив;
МассивОбъектовНазначения.Добавить(Объект.ПрихНакл);
ОбъектыПечати = Новый СписокЗначений;
КоллекцияПечатныхФорм = Новый ТаблицаЗначений;
КоллекцияПечатныхФорм.Колонки.Добавить("ИмяМакета");
КоллекцияПечатныхФорм.Колонки.Добавить("ИмяВРЕГ");
КоллекцияПечатныхФорм.Колонки.Добавить("СинонимМакета");
КоллекцияПечатныхФорм.Колонки.Добавить("ТабличныйДокумент");
КоллекцияПечатныхФорм.Колонки.Добавить("Экземпляров");
КоллекцияПечатныхФорм.Колонки.Добавить("Картинка");
КоллекцияПечатныхФорм.Колонки.Добавить("ПолныйПутьКМакету");
КоллекцияПечатныхФорм.Колонки.Добавить("ИмяФайлаПечатнойФормы");
стр=КоллекцияПечатныхФорм.Добавить();
стр.ИмяМакета="ПриемоСдаточныйАкт";
стр.ИмяВРЕГ="ПРИЕМОСДАТОЧНЫЙАКТ";
стр.Экземпляров=1;
//ИмяМакета=ПриемоСдаточныйАкт, ИмяВРЕГ=ПРИЕМОСДАТОЧНЫЙАКТ, СинонимМакета=, ТабличныйДокумент=, Экземпляров=1, Картинка=, ПолныйПутьКМакету=, ИмяФайлаПечатнойФормы=,
// Проба печати
Попытка
ОбрОбъект.печать(МассивОбъектовНазначения, КоллекцияПечатныхФорм, ОбъектыПечати, Ложь);
//ТаблДок.Вывести();
Исключение
А=1; // Точка останова для отладки!
Сообщить(ПодробноеПредставлениеОшибки(ИнформацияОбОшибке() )); // ВНЕШНЮЮ печатную форму из справончика ВПФ можно спокойно поправить!
КонецПопытки;
КонецПроцедуры
Показатьвот выдержка из ВПФ:
// Функция формирует печатную форму Приемо-сдаточный акт документа.
//
Функция СформироватьПечатнуюФормуПриемоСдаточногоАкта(МассивОбъектов, ОбъектыПечати) Экспорт //Нетиповое
КолонкаКодов = ФормированиеПечатныхФорм.ИмяДополнительнойКолонки();
ВыводитьКоды = ЗначениеЗаполнено(КолонкаКодов);
ИспользоватьРучныеСкидки = ПолучитьФункциональнуюОпцию("ИспользоватьРучныеСкидкиВЗакупках");
ТабличныйДокумент = Новый ТабличныйДокумент;
ТабличныйДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ПоступлениеТоваровУслуг_Акт";
Запрос = Новый Запрос("ВЫБРАТЬ
| ПоступлениеТоваровУслуг.Ссылка КАК Ссылка,
| ПоступлениеТоваровУслуг.Номер КАК Номер,
| ПоступлениеТоваровУслуг.Дата КАК Дата,
| ПоступлениеТоваровУслуг.Контрагент КАК Контрагент,
| ПоступлениеТоваровУслуг.Организация КАК Организация,
| ПоступлениеТоваровУслуг.Валюта КАК Валюта,
| ТранспортноеСредство.Значение КАК ТС,
| ВидЛома.Значение КАК ВидЛома,
| АктСобств.Значение КАК АктСобств
|ИЗ
| Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
| ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
| ПоступлениеТоваровУслугДополнительныеРеквизиты.Значение КАК Значение,
| ПоступлениеТоваровУслугДополнительныеРеквизиты.Ссылка КАК Ссылка
| ИЗ
| Документ.ПоступлениеТоваровУслуг.ДополнительныеРеквизиты КАК ПоступлениеТоваровУслугДополнительныеРеквизиты
| ГДЕ
| ПоступлениеТоваровУслугДополнительныеРеквизиты.Свойство = &СвойствоТранспортноеСредство
| И ПоступлениеТоваровУслугДополнительныеРеквизиты.Ссылка В(&МассивДокументов)) КАК ТранспортноеСредство
| ПО ПоступлениеТоваровУслуг.Ссылка = ТранспортноеСредство.Ссылка
| ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
| ПоступлениеТоваровУслугДополнительныеРеквизиты.Ссылка КАК Ссылка,
| ПоступлениеТоваровУслугДополнительныеРеквизиты.Значение КАК Значение
| ИЗ
| Документ.ПоступлениеТоваровУслуг.ДополнительныеРеквизиты КАК ПоступлениеТоваровУслугДополнительныеРеквизиты
| ГДЕ
| ПоступлениеТоваровУслугДополнительныеРеквизиты.Свойство = &СвойствоВидЛома
| И ПоступлениеТоваровУслугДополнительныеРеквизиты.Ссылка В(&МассивДокументов)) КАК ВидЛома
| ПО ПоступлениеТоваровУслуг.Ссылка = ВидЛома.Ссылка
| ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
| ПоступлениеТоваровУслугДополнительныеРеквизиты.Значение КАК Значение,
| ПоступлениеТоваровУслугДополнительныеРеквизиты.Ссылка КАК Ссылка
| ИЗ
| Документ.ПоступлениеТоваровУслуг.ДополнительныеРеквизиты КАК ПоступлениеТоваровУслугДополнительныеРеквизиты
| ГДЕ
| ПоступлениеТоваровУслугДополнительныеРеквизиты.Ссылка В(&МассивДокументов)
| И ПоступлениеТоваровУслугДополнительныеРеквизиты.Свойство = &СвойствоАктСобств) КАК АктСобств
| ПО ПоступлениеТоваровУслуг.Ссылка = АктСобств.Ссылка
|ГДЕ
| ПоступлениеТоваровУслуг.Ссылка В(&МассивДокументов)
| И ПоступлениеТоваровУслуг.Проведен
|
|УПОРЯДОЧИТЬ ПО
| Ссылка
|;
|
|//////////////////////////////////////////////////////////// Показать
(7) alljoke, я не совсем понимаю механизм внешних печатных форм (((
эта печатная форма работает если зайти в документ и нажать печать, или то же самое из журнала документов.
Внешняя печатная форма одна и та же... а как она там должна выводиться?
в моем понимании нужно только ее запустить... или нет? а она уже запустит обработку "печать документов" и выведет в нее свою форму печати...
эта печатная форма работает если зайти в документ и нажать печать, или то же самое из журнала документов.
Внешняя печатная форма одна и та же... а как она там должна выводиться?
в моем понимании нужно только ее запустить... или нет? а она уже запустит обработку "печать документов" и выведет в нее свою форму печати...
(9) Поручик, спасибо, да ответ был верный.
но я уже в другом месте нашел
ответ оказался очень простой
Код 1C v 8.2 УП
код должен выполняться на клиенте, а функция НайтиВПФ() - должны быть на сервере и возвращать ссылку из Справочники.ДополнительныеОтчетыИОбработки
но я уже в другом месте нашел
ответ оказался очень простой
Код 1C v 8.2 УП
ВыполняемаяОбработка=НайтиВПФ();
Если ВыполняемаяОбработка.Пустая() Тогда
Возврат;
КонецЕсли;
ОбъектыНазначения=Новый Массив;
ОбъектыНазначения.Добавить(Объект.ПрихНакл);
//Если УправлениеПечатьюКлиент.ПроверитьДокументыПроведены(ОбъектыНазначения) Тогда
ПараметрыОткрытия=Новый Структура("ИсточникДанных, ПараметрыИсточника");
ПараметрыОткрытия.ИсточникДанных=ВыполняемаяОбработка;
ПараметрыОткрытия.ПараметрыИсточника=Новый Структура("ИдентификаторКоманды, ОбъектыНазначения");
ПараметрыОткрытия.ПараметрыИсточника.ИдентификаторКоманды="ПриемоСдаточныйАкт";
ПараметрыОткрытия.ПараметрыИсточника.ОбъектыНазначения=ОбъектыНазначения;
ОткрытьФорму("ОбщаяФорма.ПечатьДокументов", ПараметрыОткрытия); Показатькод должен выполняться на клиенте, а функция НайтиВПФ() - должны быть на сервере и возвращать ссылку из Справочники.ДополнительныеОтчетыИОбработки
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот