Index: EWTOE.mac.rou
===================================================================
diff -u -r55001 -r55002
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 55001)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 55002)
@@ -174,7 +174,7 @@
  If 'AantBo Do
  .Set ToeleveringLijnCode=$$GeefToeleveringLijnCode^FLOWTOE(LEVNr,TOENr,TLNr)
  .Do KILL(TOENr,TLNr)
- .Do Cache05Geproduceerd(LEVNr,TOENr,ToeleveringLijnCode,PRNr,$P(Rec,D,30),Besteld,$P(Rec,D,56),$P(Rec,D,55),$P(Rec,D,57),$P(Rec,D,27),,$P(Rec,D,28))
+ .Do Cache05Geproduceerd(LEVNr,TOENr,ToeleveringLijnCode,PRNr,$P(Rec,D,30),Besteld,$P(Rec,D,56),$P(Rec,D,55),$P(Rec,D,57),$P(Rec,D,27),$P(Rec,D,28))
  If AantBo Do
  .Set Rec=^KTO(LEVNr,TOENr,TLNr) Set:'$P(Rec,D,23) $P(Rec,D,23)=$P(Rec,D,3)
  .Set $P(Rec,D,9)=$J(($P(Rec,D,9)/$P(Rec,D,3)*AantBo),0,2)