Procedura-SetMasks

Popis:
Nastaví oprávnění k objektu

Parametry:

NázevPopisDatový typ
IN_ClassIDChar(26)
IN_ProgIDChar(10)
IN_Role_IDChar(10)
IN_GrantedMaskInteger
IN_DeniedMaskInteger

Tělo:

BEGIN
  Select Count(Role_ID) from SecurityObjectRights where ClassID=:IN_ClassID and
    ProgID=:IN_ProgID and Role_ID=:IN_Role_ID into mCount;
  if (mCount<1) then
    INSERT INTO SecurityObjectRights (ClassID, ProgID, Role_ID, GrantedMask, DeniedMask)
      VALUES (:IN_ClassID, :IN_ProgID, :IN_Role_ID, :IN_GrantedMask, :IN_DeniedMask);
  else
    UPDATE SecurityObjectRights SET GrantedMask=:IN_GrantedMask, DeniedMask=:IN_DeniedMask
      where ClassID=:IN_ClassID and ProgID=:IN_ProgID and Role_ID=:IN_Role_ID;
END;

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