Разделить печать документов в разные печати

1. Geophysic 10.03.23 08:24 Сейчас в теме
Доброе утро, мне нужно чтобы каждая номенклатура привязанная к документу падала в отдельную печать, если для номенклатуры не указан документ, тогда не печатать эту номенклатуру, подскажите как это осуществить? Сейчас же у меня все 4 номенклатуры(на скрине) падают в одну печать, но печатается 4 документа.
 Функция Сформировать_ПФ_MXL_НоваяТранспортнаяНакладная(Рейс, РеализацияТУ) Экспорт
	
	ТабДок = Новый ТабличныйДокумент();
	ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
	Макет = ПолучитьМакет("ПФ_MXL_ТранспортнаяНакладная_2200_1");
	
	Запрос = Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ
	|	ОтветственныеЛицаОрганизаций.ФизическоеЛицо КАК ФизическоеЛицо,
	|	ОтветственныеЛицаОрганизаций.Должность КАК Должность,
	|	РеализацияТоваровУслуг.Организация КАК Организация,
	|	РеализацияТоваровУслуг.Ссылка КАК СсылкаРТУ,
	|	РеализацияТоваровУслуг.Номер КАК НомерРТУ,
	|	РеализацияТоваровУслуг.Дата КАК ДатаРТУ,
	|	РеализацияТоваровУслуг.СуммаДокумента КАК СуммаДокумента,
	|	ЕСТЬNULL(СчетФактураВыданный.Номер, 0) КАК НомерСФ,
	|	СчетФактураВыданный.Дата КАК ДатаСФ,
	|	Организации.НаименованиеПолное КАК НаименованиеПолноеОрганизации,
	|	Организации.ИНН КАК ИННОрганизации,
	|	Организации.КПП КАК КППОрганизации,
	|	Организации.КонтактнаяИнформация.(
	|		Тип КАК Тип,
	|		Представление КАК Представление
	|	) КАК КИОрганизации,
	|	Контрагенты.НаименованиеПолное КАК НаименованиеПолноеКонтрагента,
	|	Контрагенты.ИНН КАК ИННКонтрагента,
	|	Контрагенты.КПП КАК КППКонтрагента,
	|	Контрагенты.КонтактнаяИнформация.(
	|		Тип КАК Тип,
	|		Представление КАК Представление
	|	) КАК КИКонтрагента,
	|	БанковскиеСчетаОрганизаций.НомерСчета КАК НомерСчета,
	|	БанковскиеСчетаОрганизаций.Банк КАК Банк,
	|	БанковскиеСчетаОрганизаций.БИКБанка КАК БИКБанка,
	|	БанковскиеСчетаОрганизаций.НаименованиеБанка КАК НаименованиеБанка,
	|	БанковскиеСчетаОрганизаций.КоррСчетБанка КАК КоррСчетБанка,
	|	БанковскиеСчетаОрганизаций.ГородБанка КАК ГородБанка,
	|	БанковскиеСчетаОрганизаций.АдресБанка КАК АдресБанка,
	|	ЗаказНаДоставку.Номер КАК НомерЗаявки
	|ИЗ
	|	Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
	|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ОтветственныеЛицаОрганизаций КАК ОтветственныеЛицаОрганизаций
	|		ПО РеализацияТоваровУслуг.Организация = ОтветственныеЛицаОрганизаций.Владелец
	|		ЛЕВОЕ СОЕДИНЕНИЕ Документ.СчетФактураВыданный КАК СчетФактураВыданный
	|		ПО РеализацияТоваровУслуг.Ссылка = СчетФактураВыданный.ДокументОснование
	|		ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Организации КАК Организации
	|		ПО РеализацияТоваровУслуг.Организация = Организации.Ссылка
	|		ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты КАК Контрагенты
	|		ПО РеализацияТоваровУслуг.Контрагент = Контрагенты.Ссылка
	|		ЛЕВОЕ СОЕДИНЕНИЕ Справочник.БанковскиеСчетаОрганизаций КАК БанковскиеСчетаОрганизаций
	|		ПО РеализацияТоваровУслуг.Организация = БанковскиеСчетаОрганизаций.Владелец
	|		ЛЕВОЕ СОЕДИНЕНИЕ Документ.ЗаказНаДоставку КАК ЗаказНаДоставку
	|		ПО ЗаказНаДоставку.ДокументОснование = РеализацияТоваровУслуг.Ссылка
	|ГДЕ
	|	ОтветственныеЛицаОрганизаций.ОтветственноеЛицо = ЗНАЧЕНИЕ(Перечисление.ОтветственныеЛицаОрганизаций.Руководитель)
	|	И РеализацияТоваровУслуг.Ссылка = &Ссылка
	|	И БанковскиеСчетаОрганизаций.Главный = &Главный";
	Запрос.УстановитьПараметр("Ссылка", РеализацияТУ);
	Запрос.УстановитьПараметр("Главный", Истина);
	Результат = Запрос.Выполнить();
	Если НЕ Результат.Пустой() Тогда
		
		Выборка = Результат.Выбрать();
		Выборка.Следующий(); 
		СсылкаРТУ  							  = Выборка.СсылкаРТУ;
		НомерРТУ 						      = Выборка.НомерРТУ;
		НомерРеализацииТУ 					  = УдалитьПрефиксИЛидирующиеНули(НомерРТУ);
		ДатаРТУ 							  = Выборка.ДатаРТУ;
		ОрганизацияГрузоотправителя           = Выборка.Организация;
		СуммаДокументаРТУ 					  = Выборка.СуммаДокумента;
		РуководительГрузоотправителяФИО       = Выборка.ФизическоеЛицо;
		РуководительГрузоотправителяДолжность = Выборка.Должность;   
		
		Если Выборка.НомерСФ <> 0 Тогда
			НомерСФ 						  = Выборка.НомерСФ;
			ДатаСФ 			  				  = Выборка.ДатаСФ;
			НомерСчетФактуры 				  = УдалитьПрефиксИЛидирующиеНули(НомерСФ); 
			СчетФактура 					  = " / Счёт-фактура № " + НомерСчетФактуры + " от " + Формат(ДатаСФ, "ДЛФ=D") + " г.";
		КонецЕсли;   
		
		//ЗапросНДС = Новый Запрос;
		//ЗапросНДС.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1
		//|	ПРЕДСТАВЛЕНИЕ(УчетнаяПолитикаОрганизацийСрезПоследних.УчетнаяПолитика) КАК УчетнаяПолитика
		//|ИЗ
		//|	РегистрСведений.УчетнаяПолитикаОрганизаций.СрезПоследних КАК УчетнаяПолитикаОрганизацийСрезПоследних
		//|ГДЕ
		//|	УчетнаяПолитикаОрганизацийСрезПоследних.Организация = &Организация";
		//ЗапросНДС.УстановитьПараметр("Организация", Выборка.Организация);
		//Результат = ЗапросНДС.Выполнить();
		//Если НЕ Результат.Пустой() Тогда
		//	ВыборкаНДС = Результат.Выбрать();
		//	ВыборкаНДС.Следующий();
		//	Если ВыборкаНДС.УчетнаяПолитика = "ОСН" И НомерСчетФактуры <> Неопределено Тогда
		//		УПД = "УПД № " + НомерСчетФактуры + " от " + Формат(ДатаСФ, "ДЛФ=D") + " г.";
		//	ИначеЕсли СтрНачинаетсяС(ВыборкаНДС.УчетнаяПолитика, "УСН") Тогда	
		//		УПД = "УПД № " + НомерРеализацииТУ + " от " + Формат(ДатаРТУ, "ДЛФ=D") + " г.";
		//	КонецЕсли;
		//КонецЕсли;  
		
		ПрименяетсяУСН = УчетнаяПолитикаПереопределяемый.ПрименяетсяУСН(Выборка.Организация, ТекущаяДата());
		
		Если НЕ ПрименяетсяУСН И НомерСчетФактуры <> Неопределено Тогда
			УПД = "УПД № " + НомерСчетФактуры + " от " + Формат(ДатаСФ, "ДЛФ=D") + " г.";
		//ИначеЕсли СтрНачинаетсяС(ВыборкаНДС.УчетнаяПолитика, "УСН") Тогда	
		ИначеЕсли ПрименяетсяУСН Тогда	
			УПД = "УПД № " + НомерРеализацииТУ + " от " + Формат(ДатаРТУ, "ДЛФ=D") + " г.";
		КонецЕсли;
		
		НаименованиеПолноеОрганизации 		  = Выборка.НаименованиеПолноеОрганизации;
		НаименованиеПолноеКонтрагента 		  = Выборка.НаименованиеПолноеКонтрагента;
		
		// КИ Организации
		ВыборкаОрг = Выборка.КИОрганизации.Выбрать();
		Пока ВыборкаОрг.Следующий() Цикл
			Если ВыборкаОрг.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон Тогда
				ТелефонОрганизации 			= ", " + ВыборкаОрг.Представление;
			ИначеЕсли ВыборкаОрг.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес Тогда
				АдресОрганизации 			= ВыборкаОрг.Представление;
			КонецЕсли;
		КонецЦикла;
		Организация = НаименованиеПолноеОрганизации + Символы.ПС + "ИНН " + Выборка.ИННОрганизации + " / КПП " + Выборка.КППОрганизации + "; " + АдресОрганизации + ТелефонОрганизации;
		
		// КИ Контагента
		ВыборкаКА = Выборка.КИКонтрагента.Выбрать();
		Пока ВыборкаКА.Следующий() Цикл
			Если ВыборкаКА.Тип 				= Перечисления.ТипыКонтактнойИнформации.Телефон Тогда
				ТелефонКонтагента = ", " + ВыборкаКА.Представление;
			ИначеЕсли ВыборкаКА.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес Тогда
				АдресКонтагента 			= ВыборкаКА.Представление;
			КонецЕсли;
		КонецЦикла;
		Контрагент = НаименованиеПолноеКонтрагента + ", ИНН " + Выборка.ИННКонтрагента + " / КПП " + Выборка.КППКонтрагента + "; " + АдресКонтагента + ТелефонКонтагента; 
		
		БанковскиеРеквизиты = ", р/с " + Выборка.НомерСчета + " в " + Выборка.Банк + ", " + Выборка.АдресБанка + ", БИК " + Выборка.БИКБанка + ", к/с " + Выборка.КоррСчетБанка;
		
		Запрос = Новый Запрос;
		Запрос.Текст = 
        "ВЫБРАТЬ
        |	Рейс.ТранспортноеСредство КАК ТранспортноеСредство,
        |	Рейс.Водитель КАК Водитель,
        |	Рейс.Пользователь КАК ПользовательРейс,
        |	ЗаказНаДоставку.Номер КАК НомерЗаказа,
        |	ЗаказНаДоставку.Дата КАК ДатаЗаказа,
        |	ЗаказНаДоставку.АдресОтправки КАК АдресОтправки,
        |	ЗаказНаДоставку.АдресДоставки КАК АдресДоставки,
        |	ЗаказНаДоставку.НачалоДоставки КАК НачалоДоставки,
        |	Контрагенты.НаименованиеПолное КАК НаименованиеПолноеПеревозчика,
        |	Контрагенты.ИНН КАК ИННПеревозчика,
        |	Контрагенты.КПП КАК КПППеревозчика,
        |	Контрагенты.КонтактнаяИнформация.(
        |		Тип КАК Тип,
        |		Представление КАК Представление
        |	) КАК КИПеревозчика,
        |	Рейс.ТранспортнаяКомпания КАК ТранспортнаяКомпания,
        |	Рейс.Водитель.ФИО КАК ИмяВодителя,
        |	Рейс.Заказы.Номенклатура КАК Номенклатура,
        |	Рейс.Заказы.Заказ КАК Заказы,
        |	Рейс.Заказы.Документ КАК Документ,
        |	ЗаказНаДоставку.СуммаДокумента КАК СуммаДокумента,
        |	ЗаказНаДоставку.Получатель КАК Получатель,
        |	РасходныйОрдерНаТовары._КоличествоМест КАК КоличествоМест,
        |	Рейс.ТранспортноеСредство.ГосНомер КАК ГосНомер,
        |	Рейс.ТранспортноеСредство.ТипТС КАК Грузоподъемность,
        |	Рейс.ТранспортноеСредство.Объем КАК Объем,
        |	Рейс.Перевозчик.ИНН КАК ПеревозчикИНН,
        |	Рейс.Перевозчик КАК Перевозчик,
        |	Контрагенты.Ссылка КАК Контрагент,
        |	ЗаказНаДоставку.ОкончаниеДоставки КАК ОкончаниеДоставки,
        |	Рейс.Ответственный КАК Ответственный,
        |	Рейс.Водитель.КонтактнаяИнформация.(
        |		НомерТелефона КАК ВодительНомерТелефона
        |	) КАК НомерТелефона,
        |	ФизическиеЛица.Ссылка КАК ФизическоеЛицо
        |ИЗ
        |	Документ.ЗаказНаДоставку КАК ЗаказНаДоставку
        |		ЛЕВОЕ СОЕДИНЕНИЕ Документ.Рейс КАК Рейс
        |			ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты КАК Контрагенты
        |			ПО Рейс.Перевозчик = Контрагенты.Ссылка
        |			ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ФизическиеЛица КАК ФизическиеЛица
        |			ПО Рейс.Водитель = ФизическиеЛица.Ссылка
        |		ПО ЗаказНаДоставку.ДокументРейс = Рейс.Ссылка,
        |	Документ.РасходныйОрдерНаТовары КАК РасходныйОрдерНаТовары
        |ГДЕ
        |	Рейс.Ссылка = &СсылкаР
        |	И ЗаказНаДоставку.ДокументОснование = &ДокументОснование";
		
		Запрос.УстановитьПараметр("СсылкаР", Рейс);
		Запрос.УстановитьПараметр("ДокументОснование", РеализацияТУ);
		Результат = Запрос.Выполнить();
		
		Если НЕ Результат.Пустой() Тогда
			ВыборкаТС = Результат.Выбрать();
			
			ВыборкаТС.Следующий();
			
				ТранспортноеСредство 			= ВыборкаТС.ТранспортноеСредство;
				Водитель  						= ВыборкаТС.Водитель;
				ДатаЗаказа  					= ВыборкаТС.ДатаЗаказа;
				АдресОтправки  					= ВыборкаТС.АдресОтправки;
				АдресДоставки  					= ВыборкаТС.АдресДоставки;
				НачалоДоставки  				= ВыборкаТС.НачалоДоставки;
				НаименованиеПолноеПеревозчика 	= ВыборкаТС.НаименованиеПолноеПеревозчика;
				ИННПеревозчика 					= ВыборкаТС.ИННПеревозчика;
				КПППеревозчика 					= ВыборкаТС.КПППеревозчика;
				ГосНомер 						= ВыборкаТС.ГосНомер;		
				Вместимость 					= ВыборкаТС.Объем;		
				Грузоподъемность 				= ВыборкаТС.Грузоподъемность;	
				ОбщийОбъемГруза                 = ВыборкаТС.Объем;
				//МассаГруза                      = ВыборкаТС.МассаБрутто;
				ПеревозчикИНН                   = ВыборкаТС.ПеревозчикИНН;
				Контрагент                      = ВыборкаТС.Контрагент;
				ОкончаниеДоставки               = ВыборкаТС.ОкончаниеДоставки;
				//Отправитель                     = ВыборкаТС.Отправитель;
				Перевозчик                      = ВыборкаТС.Перевозчик;
				Ответственный                   = ВыборкаТС.Ответственный;
				//ДатаВыдачи                      = ВыборкаТС.ДатаВыдачи;
				ИННОрганизации                  = Выборка.ИННОрганизации;
				//СокрНаименованиеОрганизации     = ВыборкаТС.НаименованиеСокращенное;
				ТранспортнаяКомпания            = ВыборкаТС.ТранспортнаяКомпания;
				ИмяВодителя                     = ВыборкаТС.ИмяВодителя;
				ФизическоеЛицо                  = ВыборкаТС.ФизическоеЛицо;
				Номенклатура                    = ВыборкаТС.Номенклатура;
				СуммаДокументаДва               = ВыборкаТС.СуммаДокумента;
				Получатель                      = ВыборкаТС.Получатель;
				КоличествоМест                  = ВыборкаТС.КоличествоМест;
				Заказы                          = ВыборкаТС.Заказы;
				НомерТелефона                   = ВыборкаТС.НомерТелефона;
				Документ                        = ВыборкаТС.Документ;
				//Если ВыборкаТС.ДокументыОснование = ВыборкаТС.Количество() Тогда
					
				
				// КИ Перевозчика
				ВыборкаПер = ВыборкаТС.КИПеревозчика.Выбрать();
				Пока ВыборкаПер.Следующий() Цикл
					Если ВыборкаПер.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон Тогда
						ТелефонПеревозчика = ", " + ВыборкаПер.Представление;
					ИначеЕсли ВыборкаПер.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес Тогда
						АдресПеревозчика = ВыборкаПер.Представление;
					КонецЕсли;
				КонецЦикла;
				Перевозчик =  Строка(НаименованиеПолноеПеревозчика) + ", ИНН " + Строка(ВыборкаТС.ИННПеревозчика) + " / КПП " + Строка(ВыборкаТС.КПППеревозчика) + "; " + Строка(АдресПеревозчика) + Строка(ТелефонПеревозчика); 
				
						
			ТабДок.Очистить();  
			ТабДок.НачатьАвтогруппировкуСтрок(); 
            ОбластьЛицевая = Макет.ПолучитьОбласть("ГоризонтальнаяЛицеваяСторона");
			
			ТЗ = Новый ТаблицаЗначений;

			ТЗ.Колонки.Добавить("Документ", Новый ОписаниеТипов("ДокументСсылка.Рейс")); 
			                                                     
			Документ = ВыборкаТС.Документ;
			
			ТЗДокумент = Документ.Выгрузить();

			ТекстЗаказы = "";
			Для Каждого Документа Из ТЗДокумент Цикл
				
			// Шапка
			ОбластьЛицевая.Параметры.Пункт0_2 	= Формат(ДатаЗаказа, "ДЛФ=D");     // Заказ (заявка) Дата
			НомерЗаявки 						= Выборка.НомерЗаявки;
			НомерЗаявкиТН 						= УдалитьПрефиксИЛидирующиеНули(НомерЗаявки); 
			ОбластьЛицевая.Параметры.Пункт0_3 	= НомерЗаявкиТН;                     				// Заказ (заявка) Номер
			ОбластьЛицевая.Параметры.Пункт0_4 	= Формат(НачалоДоставки, "ДЛФ=D");	// Транспортная накладная Дата
			//ОбластьЛицевая.Параметры.Пункт0_5 	= Номер;                      	// Транспортная накладная Номер
			
			// 1. Грузоотправитель
			ОбластьЛицевая.Параметры.Пункт1_1 = Организация;    // Полное наименование 
			//ОбластьЛицевая.Параметры.Пункт1_2  	= 
			
			////1а Заказчик услуг по организации перевозки груза (при наличии)
			
			//ОбластьЛицевая.Параметры.Пункт1а_2 = 
			//ОбластьЛицевая.Параметры.Пункт1а_2 = 
			
			// 2. Грузополучатель                  
			ОбластьЛицевая.Параметры.Пункт2_1  = "" + Получатель + ", " + "ИНН" + " " + ИННПолучателя(Получатель) + ", " + АдресПолучателя(Получатель);    		// Полное наименование
			//ОбластьЛицевая.Параметры.Пункт2_2  	= Выборка.ПартнерОсновнойМенеджер;    // ФИО
			ОбластьЛицевая.Параметры.Пункт2_2  = АдресДоставки; // Адрес места доставки груза
			
			// 3. Наименование груза
			//ОбластьЛицевая.Параметры.Пункт3_1  = Выборка.;    // наименование груза     
			//СуммаПрописью  = ЧислоПрописью(КоличествоМест, "00", ""); 
			ОбластьЛицевая.Параметры.Пункт3_2 = СтрЗаменить(ЧислоПрописью(КоличествоМест), "00", ""); // количество грузовых мест
			ОбластьЛицевая.Параметры.Пункт3_1 = ТекстНоменклатура(Номенклатура);
			//ОбластьЛицевая.Параметры.Пункт3_3 = МассаГруза;
			ОбластьЛицевая.Параметры.Пункт3_33 = ОбщийОбъемГруза;
			ОбластьЛицевая.Параметры.Пункт3_5 = Формат(СуммаДокументаДва, "ЧДЦ=2") + " руб.";    // стоимость
			
			// 4. Сопроводительные документы на груз (при наличии)
			НомерРеализацииТУ = УдалитьПрефиксИЛидирующиеНули(НомерРТУ); 
			//ОбластьЛицевая.Параметры.Пункт4_1  	= "ТОРГ-12 № " + НомерРеализацииТУ + " от " + Формат(ДатаРТУ, "ДЛФ=D") + " г." + СчетФактура;     // перечень прилагаемых документов
			ОбластьЛицевая.Параметры.Пункт4_1  	= УПД;     // перечень прилагаемых документов
			
			// 5. Указания грузоотправителя
			ПараметрыТС = Строка(ТранспортноеСредство) + ", " +  Строка(Грузоподъемность) +  ", вместимость " +  Строка(Вместимость) + " куб.м";
			//ОбластьЛицевая.Параметры.Пункт5_1  	= ПараметрыТС;     // параметры транспортного средства
						
			// 6. Перевозчик
			ОбластьЛицевая.Параметры.Пункт6_1   = "" + Контрагент + ", " + "ИНН" + " " + ИННПеревозчика + ", " + ФактическийАдресКонтрагента (Контрагент);     // Реквезиты перевозчика
			ОбластьЛицевая.Параметры.Пункт6_2   = "" + ИмяВодителя + " " + НомерТелефонаФизическогоЛица(ФизическоеЛицо);     // дата и время подачи транспортного средства под погрузку
						
			// 7. Транспортное средство
			ОбластьЛицевая.Параметры.Пункт7_1  	= ПараметрыТС;     // (адрес места выгрузки)
			ОбластьЛицевая.Параметры.Пункт7_2  	= ГосНомер;      // (подпись, расшифровка подписи водителя, сдавшего груз)
			
			ТабДок.Вывести(ОбластьЛицевая);
			ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
			
			// ОБОРОТНАЯ СТОРОНА
			ОбластьОборотная = Макет.ПолучитьОбласть("ГоризонтальнаяОборотнаяСторона");
			
			// 8. Прием груза			
			ОрганизацияСокр = НаименованиеПолноеОрганизации + Символы.ПС + "ИНН " + Выборка.ИННОрганизации + АдресОрганизации + ТелефонОрганизации;			
            ОбластьОборотная.Параметры.Пункт8_1   = ОрганизацияСокр;
			ОбластьОборотная.Параметры.Пункт8_4   = Формат(НачалоДоставки, "ДЛФ=D");     // дата и время подачи транспортного средства под погрузку
			ОбластьОборотная.Параметры.Пункт8_44  = Формат(НачалоДоставки, "ДФ=HH:mm");
			ОбластьОборотная.Параметры.Пункт8_41  = Формат(ОкончаниеДоставки, "ДЛФ=D");
			ОбластьОборотная.Параметры.Пункт8_411 = Формат(ОкончаниеДоставки, "ДФ=HH:mm");
			ОбластьОборотная.Параметры.Пункт8_2   = АдресОтправки;
			ОбластьОборотная.Параметры.Пункт8_3   = Формат(НачалоДоставки, "ДЛФ=D");
			//ОбластьОборотная.Параметры.Пункт8_5   = МассаГруза;
			ОбластьОборотная.Параметры.Пункт8_51  = КоличествоМест;
			ОбластьОборотная.Параметры.Пункт8_7   = Ответственный;
			ОбластьОборотная.Параметры.Пункт8_8   = ИмяВодителя;
			
			// 9. Переадресовка (при наличии)
			
			// 10. Выдача груза
			ОбластьОборотная.Параметры.Пункт10_1   = АдресДоставки;
			//ОбластьОборотная.Параметры.Пункт10_2   = Формат(ОкончаниеДоставки, "ДЛФ=D");    		// (наименование и адрес места нахождения, номер телефона – для юридического лица)
			//ОбластьОборотная.Параметры.Пункт10_21  = Формат(ОкончаниеДоставки, "ДФ=HH:mm");
			ОбластьОборотная.Параметры.Пункт10_3   = Формат(НачалоДоставки, "ДЛФ=D");;   // фамилия, имя, отчество, данные о средствах связи (при их наличии) водителя (водителей))
			ОбластьОборотная.Параметры.Пункт10_33  = Формат(НачалоДоставки, "ДФ=HH:mm");
			ОбластьОборотная.Параметры.Пункт10_31  = Формат(ОкончаниеДоставки, "ДЛФ=D");
			ОбластьОборотная.Параметры.Пункт10_311 = Формат(ОкончаниеДоставки, "ДФ=HH:mm");
			ОбластьОборотная.Параметры.Пункт10_5   = СтрШаблон("(%1) %2", КоличествоМест, СтрЗаменить(ЧислоПрописью(КоличествоМест), "00", ""));
			ОбластьОборотная.Параметры.Пункт10_9   = ИмяВодителя;
													
			// 11. Отметки грузоотправителей, грузополучателей, перевозчиков (при необходимости)
			
			// 12. Стоимость перевозки груза (установленная плата) в рублях (при необходимости)
			ОбластьОборотная.Параметры.Пункт12_6   = "" + ТранспортнаяКомпания + ", " + "ИНН" + " " + ИННПартнера(ВыборкаТС.ТранспортнаяКомпания) + "," + " " + АдресПартнера(ВыборкаТС.ТранспортнаяКомпания);
			ОбластьОборотная.Параметры.Пункт12_7   = "" + ОрганизацияСокр;
			//ОбластьОборотная.Параметры.Пункт12_10  = "" + Контрагент + " ИНН" + " " + ИННПеревозчика + ", " + ФактическийАдресКонтрагента(ВыборкаТС.Контрагент) + ", " + " в банке " + БанкКонтрагента(ВыборкаТС.Контрагент);
			//ОбластьОборотная.Параметры.Пункт12_10  = "" + Получатель + " " + "ИНН" + " " + ИННПолучателя(ВыборкаТС.Получатель) + " " + "/" + " " + "КПП" + " " + ";" + АдресПолучателя(ВыборкаТС.Получатель); 
			ОбластьОборотная.Параметры.Пункт12_10  = "" + Получатель + ", " + "ИНН" + " " + ИННПолучателя(Получатель) + ", " + АдресПолучателя(Получатель);
			ОбластьОборотная.Параметры.Пункт12_11  = Ответственный;
			ОбластьОборотная.Параметры.Пункт12_12  = "Павлов Станислав Бернадьевич";
			ОбластьОборотная.Параметры.Пункт12_13  = Формат(НачалоДоставки, "ДЛФ=D");
			ОбластьОборотная.Параметры.Пункт12_14  = Формат(НачалоДоставки, "ДЛФ=D");
			
			ТабДок.Вывести(ОбластьОборотная);
			ТабДок.ОтображатьСетку = Ложь;
			ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
			ТабДок.ЗакончитьАвтогруппировкуСтрок(); 
			ТабДок.МасштабПечати = 95;
			ТабДок.ПолеСлева = 15;
			ТабДок.ДвусторонняяПечать = ТипДвустороннейПечати.ПереворотВлево;
			КонецЦикла;
		Иначе
			Возврат Неопределено;
		КонецЕсли;
	Иначе
		Возврат Неопределено;
	КонецЕсли;
	
	// Вернем табличный документ, если он заполнился 
	ЕстьПечать = ТабДок.Области.Количество() > 0;	
	Возврат ?(ЕстьПечать, ТабДок, Неопределено);
	
