Index: vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml
===================================================================
diff -u -r65006 -r65135
--- vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 65006)
+++ vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 65135)
@@ -37,38 +37,38 @@
 
 	Set Bepaler = ##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
 
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,00000),"HD3")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,05000),"HD3")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,10000),"HD3")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,15000),"HD3")
- 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,19999),"HD3")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,20000),"HD3")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,25000),"HD3")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,29999),"HD3")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,30000),"HD3")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,35000),"HD3")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,39999),"HD3")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,00000),"HD5")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,05000),"HD5")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,10000),"HD5")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,15000),"HD5")
+ 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,19999),"HD5")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,20000),"HD5")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,25000),"HD5")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,29999),"HD5")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,30000),"HD5")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,35000),"HD5")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,39999),"HD5")
 	
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,40000),"HD2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,45000),"HD2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,49999),"HD2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,50000),"HD2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,55000),"HD2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,59999),"HD2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,60000),"HD2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,65000),"HD2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,69999),"HD2")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,40000),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,45000),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,49999),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,50000),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,55000),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,59999),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,60000),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,65000),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,69999),"HD4")
 
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,70000),"HD1")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,75000),"HD1")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,79999),"HD1")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,70000),"HD3")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,75000),"HD3")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,79999),"HD3")
 	
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,80000),"HD2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,85000),"HD2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,89999),"HD2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,90000),"HD2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,95000),"HD2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,99999),"HD2")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,80000),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,85000),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,89999),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,90000),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,95000),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,99999),"HD4")
 ]]></Implementation>
 </Method>
 
Index: APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml
===================================================================
diff -u -r65006 -r65135
--- APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml	(.../HaefeleDEVerzendwijzeBepaler.cls.xml)	(revision 65006)
+++ APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml	(.../HaefeleDEVerzendwijzeBepaler.cls.xml)	(revision 65135)
@@ -109,10 +109,10 @@
 	#dim NumPostcode as %Integer = +Postcode
 	if ((LandCode = "DE") & ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
 		Set Verzendwijze = $Select(
-			((NumPostcode >= 0) & (NumPostcode < 40000)):"HD3",
-			((NumPostcode >= 40000) & (NumPostcode < 70000)):"HD2",
-			((NumPostcode >= 70000) & (NumPostcode < 80000)):"HD1",
-			((NumPostcode >= 80000) & (NumPostcode < 100000)):"HD2",
+			((NumPostcode >= 0) & (NumPostcode < 40000)):"HD5",
+			((NumPostcode >= 40000) & (NumPostcode < 70000)):"HD4",
+			((NumPostcode >= 70000) & (NumPostcode < 80000)):"HD3",
+			((NumPostcode >= 80000) & (NumPostcode < 100000)):"HD4",
 			1:"")
 	}