Procedura-SCMCorrectSecObjForCD

Popis:

Procedura opraví záznamy v tabulce SecurityObjects pro definice sloupců.

Tělo:

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

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