Procedura-StopABRATriggers

Tělo:

begin
  for select rdb$trigger_name from rdb$triggers
    where ((rdb$system_flag = 0) or (rdb$system_flag is null)) and (not rdb$trigger_name like 'SYS$%') and (not rdb$trigger_name like 'CHECK~_%' ESCAPE '~')
  into
    :mTriggerName
  do
    execute statement 'alter trigger ' || mTriggerName || ' inactive;';
  for select rdb$trigger_name from rdb$triggers
    where ((rdb$system_flag = 0) or (rdb$system_flag is null)) and (rdb$trigger_name like 'RSR$%')
  into
    :mTriggerName
  do
    execute statement 'alter trigger ' || mTriggerName || ' active;';
end;

Generated by ABRA Software a.s. 27.10.2021 16:34:17