КонецФункции // Сформировать_ПФ_MXL_ТранспортнаяНакладная()

Функция ТекстНоменклатура(Номенклатура)

ТЗ = Новый ТаблицаЗначений;

ТЗ.Колонки.Добавить("Номенклатура", Новый ОписаниеТипов("СправочникСсылка.Номенклатура")); 

ТЗНоменклатура = Номенклатура.Выгрузить();

ТекстНоменклатура = "";
Для Каждого Стр Из ТЗНоменклатура Цикл
    ТекстНоменклатура = ТекстНоменклатура +?(ТекстНоменклатура  = "", Стр.Номенклатура.Наименование, ", " + Стр.Номенклатура.Наименование);
КонецЦикла;
Возврат ТекстНоменклатура;

КонецФункции
Показать
Прикрепленные файлы:
По теме из базы знаний
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. RustamZz 10.03.23 08:56 Сейчас в теме
(1) В коде нет ни малейшей попытки сделать, то что вы описываете в задании. Да и выглядит все написанное ужасно, поэтому не вызывает желания помочь.
3. Geophysic 10.03.23 08:58 Сейчас в теме
4. Geophysic 10.03.23 09:27 Сейчас в теме
(2) Я добавил разделитель страниц, не понимаю что нужно далее делать, поэтому и задаю вопрос
5. igor63 10.03.23 09:35 Сейчас в теме
(4) В самом макете добавьте
Прикрепленные файлы:
6. Geophysic 10.03.23 10:14 Сейчас в теме
7. Geophysic 10.03.23 10:22 Сейчас в теме
(5) Не это не то, у меня сама номенклатура в печати не правильно падает, всё в кучу, а не отдельно
8. YozZzhik 10.03.23 11:34 Сейчас в теме
Чтобы каждая номенклатура попадала на отдельный лист (если вы это имеете ввиду), то нужно при обходе каждой номенклатуры вставлять горизонтальный разделитель страниц. Код конечно ужасный, копаюсь в таких платно ;))
9. user1863362 10.03.23 12:37 Сейчас в теме
Кажется, геофизик нашел для себя лайфхак по работе.
Ему ставят задачу, он просто пишет на форум... профит!
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот