//*******************************************
Перем ТабГрупп[ 10 ];
Перем ТекЗначГрупп[ 10 ]; 
//*******************************************
Процедура ОткрытьПодборТоваров()
	ОткрытьПодбор("Справочник.Номенклатура", "ФормаСписка", , 1 );
КонецПроцедуры                                                                                                                         
//*********************************************
Процедура ОбработкаПодбора(ТекТовар, Конт)
	//проверка на дублирование строк в списке
	КолвоСтрок = ВыбТовар.РазмерСписка();  //колво выбранных клиентов
	Для ККК =  1  по КолвоСтрок Цикл
		ААА = "";  
		ТекСтрока = ВыбТовар.ПолучитьЗначение(ККК, ААА);
		Если ТекСтрока = ТекТовар Тогда
			Предупреждение("Товар уже включен в подбор!");
			Возврат;
		КонецЕсли;	
	КонецЦикла;		
	ДляСтроки = "" + СокрЛП(ТекТовар.Наименование);
	ВыбТовар.ДобавитьЗначение(ТекТовар, ДляСтроки); 
КонецПроцедуры
//********************************************** 


Процедура ВывестиНаПечатьТаблицу(Т) 
	// Структура Т:
	//  1  - Товар           
	//  2  - Размер;          - может отсутствовать
	//  3  - Цвет;            - может отсутствовать
	//  4  - Склад             
	//  5  - Остаток;   
	//  6  - Продано;

	Таб = СоздатьОбъект("Таблица"); 
	
	// ------------------------------ выводим шапку	--------------------------------
	Таб.ВывестиСекцию("Шапка"); 
	Таб.ВывестиСекцию("ШапкаТаб|Графа1"); 
	
	// формируем вспомогательную ТШапка, в которой будем формировать шапку, итоги по складам, а затем данные по складам
	ТШапка = СоздатьОбъект("ТаблицаЗначений");
	Т.Выгрузить(ТШапка);
	ТШапка.Свернуть("Склад","Остаток,Продано");
	ТШапка.НоваяКолонка("КодСклада");         
	ТШапка.НоваяКолонка("ОстатокПром","Число");         
	ТШапка.НоваяКолонка("ПроданоПром","Число");         
	ТШапка.ВыбратьСтроки();
	Пока ТШапка.ПолучитьСтроку()=  1  Цикл  
		ТШапка.КодСклада = ТШапка.Склад.Код;
	КонецЦикла;                                 
	
	
	// по  периодам шапка  
	ТШапка.Сортировать("КодСклада");
	ТШапка.ВыбратьСтроки();
	Пока ТШапка.ПолучитьСтроку()=  1  Цикл  
		ТекМаг = СокрЛП(ТШапка.Склад.ГрСклад);
		Таб.ПрисоединитьСекцию("ШапкаТаб|Графа2"); 
	КонецЦикла;                                 
	Таб.ПрисоединитьСекцию("ШапкаТаб|Графа3"); 
	// ---------------------------  шапку вывели -------------------------------------------