Запрет на редактирование : Супермаг Плюс (Супермаг 2000)

declare
  I           Number(10);
  X           Number(10);
  MySQL       varchar(1000);
 
begin


  MySQL := 'begin update supermag.sssysinfo set paramvalue = TO_CHAR(SYSDATE-НУЖНОЕ_КОЛ_ДНЕЙ,''dd.mm.yyyy'') where paramname= ''ClosedPeriod''; Commit; end;';

   select count(*) into i from supermag.sscontrolfunctions
     where ID  = 99;
  If i = 0 Then
    insert into supermag.sscontrolfunctions (FNTYPE, ID, TITLE)
    values ('SS', 99, 'Движение даты запрета');
  end if;

 select count(*) into x from supermag.saschedule
  where supermag.saschedule.ID = 99;

  if x = 0 Then
    insert into supermag.saschedule (ID, WHAT)
      values (99, MySQL);
   else
    update supermag.saschedule set WHAT=MySQL where ID=99;
  end if;

end;