Index: APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml
===================================================================
diff -u -r64703 -r64876
--- APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml	(.../HaefeleDEVerzendwijzeBepaler.cls.xml)	(revision 64703)
+++ APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml	(.../HaefeleDEVerzendwijzeBepaler.cls.xml)	(revision 64876)
@@ -28,20 +28,20 @@
 	if ((LandCode = "SE") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
 		#dim Regio as %Integer = +$Extract(Postcode,1,2)
 		If (Regio < 78) {
-			Set Verzendwijze = "DA4"
+			Set Verzendwijze = "DA8"
 		} Elseif ((Regio > 77) && (Regio < 90)) {
-			Set Verzendwijze = "DA5"
+			Set Verzendwijze = "DA9"
 		} Else {
-			Set Verzendwijze = "DA6"
+			Set Verzendwijze = "DAX"
 		}
 	}
 
 	if ((LandCode = "FI") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
 		Set Regio = +$Extract(Postcode,1,2)
 		If (Regio < 16) {
-			Set Verzendwijze = "DA4"
+			Set Verzendwijze = "DA8"
 		} Else {
-			Set Verzendwijze = "DA6"
+			Set Verzendwijze = "DAX"
 		}		
 	}
 	if ((LandCode = "IT") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
@@ -123,20 +123,20 @@
 	if ((LandCode = "SE") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
 		#dim Regio as %Integer = +$Extract(Postcode,1,2)
 		If (Regio < 78) {
-			Set Verzendwijze = "DA4"
+			Set Verzendwijze = "DA8"
 		} Elseif ((Regio > 77) && (Regio < 90)) {
-			Set Verzendwijze = "DA5"
+			Set Verzendwijze = "DA9"
 		} Else {
-			Set Verzendwijze = "DA6"
+			Set Verzendwijze = "DAX"
 		}
 	}
 
 	if ((LandCode = "FI") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
 		Set Regio = +$Extract(Postcode,1,2)
 		If (Regio < 16) {
-			Set Verzendwijze = "DA4"
+			Set Verzendwijze = "DA8"
 		} Else {
-			Set Verzendwijze = "DA6"
+			Set Verzendwijze = "DAX"
 		}		
 	}
 		if ((LandCode = "IT") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
@@ -162,7 +162,8 @@
 		}		
 	}
 	if ((LandCode = "FR") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
-		Set Regio = +$Extract(Postcode,1,2)
+		#dim PostcodeText as %String = ##class(TECH.StringUtils).AddLeadingChar(Postcode,"0",5)
+		Set Regio = +$Extract(PostcodeText,1,2)
 		If (Regio < 2) {
 			Set Verzendwijze = "HD2"
 		} Elseif((Regio > 1) && (Regio < 40)) {
Index: vhDeploy/Deploy20210625xExtraVerzendwijzesDachser.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20210625xExtraVerzendwijzesDachser.cls.xml	(revision 0)
+++ vhDeploy/Deploy20210625xExtraVerzendwijzesDachser.cls.xml	(revision 64876)
@@ -0,0 +1,101 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20210625xExtraVerzendwijzesDachser">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Nieuwe verzendwijzen voor transporteur Dachser (via transsmart)</Default>
+</Parameter>
+
+<Method name="CleanUp">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#Dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( "KLANT", "VERZENDWIJZE" )
+	Do PiItemService.Verwijder("DA8")
+	Do PiItemService.Verwijder("DA9")
+	Do PiItemService.Verwijder("DAX")
+]]></Implementation>
+</Method>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim ID as %String = "DA8"
+	
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID)){
+		Set DA = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Set DA.TransportDuur = 8
+		Do DA.ZetOmschrijving(ID_" - "_ DA.TransportDuur _" dagen")
+		Set DA.BonPrinter = "LEVBON_EXPORT"
+		Set DA.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("13:30")
+		Set DA.DueOutProductie = $$INTTIME^vhLib.DataTypes("11:00")
+		Set DA.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("16:00")
+		Set DA.KantelDoorsturenMagazijn =  $$INTTIME^vhLib.DataTypes("23:59")
+		Set DA.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set DA.VerzendZone = "005003" 
+		Set DA.MagOpschuivenIndienAutoSendAf = 1
+		Set DA.Transporteur = 6370
+		Set DA.AanrekenenPort = $$$False
+		Set DA.UitgesteldPakbonBoekenAx = $$$True		
+		Set DA.OmschrijvingDuits = ID _ " Dachser " _DA.TransportDuur_ "Tag"
+		Set DA.OmschrijvingFrans = ID _ " Dachser " _DA.TransportDuur_ "jour"
+		Set DA.OmschrijvingEngels = ID _ " Dachser " _DA.TransportDuur_ "day"
+		Set DA.OmschrijvingNederlands = ID _ " Dachser " _DA.TransportDuur_ "dag"
+	
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( DA.#GlobalNode, DA.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( DA, 22 )
+	}
+
+	Set ID = "DA9"
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID)){
+		Set DA = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Set DA.TransportDuur = 9
+		Do DA.ZetOmschrijving(ID_" - "_ DA.TransportDuur _" dagen")
+		Set DA.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("13:30")
+		Set DA.DueOutProductie = $$INTTIME^vhLib.DataTypes("11:00")
+		Set DA.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("16:00")
+		Set DA.KantelDoorsturenMagazijn =  $$INTTIME^vhLib.DataTypes("23:59")
+		Set DA.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set DA.VerzendZone = "005003" 
+		Set DA.MagOpschuivenIndienAutoSendAf = 1
+		Set DA.Transporteur = 6370
+		Set DA.AanrekenenPort = $$$False
+		Set DA.UitgesteldPakbonBoekenAx = $$$True		
+		Set DA.OmschrijvingDuits = ID _ " Dachser " _DA.TransportDuur_ "Tag"
+		Set DA.OmschrijvingFrans = ID _ " Dachser " _DA.TransportDuur_ "jour"
+		Set DA.OmschrijvingEngels = ID _ " Dachser " _DA.TransportDuur_ "day"
+		Set DA.OmschrijvingNederlands = ID _ " Dachser " _DA.TransportDuur_ "dag"
+	
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( DA.#GlobalNode, DA.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( DA, 23 )
+	}
+	Set ID = "DAX"
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID)){
+		Set DA = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Set DA.TransportDuur = 10
+		Do DA.ZetOmschrijving(ID_" - "_ DA.TransportDuur _" dagen")
+		Set DA.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("13:30")
+		Set DA.DueOutProductie = $$INTTIME^vhLib.DataTypes("11:00")
+		Set DA.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("16:00")
+		Set DA.KantelDoorsturenMagazijn =  $$INTTIME^vhLib.DataTypes("23:59")
+		Set DA.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set DA.VerzendZone = "005003" 
+		Set DA.MagOpschuivenIndienAutoSendAf = 1
+		Set DA.Transporteur = 6370
+		Set DA.AanrekenenPort = $$$False
+		Set DA.UitgesteldPakbonBoekenAx = $$$True		
+		Set DA.OmschrijvingDuits = ID _ " Dachser " _DA.TransportDuur_ "Tag"
+		Set DA.OmschrijvingFrans = ID _ " Dachser " _DA.TransportDuur_ "jour"
+		Set DA.OmschrijvingEngels = ID _ " Dachser " _DA.TransportDuur_ "day"
+		Set DA.OmschrijvingNederlands = ID _ " Dachser " _DA.TransportDuur_ "dag"
+	
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( DA.#GlobalNode, DA.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( DA, 24 )
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml
===================================================================
diff -u -r64703 -r64876
--- vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 64703)
+++ vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 64876)
@@ -79,6 +79,11 @@
 	
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"1000"),"DA2")
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"9999"),"DA2")
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("ErkaCoronaTransportTijden",$$$True,..#Applicatie)
+
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"1000"),"DA2")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"9999"),"DA2")
 ]]></Implementation>
 </Method>
 
