Index: APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml
===================================================================
diff -u -r65150 -r65183
--- APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml	(.../HaefeleDEVerzendwijzeBepaler.cls.xml)	(revision 65150)
+++ APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml	(.../HaefeleDEVerzendwijzeBepaler.cls.xml)	(revision 65183)
@@ -92,7 +92,7 @@
 	}
 
 	if ((LandCode = "CH") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
-		Set Verzendwijze="HD1"
+		Set Verzendwijze="HD3"
 	}
 
 	if $$$Not($$$HasLength(Verzendwijze)){
@@ -188,7 +188,7 @@
 	}
 
 	if ((LandCode = "CH") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
-		Set Verzendwijze="HD1"
+		Set Verzendwijze="HD3"
 	}
 
 	if $$$Not($$$HasLength(Verzendwijze)){
Index: vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml
===================================================================
diff -u -r65150 -r65183
--- vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 65150)
+++ vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 65183)
@@ -16,13 +16,10 @@
 	#dim LandCode as %String = "CH"
 	Set Bepaler = ##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
 		
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"1000"),"DA2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"9999"),"DA2")
-	
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"1000"),"HD3")
 	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("ErkaCoronaTransportTijden",$$$True,..#Applicatie)
 
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"1000"),"DA2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"9999"),"DA2")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"1000"),"HD3")
 ]]></Implementation>
 </Method>