Index: vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml
===================================================================
diff -u -r65001 -r65006
--- vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 65001)
+++ vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 65006)
@@ -200,21 +200,21 @@
 	#dim LandCode as %String = "AT"
 	Set Bepaler = ##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
 	
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,1000),"DA4")
- 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,3999),"DA4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,1000),"DA3")
+ 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,3999),"DA3")
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,4000),"DA2")
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,6999),"DA2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,7000),"DA4")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,9999),"DA4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,7000),"DA3")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,9999),"DA3")
 
 	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("ErkaCoronaTransportTijden",$$$True,..#Applicatie)
 
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,1000),"DA4")
- 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,3999),"DA4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,1000),"DA3")
+ 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,3999),"DA3")
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,4000),"DA2")
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,6999),"DA2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,7000),"DA4")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,9999),"DA4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,7000),"DA3")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,9999),"DA3")
 ]]></Implementation>
 </Method>
 
Index: APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml
===================================================================
diff -u -r65001 -r65006
--- APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml	(.../HaefeleDEVerzendwijzeBepaler.cls.xml)	(revision 65001)
+++ APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml	(.../HaefeleDEVerzendwijzeBepaler.cls.xml)	(revision 65006)
@@ -59,11 +59,11 @@
 	if ((LandCode = "AT") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
 		Set Regio = +$Extract(Postcode,1,2)
 		If (Regio < 40) {
-			Set Verzendwijze = "DA4"
+			Set Verzendwijze = "DA3"
 		} Elseif((Regio > 39) && (Regio < 70)) {
 			Set Verzendwijze = "DA2"
 		} Else {
-			Set Verzendwijze = "DA4"
+			Set Verzendwijze = "DA3"
 		}		
 	}
 
@@ -154,11 +154,11 @@
 	if ((LandCode = "AT") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
 		Set Regio = +$Extract(Postcode,1,2)
 		If (Regio < 40) {
-			Set Verzendwijze = "DA4"
+			Set Verzendwijze = "DA3"
 		} Elseif((Regio > 39) && (Regio < 70)) {
 			Set Verzendwijze = "DA2"
 		} Else {
-			Set Verzendwijze = "DA4"
+			Set Verzendwijze = "DA3"
 		}		
 	}
 	if ((LandCode = "FR") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {