Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Печать Меню в разрез дат
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.3
burza
02.08.15, 18:00
Добрый вечер форум)

Нужна помощь! У меня есть отчет для "Склада и питания" на 1С:Предприятие 8.3 (8.3.4.365).
Отчет делает расчеты и считает себестоимость питание на 1 день. Мне нужно добавить чтобы можно было сразу посчитать на 10 дней вперед например, помогите пожалуйста)

отчет прилагаеться: необходимо зарегистрироваться для просмотра ссылки


 ! 

Правила, п.5
 
logist
02.08.15, 18:58
В чем конкретно проблема?
burza
03.08.15, 8:49
Проблема в том что я не знаю как сделать " Период С и По". Сейчас работает только на 1 день "сформировать меню на день с ценой" и дата меню выбирается за 1 день, а мне нада за несколько.
с 01.07 по 10.07 например.

Что мне добавить или исправить, подскажите пожалуйста
sava1
03.08.15, 9:19
Вывести на форму НачалоПериода и КонецПериода.
В запросе вместо 
Меню.ДатаМеню = &ПараметрДатаМеню

писать 
Меню.ДатаМеню МЕЖДУ &НачалоПериода и &КонецПериода
burza
03.08.15, 9:38
Цитата(sava1 @ 03.08.15, 10:19) необходимо зарегистрироваться для просмотра ссылки
Вывести на форму НачалоПериода и КонецПериода.
В запросе вместо 
Меню.ДатаМеню = &ПараметрДатаМеню

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



Добавил в форму и изменил в запросе, и вот что выдает:

 ! 

Правила, п.11
 
sava1
03.08.15, 9:48
Ну так в параметры запроса надо было вставить начало и конец периода (так-же как ПараметрДатаМеню)
burza
03.08.15, 9:56
Цитата(sava1 @ 03.08.15, 10:48) необходимо зарегистрироваться для просмотра ссылки
Ну так в параметры запроса надо было вставить начало и конец периода (так-же как ПараметрДатаМеню)


Вот так если я правильно понимаю?

 ! 

Правила, п.11
 
то все ровно ошибка таже.
sava1
03.08.15, 10:01
    ЗапросМенюНаДень.УстановитьПараметр("НачалоПериода", НачалоДня(Отчет.НачалоПериода));
    ЗапросМенюНаДень.УстановитьПараметр("КонецПериода", КонецДня(Отчет.КонецПериода));
burza
03.08.15, 10:36
Цитата(sava1 @ 03.08.15, 11:01) необходимо зарегистрироваться для просмотра ссылки
    ЗапросМенюНаДень.УстановитьПараметр("НачалоПериода", НачалоДня(Отчет.НачалоПериода));
    ЗапросМенюНаДень.УстановитьПараметр("КонецПериода", КонецДня(Отчет.КонецПериода));


Большое спасибо, считает теперь за период)
Только у меня теперь другая проблема, у меня отчет выводиться на форму выглядит так

 ! 

Правила, п.11
 

После того как я выбираю переодичность отчета "с и до" он мне выводит и считает все верно и правильно только пишет что 3 число и все там вмести

 ! 

Правила, п.11
 


Можно как-то сделать чтобы каждый день был отдельно?
sava1
03.08.15, 10:43
Добавить группировку по дате и результат запроса обойти ПоГруппировкам
burza
03.08.15, 11:17
Цитата(sava1 @ 03.08.15, 11:43) необходимо зарегистрироваться для просмотра ссылки
Добавить группировку по дате и результат запроса обойти ПоГруппировкам



Правильно ли я все сделал? необходимо зарегистрироваться для просмотра ссылки
sava1
03.08.15, 11:25
Да.
burza
03.08.15, 11:27
Сделал так

 ! 

Правила, п.11
 
и вот что вылазит

 ! 

Правила, п.11
 
