Index: EWORDS.mac.rou
===================================================================
diff -u -r66653 -r70801
--- EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 66653)
+++ EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 70801)
@@ -847,7 +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 
+ . ;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. In comment 04/04/23 vanwege PV
  . Do VulInVerzendWijzeInHoedjeHulp(KLNr,ORDNr, GewenstePickDatum,VerzW)
  . Do DISPLAY^vhScherm("EWORDSH",,,,"VERZWIJZE;GERAAPT;VERZZONE;VERZDATUM")
  Else  DO MANMODVERZW