Раз уз пошел холивар на тему - где делать бизнес-логику - в БД или в app-слое -
вставлю свои 5 коп.
Вот текст процедуры оптимальной группировки (ящичных партий в полные паллеты)
на языке Progress 4GL.
Завидуйте, прогресисты могут решить, кто именно будет отрабатывать их логику -
основной процесс клиентского приложения, app-сервер или триггер в БД в любой
момент ЖЦ системы. Делается простой настройкой типа строчки в ini-файле.
А код будет одинаковым !!!
При этом исполнение и оптимизация операций с БД (for each, find first, запись и пр.) работает
одинаково, независимо от того, какой брокер запросов это исполняет.
Также в текст можно вставлять операции на диалекте sql89. В этом фрагменте их нет,
так как SQL-брокер Progress не умеет работать с временными таблицами.
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.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
DEFINE TEMP-TABLE Result3 NO-UNDO
FIELD warecode as character
FIELD rid-cell as integer
FIELD rid-lots as integer
FIELD quan as decimal
FIELD quan-pal as decimal
FIELD cell as character
FIELD koef as decimal
FIELD n-pal as integer
FIELD warename as character
FIELD fullwarename as character
INDEX i1 warecode cell DESC
INDEX i2 n-pal
INDEX i3 warecode warename koef desc cell.
procedure SortOnGroup :
def var iPallete as integer.
def var stGoods as character.
def var stGroup as character.
def var fVolumeCurrent as decimal.
def var stGoodsCurrent as character.
def var stGroupCurrent as character.
def var fKoefCurrent as decimal.
def var bGoodsExist as logical.
iPallete = 1 .
stGoods = '0'.
stGroup = ''.
bGoodsExist = true.
repeat while bGoodsExist:
/* вычисляем, сколько уже на текущей паллете занято места */
fVolumeCurrent = 0 .
for each result3 where result3.n-pal = iPallete no-lock:
fVolumeCurrent = fVolumeCurrent + result3.koef.
end.
/* ищем текущий товар */
find first result3
where result3.warecode = stGoods and result3.n-pal = 0
use-index i3 no-error.
if available result3 then do:
stGoodsCurrent = result3.warecode.
stGroupCurrent = result3.warename.
fKoefCurrent = result3.koef.
if fVolumeCurrent + fKoefCurrent <= 1 . 05 then do:
result3.n-pal = iPallete.
stGoods = stGoodsCurrent.
stGroup = stGroupCurrent.
end.
else do:
/* Весь товар этого наименования не вмещается на эту паллету. */
/* Проверить, в этой паллете только текущий товар ? */
find first result3
where result3.n-pal = iPallete and result3.warecode <> stGoods
no-lock no-error.
if available result3 then do:
/* Есть и другой товар в этой паллете, убрать текущий товар из нее. */
for each result3
where result3.warecode = stGoods and result3.n-pal = iPallete:
result3.n-pal = 0 .
end.
fVolumeCurrent = 0 .
for each result3 no-lock
where result3.warecode = stGoodsCurrent and result3.n-pal = 0 :
fVolumeCurrent = fVolumeCurrent + result3.koef.
end.
end.
else do:
fVolumeCurrent = 0 .
for each result3 no-lock
where result3.warename = stGroupCurrent and result3.n-pal = 0 :
fVolumeCurrent = fVolumeCurrent + result3.koef.
end.
end.
/* Начать новую паллету или перейти к существующей. */
run GetPalleteNumber(fVolumeCurrent, output iPallete).
stGoods = stGoodsCurrent.
stGroup = stGroupCurrent.
end.
end.
else do:
/* ищем текущую группу */
find first result3
where result3.warename = stGroup and result3.n-pal = 0
use-index i3 no-error.
if available result3 then do:
stGoodsCurrent = result3.warecode.
stGroupCurrent = result3.warename.
fKoefCurrent = result3.koef.
if fVolumeCurrent + fKoefCurrent <= 1 . 05 then do:
result3.n-pal = iPallete.
stGoods = stGoodsCurrent.
stGroup = stGroupCurrent.
end.
else do:
/* Начать новую паллету или перейти к существующей. */
fVolumeCurrent = 0 .
for each result3 no-lock
where result3.warename = stGroupCurrent and result3.n-pal = 0 :
fVolumeCurrent = fVolumeCurrent + result3.koef.
end.
run GetPalleteNumber(fVolumeCurrent, output iPallete).
stGoods = stGoodsCurrent.
stGroup = stGroupCurrent.
end.
end.
else do:
/* ищем следующий нераспределенный товар */
find first result3
where result3.n-pal = 0
use-index i3 no-error.
if available result3 then do:
stGoodsCurrent = result3.warecode.
stGroupCurrent = result3.warename.
fKoefCurrent = result3.koef.
if fVolumeCurrent + fKoefCurrent <= 1 . 05 then do:
result3.n-pal = iPallete.
stGoods = stGoodsCurrent.
stGroup = stGroupCurrent.
end.
else do:
/* Начать новую паллету или перейти к существующей. */
fVolumeCurrent = 0 .
for each result3 no-lock
where result3.warename = stGroupCurrent and result3.n-pal = 0 :
fVolumeCurrent = fVolumeCurrent + result3.koef.
end.
run GetPalleteNumber(fVolumeCurrent, output iPallete).
stGoods = stGoodsCurrent.
stGroup = stGroupCurrent.
end.
end.
else do:
/* больше товаров к группировке нет */
bGoodsExist = false.
end.
end.
end.
end.
end.
Похоже сделано в мире Foxpro, но это файловая СУБД, и сервер приложений на Foxpro - это
как-то ...