sava1
03.08.15, 11:33
Выложите текст запроса в ответе - не на картинке.
VikingKosmo
03.08.15, 11:33
Вы сделали не правильно. Если поле Меню.Ссылка присутствует в конструкции СГРУППИРОВАТЬ ПО, то к остальным полям выборки должны применяться агрегатные функции СУММА(), КОЛИЧЕСТВО() и т.п. Но в данном случае мне кажется, вам нужно использовать конструкцию ИТОГИ ПО.
sava1
03.08.15, 11:35
"ВЫБРАТЬ
                             |    Меню.Ссылка,
                             |    Меню.ПриёмПищи КАК ПриёмПищи,
                             |    Сумма(Меню.КоличествоПитающихся) КоличествоПитающихся
                             |ИЗ
                             |    Документ.Меню КАК Меню
                             |ГДЕ
                             |    Меню.ДатаМеню = &ПараметрДатаМеню
                             |    И Меню.Подразделение = &ПараметрПодразделение
                             |    И Меню.ГруппаПитания = &ПараметрГруппаПитания
                             |    И Меню.ПометкаУдаления = ЛОЖЬ

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

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


 ! 

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

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



ничего не изменилось, пишет все вмести
sava1
03.08.15, 11:44
Но здесь дейсвительно лучше Итоги
Вместо
СГРУППИРОВАТЬ ПО
 | Меню.Ссылка, Меню.Дата, Меню.ПриёмПищи

Писать
ИТОГИ ПО Меню.Дата
burza
03.08.15, 11:47
Цитата(sava1 @ 03.08.15, 12:44) необходимо зарегистрироваться для просмотра ссылки
Но здесь дейсвительно лучше Итоги
Вместо
СГРУППИРОВАТЬ ПО
 | Меню.Ссылка, Меню.Дата, Меню.ПриёмПищи

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


ошибка
{Отчет.МенюНаДень3.Форма.ФормаОтчета.Форма(48)}: Ошибка при вызове метода контекста (Выполнить)
Возврат ЗапросМенюНаДень.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
по причине:
{(18, 1)}: Синтаксическая ошибка "УПОРЯДОЧИТЬ"
<<?>>УПОРЯДОЧИТЬ ПО
sava1
03.08.15, 11:59
попробуйте так
ВЫБРАТЬ
                             |    Меню.Ссылка,
                             |    Меню.ПриёмПищи КАК ПриёмПищи,
                             |    Меню.КоличествоПитающихся
                             |ИЗ
                             |    Документ.Меню КАК Меню
                             |ГДЕ
                             |    Меню.ДатаМеню = &ПараметрДатаМеню
                             |    И Меню.Подразделение = &ПараметрПодразделение
                             |    И Меню.ГруппаПитания = &ПараметрГруппаПитания
                             |    И Меню.ПометкаУдаления = ЛОЖЬ

                                         Итоги Сумма(Меню.КоличествоПитающихся) по Ссылка,ПриёмПищи
                             |                           ";
logist
03.08.15, 12:26
burza, давайте Вы прочитаете правила форума, и отпишитесь мне в личку, что сделали это, а тогда я открою тему обратною. Спасибо.
burza
03.08.15, 13:13
Цитата(sava1 @ 03.08.15, 12:59) необходимо зарегистрироваться для просмотра ссылки
попробуйте так
ВЫБРАТЬ
                             |    Меню.Ссылка,
                             |    Меню.ПриёмПищи КАК ПриёмПищи,
                             |    Меню.КоличествоПитающихся
                             |ИЗ
                             |    Документ.Меню КАК Меню
                             |ГДЕ
                             |    Меню.ДатаМеню = &ПараметрДатаМеню
                             |    И Меню.Подразделение = &ПараметрПодразделение
                             |    И Меню.ГруппаПитания = &ПараметрГруппаПитания
                             |    И Меню.ПометкаУдаления = ЛОЖЬ

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



Сделал так. теперь приемы пищи идут по очереди, но все ровно все в одной дате и в одной форме вмести за 3 августа.
sava1
03.08.15, 13:27
Код вывода данных покажите.
burza
03.08.15, 13:30
Цитата(sava1 @ 03.08.15, 14:27) необходимо зарегистрироваться для просмотра ссылки
Код вывода данных покажите.


Код большой. можна также в самом отчете посмотреть что я выложил на скачку.

