Из формы выбрать необходимые ПФ для групповой печати, как оперделить переменные

Форум Программирование Общие вопросы программирования (Dev)

1С:Управление торговлей 11 Платформа 1С v8.3

1. kodblack 12 30.06.23 10:31 Сейчас в теме

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

&НаСервере
Функция ПечатьНаСервере () Экспорт
МассивНаправлений = Направление.НаправленияСборки.ВыгрузитьКолонку("Направление");
	тзРаспределения = тРаспределения.Выгрузить(Новый Структура("Выбор", Истина),"Распределение");
	МассивРаспределений = тзРаспределения.ВыгрузитьКолонку("Распределение");
	МассивРеализаций = Новый Массив;   
	МассивСФ = Новый Массив;
	
	Для Каждого СтрТЧ ИЗ МассивРаспределений Цикл
		Для  Каждого СтрЗаказы ИЗ СтрТЧ.Заказы Цикл 
			 МассивРеализаций.Добавить(СтрЗаказы.Накладная); 
			 МассивСФ.Добавить(СтрЗаказы.СчетФактура);
		КонецЦикла;
	КонецЦикла; 
	
	ТабДокумент = Новый ТабличныйДокумент;
	ТабДокумент.АвтоМасштаб = Истина;
	ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
	ТабДокумент.ОтображатьЗаголовки = Ложь;
	ТабДокумент.ОтображатьСетку = Ложь;
	ТабДокумент.Защита = Истина;    
 	

	 Если ПечатьУПД Тогда    
	 	 ТабДокУПД = Документы.Распределение.СформироватьНесколькоУПД(МассивОбъектов, ПараметрыПечати, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода);
	 ТабДокумент.Вывести(ТабДокУПД);
	 КонецЕсли;
	Возврат  ТабДокумент;
КонецФункции

Показать

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

в основной форме документа работает

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. kodblack 12 03.07.23 09:42 Сейчас в теме

беру напрямую функцию

&НаСервере
Функция ПечатьНаСервере () Экспорт 		
	МассивНаправлений = Направление.НаправленияСборки.ВыгрузитьКолонку("Направление");
	тзРаспределения = тРаспределения.Выгрузить(Новый Структура("Выбор", Истина),"Распределение");
	МассивРаспределений = тзРаспределения.ВыгрузитьКолонку("Распределение");
	МассивРеализаций = Новый Массив;   
	МассивСФ = Новый Массив;
	
	
	Для Каждого СтрТЧ ИЗ МассивРаспределений Цикл
		Для  Каждого СтрЗаказы ИЗ СтрТЧ.Заказы Цикл 
			 МассивРеализаций.Добавить(СтрЗаказы.Накладная); 
			 МассивСФ.Добавить(СтрЗаказы.СчетФактура);
		КонецЦикла;
	КонецЦикла; 
	
	ТабДокумент = Новый ТабличныйДокумент;
	ТабДокумент.АвтоМасштаб = Истина;
	ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
	ТабДокумент.ОтображатьЗаголовки = Ложь;
	ТабДокумент.ОтображатьСетку = Ложь;
	ТабДокумент.Защита = Истина;    
 ПараметрыПечати = Новый Структура ("ВыводитьУслуги"); 
	 ПараметрыПечати.Вставить("ВыводитьУслуги",Ложь); 
	 КоллекцияПечатныхФорм = Новый ТаблицаЗначений;
	 СтруктураТипов = ОбщегоНазначенияУТ.СоответствиеМассивовПоТипамОбъектов(МассивСФ);    
	 ОбъектыПечати = Новый Структура("ЗаголовокФормы");
	 Если ПечатьУПД Тогда    
	 	 ТабДокУПД =	УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм,"УПД",НСтр("ru='Универсальный передаточный документ (УПД)'"),
		Обработки.ПечатьОбщихФорм.СформироватьПечатнуюФормуУПД(СтруктураТипов, ОбъектыПечати, ПараметрыПечати));
		Иначе 
			ПустойТабДок = Новый ТабличныйДокумент;
			
			УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(
			КоллекцияПечатныхФорм,
			"УПД",
			НСтр("ru='Универсальный передаточный документ (УПД)'"),
			ПустойТабДок);
 ТабДокумент.Вывести(ТабДокУПД);
	 КонецЕсли;

Возврат  ТабДокумент;
КонецФункции

Показать

Ошибка: найти по значению из общего модуля - управление печатью
Процедура ЗадатьОбластьПечатиДокумента(ТабличныйДокумент, НомерСтрокиНачало, ОбъектыПечати, Ссылка) Экспорт
.

Метод объекта не обнаружен (НайтиПоЗначению)
{ОбщийМодуль.УправлениеПечатью.Модуль(173)}:Элемент = ОбъектыПечати.НайтиПоЗначению(Ссылка);
{ИзмененияФорм Обработка.ПечатьОбщихФорм.МодульМенеджера(560)}:УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабличныйДокумент, НомерСтрокиНачало, ОбъектыПечати,
{Обработка.ПечатьОбщихФорм.МодульМенеджера(3021)}:ЗаполнитьТабличныйДокументУПД(ТабличныйДокумент, ДанныеДляПечати, ОбъектыПечати);
{Документ.Распределение.Форма.ФормаПакетнойПечати.Форма(53)}:ТабДокУПД = УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм,"УПД",НСтр("ru='Универсальный передаточный документ (УПД)'"),
{Документ.Распределение.Форма.ФормаПакетнойПечати.Форма(118)}:ТабДок = ПечатьНаСервере();

Оставьте свое сообщение

E-mail: