Index: DOM/VKP/enu/VerzendWijze.cls.xml
===================================================================
diff -u -r48376 -r67137
--- DOM/VKP/enu/VerzendWijze.cls.xml	(.../VerzendWijze.cls.xml)	(revision 48376)
+++ DOM/VKP/enu/VerzendWijze.cls.xml	(.../VerzendWijze.cls.xml)	(revision 67137)
@@ -8,11 +8,11 @@
 <Super>%String</Super>
 
 <Parameter name="VALUELIST">
-<Default>,AFH ,AFC ,DI1 ,DI2 ,DI3 ,OD ,OD1 ,OD2 ,OD3 ,OD4 ,OD5 , EX ,POB ,PON ,TPO ,TPC ,TNC </Default>
+<Default>,AFH ,AFC ,DI1 ,DI2 ,DI3 ,OD ,OD1 ,OD2 ,OD3 ,OD4 ,OD5 , EX ,POB ,PON ,TPO ,TPC ,TNC ,DiHF </Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>,Afhaling,Afhaling Consument,Distributeur1,Distributeur2,Distributeur3,OnzeDiensten,OnzeDiensten1,OnzeDiensten2,OnzeDiensten3,OnzeDiensten4,OnzeDiensten5,Expediteur,Post België,Post Nederland,Taxipost onze kost, Taxipost Consument,Taxipost via Nederland</Default>
+<Default>,Afhaling,Afhaling Consument,Distributeur1,Distributeur2,Distributeur3,OnzeDiensten,OnzeDiensten1,OnzeDiensten2,OnzeDiensten3,OnzeDiensten4,OnzeDiensten5,Expediteur,Post België,Post Nederland,Taxipost onze kost, Taxipost Consument,Taxipost via Nederland,Häfele</Default>
 </Parameter>
 
 <Method name="Afhaling">
@@ -133,6 +133,13 @@
 <Implementation><![CDATA["TNC "
 ]]></Implementation>
 </Method>
+
+<Method name="Häfele">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["DiHF "
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/AXimpl/AxToAdminUtils/Test.cls.xml
===================================================================
diff -u -r60035 -r67137
--- vhUnitTest/AXimpl/AxToAdminUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 60035)
+++ vhUnitTest/AXimpl/AxToAdminUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 67137)
@@ -113,6 +113,13 @@
 	Do $$$AssertEquals(Converter.ConvertCustClassificationIdToRegio("R01234567890123456789"),"1234567890123456789")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Omzetten speciale Häfele verzendwijze naar DI1">
+<Implementation><![CDATA[
+	Set Utils = ##class(AXimpl.AxToAdminUtils).%New()
+	Do $$$AssertEquals(Utils.ConvertVerzendingWijze("DiHF"),##class(DOM.VKP.enu.VerzendWijze).Distributeur1())
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AXimpl/AxToAdminUtils.cls.xml
===================================================================
diff -u -r66978 -r67137
--- AXimpl/AxToAdminUtils.cls.xml	(.../AxToAdminUtils.cls.xml)	(revision 66978)
+++ AXimpl/AxToAdminUtils.cls.xml	(.../AxToAdminUtils.cls.xml)	(revision 67137)
@@ -237,6 +237,9 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set VerzendWijze=""
+	If DlvMode = ##class(TECH.StringUtils).Trim(##class(DOM.VKP.enu.VerzendWijze).Häfele()) {
+		Quit ##class(DOM.VKP.enu.VerzendWijze).Distributeur1()
+	}
 	For {
 		Set VerzendWijze=$O(^RES("KLANT","PI","VERZENDWAX","D",VerzendWijze))
 		Quit:(VerzendWijze="")