По поводу использования в процедурах конструкции set generator to ...
FireBird 1.5.1
Пытаюсь создать процедуру по "аварийному" восстановлению значений генераторов:
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.
CREATE PROCEDURE RESET_GENERATORS
AS
DECLARE VARIABLE NEW_ID BIGINT;
begin
--------------------------------------------------------------------
-- Сброс генераторов - начало блока
select Coalesce(Max(Bank_id), 0 ) from Bank into :New_id; -- Банки
set generator Bank_id_gen to New_id;
select Coalesce(Max(Bill_id), 0 ) from Bill into :New_id; -- Счет
set generator Bill_id_gen to New_id;
--...
--...
--...
select Coalesce(Max(Unit_id), 0 ) from Unit into :New_id; -- Ед.измерения
set generator Unit_id_gen to New_id;
-- Сброс генераторов - конец блока
--------------------------------------------------------------------
end
- так не компилируется. "Set", говорит, недопустимая конструкция. Далаю так:
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.
CREATE PROCEDURE RESET_GENERATORS2
AS
DECLARE VARIABLE NEW_ID BIGINT;
DECLARE VARIABLE EXEC VARCHAR( 128 );
begin
--------------------------------------------------------------------
-- Сброс генераторов - начало блока
select Coalesce(Max(Bank_id), 0 ) from Bank into :New_id; -- Банки
EXEC = 'set generator Bank_id_gen to ' || New_id;
EXECUTE STATEMENT EXEC;
select Coalesce(Max(Bill_id), 0 ) from Bill into :New_id; -- Счет
EXEC = 'set generator Bill_id_gen to ' || New_id;
EXECUTE STATEMENT EXEC;
--...
--...
--...
select Coalesce(Max(Unit_id), 0 ) from Unit into :New_id; -- Ед.измерения
EXEC = 'set generator Unit_id_gen to ' || New_id;
EXECUTE STATEMENT EXEC;
-- Сброс генераторов - конец блока
--------------------------------------------------------------------
end
- так получается. Ну и так, естественно, тоже:
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.
CREATE PROCEDURE RESET_GENERATORS
AS
DECLARE VARIABLE NEW_ID BIGINT;
begin
--------------------------------------------------------------------
-- Сброс генераторов - начало блока
select Coalesce(Max(Bank_id), 0 ) from Bank into :New_id; -- Банки
New_id = gen_id(Bank_id_gen, New_id - gen_id(Bank_id_gen, 0 ));
select Coalesce(Max(Bill_id), 0 ) from Bill into :New_id; -- Счет
New_id = gen_id(Bill_id_gen, New_id - gen_id(Bill_id_gen, 0 ));
--...
--...
--...
select Coalesce(Max(Unit_id), 0 ) from Unit into :New_id; -- Ед.измерения
New_id = gen_id(Unit_id_gen, New_id - gen_id(Unit_id_gen, 0 ));
-- Сброс генераторов - конец блока
--------------------------------------------------------------------
end
- Ну, по последнему случаю - все понятно. Всегда раньше все так делали. Но ведь
это уже 1.5.1! Должна работать фича Set generator to ...
Что скажите, отцы? Это баг или фича? Или, как всегда, виновата моя дурная головушка?
