Index: SD/EWORDSV/Verzenddatum.mac.rou
===================================================================
diff -u -r29059 -r70771
--- SD/EWORDSV/Verzenddatum.mac.rou	(.../Verzenddatum.mac.rou)	(revision 29059)
+++ SD/EWORDSV/Verzenddatum.mac.rou	(.../Verzenddatum.mac.rou)	(revision 70771)
@@ -13,10 +13,19 @@
 	quit $P(sdVerzendWijze,D,5)
 
 Recalc()
-	new blLeveringsTermijn,blVerzendWijze 
+	new blLeveringsTermijn,blVerzendWijze
  	new VerzendWijze set VerzendWijze = $$Fetch^SD.EWORDSV.Verzendwijze()
+ 	Set $P(^KOD(KLNr,"F",ORDNr,1),D,7)=VerzendWijze
  	#dim blVerzendWijze As APPS.VKP.VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New(KLNr,VerzendWijze)
  	#dim blLeveringsTermijn As APPS.VKP.LeveringsTermijn = ##class(APPS.VKP.LeveringsTermijn).%New($$Fetch^SD.EWORDSV.Datum(),blVerzendWijze)
+ 	Set DueOutTime = blLeveringsTermijn.GetDueOutPickingTime()
+ 	Set IsVoorVandaag = (##class(BL.Legacy.EWORDS6).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(ORDNr)=1)
+  	Set GewenstePickDatum = $S(IsVoorVandaag:+$H,1:+$$CALCDATE^vhLib.DataTypes($H,"A",1))
+ 	Set VerzDat=blLeveringsTermijn.GetVroegsteLeverDag(+GewenstePickDatum)
+	Set LaatstePickingTijdstip = blLeveringsTermijn.GetLaatstePickingsTijdstip(VerzDat)
+	Set $P(sdVerzendWijze,D,1) = VerzendWijze
+	Set $P(sdVerzendWijze,D,2) = LaatstePickingTijdstip
+ 	Set $P(sdVerzendWijze,D,3) = DueOutTime
  	set $P(sdVerzendWijze,D,5)= blLeveringsTermijn.GetVroegsteLeverDag($$Fetch^SD.EWORDSV.Datum())
  	Quit
 
Index: vhDeploy/Deploy20230317xUitbreidingTransferOrdersVerzendwijzes.cls.xml
===================================================================
diff -u -r70757 -r70771
--- vhDeploy/Deploy20230317xUitbreidingTransferOrdersVerzendwijzes.cls.xml	(.../Deploy20230317xUitbreidingTransferOrdersVerzendwijzes.cls.xml)	(revision 70757)
+++ vhDeploy/Deploy20230317xUitbreidingTransferOrdersVerzendwijzes.cls.xml	(.../Deploy20230317xUitbreidingTransferOrdersVerzendwijzes.cls.xml)	(revision 70771)
@@ -31,7 +31,7 @@
 <Implementation><![CDATA[
 	#dim VerzendwijzeID As %String = "THU"
 	Set Verzendwijze = ##class(DOM.VKP.VerzendWijze).%OpenId(VerzendwijzeID)
-	Set Verzendwijze.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("23:00")
+	Set Verzendwijze.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("23:59")
 	Do Verzendwijze.Save()
 ]]></Implementation>
 </Method>