delete from PermissionTypes where N=4700

GO

insert into PermissionTypes(N,Name,"Default") values(4700,'Спа Център',1) 

GO

delete from Permissiontags where TagNo=3000;

GO

insert into Permissiontags(TagNo,"Type",Note) values (3000,4700,'Дава права за SPA Центъра');

GO

Delete from Permissions where PermissionNo=4700

GO

  for f as curs scroll cursor for
    select N as @N from AdminGroups do
      insert into Permissions(GroupNo,PermissionNo,Stoinost) values(@N,4700,0)
  end for;