Index: vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml
===================================================================
diff -u -r64876 -r65001
--- vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 64876)
+++ vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 65001)
@@ -200,21 +200,21 @@
 	#dim LandCode as %String = "AT"
 	Set Bepaler = ##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
 	
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,1000),"HD4")
- 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,3999),"HD4")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,4000),"HD2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,6999),"HD2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,7000),"HD4")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,9999),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,1000),"DA4")
+ 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,3999),"DA4")
+	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 ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("ErkaCoronaTransportTijden",$$$True,..#Applicatie)
 
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,1000),"HD4")
- 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,3999),"HD4")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,4000),"HD2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,6999),"HD2")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,7000),"HD4")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,9999),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,1000),"DA4")
+ 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,3999),"DA4")
+	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")
 ]]></Implementation>
 </Method>