Index: DOM/PM/enu/RVGLeverancier/Verwerker.cls.xml
===================================================================
diff -u -r71626 -r74981
--- DOM/PM/enu/RVGLeverancier/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 71626)
+++ DOM/PM/enu/RVGLeverancier/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 74981)
@@ -12,7 +12,9 @@
 <Final>1</Final>
 <FormalSpec>RVGLeverancier:DOM.PM.enu.RVGLeverancier</FormalSpec>
 <Implementation><![CDATA[
-	If RVGLeverancier = "Egger" {
+	If RVGLeverancier = "cleaf" {
+		Do ..VerwerkCleaf()
+	} ElseIf RVGLeverancier = "Egger" {
 		Do ..VerwerkEgger()
 	} ElseIf RVGLeverancier = "stylinart" {
 		Do ..VerwerkStylinart()
@@ -25,6 +27,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCleaf">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkEgger">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: DOM/PM/enu/RVGLeverancier/AutoComplete.cls.xml
===================================================================
diff -u -r71626 -r74981
--- DOM/PM/enu/RVGLeverancier/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 71626)
+++ DOM/PM/enu/RVGLeverancier/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 74981)
@@ -9,6 +9,13 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%SerialObject</Super>
 
+<Property name="Cleaf">
+<Type>%String</Type>
+<InitialExpression>"cleaf"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Egger">
 <Type>%String</Type>
 <InitialExpression>"Egger"</InitialExpression>
Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml
===================================================================
diff -u -r74708 -r74981
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml	(.../BlumNaarAXKenmerkenConverter.cls.xml)	(revision 74708)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml	(.../BlumNaarAXKenmerkenConverter.cls.xml)	(revision 74981)
@@ -306,6 +306,7 @@
 	Quit:(KenmerkValueKeyBlum="unilin") ##class(DOM.PM.enu.RVGLeverancier).Unilin()
 	Quit:(KenmerkValueKeyBlum="egger") ##class(DOM.PM.enu.RVGLeverancier).Egger()
 	Quit:(KenmerkValueKeyBlum="stylinart") ##class(DOM.PM.enu.RVGLeverancier).Stylinart()
+	Quit:(KenmerkValueKeyBlum="cleaf") ##class(DOM.PM.enu.RVGLeverancier).Cleaf()
 	Quit:(KenmerkValueKeyBlum="schrauben") ##class(DOM.PM.enu.RVGTiponAdapterPlaatBevestiging).Schroef()
 	Quit:(KenmerkValueKeyBlum="expando") ##class(DOM.PM.enu.RVGTiponAdapterPlaatBevestiging).Expando()
 	Quit:(KenmerkValueKeyBlum="adpl") ##class(DOM.PM.enu.RVGTiponBevestiging).AdapterPlaat()
Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter/ConverteerBlumKenmerkNaarAXKenmerk/Test.cls.xml
===================================================================
diff -u -r73418 -r74981
--- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter/ConverteerBlumKenmerkNaarAXKenmerk/Test.cls.xml	(.../Test.cls.xml)	(revision 73418)
+++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter/ConverteerBlumKenmerkNaarAXKenmerk/Test.cls.xml	(.../Test.cls.xml)	(revision 74981)
@@ -211,9 +211,11 @@
 	Do ..AssertConversieBlumKenmerkenNaarAxKenmerken("haendler_revego_vanh_a_hersteller", "egger", "Data.Kenmerken.Leveranciera", ##class(DOM.PM.enu.RVGLeverancier).Egger())
 	Do ..AssertConversieBlumKenmerkenNaarAxKenmerken("haendler_revego_vanh_a_hersteller", "unilin", "Data.Kenmerken.Leveranciera", ##class(DOM.PM.enu.RVGLeverancier).Unilin())
 	Do ..AssertConversieBlumKenmerkenNaarAxKenmerken("haendler_revego_vanh_a_hersteller", "stylinart", "Data.Kenmerken.Leveranciera", ##class(DOM.PM.enu.RVGLeverancier).Stylinart())
+	Do ..AssertConversieBlumKenmerkenNaarAxKenmerken("haendler_revego_vanh_a_hersteller", "cleaf", "Data.Kenmerken.Leveranciera", ##class(DOM.PM.enu.RVGLeverancier).Cleaf())
 	Do ..AssertConversieBlumKenmerkenNaarAxKenmerken("haendler_revego_vanh_b_hersteller", "egger", "Data.Kenmerken.Leverancierb", ##class(DOM.PM.enu.RVGLeverancier).Egger())
 	Do ..AssertConversieBlumKenmerkenNaarAxKenmerken("haendler_revego_vanh_b_hersteller", "unilin", "Data.Kenmerken.Leverancierb", ##class(DOM.PM.enu.RVGLeverancier).Unilin())
 	Do ..AssertConversieBlumKenmerkenNaarAxKenmerken("haendler_revego_vanh_b_hersteller", "stylinart", "Data.Kenmerken.Leverancierb", ##class(DOM.PM.enu.RVGLeverancier).Stylinart())
+	Do ..AssertConversieBlumKenmerkenNaarAxKenmerken("haendler_revego_vanh_b_hersteller", "cleaf", "Data.Kenmerken.Leverancierb", ##class(DOM.PM.enu.RVGLeverancier).Cleaf())
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/enu/RVGLeverancier.cls.xml
===================================================================
diff -u -r71626 -r74981
--- DOM/PM/enu/RVGLeverancier.cls.xml	(.../RVGLeverancier.cls.xml)	(revision 71626)
+++ DOM/PM/enu/RVGLeverancier.cls.xml	(.../RVGLeverancier.cls.xml)	(revision 74981)
@@ -6,11 +6,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>;Egger;Unilin;stylinart</Default>
+<Default>;Egger;Unilin;stylinart;cleaf</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;Egger;Unilin;Stylinart</Default>
+<Default>;Egger;Unilin;Stylinart;Cleaf</Default>
 </Parameter>
 
 <Method name="Egger">
@@ -33,6 +33,13 @@
 <Implementation><![CDATA[	Quit "stylinart"
 ]]></Implementation>
 </Method>
+
+<Method name="Cleaf">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.RVGLeverancier</ReturnType>
+<Implementation><![CDATA[	Quit "cleaf"
+]]></Implementation>
+</Method>
 </Class>