Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml
===================================================================
diff -u -r69748 -r69984
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml	(.../BlumNaarAXKenmerkenConverter.cls.xml)	(revision 69748)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml	(.../BlumNaarAXKenmerkenConverter.cls.xml)	(revision 69984)
@@ -251,6 +251,8 @@
 	Quit:(KenmerkValueBlum="wooden components without fronts") ##class(DOM.PM.enu.RVGMateriaalOpties).GeenFront()
 	Quit:(KenmerkValueBlum="melamine") ##class(DOM.PM.enu.RVGTypeMateriaalOppervlakte).Melamine()
 	Quit:(KenmerkValueBlum="hpl") ##class(DOM.PM.enu.RVGTypeMateriaalOppervlakte).HPL()
+	Quit:(KenmerkValueBlum="unilin") ##class(DOM.PM.enu.RVGLeverancier).Unilin()
+	Quit:(KenmerkValueBlum="egger") ##class(DOM.PM.enu.RVGLeverancier).Egger()
 	
 	#dim MaakLeeg As %Boolean = ..MoetKenmerkValueWordenVertaald(KenmerkNameBlum)
 	
Index: DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml
===================================================================
diff -u -r69748 -r69984
--- DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml	(.../RVGKenmerken.cls.xml)	(revision 69748)
+++ DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml	(.../RVGKenmerken.cls.xml)	(revision 69984)
@@ -114,11 +114,11 @@
 </Property>
 
 <Property name="LeverancierA">
-<Type>%String</Type>
+<Type>DOM.PM.enu.RVGLeverancier</Type>
 </Property>
 
 <Property name="LeverancierB">
-<Type>%String</Type>
+<Type>DOM.PM.enu.RVGLeverancier</Type>
 </Property>
 
 <Property name="NominaleLengte">
Index: vhTest/Utils/APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml
===================================================================
diff -u -r69748 -r69984
--- vhTest/Utils/APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml	(.../RVGKenmerken.cls.xml)	(revision 69748)
+++ vhTest/Utils/APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml	(.../RVGKenmerken.cls.xml)	(revision 69984)
@@ -36,7 +36,7 @@
 	Set RvgKenmerken.InstelZijde = $$$False
 	Set RvgKenmerken.InkortingLijst = "Track right;834;mm;"
 	Set RvgKenmerken.Krasbescherming = $$$False
-	Set RvgKenmerken.LeverancierA = "unilin"
+	Set RvgKenmerken.LeverancierA = ##class(DOM.PM.enu.RVGLeverancier).Unilin()
 	Set RvgKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).GeenFront()
 	Set RvgKenmerken.NominaleLengte = 500
 	Set RvgKenmerken.NominaleLengteExact = 155
@@ -90,8 +90,8 @@
 	Set RvgKenmerken.InstelZijde = $$$False
 	Set RvgKenmerken.InkortingLijst = "Track right;834;mm;"
 	Set RvgKenmerken.Krasbescherming = $$$True
-	Set RvgKenmerken.LeverancierA = "unilin"
-	Set RvgKenmerken.LeverancierB = "egger"
+	Set RvgKenmerken.LeverancierA = ##class(DOM.PM.enu.RVGLeverancier).Unilin()
+	Set RvgKenmerken.LeverancierB = ##class(DOM.PM.enu.RVGLeverancier).Egger()
 	Set RvgKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).TweeKleuren()
 	Set RvgKenmerken.NominaleLengteGetrimd = 450
 	Set RvgKenmerken.NominaleLengteLinks = 750
