Index: DOM/AKP/enu/Leverancier/AutoComplete.cls.xml
===================================================================
diff -u -r68992 -r68993
--- DOM/AKP/enu/Leverancier/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 68992)
+++ DOM/AKP/enu/Leverancier/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 68993)
@@ -22,6 +22,13 @@
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
+
+<Property name="VanHoecke">
+<Type>%String</Type>
+<InitialExpression>"L||6051"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
 </Class>
 
 
Index: DOM/AKP/enu/Leverancier.cls.xml
===================================================================
diff -u -r68992 -r68993
--- DOM/AKP/enu/Leverancier.cls.xml	(.../Leverancier.cls.xml)	(revision 68992)
+++ DOM/AKP/enu/Leverancier.cls.xml	(.../Leverancier.cls.xml)	(revision 68993)
@@ -7,11 +7,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>;6332;5005</Default>
+<Default>;6332;5005;6051</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;Hallux;Blum</Default>
+<Default>;Hallux;Blum;VanHoecke</Default>
 </Parameter>
 
 <Method name="Halux">
@@ -28,6 +28,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VanHoecke">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.AKP.enu.Leverancier</ReturnType>
+<Implementation><![CDATA[	Quit ..MaakPartijID(6051)
+]]></Implementation>
+</Method>
+
 <Method name="MaakPartijID">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>LeverancierNummer:%String</FormalSpec>
Index: DOM/AKP/enu/Leverancier/Verwerker.cls.xml
===================================================================
diff -u -r68992 -r68993
--- DOM/AKP/enu/Leverancier/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 68992)
+++ DOM/AKP/enu/Leverancier/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 68993)
@@ -16,6 +16,8 @@
 		Do ..VerwerkBlum()
 	} ElseIf Leverancier = "L||6332" {
 		Do ..VerwerkHalux()
+	} ElseIf Leverancier = "L||6051" {
+		Do ..VerwerkVanHoecke()
 	} Else {
 		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Leverancier,"DOM.AKP.enu.Leverancier",$classname())
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
@@ -34,6 +36,12 @@
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="VerwerkVanHoecke">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
 </Class>