Procedura-ManageSecurityObjectRight

Popis:

Založí záznam o chráněném objektu do tabulky SecurityObjectRights (používá se pro initdata, protože během importu nejsou triggery, které se o tohle starají, aktivní)

Parametry:

Název	Popis	Datový typ
AProgID		VarChar(10)
AObjectName		VarChar(256)
AObjectTable		VarChar(30)
APersistClassID		VarChar(26)

Tělo:

BEGIN
  --diky lokalizaci nemusi nutne byt data v db, takze prvni zkontrolujeme, jestli jsou v db
  EXECUTE STATEMENT 'select count(*) from ' || AObjectTable || ' where ID=''' || AProgID || '''' into mCount;
  if (mCount = 1) then begin
    --a pak vlozime do SecurityObjects, pokud tam jeste nejsou
    select count(*) from SecurityObjects where ClassID = :APersistClassID and ProgID = :AProgID into mCount;
    if (mCount = 0) then begin
      Insert into SecurityObjects (ClassID, ProgID, Name, Hidden)
        VALUES (:APersistClassID, :AProgID, :AObjectName, 'N');
    end
  end
END

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