Функция ВывестиМенюНаДень(ДопПоля)
    ВыводФорма = новый ТабличныйДокумент;
    
    ОбластьШапка1           = Отчеты.МенюНаДень.ПолучитьМакет("Макет").ПолучитьОбласть("ОбластьШапка1");
    ОбластьШапка2           = Отчеты.МенюНаДень.ПолучитьМакет("Макет").ПолучитьОбласть("ОбластьШапка2");
    ОбластьШапкаЗаголовок   = Отчеты.МенюНаДень.ПолучитьМакет("Макет").ПолучитьОбласть("ОбластьШапкаЗаголовок");
    ОбластьШапкаСписокГП    = Отчеты.МенюНаДень.ПолучитьМакет("Макет").ПолучитьОбласть("ОбластьШапкаСписокГП");
    ОбластьЗаголовокЭнц     = Отчеты.МенюНаДень.ПолучитьМакет("Макет").ПолучитьОбласть("ОбластьЗаголовокЭнц");
    ОбластьЗаголовокПП1     = Отчеты.МенюНаДень.ПолучитьМакет("Макет").ПолучитьОбласть("ОбластьЗаголовокПП1");
    ОбластьБлюдо            = Отчеты.МенюНаДень.ПолучитьМакет("Макет").ПолучитьОбласть("ОбластьБлюдо");
    ОбластьБлюдоСЦеной      = Отчеты.МенюНаДень.ПолучитьМакет("Макет").ПолучитьОбласть("ОбластьБлюдоСЦеной");
    ОбластьБлюдоСКалор      = Отчеты.МенюНаДень.ПолучитьМакет("Макет").ПолучитьОбласть("ОбластьБлюдоСКалор");
    ОбластьБлюдоЭнц         = Отчеты.МенюНаДень.ПолучитьМакет("Макет").ПолучитьОбласть("ОбластьБлюдоЭнц");
    ПодвалМенюСЦеной        = Отчеты.МенюНаДень.ПолучитьМакет("Макет").ПолучитьОбласть("ПодвалМенюСЦеной");
    ПодвалМенюСКалор        = Отчеты.МенюНаДень.ПолучитьМакет("Макет").ПолучитьОбласть("ПодвалМенюСКалор");
    ОбластьПодвалБЖУК       = Отчеты.МенюНаДень.ПолучитьМакет("Макет").ПолучитьОбласть("ОбластьПодвалБЖУК");
    
    Подвал                  = Отчеты.МенюНаДень.ПолучитьМакет("Макет").ПолучитьОбласть("Подвал");
    
    ОбластьСсылкаНаСборник  = Отчеты.МенюНаДень.ПолучитьМакет("Макет").ПолучитьОбласть("ОбластьСсылкаНаСборник");

    
    
    
    // Установка параметров области "ОбластьШапка1"
    ОбластьШапка1.Параметры.Подразделение = Отчет.Подразделение.Наименование;
    
    // Установка параметров области "ОбластьШапка2"
    ОбластьШапка2.Параметры.Подразделение = Отчет.Подразделение.Наименование;
    Отбор = новый Структура;
    Отбор.Вставить("Подразделение", Отчет.Подразделение);
    ИмяДиректора = РегистрыСведений.ОтветственныеЛица.ПолучитьПоследнее(ТекущаяДата(),Отбор).ОтвЛицоДиректор;
    ОбластьШапка2.Параметры.ИмяДиректора = ИмяДиректора;
    
    // Установка параметров области "ОбластьШапкаЗаголовок"
    ОбластьШапкаЗаголовок.Параметры.НаименованиеДокумента = "Меню на";
    ОбластьШапкаЗаголовок.Параметры.ДатаДокумента = Формат(Отчет.ДатаМеню, "ДЛФ=ДД");
    
    // Установка параметров области "ОбластьШапкаСписокГП"
    ОбластьШапкаСписокГП.Параметры.СписокГруппПитания = Отчет.ГруппаПитания;
    
    
    
    
    // Выводим все "шапки" в результирующий документ
    ВыводФорма.Вывести(ОбластьШапка1);
    ВыводФорма.Вывести(ОбластьШапка2);
    ВыводФорма.Вывести(ОбластьШапкаЗаголовок);
    ВыводФорма.Вывести(ОбластьШапкаСписокГП);

    Если ДопПоля = 3 тогда
        ВыводФорма.Вывести(ОбластьЗаголовокЭнц);
    КонецЕсли;
    
    
    // Собственно выборка меню на день
    ВыборкаМенюНаДень = ПолучитьМенюНаДень();
    
    ОбщаяЦена = 0;
    ОбщаяКалорийность = 0;
    ВсегоБелки = 0;
    ВсегоЖиры = 0;
    ВсегоУглеводы = 0;
    
    
    
    Пока ВыборкаМенюНаДень.Следующий() Цикл
        ОбластьЗаголовокПП1.Параметры.НаименованиеПриёмаПищи = ВыборкаМенюНаДень.ПриёмПищи;
        ВыводФорма.Вывести(ОбластьЗаголовокПП1);
        
        // Выборка всех блюд по данному меню
        ВыборкаСписокБлюдВМеню = ПолучитьСписокБлюдВМеню(ВыборкаМенюНаДень.Ссылка);
        
        
        Пока ВыборкаСписокБлюдВМеню.Следующий() Цикл 
            // ДопПоля = 0 - простое меню, без цен и калорий
            Если ДопПоля = 0 Тогда
                Если Отчет.ПечататьНР тогда
                    ОбластьБлюдо.Параметры.НаименованиеБлюда = ВыборкаСписокБлюдВМеню.Наименование + " (" + ВыборкаСписокБлюдВМеню.КодРецептуры + ")";
                Иначе
                    ОбластьБлюдо.Параметры.НаименованиеБлюда = ВыборкаСписокБлюдВМеню.Наименование;
                КонецЕсли;
                ОбластьБлюдо.Параметры.Выход = СформироватьВыходБлюда(ВыборкаСписокБлюдВМеню.Выход1, ВыборкаСписокБлюдВМеню.Выход2, ВыборкаСписокБлюдВМеню.Выход3);
                ОбластьБлюдо.Параметры.ЕД = ВыборкаСписокБлюдВМеню.ЕдИзм;
                ВыводФорма.Вывести(ОбластьБлюдо);
            КонецЕсли;
            
            // ДопПоля = 1 - меню с ценой
            Если ДопПоля = 1 Тогда
                ОбластьБлюдоСЦеной.Параметры.НаименованиеБлюда = ВыборкаСписокБлюдВМеню.Наименование;
                ОбластьБлюдоСЦеной.Параметры.Выход = СформироватьВыходБлюда(ВыборкаСписокБлюдВМеню.Выход1, ВыборкаСписокБлюдВМеню.Выход2, ВыборкаСписокБлюдВМеню.Выход3);
                ОбластьБлюдоСЦеной.Параметры.ЕД = ВыборкаСписокБлюдВМеню.ЕдИзм;
                Цена = УправлениеМеню.ПолучитьЦенуБлюда(ВыборкаМенюНаДень.Ссылка, ВыборкаСписокБлюдВМеню.ИдентификаторБлюда, Отчет.БазаРасчётаЦен);
                ОбластьБлюдоСЦеной.Параметры.Цена = Формат(Цена, "ЧДЦ=2");
                ОбластьБлюдоСЦеной.Параметры.Вал = Константы.БазоваяВалютаСистемы.Получить();
                ВыводФорма.Вывести(ОбластьБлюдоСЦеной);
                Если Цена = NULL тогда
                    Сообщить("Цена блюда " + ВыборкаСписокБлюдВМеню.Наименование + " не определена");
                Иначе 
                    ОбщаяЦена = ОбщаяЦена + Цена; 
                КонецЕсли;

                
            КонецЕсли;

            // ДопПоля = 2 - меню с калориями
            Если ДопПоля = 2 Тогда
                ОбластьБлюдоСКалор.Параметры.НаименованиеБлюда = ВыборкаСписокБлюдВМеню.Наименование;
                ОбластьБлюдоСКалор.Параметры.Выход = СформироватьВыходБлюда(ВыборкаСписокБлюдВМеню.Выход1, ВыборкаСписокБлюдВМеню.Выход2, ВыборкаСписокБлюдВМеню.Выход3);
                ОбластьБлюдоСКалор.Параметры.ЕД = ВыборкаСписокБлюдВМеню.ЕдИзм;
                ОбластьБлюдоСКалор.Параметры.Калор = Формат(ВыборкаСписокБлюдВМеню.КалорийностьБлюда, "ЧДЦ=2");
                
                ВыводФорма.Вывести(ОбластьБлюдоСКалор);
                Если ВыборкаСписокБлюдВМеню.КалорийностьБлюда = NULL тогда
                    Сообщить("Калорийность блюда " + ВыборкаСписокБлюдВМеню.Наименование + " не определена");
                Иначе 
                    ОбщаяКалорийность = ОбщаяКалорийность + Число(ВыборкаСписокБлюдВМеню.КалорийностьБлюда);
                КонецЕсли;
            КонецЕсли;
            
            
            
            
            // ДопПоля = 3 - вывод параметров БЖУК
            Если ДопПоля = 3 Тогда
                ОбластьБлюдоЭнц.Параметры.НаименованиеБлюда = ВыборкаСписокБлюдВМеню.Наименование;
                ОбластьБлюдоЭнц.Параметры.Выход = СформироватьВыходБлюда(ВыборкаСписокБлюдВМеню.Выход1, ВыборкаСписокБлюдВМеню.Выход2, ВыборкаСписокБлюдВМеню.Выход3);
                ОбластьБлюдоЭнц.Параметры.ЕД = ВыборкаСписокБлюдВМеню.ЕдИзм;
                ОбластьБлюдоЭнц.Параметры.Белки = Формат(ВыборкаСписокБлюдВМеню.Белки, "ЧДЦ=2");
                ОбластьБлюдоЭнц.Параметры.Жиры = Формат(ВыборкаСписокБлюдВМеню.Жиры, "ЧДЦ=2");
                ОбластьБлюдоЭнц.Параметры.Углеводы = Формат(ВыборкаСписокБлюдВМеню.Углеводы, "ЧДЦ=2");
                ОбластьБлюдоЭнц.Параметры.Калорийность = Формат(ВыборкаСписокБлюдВМеню.КалорийностьБлюда, "ЧДЦ=2");
                
                
                
                ВыводФорма.Вывести(ОбластьБлюдоЭнц);
                
                
                Если НЕ ВыборкаСписокБлюдВМеню.КалорийностьБлюда = NULL тогда
                    ОбщаяКалорийность = ОбщаяКалорийность + Число(ВыборкаСписокБлюдВМеню.КалорийностьБлюда);
                КонецЕсли;
                
                
                Если НЕ ВыборкаСписокБлюдВМеню.КалорийностьБлюда = NULL тогда
                    ВсегоБелки = ВсегоБелки + Число(ВыборкаСписокБлюдВМеню.Белки);
                КонецЕсли;
                
                
                Если НЕ ВыборкаСписокБлюдВМеню.КалорийностьБлюда = NULL тогда
                    ВсегоЖиры = ВсегоЖиры + Число(ВыборкаСписокБлюдВМеню.Жиры);
                КонецЕсли;
                
                
                Если НЕ ВыборкаСписокБлюдВМеню.КалорийностьБлюда = NULL тогда
                    ВсегоУглеводы = ВсегоУглеводы + Число(ВыборкаСписокБлюдВМеню.Углеводы);
                КонецЕсли;
                
                
                
                
            КонецЕсли;
            
            
            
            
            
            
        КонецЦикла;
    КонецЦикла;
    
    // Если меню с ценой - выводим общую цену по меню
    Если ДопПоля = 1 Тогда    
        ПодвалМенюСЦеной.Параметры.ЦенаВсего = Формат(ОбщаяЦена, "ЧДЦ=2");
        ПодвалМенюСЦеной.Параметры.Вал = Константы.БазоваяВалютаСистемы.Получить();
        ВыводФорма.Вывести(ПодвалМенюСЦеной);
    КонецЕсли;
    
    // Если меню с калориями - выводим общую калорийность
    Если ДопПоля = 2 Тогда    
        ПодвалМенюСКалор.Параметры.КалорВсего = Формат(ОбщаяКалорийность, "ЧДЦ=2");
        ВыводФорма.Вывести(ПодвалМенюСКалор);
    КонецЕсли;
    
    
    // БЖУК
    Если ДопПоля = 3 Тогда    
        ОбластьПодвалБЖУК.Параметры.Белки = Формат(ВсегоБелки, "ЧДЦ=2");
        ОбластьПодвалБЖУК.Параметры.Жиры = Формат(ВсегоЖиры, "ЧДЦ=2");
        ОбластьПодвалБЖУК.Параметры.Углеводы = Формат(ВсегоУглеводы, "ЧДЦ=2");
        ОбластьПодвалБЖУК.Параметры.Калорийность = Формат(ОбщаяКалорийность, "ЧДЦ=2");
        
        ВыводФорма.Вывести(ОбластьПодвалБЖУК);
    КонецЕсли;
    
    
    
    
    Если Отчет.ПечататьНР тогда
        ВыводФорма.Вывести(ОбластьСсылкаНаСборник);
    КонецЕсли;
    
    Подвал.Параметры.ОтветственноеЛицо1 = "Зав. производством";
    Подвал.Параметры.ОтветственноеЛицо2 = "Бухгалтер";
    Подвал.Параметры.ОтветственноеЛицо3 = "Врач";
    ВыводФорма.Вывести(Подвал);

    
    
    ВыводФорма.ТолькоПросмотр = Истина;
    
    
    Возврат ВыводФорма;
    
    
