Внешняя печатная форма

Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
	
	УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "ЗаказНаПроизводство", "Заказ на производство", ПечатьЗаказаЗаявки(МассивОбъектов[0], ОбъектыПечати));
	

КонецПроцедуры // Печать()



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

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

   	Для каждого уч из Участок цикл
	  стр = Макет.ПолучитьОбласть("Подвал2");
	  стр.Параметры.Цех = уч.Наименование;
	   Разделитель = " ";
       Строки = СтрЗаменить(уч.ТекущийРуководитель, Разделитель, Символы.ПС);
	   стр.Параметры.Ответ = СтрПолучитьСтроку(Строки, 1)+" "+Лев(СтрПолучитьСтроку(Строки, 2),1)+"."+Лев(СтрПолучитьСтроку(Строки, 3),1);//уч.Отвественный;
	
	ТабличныйДокумент.Вывести(стр);
	КонецЦикла;  
	  
	ОбластьПодвал = Макет.ПолучитьОбласть("Подвал1");
	ТабличныйДокумент.Вывести(ОбластьПодвал);
	Возврат ТабличныйДокумент;
	
КонецФункции