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
Index: ULTOER.mac.rou
===================================================================
diff -u -r67253 -r70801
--- ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 67253)
+++ ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 70801)
@@ -259,7 +259,7 @@
  Else  Do
  . Set DefaultVerzW=$$DefaultVerzW()
  . If (DefaultVerzW="DI1") ||(DefaultVerzW="DD1") Do
- . . Set Kriteria=D_$$CALCDATE^vhLib.DataTypes(,"A","+1")_"\\T\Z\"_$$CALCDATE^vhLib.DataTypes(,"A","+10")_"\L"
+ . . Set Kriteria=D_$$CALCDATE^vhLib.DataTypes(,"A","+1")_"\\T\Z\"_$$CALCDATE^vhLib.DataTypes(,"A","+1")_"\L"
  . Else  Do
  . . Set Kriteria=D_$$CALCDATE^vhLib.DataTypes(,"A","+1")_"\\O\Z\"_$$CALCDATE^vhLib.DataTypes(,"A","+1")
  . Set $P(Kriteria,D,3)=DefaultVerzW