Разделить печать документов в разные печати
Доброе утро, мне нужно чтобы каждая номенклатура привязанная к документу падала в отдельную печать, если для номенклатуры не указан документ, тогда не печатать эту номенклатуру, подскажите как это осуществить? Сейчас же у меня все 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_ТранспортнаяНакладная()
Функция ТекстНоменклатура(Номенклатура)
ТЗ = Новый ТаблицаЗначений;
ТЗ.Колонки.Добавить("Номенклатура", Новый ОписаниеТипов("СправочникСсылка.Номенклатура"));
ТЗНоменклатура = Номенклатура.Выгрузить();
ТекстНоменклатура = "";
Для Каждого Стр Из ТЗНоменклатура Цикл
ТекстНоменклатура = ТекстНоменклатура +?(ТекстНоменклатура = "", Стр.Номенклатура.Наименование, ", " + Стр.Номенклатура.Наименование);
КонецЦикла;
Возврат ТекстНоменклатура;
КонецФункции
ПоказатьПрикрепленные файлы:

По теме из базы знаний
- Печать договоров с приложением
- Печать актов форм МХ-1, МХ-3 в 1С:БП 3.0
- Универсальная печать по шаблонам Word (Печать договоров из 1С БП 3, УНФ 1.6, ЗУП 3, УТ 11, КА 2, ERP 2, ДО 3)
- Модули интеграции 1С с WB, Ozon, ЯндексМаркет, Мегамаркет по схеме FBS
- Печать документов по шаблону MS Word с тегами для заполнения из 1С:ЗУП
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот