ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Delphi+MySQL+FastReport.
13 сообщений из 38, страница 2 из 2
  2  все
Delphi+MySQL+FastReport.
    #39715554
Котовасия
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Котовасия
Участник
Валерий666,

ну ты попробуй потрудиться и представить, что вот такие вопросы задают тебе:

Валерий666Есть обработчик, который формирует отчет, но мне не нравится код.
Как это можно сделать правильно, а не через такие костыли?
...
Рейтинг: 0 / 0
10.10.2018, 13:49
| Ответить | Цитировать | Написать  
Delphi+MySQL+FastReport.
    #39715564
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
1. Если вам нужны ИТОГИ ПО ГРУППАМ в виде отдельной таблички, то реализуйте это отдельным запросом.
2. Если вам нужны ИТОГИ ПО ГРУППАМ в виде "Итого" по окончанию группы - то для этого есть GROUP FOOTER
...
Рейтинг: 0 / 0
10.10.2018, 13:54
| Ответить | Цитировать | Написать  
Delphi+MySQL+FastReport.
    #39716694
Валерий666
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Валерий666
Участник
DimaBr1. Если вам нужны ИТОГИ ПО ГРУППАМ в виде отдельной таблички, то реализуйте это отдельным запросом.
2. Если вам нужны ИТОГИ ПО ГРУППАМ в виде "Итого" по окончанию группы - то для этого есть GROUP FOOTER

Мне нужно ИТОГО ПО ГРУППАМ в начале группы в одной таблице, все же вроде нарисовано на картинке.
...
Рейтинг: 0 / 0
12.10.2018, 14:30
| Ответить | Цитировать | Написать  
Delphi+MySQL+FastReport.
    #39716730
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Если вам нужен ИТОГО в начале группы, то изучайте это
...
Рейтинг: 0 / 0
12.10.2018, 15:10
| Ответить | Цитировать | Написать  
Delphi+MySQL+FastReport.
    #39716889
_Den_Z
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Den_Z
Гость
Валерий666,

Если у вас FR6, то смотрите отчет 131.fr3 из \Demos\Main.
Кладете мемо с агрегатом на футер(если футер не нужен, то можно скрыть его установив нулевую высоту, он нужен для агрегата ) и заголовок, после, у мемо на заголовке с агрегатом, установите св-во Processing.ProcessAt = paGroupFinished.
...
Рейтинг: 0 / 0
12.10.2018, 19:49
| Ответить | Цитировать | Написать  
Delphi+MySQL+FastReport.
    #39717158
Валерий666
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Валерий666
Участник
_Den_ZВалерий666,

Если у вас FR6, то смотрите отчет 131.fr3 из \Demos\Main.
Кладете мемо с агрегатом на футер(если футер не нужен, то можно скрыть его установив нулевую высоту, он нужен для агрегата ) и заголовок, после, у мемо на заголовке с агрегатом, установите св-во Processing.ProcessAt = paGroupFinished.

