Функция Печать() экспорт
    Перем ПодразделениеОтветственныхЛиц;
	ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить();
	Если ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда
		ТоварКод = "Артикул";
	Иначе
		ТоварКод = "Код";
	КонецЕсли;

	Запрос = Новый Запрос;
	Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект.Ссылка);
	Запрос.Текст =
	"ВЫБРАТЬ
	|	Константы.ВалютаРегламентированногоУчета КАК ВалютаДокумента,
	|	ТребованиеНакладная.Номер КАК НомерДокумента,
	|	ТребованиеНакладная.Дата КАК ДатаДокумента,
	|	ТребованиеНакладная.Организация КАК Организация,
	|	ТребованиеНакладная.Организация КАК Руководители,
	|	ТребованиеНакладная.Склад КАК Склад,
	|	ТребованиеНакладная.Склад.Представление КАК ПредставлениеСклада,
	|	ТребованиеНакладная.Материалы.(
	|		НомерСтроки,
	|		Номенклатура,
	|		Номенклатура.НаименованиеПолное КАК ТоварНаименование,
	|		Номенклатура.Код КАК ТоварКод,
	|		Количество,
	|		КоличествоМест,
	|		ЕдиницаИзмерения.Наименование КАК ЕдиницаИзмеренияМестНаименование,
	|		Номенклатура.БазоваяЕдиницаИзмерения.Наименование КАК ЕдиницаИзмеренияНаименование,
	|		Номенклатура.БазоваяЕдиницаИзмерения.Код КАК ЕдиницаИзмеренияКодПоОКЕИ,
	|		Себестоимость,
	|		Ссылка,
	|		ВложенныйЗапрос.ДатаВходящегоДокумента,
	|		ВложенныйЗапрос.НомерВходящегоДокумента
	|	),
	|	ТребованиеНакладная.МатериалыЗаказчика.(
	|		НомерСтроки,
	|		Номенклатура,
	|		Номенклатура.НаименованиеПолное КАК ТоварНаименование,
	|		Номенклатура.Код КАК ТоварКод,
	|		Количество,
	|		1 КАК Поле1,
	|		Номенклатура.БазоваяЕдиницаИзмерения.Наименование КАК ЕдиницаИзмерения,
	|		Номенклатура.БазоваяЕдиницаИзмерения.Наименование КАК ЕдиницаХранения,
	|		0 КАК Поле2,
	|		0 КАК Поле3
	|	)
	|ИЗ
	|	Константы КАК Константы,
	|	Документ.ТребованиеНакладная КАК ТребованиеНакладная
	|		ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
	|			Номенклатура.Ссылка КАК Ссылка,
	|			ВложенныйЗапрос.ДатаВходящегоДокумента КАК ДатаВходящегоДокумента,
	|			ВложенныйЗапрос.НомерВходящегоДокумента КАК НомерВходящегоДокумента
	|		ИЗ
	|			(ВЫБРАТЬ
	|				ПоступлениеТоваровУслуг.ДатаВходящегоДокумента КАК ДатаВходящегоДокумента,
	|				ПоступлениеТоваровУслуг.НомерВходящегоДокумента КАК НомерВходящегоДокумента,
	|				ПоступлениеТоваровУслуг.Товары.(
	|					Ссылка КАК Ссылка
	|				) КАК Товары
	|			ИЗ
	|				РегистрБухгалтерии.Хозрасчетный.ДвиженияССубконто КАК ХозрасчетныйДвиженияССубконто
	|					ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
	|					ПО ХозрасчетныйДвиженияССубконто.Регистратор = ПоступлениеТоваровУслуг.Ссылка
	|						И ХозрасчетныйДвиженияССубконто.СубконтоДт1 = ПоступлениеТоваровУслуг.Ссылка
	|						И ХозрасчетныйДвиженияССубконто.СубконтоДт2 = ПоступлениеТоваровУслуг.Ссылка
	|						И ХозрасчетныйДвиженияССубконто.СубконтоДт3 = ПоступлениеТоваровУслуг.Ссылка
	|						И ХозрасчетныйДвиженияССубконто.СубконтоКт1 = ПоступлениеТоваровУслуг.Ссылка
	|						И ХозрасчетныйДвиженияССубконто.СубконтоКт2 = ПоступлениеТоваровУслуг.Ссылка
	|						И ХозрасчетныйДвиженияССубконто.СубконтоКт3 = ПоступлениеТоваровУслуг.Ссылка) КАК ВложенныйЗапрос
	|				ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Номенклатура КАК Номенклатура
	|				ПО ВложенныйЗапрос.Товары.Ссылка = Номенклатура.Ссылка) КАК ВложенныйЗапрос
	|		ПО ТребованиеНакладная.Материалы.Ссылка = ВложенныйЗапрос.Ссылка
	|ГДЕ
	|	ТребованиеНакладная.Ссылка = &ТекущийДокумент";
	
	Если Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить() = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда
		Запрос.Текст = СтрЗаменить(Запрос.Текст, "Номенклатура.Код","Номенклатура.Артикул");
	КонецЕсли;
	
	
	
	Шапка = Запрос.Выполнить().Выбрать();
	Шапка.Следующий();
    Сообщить("Запрос выполнен!");

	Макет       = ПолучитьМакет("Макет");
	ТабДокумент = Новый ТабличныйДокумент;
	ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_СписаниеТоваров_ТОРГ16";

	// Выводим общие реквизиты шапки
	ОписаниеОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.ДатаДокумента);
	ОбластьМакета       = Макет.ПолучитьОбласть("Шапка");
	ОбластьМакета.Параметры.Заполнить(Шапка);
	ОбластьМакета.Параметры.ДатаДокумента            = Формат(Шапка.ДатаДокумента, "ДЛФ=DD");
	ОбластьМакета.Параметры.ПредставлениеОрганизации = ФормированиеПечатныхФорм.ОписаниеОрганизации(ОписаниеОрганизации);
	ОбластьМакета.Параметры.ОрганизацияПоОКПО        = ОписаниеОрганизации.КодПоОКПО;
	
	Руководители = ОбщегоНазначения.ОтветственныеЛица(Шапка.Руководители, Шапка.ДатаДокумента, ПодразделениеОтветственныхЛиц);
	
	Руководитель = Руководители.РуководительПредставление;
	Бухгалтер    = Руководители.ГлавныйБухгалтерПредставление;
	ОбластьМакета.Параметры.ФИОРуководителя = Руководитель;

	
	ТабДокумент.Вывести(ОбластьМакета);

	СтрокНаСтранице = 23;
	СтрокШапки      = 11;
	СтрокПодвала    = 0;
	НомерСтраницы   = 1;
	Ном             = 0;

	ВыборкаСтрокТовары = Шапка.Материалы.Выбрать();

	КоличествоСтрок  = ВыборкаСтрокТовары.Количество();

	Если КоличествоСтрок = 1 Тогда
		ПереноситьПоследнююСтроку = 0;
	Иначе
		ЦелыхСтраницСПодвалом     = Цел((СтрокШапки + КоличествоСтрок + СтрокПодвала) / СтрокНаСтранице);
		ЦелыхСтраницБезПодвала    = Цел((СтрокШапки + КоличествоСтрок - 1) / СтрокНаСтранице);
		ПереноситьПоследнююСтроку = ЦелыхСтраницСПодвалом - ЦелыхСтраницБезПодвала;
	КонецЕсли;

	// Выводим заголовок таблицы
	ЗаголовокТаблицы = Макет.ПолучитьОбласть("ЗаголовокТаблицыПервогоЛиста");
	ТабДокумент.Вывести(ЗаголовокТаблицы);

	ОбластьМакета = Макет.ПолучитьОбласть("СтрокаПервогоЛиста");
	// Поиск сумм списания активов для заполнения Цены и Суммы
	ТаблицаСуммСписания = БухгалтерскийУчет.ПолучитьСуммуСписанияАктивов(СсылкаНаОбъект);
	ТаблицаСуммСписания.Индексы.Добавить("Номенклатура");

	Пока ВыборкаСтрокТовары.Следующий() Цикл

		Ном = Ном + 1;

		//Начинаем новую страницу, если предыдущая строка была последней на странице
		//или пора переносить последнюю строку на последнюю страницу с подвалом.
		ЦелаяСтраница = (СтрокШапки + Ном - 1) / СтрокНаСтранице;
		Если (ЦелаяСтраница = Цел(ЦелаяСтраница))
		 или ((ПереноситьПоследнююСтроку = 1) и (Ном = КоличествоСтрок)) Тогда

			ИтогоСтоимостьПоСтранице = 0;
			НомерСтраницы            = НомерСтраницы + 1;
			ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
			ТабДокумент.Вывести(ЗаголовокТаблицы);

		КонецЕсли;

		ОбластьМакета.Параметры.Заполнить(ВыборкаСтрокТовары);
		ОбластьМакета.Параметры.ДатаСписанияТовара = Шапка.ДатаДокумента;
		ТабДокумент.Вывести(ОбластьМакета);
		
		ОбластьМакета.Параметры.ДатаПоступленияТовара = ВыборкаСтрокТовары.ДатаВходящегоДокумента;
		ОбластьМакета.Параметры.ТоварнаяНакладнаяНомер = ВыборкаСтрокТовары.НомерВходящегоДокумента;
		ОбластьМакета.Параметры.ТоварнаяНакладнаяДата = ВыборкаСтрокТовары.ДатаВходящегоДокумента;
		Сообщить(ном);
	КонецЦикла;
	Сообщить("первый цикл");

	ВыборкаСтрокТара = Шапка.МатериалыЗаказчика.Выбрать();
	Пока ВыборкаСтрокТара.Следующий() Цикл

		Ном = Ном + 1;

		//Начинаем новую страницу, если предыдущая строка была последней на странице
		//или пора переносить последнюю строку на последнюю страницу с подвалом.
		ЦелаяСтраница = (СтрокШапки + Ном - 1) / СтрокНаСтранице;
		Если (ЦелаяСтраница = Цел(ЦелаяСтраница))
		 или ((ПереноситьПоследнююСтроку = 1) и (Ном = КоличествоСтрок)) Тогда

			ИтогоСтоимостьПоСтранице = 0;
			НомерСтраницы            = НомерСтраницы + 1;
			ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
			ТабДокумент.Вывести(ЗаголовокТаблицы);

		КонецЕсли;

		ОбластьМакета.Параметры.Заполнить(ВыборкаСтрокТара);
		ОбластьМакета.Параметры.ДатаСписанияТовара = Шапка.ДатаДокумента;
		ТабДокумент.Вывести(ОбластьМакета);

	КонецЦикла;
   Сообщить("второй цикл");

	СтрокНаСтранице = 27;
	СтрокШапки      = 5;
	СтрокПодвала    = 11;
	НомерСтраницы   = 1;
	Ном             = 0;

	ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();

	НомерСтраницы    = НомерСтраницы + 1;
	ЗаголовокТаблицы = Макет.ПолучитьОбласть("ЗаголовокТаблицыВторогоЛиста");
	ЗаголовокТаблицы.Параметры.НомерСтраницы = "Страница " + НомерСтраницы; 
	ТабДокумент.Вывести(ЗаголовокТаблицы);
	
	Если КоличествоСтрок = 1 Тогда
		ПереноситьПоследнююСтроку = 0;
	Иначе
		ЦелыхСтраницСПодвалом     = Цел((СтрокШапки + КоличествоСтрок + СтрокПодвала) / СтрокНаСтранице);
		ЦелыхСтраницБезПодвала    = Цел((СтрокШапки + КоличествоСтрок - 1) / СтрокНаСтранице);
		ПереноситьПоследнююСтроку = ЦелыхСтраницСПодвалом - ЦелыхСтраницБезПодвала;
	КонецЕсли;

	ИтогоСтоимость = 0;

	// Выводим многострочную часть документа
	ВыборкаСтрокТовары = Шапка.Материалы.Выбрать();
	ОбластьМакета = Макет.ПолучитьОбласть("СтрокаВторогоЛиста");
	Пока ВыборкаСтрокТовары.Следующий() Цикл

		Ном = Ном + 1;

		//Начинаем новую страницу, если предыдущая строка была последней на странице
		//или пора переносить последнюю строку на последнюю страницу с подвалом.
		ЦелаяСтраница = (СтрокШапки + Ном - 1) / СтрокНаСтранице;

		Если (ЦелаяСтраница = Цел(ЦелаяСтраница))
		 или ((ПереноситьПоследнююСтроку = 1) и (Ном = КоличествоСтрок)) Тогда

			ИтогоСтоимостьПоСтранице = 0;
			НомерСтраницы            = НомерСтраницы + 1;
			ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
			ЗаголовокТаблицы.Параметры.НомерСтраницы = "Страница " + НомерСтраницы;
			ТабДокумент.Вывести(ЗаголовокТаблицы);

		КонецЕсли;

		ОбластьМакета.Параметры.Заполнить(ВыборкаСтрокТовары);
		
		КоличествоМест = ?(ВыборкаСтрокТовары.КоличествоМест = 0, ВыборкаСтрокТовары.Количество, ВыборкаСтрокТовары.КоличествоМест);
		ОбластьМакета.Параметры.КоличествоМест = КоличествоМест;
		
		ОбластьМакета.Параметры.ТоварНаименование = ВыборкаСтрокТовары.ТоварНаименование;
		СтрокаСуммСписания =  ТаблицаСуммСписания.Найти(ВыборкаСтрокТовары.Номенклатура, "Номенклатура");
		Если СтрокаСуммСписания = Неопределено Тогда
			 ОбластьМакета.Параметры.Цена = 0;
			 ОбластьМакета.Параметры.Стоимость = 0;
		 Иначе
			 Цена = ?(СтрокаСуммСписания.Количество = 0, 0, СтрокаСуммСписания.Сумма / СтрокаСуммСписания.Количество);
			 ОбластьМакета.Параметры.Цена = Цена;
			 ОбластьМакета.Параметры.Стоимость = Цена * ВыборкаСтрокТовары.Количество;
		 КонецЕсли;
		
		ТабДокумент.Вывести(ОбластьМакета);

		// Обновим итоги по документу
		ИтогоСтоимость = ИтогоСтоимость + ОбластьМакета.Параметры.Стоимость;

				
	КонецЦикла;
	Сообщить("третий цикл");

	ВыборкаСтрокТара = Шапка.МатериалыЗаказчика.Выбрать();
	Пока ВыборкаСтрокТара.Следующий() Цикл

		Ном = Ном + 1;
		
		//Начинаем новую страницу, если предыдущая строка была последней на странице
		//или пора переносить последнюю строку на последнюю страницу с подвалом.
		ЦелаяСтраница = (СтрокШапки + Ном - 1) / СтрокНаСтранице;

		Если (ЦелаяСтраница = Цел(ЦелаяСтраница))
		 или ((ПереноситьПоследнююСтроку = 1) и (Ном = КоличествоСтрок)) Тогда

			ИтогоСтоимостьПоСтранице = 0;
			НомерСтраницы            = НомерСтраницы + 1;
			ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
			ЗаголовокТаблицы.Параметры.НомерСтраницы = "Страница " + НомерСтраницы;
			ТабДокумент.Вывести(ЗаголовокТаблицы);

		КонецЕсли;

		ОбластьМакета.Параметры.Заполнить(ВыборкаСтрокТара);
		ОбластьМакета.Параметры.ТоварНаименование = ВыборкаСтрокТара.ТоварНаименование + " (возвратная тара)";
		//СтрокаСуммСписания =  ТаблицаСуммСписания.Найти(ВыборкаСтрокТара.Номенклатура, "Номенклатура");
		Если СтрокаСуммСписания = Неопределено Тогда
			 ОбластьМакета.Параметры.Цена = 0;
			 ОбластьМакета.Параметры.Стоимость = 0; 
		 Иначе
			 Цена = ?(СтрокаСуммСписания.Количество = 0, 0, СтрокаСуммСписания.Сумма / СтрокаСуммСписания.Количество);
			 ОбластьМакета.Параметры.Цена = Цена;
			 ОбластьМакета.Параметры.Стоимость = Цена * ВыборкаСтрокТара.Количество;
		 КонецЕсли;
		ТабДокумент.Вывести(ОбластьМакета);

		// Обновим итоги по документу
		ИтогоСтоимость = ИтогоСтоимость + ОбластьМакета.Параметры.Стоимость;
	КонецЦикла;
    Сообщить("четвертый цикл");

	// Выводим итоги по документу в общем
	ОбластьМакета = Макет.ПолучитьОбласть("Итого");
	ОбластьМакета.Параметры.Итого = ИтогоСтоимость;
	ТабДокумент.Вывести(ОбластьМакета);

	// Выводим подвал документа
	ОбластьМакета = Макет.ПолучитьОбласть("Подвал");
	ОбластьМакета.Параметры.Заполнить(Шапка);
	ОбластьМакета.Параметры.СуммаСписанияПрописью = ОбщегоНазначения.СформироватьСуммуПрописью(ИтогоСтоимость, Шапка.ВалютаДокумента);
	ТабДокумент.Вывести(ОбластьМакета);

	// Зададим параметры макета
	ТабДокумент.ПолеСверху = 0;
	ТабДокумент.ПолеСлева  = 0;
	ТабДокумент.ПолеСнизу  = 0;
	ТабДокумент.ПолеСправа = 0;
	ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
   Сообщить("конец");

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


КонецФункции // ПечатьТОРГ16()