Tabulky - ENUM_LIST - IFC_PROPERTY - X_PROPERTY_SET_CLASS - X_PROPERTY_SET_PROPERTY Typy - AGGR_LIST_T Funkce - AGGR_LIST

select
    10*P.ID+6 Raddr, -- 6 ~ P ... Property
    P.ID,
    --
    P.Kdo,
    P.Kdy,
    To_Char(P.Kdy,'dd.mm.yyyy') Kdy_DMR,
    To_Char(P.Kdy,'dd.mm.yyyy hh24:mi') Kdy_DMRHM,
    --
    P.visible,
    case when P.Visible like '%I%' then 'Y' else 'N' end is_I,
    case when P.Visible like '%P%' then 'Y' else 'N' end is_P,
    case when P.Visible like '%S%' then 'Y' else 'N' end is_S,
    case when P.Visible like '%Z%' then 'Y' else 'N' end is_Z,
    --
    P.ifdGuid,
    P.Name,
    P.Name_CZ,
    P.Definition,
    case when length(P.Definition)>50 then rtrim(substr(P.Definition,1,47))||'...' else P.Definition end Def50,
    case when length(P.Definition)>100 then rtrim(substr(P.Definition,1,97))||'...' else P.Definition end Def100,
    P.Definition_CZ,
    case when length(P.Definition_CZ)>50 then rtrim(substr(P.Definition_CZ,1,47))||'...' else P.Definition_CZ end Def50_CZ,
    case when length(P.Definition_CZ)>100 then rtrim(substr(P.Definition_CZ,1,97))||'...' else P.Definition_CZ end Def100_CZ,
    ISO, -- kde je poyadavek dane vlastnosti specifikovan?
    --
    is_Ref, -- referencni typ
    is_Enum, -- vyctovy typ
    is_Bounded, -- intervalovy typ
    case
      when is_Ref='Y' then 'Ref'
      when is_Enum='Y' then 'Enum'
      when is_Bounded='Y' then 'Range'
      else 'Simple'
      end DataTypeSpec,
    DataType, -- typ vlastnosti, odkazuje do ENUM_List('DataType','{Simple|Ref}DataType',Ident)
    case
      when is_Enum='Y'
        then (
          select distinct substr(Aggr_List(E.Ident) over (order by pos rows between unbounded preceding and unbounded following),1,100)
            from ENUM_List E
            where E.Type='EnumDataType'
              and E.SubType=P.DataType
          )
      end EnumValues,
    DataUnit,  -- jednotka vlastnosti, odkazuje do ENUM_List('SimpleDataType',...,Unit
    Link_Text,
    Link_URL,
  --Repres, -- ifcSolid, ...
    IfcType,
  --Precision, -- P0, P1, P2, P9
    --
    ( select
          count(*)
        from
          X_Property_Set_Property X
        where X.Property_ID=P.ID
    ) PropertySetNr,
    ( select
          count(distinct Y.Class_ID)
        from
          X_Property_Set_Property X,
          X_Property_Set_Class Y
        where X.Property_ID=P.ID
          and Y.Property_Set_ID=X.Property_Set_ID
    ) ClassNr
  from
    IFC_Property P