К сожалению у меня 5.4 версия. 6-ую не нашел. Читал про такие свойства, но в ранних версиях их нет(
З.Ы.
Я вот действительно не могу понять, то ли не отображаются рисунки, то ли я настолько не умею изложить суть что меня невозможно понять. Мне не надо итого по группам в футере или еще где-то, я через if пытаюсь сделать вывод суммы по группам в фиксированной таблице, которую менять нельзя, и в которой по запросу(который имеется) выводятся данные из dataset'a. Ну приложил уже рисунок с таблицей, и решение, но в SQL я нуль, поэтому спрашиваю можно ли это организовать одним запросом или нет. Если нет, то буду делать костыли с временными запросами и пересчетом.
...
Рейтинг: 0 / 0
13.10.2018, 22:26
| Ответить | Цитировать | Написать  
Delphi+MySQL+FastReport.
    #39717180
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Валерий666то ли не отображаются рисунки, то ли я настолько не умею изложить суть что меня невозможно понять.
К сожалению, второе, поскольку чут выше вы писали что "Мне нужно ИТОГО ПО ГРУППАМ в начале группы в одной таблице"

Валерий666я через if пытаюсь сделать вывод суммы по группам в фиксированной таблице, которую менять нельзя, и в которой по запросу(который имеется) выводятся данные из dataset'a.

Опять тоже самое, ничего не понятно.
Что конкретно не получается ?
Сделайте тестовый пример и на нём покажите чего хотите добиться.
...
Рейтинг: 0 / 0
14.10.2018, 02:26
| Ответить | Цитировать | Написать  
Delphi+MySQL+FastReport.
    #39717181
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Покажите набор данных и картинку готового отчёта, которую хотите получить.
...
Рейтинг: 0 / 0
14.10.2018, 02:28
| Ответить | Цитировать | Написать  
Delphi+MySQL+FastReport.
    #39718614
Валерий666
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Валерий666
Участник
DimaBrПокажите набор данных и картинку готового отчёта, которую хотите получить.

Вобщем есть вот такой справочник, и в итоге нужен такой результат:

Вы мне скидывали запрос на предыдущий вопрос, я его немного переделал

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
select kodvopr.group_parent,kodvopr.groupid,kodvopr.torep,kodvopr.KODnom,kodvopr.NAIM as NAIM,
 sum(case when (datecreate between '2018-01-01' AND '2018-10-09') then 1 else 0 end) AS All0,
sum(case when (datecreate between '2017-01-01' AND '2017-10-09') then 1 else 0 end) AS All1,
 sum(case when (datecreate between '2018-01-01' AND '2018-10-09') AND (resultview = 'УДОВЛЕТВОРЕНО') then 1 else 0 end) AS ud0,
 sum(case when (datecreate between '2017-01-01' AND '2017-10-09') AND (resultview = 'УДОВЛЕТВОРЕНО') then 1 else 0 end) As ud1,
 sum(case when (datecreate between '2018-01-01' AND '2018-10-09') AND (resultview = 'РАЗЪЯСНЕНО') then 1 else 0 end) AS raz0,
 sum(case when (datecreate between '2017-01-01' AND '2017-10-09') AND (resultview = 'РАЗЪЯСНЕНО') then 1 else 0 end) As raz1,
 sum(case when (datecreate between '2018-01-01' AND '2018-10-09') AND (resultview = 'ОТКАЗАHО') then 1 else 0 end) As otk0,
 sum(case when (datecreate between '2017-01-01' AND '2017-10-09') AND (resultview = 'ОТКАЗАHО') then 1 else 0 end) AS otk1, 
sum(case when (datecreate between '2018-01-01' AND '2018-10-09') AND (control=1) AND (resultview='')  then 1 else 0 end)AS view0,
 sum(case when (datecreate between '2017-01-01' AND '2017-10-09') AND (control=1) AND (resultview='') then 1 else 0 end) AS view1
 from kodvopr 
LEFT JOIN register ON kodvopr.KODnom = register.themeid
 group by KODnom ORDER BY kodvopr.KOD11;



и получил вот такой результат:



Мне надо в строках с номенклатурой 1,1.8,2,6,7 получить итоги по группе в той таблице(отчете) что на рисунке сверху.
Группа определяется двумя полями group_parent - родительская группа, groupid - вложенная группа.
Загвоздочка в том, что мне надо в 1 получить сумму 1.1-1.10 (включительно 1.8, т.е. сумму по 1.8.1 - 1.8.2 - второй уровень вложенности)
Сейчас я вижу выход из ситуации следующий: дописать к тому запросу, что сверху, еще 20 полей с суммами по группам, соответственно 1 - го и 2 - го уровня вложенности. Реально ли это сделать?

Что бы получилось грубо говоря вот так:


Возможно не самое эстетичное решение, но подобный результирующий набор данных позволит выводить итоги по группам, где угодно, менять номенклатуру в произвольном порядке и не вносить изменения нив запрос, ни в файл отчета.
...
Рейтинг: 0 / 0
17.10.2018, 10:56
| Ответить | Цитировать | Написать  
Delphi+MySQL+FastReport.
    #39718615
Валерий666
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Валерий666
Участник
Чет с картинками не вышло, вот увеличенные копии:
https://radikal.ru/big/qt3nf5fyr7g0k][img] https://d.radikal.ru/d02/1810/5e/8ccd1b56a2dat.jpg [/img]

https://radikal.ru/big/kg0ptpcxhwrc8][img] https://d.radikal.ru/d18/1810/30/e6f8a19118a7t.jpg [/img]

https://radikal.ru/big/k321els6tyoci][img] https://b.radikal.ru/b15/1810/83/68b980bcee12t.jpg [/img]
...
Рейтинг: 0 / 0
17.10.2018, 10:59
| Ответить | Цитировать | Написать  
Delphi+MySQL+FastReport.
    #39718673
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JayDi
Участник
Валерий666,

если форма не для печати/контроля, то рекомендую убрать нули из таблицы (у фаста есть в свойствах полей такое) -- пользователям будет НАМНОГО удобнее смотреть и проверять цифры.
...
Рейтинг: 0 / 0
17.10.2018, 12:04
| Ответить | Цитировать | Написать  
Delphi+MySQL+FastReport.
    #39718735
Валерий666
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Валерий666
Участник
JaDiВалерий666,

если форма не для печати/контроля, то рекомендую убрать нули из таблицы (у фаста есть в свойствах полей такое) -- пользователям будет НАМНОГО удобнее смотреть и проверять цифры.
Как раз таки она самая, я предлагал свернуть пустые значения, но сказали что нужно именно так.
...
Рейтинг: 0 / 0
17.10.2018, 13:00
| Ответить | Цитировать | Написать  
Delphi+MySQL+FastReport.
    #39719225
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Думаю, так как у вас Дерево с произвольным вложением, то нужно сначала построить его (расставить Id и IdParent), затем научится рекурсивно перебирать узлы дерева на произвольную глубину.
...
Рейтинг: 0 / 0
18.10.2018, 10:07
| Ответить | Цитировать | Написать  
13 сообщений из 38, страница 2 из 2
  2  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Delphi+MySQL+FastReport.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39717180&tid=2040253]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 180ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 1ms
others: 233ms
total:  518ms
созд. / загр.: 518ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]