Процедура Печать()
	КолСтр =  0 ;
	Блюда = СоздатьОбъект("Справочник.Блюда");
	ГрБлюд = СоздатьОбъект("Справочник.ГрБлюд");
	ТаблицаМеню = СоздатьОбъект("ТаблицаЗначений");
	ТаблицаМеню.НоваяКолонка("Номенклатура");
	ТаблицаМеню.НоваяКолонка("Выход");
	ТаблицаМеню.НоваяКолонка("ЦенаРеализ");
	ТаблицаМеню.НоваяКолонка("ЦенаВсего");
	ТаблицаМеню.НоваяКолонка("ГруппаБлюд");
	Таб = СоздатьОбъект("Таблица");
	НазвОрг = Константа.НазваниеОрганизации;
	Если м_Контекст.Подразделение.ТипПодразделения = Перечисление.ТипПодразделения.Склад Тогда
		л_Подразделение = м_Контекст.ГдеПроизводим;
	Иначе
		л_Подразделение = м_Контекст.Подразделение;
	КонецЕсли;
	Таб.ВывестиСекцию("Шапка");
	КолСтр =  5 ;
	
	м_Контекст.ВыгрузитьТабличнуюЧасть(ТаблицаМеню,"Номенклатура,Выход,ЦенаРеализ,ЦенаВсего,ГруппаБлюд");
	ТаблицаМеню.Сортировать("ГруппаБлюд,Номенклатура");
	л_КолСтрокТаблицы = ТаблицаМеню.КоличествоСтрок(); 
	Блюда.ПорядокКодов();
	Блюда.ВключатьПодчиненные( 1 );
	Блюда.ВыбратьЭлементы(); 
	ГрБлюд.ПорядокКодов();
	ГрБлюд.ВключатьПодчиненные( 1 );
	ГрБлюд.ВыбратьЭлементы(); 
	Пока Блюда.ПолучитьЭлемент() =  1  Цикл
		Флаг =  0 ; 
		Если Блюда.ЭтоГруппа() =  1  Тогда 
			НаименованиеГруппы = Блюда.Наименование;
			ТаблицаМеню.ВыбратьСтроки();
			//-------------------------------------
			Пока ТаблицаМеню.ПолучитьСтроку() =  1   Цикл
				Если НаименованиеГруппы = ТаблицаМеню.ГруппаБлюд.Наименование Тогда
					Если Флаг =  0  Тогда
						Таб.ВывестиСекцию("СтрокаГруппы");
						Флаг =  1 ;
						КолСтр = КолСтр +  1 ;
					КонецЕсли;