Index: EWORDS.mac.rou
===================================================================
diff -u -r73186 -r74875
--- EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 73186)
+++ EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 74875)
@@ -933,7 +933,7 @@
  Quit VerzZ
  ;
 DEFVERZW(KLNr,ORDNr) 
- New I,R,Default,Kriteria,VerzW,DagNr
+ New I,R,Default,Kriteria,VerzW,DagNr,DagNrVoorwerken
  Set Default=$$DEFAULT^KLVERZW(,$G(KLNr),$G(ORDNr))
  Merge Kriteria=^HULP(%J,"S","O")
  Set R="`"_$G(Kriteria("VERZ"))
@@ -942,12 +942,15 @@
  . For  Set VerzW=$O(^RES("KLANT","PI","VERZENDWIJZE","D",VerzW)) Quit:$E(VerzW,1,2)'="OD"  If $E(VerzW,3)?.N,R'[("`"_VerzW_";"_DagNr) Set R=R_"`"_VerzW_";"_DagNr
  . Set $E(R)="",Kriteria("VERZ")=R
  Set VerzW="",DagNr=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($H,"A",1),"DWN")
+ Set DagNrVoorwerken = DagNr=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($H,"A",2),"DWN")
  If $L($G(Kriteria("VERZ"))) For I=1:1:$L(Default,"`") Do  Quit:$L(VerzW)
  .Quit:"`"_Kriteria("VERZ")_"`"'[("`"_$P(Default,"`",I)_"`")
  .Set VerzW=$P(Default,"`",I)
  If VerzW="",$L(Default,"`")=1 Set VerzW=Default
- If VerzW="" For I=1:1:$L(Default,"`") If $P($P(Default,"`",I),";",2)=DagNr Set VerzW=$P(Default,"`",I) Quit
- Set:VerzW="" VerzW="OD"_";"_DagNr
+ If VerzW="" For I=1:1:$L(Default,"`") If $P($P(Default,"`",I),";",2)=DagNr Set VerzW=$P(Default,"`",I) Quit ;picking op dag voor verzending
+ If VerzW="" For I=1:1:$L(Default,"`") If $P($P(Default,"`",I),";",2)=DagNrVoorwerken Set VerzW=$P(Default,"`",I) Quit ; 1 dag voorwerken?
+ ;Set:VerzW="" VerzW="OD"_";"_DagNr -> dit was helemaal fout ("OD" op zich bestaat niet (meer) )
+ Set:VerzW="" VerzW=$p(Default,"`",1) ;1e verzendwijze van order, betere fallback dan 'OD'
  Quit VerzW
  ;
 NOORDS(KLNr)