КонецФункции
sava1
03.08.15, 13:42
Вместо 
Пока ВыборкаМенюНаДень.Следующий() Цикл
        ОбластьЗаголовокПП1.Параметры.НаименованиеПриёмаПищи = ВыборкаМенюНаДень.ПриёмПищи;
        ВыводФорма.Вывести(ОбластьЗаголовокПП1);

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

В конце добавляем еще один КонецЦикла
На макете добавляем еще одну строку с параметром ДатаПриёмаПищи (аналогично Как "НаименованиеПриёмаПищи")
burza
03.08.15, 13:51
Цитата(sava1 @ 03.08.15, 14:42) необходимо зарегистрироваться для просмотра ссылки
Вместо 
Пока ВыборкаМенюНаДень.Следующий() Цикл
        ОбластьЗаголовокПП1.Параметры.НаименованиеПриёмаПищи = ВыборкаМенюНаДень.ПриёмПищи;
        ВыводФорма.Вывести(ОбластьЗаголовокПП1);

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

В конце добавляем еще один КонецЦикла
На макете добавляем еще одну строку с параметром ДатаПриёмаПищи (аналогично Как "НаименованиеПриёмаПищи")


ошибка после изменений 

{Отчет.МенюНаДень3.Форма.ФормаОтчета.Форма(170,28)}: Переменная не определена (ОбластьЗаголовокПП0)
        ВыводФорма.Вывести(<<?>>ОбластьЗаголовокПП0);       (Проверка: Сервер)
