Вот что я накорябал ;-)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
prod_wst (отходы продуктов)
----
+--prod_id n(5)
|+-waste_id n(5)
|| prod_val n(10,2)
|| waste_per n(10,2)
||
|| waste (отход)
|| ----
|+-waste_id n(5)
| waste_name c(32)
| toxity_id n(1)
|
| prod (продукт)
| ----
+--prod_id n(5)
prod_name c(32)
надо определить prod_name, у которого sum(prod_val*waste_per) максимальна для toxity_id
всего toxity_id может быть 5(1,2,3,4,5), отходов - много-много-много...
то есть нужна таблица(курсор)
maxtotal
----
toxity_id n(1)
prod_name c(32)
maxtot_wst n(16,4)
куда надо выбрать prod_name, которое выдает максимальное sum(prod_val*waste_per) as max_total_waste
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
set exact off
create cursor maxtotal (toxity_id n( 1 ), prod_name c( 32 ), maxtot_wst n( 16 , 4 ))
use waste in 0 order waste_id
use prod in 0 order prod_id
use prod_wst in 0
set relation to prod_id into prod additive
set relation to waste_id into waste additive
index on str(waste.toxity_id, 1 )+prod.prod_name to tmpidx
curtox = - 1 && явно несуществующее значение
curprod = '!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#' && явно несуществующее значение
cursum = 0
scan
if curprod != prod.prod_name or curtox != waste.toxity_id
* новый продукт или уровень токсичности
select maxtotal
* надо проверить, накопленная сумма больше ли, чем сохраненная в maxtotal
if curtox != - 1 and curprod != '!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#' and cursum > maxtot_wst
replace prod_name with prod_name, maxtot_wst with cursum
endif
* если новый toxity_id, добавить в результат новую запись
if curtox != waste.toxity_id
append blank
replace toxity_id with waste.toxity_id
endif
select prod_wst
* сброс суммы и сохранение новых "кур"
cursum = 0
curprod = prod.prod_name
curtox = waste.toxity_id
else
cursum = cursum + prod_val*waste_per
endif
endscan
* последнюю cursum надо тоже проверить
select maxtotal
if curtox != - 1 and curprod != '!@#$%^&*()!@#$%^&*()!@#$%^&*()!@#' and cursum > maxtot_wst
replace prod_name with prod_name, maxtot_wst with cursum
endif
browse last
use in (select('waste'))
use in (select('prod'))
use in (select('prod_wst'))
use in (select('maxtotal'))
erase tmpidx.idx
Некоторые таблицы и поля переименованы, так как у меня строго: имя файла - 8 букв или <, имя поля - 10 или <.
Типы и размеры данных взяты предположительные, чтобы хоть какие-то бли.
Сразу может не заработать, так как писал "набело". ;-)
