Index: vhDeploy/Deploy20230412xAanpassenDueOutMagazijnDI1.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20230412xAanpassenDueOutMagazijnDI1.cls.xml	(revision 0)
+++ vhDeploy/Deploy20230412xAanpassenDueOutMagazijnDI1.cls.xml	(revision 70850)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20230412xAanpassenDueOutMagazijnDI1">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>KantelPunt magazijn voor DI1 standaard op 18u00 zetten</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim VerzendwijzeID As %String = "DI1"
+	Set Verzendwijze = ##class(DOM.VKP.VerzendWijze).%OpenId(VerzendwijzeID)
+	Set Verzendwijze.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("18:00")
+	Do Verzendwijze.Save()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/VerzendWijze.cls.xml
===================================================================
diff -u -r67343 -r70850
--- APPS/VKP/VerzendWijze.cls.xml	(.../VerzendWijze.cls.xml)	(revision 67343)
+++ APPS/VKP/VerzendWijze.cls.xml	(.../VerzendWijze.cls.xml)	(revision 70850)
@@ -244,8 +244,8 @@
 	
 	If (DueOutPickingTime = "") {
 		Set DueOutPickingTime = ..VerzendWijze.DueOutMagazijn
-		; OBJT  aangepast van de vast tijdstip naar vervroeging van een 30min
-		If $Extract(..VerzendWijzeID, 1, 3) = "DI1", ..LandCode="NL" Set DueOutPickingTime = DueOutPickingTime-$$INTTIME^vhLib.DataTypes("00:30")
+		; Voor Belgie is DueOutTime later dan voor andere landen
+		If $Extract(..VerzendWijzeID, 1, 3) = "DI1", ..LandCode="BE" Set DueOutPickingTime = $$INTTIME^vhLib.DataTypes("21:00")
 	}
 	
 	Quit DueOutPickingTime