Здравствуйте
Подскажите что нужно добавить для вывода печатной формы.
Вывод через табдок. показать() не очень подходит. там панельки с кнопкой печать и редактирование и пр. + там еще и сетка используется.
поидее она вроде должна вывести после УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию но что то не идет.
Подскажите что нужно добавить для вывода печатной формы.
Вывод через табдок. показать() не очень подходит. там панельки с кнопкой печать и редактирование и пр. + там еще и сетка используется.
поидее она вроде должна вывести после УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию но что то не идет.
Прикрепленные файлы:
ВедомостьВбанк.epf
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1)Я в ERP запихиваю в параметры открытия формы всё необходимое для вызова печатной формы, а потом вызываю общую форму печати документов, единственное в ERP печатная форма должна быть добавлена в справочник дополнительных отчетов и обработок.
Код для ERP |
---|
&НаКлиенте
Процедура ПечатьНаКлиенте()
Если Отладка Тогда
мКоллекцияПечатныхФорм = УправлениеПечатьюКлиент.НоваяКоллекцияПечатныхФорм("ШаблонОткрытиеФормы");
ТабличныйДокумент = Новый ТабличныйДокумент;
КнПечатьНаСервере(мКоллекцияПечатныхФорм);
Попытка
ТабличныйДокумент = Объект.СтруктураПараметровПечати.КоллекцияПечатныхФормСтруктура.ТабличныйДокумент;
ТабличныйДокумент.Показать("Шаблон - открытие формы");
Исключение
КонецПопытки;
Иначе
ПараметрыОткрытия = Новый Структура;
ПолучитьПараметрыОткрытия(ПараметрыОткрытия);
Если ПараметрыОткрытия = Неопределено Тогда
Сообщить("Ошибка обработки документа");
Иначе
ОткрытьФорму("ОбщаяФорма.ПечатьДокументов", ПараметрыОткрытия);
КонецЕсли;
Закрыть();
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПолучитьПараметрыОткрытия(ПараметрыОткрытия)
ИсточникДанных = Справочники.ДополнительныеОтчетыИОбработки.НайтиПоНаименованию("Шаблон - открытие формы");
Если ИсточникДанных = Неопределено ИЛИ НЕ ТипЗнч(ИсточникДанных) = Тип("СправочникСсылка.ДополнительныеОтчетыИОбработки") Тогда
ИсточникДанных = Справочники.ДополнительныеОтчетыИОбработки.ПустаяСсылка();
КонецЕсли;
Если Не ЗначениеЗаполнено(ИсточникДанных) Тогда
ПараметрыОткрытия = Неопределено;
Возврат;
КонецЕсли;
ПараметрыОткрытия.Вставить("ИсточникДанных", ИсточникДанных);
ПараметрыИсточника = Новый Структура;
ИдентификаторКоманды = "ШаблонОткрытиеФормы";
ПараметрыПечати = Новый Структура;
ПараметрыПечати.Вставить("ПечатьБирок", ПечатьБирок);
ПараметрыПечати.Вставить("КоличествоБирок", КоличествоБирок);
СтруктураПараметровПечати = Объект.СтруктураПараметровПечати;
Если СтруктураПараметровПечати = Неопределено ИЛИ НЕ ТипЗнч(СтруктураПараметровПечати) = Тип("Структура") Тогда
Если Элементы.Найти("Документ") = Неопределено Тогда
ПараметрыОткрытия = Неопределено;
Возврат;
Иначе
Если ЗначениеЗаполнено(Документ) Тогда
ТекОбъектыНазначения = Новый Массив;
ТекОбъектыНазначения.Добавить(Документ);
ТекОбъектыНазначения.Добавить(ПараметрыПечати);
ПараметрыИсточника.Вставить("ОбъектыНазначения", ТекОбъектыНазначения);
Иначе
ПараметрыОткрытия = Неопределено;
Возврат;
КонецЕсли;
КонецЕсли;
Иначе
Если СтруктураПараметровПечати.Свойство("МассивОбъектов") Тогда
СтруктураПараметровПечати.МассивОбъектов.Добавить(ПараметрыПечати);
ПараметрыИсточника.Вставить("ОбъектыНазначения", СтруктураПараметровПечати.МассивОбъектов);
Иначе
Если ЗначениеЗаполнено(Документ) Тогда
ТекОбъектыНазначения = Новый Массив;
ТекОбъектыНазначения.Добавить(Документ);
ТекОбъектыНазначения.Добавить(ПараметрыПечати);
ПараметрыИсточника.Вставить("ОбъектыНазначения", ТекОбъектыНазначения);
Иначе
ПараметрыОткрытия = Неопределено;
Возврат;
КонецЕсли;
КонецЕсли;
КонецЕсли;
ПараметрыИсточника.Вставить("ИдентификаторКоманды", ИдентификаторКоманды);
ПараметрыОткрытия.Вставить("ПараметрыИсточника", ПараметрыИсточника);
ПараметрыОткрытия.Вставить("ПараметрКоманды", ПараметрыИсточника.ОбъектыНазначения);
КонецПроцедуры
Показать |
я как то так вывожу:
КоллекцияПечатныхФорм = УправлениеПечатьюКлиент.НоваяКоллекцияПечатныхФорм("Макет");
ПечатнаяФорма = УправлениеПечатьюКлиент.ОписаниеПечатнойФормы(КоллекцияПечатныхФорм, "Макет");
ПечатнаяФорма.ТабличныйДокумент = ТабДок;
КлючУникальности = Строка(Новый УникальныйИдентификатор);
ПараметрыОткрытия = Новый Структура("ИмяМенеджераПечати,ИменаМакетов,ПараметрКоманды,ПараметрыПечати");
ПараметрыОткрытия.ПараметрКоманды = Новый Массив;
ПараметрыОткрытия.ПараметрыПечати = Новый Структура;
ПараметрыОткрытия.Вставить("КоллекцияПечатныхФорм", КоллекцияПечатныхФорм);
ОткрытьФорму("ОбщаяФорма.ПечатьДокументов", ПараметрыОткрытия, ВладелецФормы, КлючУникальности);
Показать
для простых случаев можно и так, если вас сетка не устраивает:
Кнопки печать, сохранить, редактирование из меню работают, только отправки по почте не будет
ТабДок.АвтоМасштаб = Истина;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Показать (НаименованиеОтчета);
Кнопки печать, сохранить, редактирование из меню работают, только отправки по почте не будет
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот