/*Исправляет генератор графика охраны*/

SET TERM ^ ;

CREATE PROCEDURE TEMP_SET_GEN
as
declare variable gen integer;
declare variable tmp integer;
begin
  select max(CODE_CLOSE_ENABLED) from close_enabled
  into :GEN;
  TMP=GEN_ID(gen_close_enabled, 0);
  TMP = GEN_ID(gen_close_enabled, GEN + 20 - TMP);
end^

SET TERM ; ^

EXECUTE PROCEDURE TEMP_SET_GEN;
DROP PROCEDURE TEMP_SET_GEN;