Index: SD/EWORDSV/Verzenddatum.mac.rou
===================================================================
diff -u -r70810 -r73153
--- SD/EWORDSV/Verzenddatum.mac.rou	(.../Verzenddatum.mac.rou)	(revision 70810)
+++ SD/EWORDSV/Verzenddatum.mac.rou	(.../Verzenddatum.mac.rou)	(revision 73153)
@@ -19,10 +19,15 @@
  	#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)
+ 	If (VerzendWijze = "THU") {
+	 	Set IsVoorVandaag = 1
+ 	} Else {
+	 	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)
+	Do ##class(vhLib.Logger).%New("EWORDSV").Info("EditVerzwOfGeraapt","Verzendwijze van order '"_ORDNr_"' aangepast naar '"_VerzendWijze_"', datum '"_LaatstePickingTijdstip_"'")
 	Set $P(sdVerzendWijze,D,1) = VerzendWijze
 	Set $P(sdVerzendWijze,D,2) = LaatstePickingTijdstip
  	Set $P(sdVerzendWijze,D,3) = DueOutTime
@@ -32,6 +37,7 @@
 RecalcGeraapt()
 	new blLeveringsTermijn 
  	#dim blLeveringsTermijn As APPS.VKP.LeveringsTermijn = ##class(APPS.VKP.LeveringsTermijn).%New($$Fetch^SD.EWORDSV.Datum(),blVerzendWijze)
+ 	Do ##class(vhLib.Logger).%New("EWORDSV").Info("EditVerzwOfGeraapt","Pickdatum van order '"_ORDNr_"' aangepast naar '"_$$Fetch^SD.EWORDSV.Datum()_"'")
  	set $P(sdVerzendWijze,D,5)= blLeveringsTermijn.GetVroegsteLeverDag($$Fetch^SD.EWORDSV.Datum())
  	Quit