Вывод на макет Присоединить()

Процедура ВывестиГруппировку(ВхМакет, ВхЗапрВыб, ВхТипГр, ВхНомГр, ВхТаблГр, ВхУровень, ВхТаблДок, ВхТаблПакетныйЗаказПоставщику = Неопределено)
	
	РезультатыЗапросаПост = ПолучитьДанные();
	РезультатЗапросаПост = РезультатыЗапросаПост[2];
   ТаблНомПост = РезультатЗапросаПост.Выгрузить();
	
	_ДнейВМесяце = 30;
	
	Если ВхУровень >= 5 Тогда // максимум 5 уровней (0-4) 
		Возврат;
	КонецЕсли;	
	
	_ИмяСекции                  = ?(ВхТипГр = "Строки", "Гр" + ВхУровень, "ГрИтоги");
	_ИмяГр                      = ВхТаблГр[ВхНомГр].ИмяИзмерения;
	_ВыводитьИтогиПоГруппировке = ВхТаблГр[ВхНомГр].ВыводитьИтоги;
	_ТипИзмерения               = ВхТаблГр[ВхНомГр].ТипИзмерения;
	
	Пока ВхЗапрВыб.Следующий() Цикл
		
		// "_ИмяСекции|Начало"
		Если ВхТипГр = "Итоги" Тогда 
			
			Область = ВхМакет.ПолучитьОбласть(_ИмяСекции + "|Начало");
			ВхТаблДок.Вывести(Область, ВхУровень);
			
		Иначе	
			
			_ЗначениеГр = ВхЗапрВыб[_ИмяГр]; // значение группировки по имени
			
			Если ВхНомГр = (ВхТаблГр.Количество() - 1) И _ИмяГр = "ВариантИсполнения" Тогда // последняя группировка ("ВариантИсполнения")
				Если глПустоеЗначение(_ЗначениеГр) Тогда
					Продолжить;	
				КонецЕсли; 	
			КонецЕсли;
            			
			Область = ВхМакет.ПолучитьОбласть(_ИмяСекции + "|Начало");
			Если ТипЗнч(_ЗначениеГр) = Тип("СправочникСсылка.Номенклатура") Тогда
				Если _ЗначениеГр.ЭтоГруппа Тогда
					Область.Параметры.ЗначениеГрСтр = ВРЕГ(глНоменклатураСтр(_ЗначениеГр));
				Иначе
					
					Если мИспользоватьАртикулы Тогда
						Область.Параметры.Артикул 	= _ЗначениеГр.Артикул;
					КонецЕсли;
					
					Область.Параметры.ЗначениеГрСтр = глНоменклатураСтр(_ЗначениеГр, Ложь) + ", " +  _ЗначениеГр[ИспользуемыеЕдиницыИзмерения];
					
					// для номенклатуры (элементов -> итоги будем выводить при условии, что тип измерения выбран как "Иерархия")
					Если _ТипИзмерения = ТипИзмеренияПостроителяОтчета.Иерархия Тогда
						_ВыводитьИтогиПоГруппировке = Истина;
					КонецЕсли;
					
				КонецЕсли;
			Иначе
				
				Если мИспользоватьАртикулы 
					И ТипЗнч(_ЗначениеГр) = Тип("СправочникСсылка.ВариантыИсполнения") Тогда 
					
					Область.Параметры.Артикул 	= _ЗначениеГр.Артикул;
					
				КонецЕсли;
				
				Область.Параметры.ЗначениеГрСтр = _ЗначениеГр;
				
			КонецЕсли; 
			Область.Параметры.Расшифровка   = _ЗначениеГр;
			ВхТаблДок.Вывести(Область, ВхУровень);
		КонецЕсли;	
						
		// "_ИмяСекции|ВертикальныйРазделитель"
		Область = ВхМакет.ПолучитьОбласть(_ИмяСекции + "|ВертикальныйРазделитель1");
		ВхТаблДок.Присоединить(Область);
		
		
			Если _ИмяГр = "ОснПоставщик"  тогда
		Сч=0;

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

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

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

    КонецЦикла; 

КонецЕсли;