КвоЗаписей = Неопределено;
Пока РезультатФункции.State=0 Цикл
        РезультатФункции = РезультатФункции.NextRecordset(Записей);
        // а здесь уже перебираем записи рекордсета

КонецЦикла;

Область.Параметры.Товар = .....

Область.Параметры.Товар = ""+табЧасть.Номенклатура+" - "+Ответственный......+ДатаДокумента

Цитата(sava1 @ 03.08.15, 14:42)

ОбластьЗаголовокПП0     = Отчеты.МенюНаДень.ПолучитьМакет("Макет").ПолучитьОбласть("ЗаголовокПП0");

Пока ВыборкаМенюНаДень.Следующий() Цикл
        ОбластьЗаголовокПП1.Параметры.НаименованиеПриёмаПищи = ВыборкаМенюНаДень.ПриёмПищи;
        ВыводФорма.Вывести(ОбластьЗаголовокПП1);

    Пока ВыборкаМенюНаДень.Следующий() Цикл
        ОбластьЗаголовокПП1.Параметры.ДатаПриёмаПищи = ВыборкаМенюНаДень.Дата;
        ВыводФорма.Вывести(ОбластьЗаголовокПП0);      
        ВыборкаМенюНаДень2 = ВыборкаМенюНаДень.Выбрать()
        Пока ВыборкаМенюНаДень2.Следующий() Цикл
            ОбластьЗаголовокПП1.Параметры.НаименованиеПриёмаПищи = ВыборкаМенюНаДень.ПриёмПищи;
            ВыводФорма.Вывести(ОбластьЗаголовокПП1);

ВЫБРАТЬ
                             |    Меню.Ссылка,
                             |    Меню.ПриёмПищи КАК ПриёмПищи,
                             |    Меню.КоличествоПитающихся
                             |ИЗ
                             |    Документ.Меню КАК Меню
                             |ГДЕ
                             |    Меню.ДатаМеню = &ПараметрДатаМеню
                             |    И Меню.Подразделение = &ПараметрПодразделение
                             |    И Меню.ГруппаПитания = &ПараметрГруппаПитания
                             |    И Меню.ПометкаУдаления = ЛОЖЬ

                                         Итоги Сумма(Меню.КоличествоПитающихся) по Ссылка,ПриёмПищи
                             |                           ";

СГРУППИРОВАТЬ ПО
 | Меню.Ссылка, Меню.Дата, Меню.ПриёмПищи

ИТОГИ ПО Меню.Дата

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

"ВЫБРАТЬ
                             |    Меню.Ссылка,
                             |    Меню.ПриёмПищи КАК ПриёмПищи,
                             |    Сумма(Меню.КоличествоПитающихся) КоличествоПитающихся
                             |ИЗ
                             |    Документ.Меню КАК Меню
                             |ГДЕ
                             |    Меню.ДатаМеню = &ПараметрДатаМеню
                             |    И Меню.Подразделение = &ПараметрПодразделение
                             |    И Меню.ГруппаПитания = &ПараметрГруппаПитания
                             |    И Меню.ПометкаУдаления = ЛОЖЬ

                                          Сгруппировать по Меню.Ссылка, Меню.ПриёмПищи
                             |
                             |УПОРЯДОЧИТЬ ПО
                             |    ПриёмПищи
                             |АВТОУПОРЯДОЧИВАНИЕ";

    ЗапросМенюНаДень.УстановитьПараметр("НачалоПериода", НачалоДня(Отчет.НачалоПериода));
    ЗапросМенюНаДень.УстановитьПараметр("КонецПериода", КонецДня(Отчет.КонецПериода));

Меню.ДатаМеню = &ПараметрДатаМеню

Меню.ДатаМеню МЕЖДУ &НачалоПериода и &КонецПериода

рФорма=СоздатьОбъект("РасширениеФормы");
    Для н=0 По рФорма.КоличествоАтрибутов()-1 Цикл
        Атрибут=рФорма.ПолучитьАтрибут(н);
        Тип=Атрибут.Тип;
        Если Тип=3 Тогда
            Сообщить("Поймали кнопку ");
            Сообщить(Атрибут.Идентификатор);
        КонецЕсли;
    КонецЦикла;