sava1
03.08.15, 13:58
Цитата(sava1 @ 03.08.15, 14:42) необходимо зарегистрироваться для просмотра ссылки
На макете добавляем еще одну строку с параметром ДатаПриёмаПищи

и наименованием "ЗаголовокПП0"
там где получаем области пишем 
ОбластьЗаголовокПП0     = Отчеты.МенюНаДень.ПолучитьМакет("Макет").ПолучитьОбласть("ЗаголовокПП0");
burza
03.08.15, 14:13
Цитата(sava1 @ 03.08.15, 14:58) необходимо зарегистрироваться для просмотра ссылки
и наименованием "ЗаголовокПП0"
там где получаем области пишем 
ОбластьЗаголовокПП0     = Отчеты.МенюНаДень.ПолучитьМакет("Макет").ПолучитьОбласть("ЗаголовокПП0");


все сделал как вы написали

ошибка вот таже: 
{Отчет.МенюНаДень3.Форма.ФормаОтчета.Форма(169)}: Поле объекта не обнаружено (ДатаПриёмаПищи)
        ОбластьЗаголовокПП1.Параметры.ДатаПриёмаПищи = ВыборкаМенюНаДень.Дата;
sava1
03.08.15, 14:18
Выложите отчет на гуглодиск.
burza
03.08.15, 14:23


отчет прилагаеться: необходимо зарегистрироваться для просмотра ссылки
sava1
03.08.15, 14:52
Последний вариант

Почту в личку
burza
03.08.15, 14:55

необходимо зарегистрироваться для просмотра ссылки
burza
04.08.15, 8:28
поможет кто?_))
sava1
04.08.15, 8:36
В почте.
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.