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