Index: EWORDS.mac.rou
===================================================================
diff -u -r74875 -r74876
--- EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 74875)
+++ EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 74876)
@@ -942,14 +942,14 @@
  . 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")
+ Set DagNrVoorwerken=$$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 ;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="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
  ;