|
Разница в скорости выпрлнения SP и execute block
#40054520
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
|
Версия 2.5
sp и eb эквивалентны. На планы обратил внимание, почему так не знаю
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.
create or alter procedure DL_GOODS_GETONBARCODE (
SEARCHSTR type of column CL_DIRECTORY.NAME,
CASHREGISTER integer,
IS_REMAINS_ONLINE integer = 0)
returns (
ID integer,
FLAGS integer,
ABBR varchar(10),
NAME type of column GOODS.MENUNAME,
PRICE MONEY,
BCCOUNTS COUNTS,
REMAINS COUNTS)
AS
declare GS_CLASS INTEGER;
declare R_SHOUSE REFERENCE;
begin
if (not exists(select first 1 ID from TMP_GOODS_FOR_CASH))
then execute procedure DL_GOODS_FILL_CASH(:CASHREGISTER);
--
select O_DT_REFERENCE
from DL_CASHREGISTER_GETMACRO(:CASHREGISTER, 'Разное\Расчет остатков по складу')
into :R_SHOUSE;
SEARCHSTR = Upper(:SEARCHSTR);
for select GS.ID, 1, GS.CLASS_ID, GS.ABBR, GS.NAME, T.PRICE, GS.BARCODECOUNTS
from GOODS GS
join TMP_GOODS_FOR_CASH T on GS.ID = T.ID
join BARCODES BC on GS.ID = BC.PARENT_ID
where GS.STATUS > 0 and BIN_AND(GS.FLAGS, 32) = 0
and BC.NAME = :SEARCHSTR
-- order by NAME
into :ID, :FLAGS, :GS_CLASS, :ABBR, :NAME, :PRICE, :BCCOUNTS
do begin
REMAINS = 0;
if ((IS_REMAINS_ONLINE > 0) and (GS_CLASS = 3000 /* PRODUCE */)) then begin
execute procedure REMAINS_ONLINE (:ID, :R_SHOUSE)
returning_values :REMAINS;
end
suspend;
end
end
execute block
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.
execute block (
SEARCHSTR varchar(300) = :SEARCHSTR,
CASHREGISTER integer = :CASHREGISTER,
IS_REMAINS_ONLINE integer = :IS_REMAINS_ONLINE)
returns (
ID integer,
FLAGS integer,
ABBR varchar(10),
NAME type of column GOODS.MENUNAME,
PRICE MONEY,
BCCOUNTS COUNTS,
REMAINS COUNTS)
AS
declare GS_CLASS INTEGER;
declare R_SHOUSE REFERENCE;
begin
if (not exists(select first 1 ID from TMP_GOODS_FOR_CASH))
then execute procedure DL_GOODS_FILL_CASH(:CASHREGISTER);
--
select O_DT_REFERENCE
from DL_CASHREGISTER_GETMACRO(:CASHREGISTER, 'Разное\Расчет остатков по складу')
into :R_SHOUSE;
SEARCHSTR = Upper(:SEARCHSTR);
for select GS.ID, 1, GS.CLASS_ID, GS.ABBR, GS.NAME, T.PRICE, GS.BARCODECOUNTS
from GOODS GS
join TMP_GOODS_FOR_CASH T on GS.ID = T.ID
join BARCODES BC on GS.ID = BC.PARENT_ID
where GS.STATUS > 0 and BIN_AND(GS.FLAGS, 32) = 0
and BC.NAME = :SEARCHSTR
-- order by NAME
into :ID, :FLAGS, :GS_CLASS, :ABBR, :NAME, :PRICE, :BCCOUNTS
do begin
REMAINS = 0;
if ((IS_REMAINS_ONLINE > 0) and (GS_CLASS = 3000 /* PRODUCE */)) then begin
execute procedure REMAINS_ONLINE (:ID, :R_SHOUSE)
returning_values :REMAINS;
end
suspend;
end
end
т.е. отличие в 1 4 строках заголовка |
|
|
