Для каждого ТекСтр из СписокБлюд Цикл
    СоставБлюда = ВернутьСостав(ТекСтр).Выбрать(); // ВернутьСостав() - функция.
    ...
КонецЦикла;
...
Функция ВернутьСостав(Блюдо)
    <запрос к регистру>
    Возврат Запрос.Выполнить();
КонецФункции;

	Пока ВыборкаДетали.Следующий() Цикл
		Если ВыборкаДетали.Меню.ЭтоГруппа Тогда
			ОбластьГруппа.Параметры.Заполнить(ВыборкаДетали);
			ТабДок.Вывести(ОбластьГруппа);
		Иначе
			ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали);
			СоставБлюда = ВернутьСостав(ВыборкаДетали).Выбрать();
			ОбластьДетальныхЗаписей.Параметры.Счетчик = Счетчик;
			ТабДок.Вывести(ОбластьДетальныхЗаписей);
		КонецЕсли;
	КонецЦикла;

Функция ВернутьСостав(Блюда)
Запрос = Новый Запрос;
Запрос.Текст = 	
	    "ВЫБРАТЬ
	    |	ТехнологическиеКарты.Номенклатура,
	    |	ТехнологическиеКарты.Ингредиент,
	    |	ТехнологическиеКарты.Единица,
	    |	ТехнологическиеКарты.КоличествоНетто
	    |ИЗ
	    |	РегистрСведений.ТехнологическиеКарты КАК ТехнологическиеКарты";
	 Результат = Запрос.Выполнить();
	 Макет = ПолучитьМакет("Меню");
	ТабДок = новый ТабличныйДокумент;

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

	Пока ВыборкаДетали.Следующий() Цикл
		Если ВыборкаДетали.Меню.ЭтоГруппа Тогда
			ОбластьГруппа.Параметры.Заполнить(ВыборкаДетали);
			ТабДок.Вывести(ОбластьГруппа);
		Иначе
			ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали);
			//далее мы получаем состав блюда и должны вывести его в макет
			СоставБлюда = ВернутьСостав(ВыборкаДетали).Выбрать();
			//НО ты ничего не делаешь для этого!!! ты присвоил Счетчик и..
			ОбластьДетальныхЗаписей.Параметры.Счетчик = Счетчик;
			//вывел строку в макет
			ТабДок.Вывести(ОбластьДетальныхЗаписей);
		КонецЕсли;
	КонецЦикла;

Функция ВернутьСостав(Блюда)
Запрос = Новый Запрос;
//текст - это хорошо. но мы же должны получить состав для конкретного блюда? или..?????
//я не наблюдаю параметра запроса. Ты фактически получил ВСЕ технологические карты. Зачем?
Запрос.Текст = 	
	    "ВЫБРАТЬ
	    |	ТехнологическиеКарты.Номенклатура,
	    |	ТехнологическиеКарты.Ингредиент,
	    |	ТехнологическиеКарты.Единица,
	    |	ТехнологическиеКарты.КоличествоНетто
	    |ИЗ
	    |	РегистрСведений.ТехнологическиеКарты КАК ТехнологическиеКарты";
	 Результат = Запрос.Выполнить();
//это что? ты в функции работаешь с макетом??? 
	 Макет = ПолучитьМакет("Меню");
	ТабДок = новый ТабличныйДокумент;

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

Запрос.УстановитьПараметр("Блюдо", Блюда); //где Блюда - параметр, передаваемый в функцию

| ГДЕ <Условие>

Возврат Запрос.Выполнить();

Пока СоставБлюда.Следующий() Цикл //ингр-тов же несколько!!!
    ОбластьДетальныхИнгредиентов.Параметры.Заполнить(СоставБлюда);
    ТабДок.Вывести(ОбластьДетальныхИнгредиентов);
КонецЦикла;

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

	Результат = Запрос.Выполнить();
	ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
	ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
	ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
	ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
	ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
	ОбластьДетальныхИнгредиентов = Макет.ПолучитьОбласть("Ингредиент");
	ОбластьГруппа = Макет.ПолучитьОбласть("Группа");

	ТабДок.Очистить();
	ТабДок.Вывести(ОбластьШапкаТаблицы);

	ВыборкаДетали = Результат.Выбрать();

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

Функция ВернутьСостав(Блюда)
Запрос = Новый Запрос;

Запрос.Текст = 	
	    "ВЫБРАТЬ
	    |	ТехнологическиеКарты.Номенклатура,
	    |	ТехнологическиеКарты.Ингредиент,
	    |	ТехнологическиеКарты.Единица,
	    |	ТехнологическиеКарты.КоличествоНетто
	    |ИЗ
	    |	РегистрСведений.ТехнологическиеКарты КАК ТехнологическиеКарты";
	 
	 Результат = Запрос.Выполнить();
     Ингредиент = Результат.Выбрать();
	  Возврат Запрос.Выполнить();
КонецФункции 

СоставБлюда = ВернутьСостав(ВыборкаДетали).Выбрать();

        "ВЫБРАТЬ
        |    ТехнологическиеКарты.Номенклатура,
        |    ТехнологическиеКарты.Ингредиент,
        |    ТехнологическиеКарты.Единица,
        |    ТехнологическиеКарты.КоличествоНетто
        |ИЗ
        |    РегистрСведений.ТехнологическиеКарты КАК ТехнологическиеКарты
        |ГДЕ
        |   ТехнологическиеКарты.{БЛЮДО} = &Блюда";
Запрос.УстановитьПараметр("Блюда", Блюда);
...