@@ -87,7 +92,6 @@
 	#dim LandCode as %String = "FR"
 	Set Bepaler = ##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
 	
-	
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,1000),"HD2")
  	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,1999),"HD2")
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"01000"),"HD2")
@@ -102,6 +106,23 @@
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,87999),"HD4")
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,88000),"HD2")
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,95999),"HD2")
+
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("ErkaCoronaTransportTijden",$$$True,..#Applicatie)
+
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,1000),"HD2")
+ 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,1999),"HD2")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"01000"),"HD2")
+ 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"01999"),"HD2")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,02000),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,39999),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,40000),"HD3")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,66999),"HD3")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,67000),"HD2")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,77999),"HD2")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,78000),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,87999),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,88000),"HD2")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,95999),"HD2")
 ]]></Implementation>
 </Method>
 
@@ -110,12 +131,21 @@
 	#dim LandCode as %String = "SE"
 	Set Bepaler = ##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
 		
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"0000"),"DA4")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"7700"),"DA4")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"7800"),"DA5")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"8900"),"DA5")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"9000"),"DA6")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"9900"),"DA6")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"0000"),"DA8")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"7700"),"DA8")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"7800"),"DA9")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"8900"),"DA9")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"9000"),"DAX")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"9900"),"DAX")
+
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("ErkaCoronaTransportTijden",$$$True,..#Applicatie)
+
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"0000"),"DA8")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"7700"),"DA8")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"7800"),"DA9")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"8900"),"DA9")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"9000"),"DAX")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"9900"),"DAX")
 ]]></Implementation>
 </Method>
 
@@ -124,10 +154,17 @@
 	#dim LandCode as %String = "FI"
 	Set Bepaler = ##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
 		
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"0000"),"DA4")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"0000"),"DA4")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"1600"),"DA6")
-	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"9900"),"DA6")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"0000"),"DA8")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"0000"),"DA8")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"1600"),"DAX")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"9900"),"DAX")
+
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("ErkaCoronaTransportTijden",$$$True,..#Applicatie)
+
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"0000"),"DA8")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"0000"),"DA8")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"1600"),"DAX")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"9900"),"DAX")
 ]]></Implementation>
 </Method>
 
@@ -144,6 +181,17 @@
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"58999"),"HD6")
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"59000"),"HD7")
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"99999"),"HD7")
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("ErkaCoronaTransportTijden",$$$True,..#Applicatie)
+	
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"00000"),"HD4")
+ 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"09999"),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"10000"),"HD5")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"45999"),"HD5")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"46000"),"HD6")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"58999"),"HD6")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"59000"),"HD7")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"99999"),"HD7")
 ]]></Implementation>
 </Method>
 
@@ -158,6 +206,15 @@
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,6999),"HD2")
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,7000),"HD4")
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,9999),"HD4")
+
+	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")
 ]]></Implementation>
 </Method>
 
@@ -167,6 +224,10 @@
 	Set Bepaler = ##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
 		
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,9420),"DA3")
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("ErkaCoronaTransportTijden",$$$True,..#Applicatie)
+
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,9420),"DA3")
 ]]></Implementation>
 </Method>