В общем сдаюсь и слезно прошу помощи для совсем еще начинающего "программиста", так же прошу не кидаться тапочками, а то больно. Проблема вот в чем. Я выгрузила типовой отчет с целью изменить немного макет и сделать его внешним отчетом. Сделать внешним отчетом получилось, макет поменяла, а вот строчки в табличной части макета все никак не заполняются. Сам отчет формируется из регистра "Плановое меню", там есть все. в общем я еще совсем не опытна и все, что я могла написать это : этот "шедевр" выводит вот так(скрин1), и я совершенно точно понимаю, что я делаю не правильно. И поэтому пришла просить помощи. Как правильно можно реализовать, чтобы выглядело так(скрин 2 эксель). На всякий случай прикреплю еще текст всей функции, авось кто-то и поможет, в "ТаблицаРезультат" категория уже не попадает, может нужно в схеме компоновке покопаться, я не понимаю
Выбор = Документы.УППБУ_ПлановоеМеню;
Выборка=Выбор.Выбрать();
Пока Выборка.Следующий() Цикл
ОблСтрокаТЧНомерСтроки.Параметры.Категория = Строка(Выборка.КатегорияДовольствующихся);
//ОблСтрокаТЧНомерСтроки.Параметры.Категория = Инд + 1;
ДокументРезультат.Вывести(ОблСтрокаТЧНомерСтроки);
КонецЦикла;
ПоказатьПроцедура СформироватьОтчет(ДокументРезультат = Неопределено, ДанныеРасшифровки = Неопределено, Схема = Неопределено, ОтветственныеТЗ, ТабДок) Экспорт
// Сформируем структуру параметров для получения таблицы списываемых продуктов.
мСтруктураПараметров = СформироватьСтруктуруДляПолученияТаблицыДанных();
ТаблицаПоВидамПриема = УППБУ_КалькуляцияПродуктовПитания.ПолучитьПлановыйРасходПродуктовПоБлюдам(мСтруктураПараметров);
Настройки = КомпоновщикНастроек.ПолучитьНастройки();
Если Не мСтруктураПараметров.ФормироватьПоСтолам Тогда
Для каждого ВыбранноеПоле Из Настройки.Выбор.Элементы Цикл
Если ВыбранноеПоле.Поле = Новый ПолеКомпоновкиДанных("Стол") Тогда
ВыбранноеПоле.Использование = Ложь;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки,,Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, Новый Структура("ТаблицаПоВидамПриема", ТаблицаПоВидамПриема), Неопределено, Истина);
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
ТаблицаРезультат = ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных, Истина);
ПодготовитьТаблицуДляВывода(ТаблицаРезультат);
ДокументРезультат.Очистить();
Если РасчетСтоимости = 0 Тогда
ПолучитьОбщееКоличествоПорцийПоСпецификации(ТаблицаРезультат);
КонецЕсли;
Макет = ПолучитьМакет("Макет");
// Добавляем заголовок о формировании отчета по плановым или фактическим данным.
Если Настройки.ДополнительныеСвойства.ВыводитьЗаголовок Тогда
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьЗаголовок.Параметры.ТекстЗаголовка = "По " + ?(ВидОтчета = 0, "плановым", "фактическим") + " показаниям";
ДокументРезультат.Вывести(ОбластьЗаголовок);
КонецЕсли;
// Выводим шапку отчета.
ОблШапка = Макет.ПолучитьОбласть("Шапка");
ОблШапка.Параметры.НаименованиеУчреждения = Организация.Наименование;
ОблШапка.Параметры.Учреждение = Организация;
ОблШапка.Параметры.ПредставлениеПериода = Формат(НачалоПериода, "ДЛФ=ДД");
Настройки = КомпоновщикНастроек.ПолучитьНастройки();
ОблШапка.Параметры.пКВД = ПредставленияПоОтбору(Настройки.Отбор.Элементы, "КФО", "Перечисление.КВД", "Без учета кода вида финансового обеспечения");
Настройки = КомпоновщикНастроек.ПолучитьНастройки();
ДокументРезультат.Вывести(ОблШапка);
//////////////////////////////////////////////////////////// ПоказатьПрикрепленные файлы:
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(9)
Процедура ПодготовитьТаблицуДляВывода(ТаблицаРезультат)
// Сортировка таблицы в соответствии с настройками.
Если ПорядокВыводаДанных > 0 Тогда // Если указаны поля сортировки
СтрокаСортировки = "";
// Если вывод по видам блюд, то добавляется первоначальная сортировка по порядку вывода видов блюд.
Если ВыводитьВПорядкеВидовБлюд Тогда
СтрокаСортировки = "ПорядокВывода";
КонецЕсли;
Для Каждого ЭлементПорядка Из ПорядокВыводаДанных Цикл
Если ЭлементПорядка.ПутьКДанным = Неопределено Тогда
Продолжить;
КонецЕсли;
СтрокаСортировки = СтрокаСортировки + ?(ЗначениеЗаполнено(СтрокаСортировки), ",","") + ЭлементПорядка.ПутьКДанным
+ ?(ЭлементПорядка.Направление = НаправлениеСортировки.Убыв, " Убыв", "");
КонецЦикла;
Если ЗначениеЗаполнено(СтрокаСортировки) Тогда
ТаблицаРезультат.Сортировать(СтрокаСортировки);
КонецЕсли;
КонецЕсли;
// Свертка таблицы.
ТаблицаРезультат.Свернуть("ВидПриемаПищи,
|ВидПриемаПорядок,
|ВидБлюда,
|Блюдо,
|НаименованиеБлюда,
|НомерКарточки,
|Спецификация,
|Белки,
|Жиры,
|Углеводы,
|Калорийность,
|ВитаминА,
|ВитаминB1,
|ВитаминB2,
|ВитаминB6,
|ВитаминB12,
|ВитаминPP,
|ВитаминC,
|ВитаминD,
|ВитаминE,
|Na,K,Ca,Mg,P,Fe,Zn,J,
|ВесПорции", "КоличествоПорций, Сумма");
КонецПроцедуры
НаборПоказателей = Новый Массив Показать
Добавьте в сворачиваемую таблицу Категорию.
ТаблицаРезультат.Свернуть("Категория,
|ВидПриемаПищи,
|ВидПриемаПорядок,
|ВидБлюда,
|Блюдо,
|НаименованиеБлюда,
|НомерКарточки,
|Спецификация,
|Белки,
|Жиры,
|Углеводы,
|Калорийность,
|ВитаминА,
|ВитаминB1,
|ВитаминB2,
|ВитаминB6,
|ВитаминB12,
|ВитаминPP,
|ВитаминC,
|ВитаминD,
|ВитаминE,
|Na,K,Ca,Mg,P,Fe,Zn,J,
|ВесПорции", "КоличествоПорций, Сумма"); Показать
(18) Хорошо, Таня. Слава Богу! Не унывай, продолжай, всё получится! Постепенно, не всё сразу.
Можно было бы поскорее помочь, но есть и своя работа. Возможно, нужно было сразу запросить у тебя текст этой функции, но бывает не сразу всё понятно по кусочкам кода и скриншотам. Всего тебе доброго! :) (sm можешь оставить себе ;) )
Можно было бы поскорее помочь, но есть и своя работа. Возможно, нужно было сразу запросить у тебя текст этой функции, но бывает не сразу всё понятно по кусочкам кода и скриншотам. Всего тебе доброго! :) (sm можешь оставить себе ;) )
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот