Index: APPS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r1935 -r2002
--- APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1935)
+++ APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2002)
@@ -244,11 +244,13 @@
 		
 		Set KenmerkGroepMetadata = ##class(APPS.PM.dto.Kenm.KenmerkGroepMetadata).%New()
 		Set KenmerkGroepMetadata.Code = KenmerkGroep
-		Set Metadata = ##class(Prod.Kenmerk.MetaGroep).%OpenId(KenmerkGroep)
-		If $IsObject(Metadata){
-			Set KenmerkGroepMetadata.MultipleKenmerkenSetsToegelaten = Metadata.MultipleKenmerkenSetsToegelaten()	
-			Set KenmerkGroepMetadata.Naam = Metadata.Omschrijving
-			Set KenmerkGroepMetadata.Icoon = Metadata.Icoon		
+		Set MetaGroep = ##class(Prod.Kenmerk.MetaGroep).%OpenId(KenmerkGroep)
+		If $IsObject(MetaGroep){
+			Set KenmerkGroepMetadata.MultipleKenmerkenSetsToegelaten = MetaGroep.MultipleKenmerkenSetsToegelaten()	
+			Set KenmerkGroepMetadata.Naam = MetaGroep.Omschrijving
+			
+			Set KenmerkGroepMetadata.Icoon = ##class(APPS.common.dto.Icoon).%New()
+			set KenmerkGroepMetadata.Icoon.RelatiefPad = MetaGroep.GeefRelatiefPadIcoon()		
 		}
 		
 		Set RS = ##class(%ResultSet).%New("Prod.Kenmerk.MetaDefinitie:FilterMetaDefsViaGroep")
Index: APPS/PM/dto/Kenm/KenmerkGroepMetadata.cls.xml
===================================================================
diff -u -r1681 -r2002
--- APPS/PM/dto/Kenm/KenmerkGroepMetadata.cls.xml	(.../KenmerkGroepMetadata.cls.xml)	(revision 1681)
+++ APPS/PM/dto/Kenm/KenmerkGroepMetadata.cls.xml	(.../KenmerkGroepMetadata.cls.xml)	(revision 2002)
@@ -14,7 +14,7 @@
 <Property name="Icoon">
 <Description>
 Relatief pad naar icoon</Description>
-<Type>%String</Type>
+<Type>APPS.common.dto.Icoon</Type>
 </Property>
 
 <Property name="Kenmerken">
Index: APPS/common/dto/Icoon.cls.xml
===================================================================
diff -u
--- APPS/common/dto/Icoon.cls.xml	(revision 0)
+++ APPS/common/dto/Icoon.cls.xml	(revision 2002)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.dto.Icoon">
+<Description>
+</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="RelatiefPad">
+<Type>%String</Type>
+</Property>
+</Class>
+</Export>
Index: Prod/Kenmerk/MetaGroep.cls.xml
===================================================================
diff -u -r1563 -r2002
--- Prod/Kenmerk/MetaGroep.cls.xml	(.../MetaGroep.cls.xml)	(revision 1563)
+++ Prod/Kenmerk/MetaGroep.cls.xml	(.../MetaGroep.cls.xml)	(revision 2002)
@@ -38,7 +38,7 @@
 <Property name="Icoon">
 <Description>
 Relatief pad naar icoon</Description>
-<Type>%String</Type>
+<Type>TECH.Icoon</Type>
 </Property>
 
 <Query name="GetAllMetaGroups">
@@ -70,6 +70,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefRelatiefPadIcoon">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set Result = ""
+	if $length(..IcoonGetObjectId()) && $isObject(..Icoon) {
+		set Result = ..Icoon.RelatiefPad	
+	}
+
+	quit Result
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^Prod.Ken.MetaDefinitieD</DataLocation>
Index: TECH Icoon.prj.xml
===================================================================
diff -u
--- TECH Icoon.prj.xml	(revision 0)
+++ TECH Icoon.prj.xml	(revision 2002)
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="TECH Icoon" LastModified="2011-09-01 09:56:58">
+</Project>
+</Export>
Index: TECH/Icoon.cls.xml
===================================================================
diff -u
--- TECH/Icoon.cls.xml	(revision 0)
+++ TECH/Icoon.cls.xml	(revision 2002)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Icoon">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="RelatiefPad">
+<Type>%String</Type>
+</Property>
+
+<Index name="RelatiefPadIndex">
+<Properties>RelatiefPad</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^TECH.IcoonD</DataLocation>
+<DefaultData>IcoonDefaultData</DefaultData>
+<IdLocation>^TECH.IcoonD</IdLocation>
+<IndexLocation>^TECH.IcoonI</IndexLocation>
+<StreamLocation>^TECH.IcoonS</StreamLocation>
+<Data name="IcoonDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>RelatiefPad</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>