0
lite777
09.04.19
✎
11:47
|
Внешняя печатная форма , для зуп3,1 с формой для отладки , ошибка при работе через форму обработки
&НаКлиенте
Процедура Печать(Команда)
Если ЗначениеЗаполнено(Объект.Документ) Тогда
ПолучитьСтруктуруДляПечатиНаСервере();
Иначе
Сообщить("Не выбран документ!",СтатусСообщения.Важное);
КонецЕсли;
КонецПроцедуры
//**********************************************************
&НаСервере
Процедура ПолучитьСтруктуруДляПечатиНаСервере()
//Массив объектов
МассивОбъектов = Новый Массив;
МассивОбъектов.Добавить(Объект.Документ);
//Параметры печати
ПараметрыПечати = Новый Структура;
ПараметрыПечати.Вставить("ДополнитьКомплектВнешнимиПечатнымиФормами",Ложь);
ПараметрыПечати.Вставить("ТребуетсяЧтениеБезОграничений",Истина);
//Объекты печати
ОбъектыПечати = Новый Массив;
//Коллекция печатных форм
КоллекцияПечатныхФорм = Новый ТаблицаЗначений;
КоллекцияПечатныхФорм.Колонки.Добавить("ИмяМакета");
КоллекцияПечатныхФорм.Колонки.Добавить("ИмяВРЕГ");
КоллекцияПечатныхФорм.Колонки.Добавить("СинонимМакета");
КоллекцияПечатныхФорм.Колонки.Добавить("ТабличныйДокумент");
КоллекцияПечатныхФорм.Колонки.Добавить("Экземпляров");
КоллекцияПечатныхФорм.Колонки.Добавить("Картинка");
КоллекцияПечатныхФорм.Колонки.Добавить("ПолныйПутьКМакету");
КоллекцияПечатныхФорм.Колонки.Добавить("ИмяФайлаПечатнойФормы");
НоваяСтрока = КоллекцияПечатныхФорм.Добавить();
НоваяСтрока.ИмяМакета = "Договор2";
НоваяСтрока.ИмяВРЕГ = "Договор2";
НоваяСтрока.Экземпляров = 1;
ТекОбъект = РеквизитФормыВЗначение("Объект");
ТекОбъект.Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыПечати);
//Вернем первый дкоумент коллекции
ЭтаФорма.Результат.Очистить();
ЭтаФорма.Результат.Вывести(КоллекцияПечатныхФорм[0].ТабличныйДокумент); //ОШИБКА на этой СТРОКЕ -НЕ СООТВЕТСВИЕ ТИПОВ (ПАРАМЕТР 1)
КонецПроцедуры
|
|