Index: DCTOE.mac.rou
===================================================================
diff -u -r921 -r1033
--- DCTOE.mac.rou	(.../DCTOE.mac.rou)	(revision 921)
+++ DCTOE.mac.rou	(.../DCTOE.mac.rou)	(revision 1033)
@@ -156,9 +156,15 @@
  ; Afdruk titel Halux
 HTITEL
  New OrdDat,I,R,T,Blank,Titel,Allign,VPerfo,ToeRef,LevInd,Aanspr,Naam,Woonpl,ORDNr,KLNr,KlTaal,DueOut,VerzW,bl,arCnt,TipOn,SifSpb,Baliko,Specials
+ 
+ New ToeleveringAPI, Toelevering, ToeleveringProductInfo
+ Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+ Set Toelevering = ToeleveringAPI.GeefToelevering(TOENr)
  Set bl=##class(BL.PPS.TBX.LeanBatch).%New()
- Do bl.OnderdelenPerTOENr(TOENr,.arCnt)
- Set TipOn=$P(arCnt,D,2),SifSpb=$P(arCnt,D,3),Baliko=$P(arCnt,D,4)
+ Set ToeleveringProductInfo = bl.GeefToeleveringProductInfo(Toelevering)
+ Set TipOn=ToeleveringProductInfo.AantalTipon
+ Set SifSpb=ToeleveringProductInfo.AantalSifon + ToeleveringProductInfo.AantalSpoelbak
+ Set Baliko=ToeleveringProductInfo.AantalBaliko
  Set Specials=""
  For I="TipOn","SifSpb","Baliko" Do:@I
  . Set $P(Specials,D)=$P(Specials,D)+1