Index: EWORDS6.mac.rou
===================================================================
diff -u -r72053 -r75040
--- EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 72053)
+++ EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 75040)
@@ -110,6 +110,9 @@
 				Set VerzZone = ""
 				Set DOutDateTime = $Select(IsVoorVandaag:+$Horolog,1:+$$CALCDATE^vhLib.DataTypes($Horolog,"A",1)) _ "," _ blVerzendWijze.DueOutPickingTime()
 				Set VerzDat = blLeveringsTermijn.GetVroegsteLeverDag(+DOutDateTime)
+				If (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().DD1StockerenBijVRDIndienVroegerGeproduceerd()){
+					Set:(VerzW="DD1") VerzDat=##class(TECH.DateTime).BerekenWerkdag($$GetPickDatum^EWORDS6(ORDNr),1) ;Leverdatum met behoud Pickdatum
+				}
 				Set DOutDateTime = blLeveringsTermijn.GetLaatstePickingsTijdstip(VerzDat)
 				Set LevAdr = ^KOD(KlantNummer, "F", ORDNr, 3)