Index: FLOWTOE3.mac.rou
===================================================================
diff -u -r58219 -r58431
--- FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 58219)
+++ FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 58431)
@@ -582,22 +582,14 @@
  New AantallenInToeleveringTeller,ProductieService,ToeleveringSplitser, Aantal
 
  new ProductieService set ProductieService = ##class(APPS.Halux.common.ProductieService).%New()
- set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
- set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TOENr)
+ Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 
- Set AantallenInToeleveringTeller = ##class(APPS.Halux.common.impl.AantallenInToeleveringTeller).%New()
-
- set KlantID = Toelevering.GeefKlantID()
-
- Set LEVNr=$P(^KTO1(TOENr),D),TLNr=100
+ Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TOENr)
+ Set ToeleveringSplitserBepaler = ##class(APPS.Halux.common.impl.ToeleveringSplitserBepaler).%New()
+ Set ToeleveringSplitser = ToeleveringSplitserBepaler.GeefToeleveringSplitser(Toelevering)
  
- For  Set TLNr=$O(^KTO(LEVNr,TOENr,TLNr)) Quit:TLNr=""  Do
- . Set R=^KTO(LEVNr,TOENr,TLNr),PRNr=$P(R,D,2),Aantal=$P(R,D,3)
- . Do AantallenInToeleveringTeller.VoegToe(Aantal, PRNr, KlantID)
- 
- Set ToeleveringSplitser = ##class(APPS.Halux.common.impl.ToeleveringSplitser).%New(AantallenInToeleveringTeller)
- 
- Set TLNr=100
+ Set KlantID = Toelevering.GeefKlantID()
+ Set LEVNr=$P(^KTO1(TOENr),D),TLNr=100
  #dim Product As DOM.PM.Product
   // SortKey dient niet voor sortering, maar voor het aanduiden welke lijnen samen mogen blijven, en welke niet.
  For  Set TLNr=$O(^KTO(LEVNr,TOENr,TLNr)) Quit:TLNr=""  Do