Index: EWORDS.mac.rou
===================================================================
diff -u -r55856 -r66653
--- EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 55856)
+++ EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 66653)
@@ -847,6 +847,7 @@
  If $L($G(VerzendWijze)) Do
  . Do SETVERZW(KLNr,,VerzW)
  . Set GewenstePickDatum = $piece(sdVerzendWijze,D,2)
+ . If VerzendWijze?1(1"DD1",1"DI1") Set GewenstePickDatum=$$GetPickDatum^EWORDS6(ORDNr) ; aangepast PV 18/01/2022 - voortrekken toelaten met het behouden van de gewenste verzenddatum 
  . Do VulInVerzendWijzeInHoedjeHulp(KLNr,ORDNr, GewenstePickDatum,VerzW)
  . Do DISPLAY^vhScherm("EWORDSH",,,,"VERZWIJZE;GERAAPT;VERZZONE;VERZDATUM")
  Else  DO MANMODVERZW