Procedura-SCMCorrectSecObjForDSS

Popis:

Procedura opraví záznamy v tabulce SecurityObjects pro sady datových zdrojů.

Tělo:

begin
  for 
    select ID, Name, Hidden 
    from SCMDataSourceSets 
    where System <> 'N' 
    into mID, mName, mHidden 
  do 
  begin
    select count(*) 
      from SecurityObjects 
      where (ClassID = 'S0H3ABBLPXK4JHRYZEQLFSMXI0') and (ProgID = :mID)
      into :mCount;
    if (mCount = 0) then
    begin
      insert into SecurityObjects (ClassID, ProgID, Name, Hidden)
      values ('S0H3ABBLPXK4JHRYZEQLFSMXI0', :mID, :mName, :mHidden);  
    end
    else
    begin
      update SecurityObjects set Name = :mName, Hidden = :mHidden
      where ClassID = 'S0H3ABBLPXK4JHRYZEQLFSMXI0' and ProgID = :mID;
    end
  end
end;

Generated by ABRA Software a.s. 27.10.2021 16:35:30