Index: DOM/PM/enu/RVGLeverancier/Verwerker.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/RVGLeverancier/Verwerker.cls.xml	(revision 0)
+++ DOM/PM/enu/RVGLeverancier/Verwerker.cls.xml	(revision 69984)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.RVGLeverancier.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>RVGLeverancier:DOM.PM.enu.RVGLeverancier</FormalSpec>
+<Implementation><![CDATA[
+	If RVGLeverancier = "Egger" {
+		Do ..VerwerkEgger()
+	} ElseIf RVGLeverancier = "Unilin" {
+		Do ..VerwerkUnilin()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(RVGLeverancier,"DOM.PM.enu.RVGLeverancier",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkEgger">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkUnilin">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml
===================================================================
diff -u -r69748 -r69984
--- vhTest/Utils/ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml	(.../RvgKenmerken.cls.xml)	(revision 69748)
+++ vhTest/Utils/ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml	(.../RvgKenmerken.cls.xml)	(revision 69984)
@@ -28,7 +28,7 @@
 	Set RvgKenmerken.InbouwHoogte = 1928
 	Set RvgKenmerken.InkortingLijst = "Track right;834;mm;"
 	Set RvgKenmerken.Krasbescherming = "false"
-	Set RvgKenmerken.LeverancierA = "unilin"
+	Set RvgKenmerken.LeverancierA = ##class(DOM.PM.enu.RVGLeverancier).Unilin()
 	Set RvgKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).GeenFront()
 	Set RvgKenmerken.NominaleLengte = 500
 	Set RvgKenmerken.NominaleLengteExact = 155
@@ -82,8 +82,8 @@
 	Set RvgKenmerken.InbouwHoogte = 2378
 	Set RvgKenmerken.InkortingLijst = "Track right;834;mm;"
 	Set RvgKenmerken.Krasbescherming = "true"
-	Set RvgKenmerken.LeverancierA = "unilin"
-	Set RvgKenmerken.LeverancierB = "egger"
+	Set RvgKenmerken.LeverancierA = ##class(DOM.PM.enu.RVGLeverancier).Unilin()
+	Set RvgKenmerken.LeverancierB = ##class(DOM.PM.enu.RVGLeverancier).Egger()
 	Set RvgKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).TweeKleuren()
 	Set RvgKenmerken.NominaleLengteGetrimd = 450
 	Set RvgKenmerken.NominaleLengteLinks = 750	
Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter/ConverteerBlumKenmerkNaarAXKenmerk/Test.cls.xml
===================================================================
diff -u -r69748 -r69984
--- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter/ConverteerBlumKenmerkNaarAXKenmerk/Test.cls.xml	(.../Test.cls.xml)	(revision 69748)
+++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter/ConverteerBlumKenmerkNaarAXKenmerk/Test.cls.xml	(.../Test.cls.xml)	(revision 69984)
@@ -175,6 +175,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Conversie Leverancier">
+<Implementation><![CDATA[
+	Do ..AssertConversieBlumKenmerkenNaarAxKenmerken("Supplier", "Egger", "Data.Kenmerken.Leveranciera", ##class(DOM.PM.enu.RVGLeverancier).Egger())
+	Do ..AssertConversieBlumKenmerkenNaarAxKenmerken("Supplier", "Unilin", "Data.Kenmerken.Leveranciera", ##class(DOM.PM.enu.RVGLeverancier).Unilin())
+	Do ..AssertConversieBlumKenmerkenNaarAxKenmerken("Supplier (Material B)", "Unilin", "Data.Kenmerken.Leverancierb", ##class(DOM.PM.enu.RVGLeverancier).Unilin())
+	Do ..AssertConversieBlumKenmerkenNaarAxKenmerken("Supplier (Material B)", "Unilin", "Data.Kenmerken.Leverancierb", ##class(DOM.PM.enu.RVGLeverancier).Unilin())
+]]></Implementation>
+</Method>
+
 <Method name="AssertConversieBlumKenmerkenNaarAxKenmerken">
 <FormalSpec>BlumKenmerkName:%String,BlumKenmerkValue:%String,VerwachteAXKenmerkName:%String,VerwachteAXKenmerkValue:%String</FormalSpec>
 <Private>1</Private>
Index: DOM/PM/enu/RVGLeverancier.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/RVGLeverancier.cls.xml	(revision 0)
+++ DOM/PM/enu/RVGLeverancier.cls.xml	(revision 69984)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.RVGLeverancier">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>;Egger;Unilin</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Egger;Unilin</Default>
+</Parameter>
+
+<Method name="Egger">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.RVGLeverancier</ReturnType>
+<Implementation><![CDATA[	Quit "Egger"
+]]></Implementation>
+</Method>
+
+<Method name="Unilin">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.RVGLeverancier</ReturnType>
+<Implementation><![CDATA[	Quit "Unilin"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/enu/RVGLeverancier/AutoComplete.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/RVGLeverancier/AutoComplete.cls.xml	(revision 0)
+++ DOM/PM/enu/RVGLeverancier/AutoComplete.cls.xml	(revision 69984)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.RVGLeverancier.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Egger">
+<Type>%String</Type>
+<InitialExpression>"Egger"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Unilin">
+<Type>%String</Type>
+<InitialExpression>"Unilin"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml
===================================================================
diff -u -r69678 -r69984
--- APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml	(.../RVGKenmerken.cls.xml)	(revision 69678)
+++ APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml	(.../RVGKenmerken.cls.xml)	(revision 69984)
@@ -114,11 +114,11 @@
 </Property>
 
 <Property name="LeverancierA">
-<Type>%String</Type>
+<Type>DOM.PM.enu.RVGLeverancier</Type>
 </Property>
 
 <Property name="LeverancierB">
-<Type>%String</Type>
+<Type>DOM.PM.enu.RVGLeverancier</Type>
 </Property>
 
 <Property name="NominaleLengte">
Index: vhTest/Utils/AXimpl/PM/Maatwerk/RvgKenmerken.cls.xml
===================================================================
diff -u -r69748 -r69984
--- vhTest/Utils/AXimpl/PM/Maatwerk/RvgKenmerken.cls.xml	(.../RvgKenmerken.cls.xml)	(revision 69748)
+++ vhTest/Utils/AXimpl/PM/Maatwerk/RvgKenmerken.cls.xml	(.../RvgKenmerken.cls.xml)	(revision 69984)
@@ -35,7 +35,7 @@
 	Do ..VoegToeKenmerk("Inbouwhoogte", 1928, RvgKenmerken)
 	Do ..VoegToeKenmerk("Inkortinglijst1", "Track right;834;mm;", RvgKenmerken, "Data.Bomkenmerken.")
 	Do ..VoegToeKenmerk("Krasbescherming", "false", RvgKenmerken)
-	Do ..VoegToeKenmerk("Leveranciera", "unilin", RvgKenmerken)
+	Do ..VoegToeKenmerk("Leveranciera", ##class(DOM.PM.enu.RVGLeverancier).Unilin(), RvgKenmerken)
 	Do ..VoegToeKenmerk("Materiaalopties", ##class(DOM.PM.enu.RVGMateriaalOpties).GeenFront(), RvgKenmerken)
 	Do ..VoegToeKenmerk("Nominalelengte", 500, RvgKenmerken)
 	Do ..VoegToeKenmerk("Nominalelengteexact", 155, RvgKenmerken)
@@ -90,8 +90,8 @@
 	Do ..VoegToeKenmerk("Inbouwhoogte", 2378, RvgKenmerken)
 	Do ..VoegToeKenmerk("Inkortinglijst1", "Track right;834;mm;", RvgKenmerken, "Data.Bomkenmerken.")
 	Do ..VoegToeKenmerk("Krasbescherming", "true", RvgKenmerken)
-	Do ..VoegToeKenmerk("Leveranciera", "unilin", RvgKenmerken)
-	Do ..VoegToeKenmerk("Leverancierb", "egger", RvgKenmerken)
+	Do ..VoegToeKenmerk("Leveranciera", ##class(DOM.PM.enu.RVGLeverancier).Unilin(), RvgKenmerken)
+	Do ..VoegToeKenmerk("Leverancierb", ##class(DOM.PM.enu.RVGLeverancier).Egger(), RvgKenmerken)
 	Do ..VoegToeKenmerk("Materiaalopties", ##class(DOM.PM.enu.RVGMateriaalOpties).TweeKleuren(), RvgKenmerken)
 	Do ..VoegToeKenmerk("Nominalelengtegetrimd", 450, RvgKenmerken)
 	Do ..VoegToeKenmerk("Nominalelengtelinks", 750, RvgKenmerken)
Index: vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml
===================================================================
diff -u -r69748 -r69984
--- vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml	(.../RVGKenmerken.cls.xml)	(revision 69748)
+++ vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml	(.../RVGKenmerken.cls.xml)	(revision 69984)
@@ -34,7 +34,7 @@
 	Set RvgKenmerken.InbouwHoogte = 1928
 	Set RvgKenmerken.InkortingLijst = "Track right;834;mm;"
 	Set RvgKenmerken.Krasbescherming = $$$False
-	Set RvgKenmerken.LeverancierA = "unilin"
+	Set RvgKenmerken.LeverancierA = ##class(DOM.PM.enu.RVGLeverancier).Unilin()
 	Set RvgKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).GeenFront()
 	Set RvgKenmerken.NominaleLengte = 500
 	Set RvgKenmerken.NominaleLengteExact = 155
@@ -87,8 +87,8 @@
 	Set RvgKenmerken.InbouwHoogte = 2378
 	Set RvgKenmerken.InkortingLijst = "Track right;834;mm;"
 	Set RvgKenmerken.Krasbescherming = $$$True
-	Set RvgKenmerken.LeverancierA = "unilin"
-	Set RvgKenmerken.LeverancierB = "egger"
+	Set RvgKenmerken.LeverancierA = ##class(DOM.PM.enu.RVGLeverancier).Unilin()
+	Set RvgKenmerken.LeverancierB = ##class(DOM.PM.enu.RVGLeverancier).Egger()
 	Set RvgKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).TweeKleuren()
 	Set RvgKenmerken.NominaleLengteLinks = 750
 	Set RvgKenmerken.NominaleLengteRechts = 600