Pohledy - UNI_SEZNAM_VW
	Tabulky - IFC_PROPERTY - X_PROPERTY_SET_PROPERTY

select
    10*P.ID+6 Raddr, -- 6 ~ P ... Property
    'P' Tp,
    'S' Parent_Tp,
    P.ID,
    X.Property_Set_ID Parent_ID,
    P.Visible,
    null ClassType,
    --
    6 ObjLvl,
    'Vlastnost' ObjType,
    --
    coalesce(P.Name_CZ,P.Name) Name,
    coalesce(P.Definition_CZ,P.Definition) Def,
    case when length(coalesce(P.Definition_CZ,P.Definition))>50 then rtrim(substr(coalesce(P.Definition_CZ,P.Definition),1,47))||'...' else coalesce(P.Definition_CZ,P.Definition) end Def50,
    case when length(coalesce(P.Definition_CZ,P.Definition))>100 then rtrim(substr(coalesce(P.Definition_CZ,P.Definition),1,97))||'...' else coalesce(P.Definition_CZ,P.Definition) end Def100,
    -- class
    null IfcIdent,
  --null Repres,
  --null IfcRepres,
  --null Prec,
  --null PrecV,
  --null Precision,
    -- property
    P.DataUnit,
    case when P.is_Ref='Y' then 'Ref' when P.is_Enum='Y' then 'Enum' when P.is_Bounded='Y' then 'Range' else 'Simple' end DataTypeSpec,
    P.DataType,
    P.IfcType,
  --case when P.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,
    P.Link_URL
  from
    X_Property_Set_Property X,
    IFC_Property P
  where P.Visible is not null
    and X.Property_ID(+)=P.ID