Index: BL/Legacy/AantalLadesVoorBewerkingsCenterBepaler.cls.xml
===================================================================
diff -u -r58115 -r58124
--- BL/Legacy/AantalLadesVoorBewerkingsCenterBepaler.cls.xml	(.../AantalLadesVoorBewerkingsCenterBepaler.cls.xml)	(revision 58115)
+++ BL/Legacy/AantalLadesVoorBewerkingsCenterBepaler.cls.xml	(.../AantalLadesVoorBewerkingsCenterBepaler.cls.xml)	(revision 58124)
@@ -18,13 +18,25 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KTO">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KTO1">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ProductTypeApi:DOM.PM.ProductTypeAPI,IngegevenKenmerkenTypeAPI:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</FormalSpec>
+<FormalSpec>ProductTypeApi:DOM.PM.ProductTypeAPI,IngegevenKenmerkenTypeAPI:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI,KTO:%String="^KTO",KTO1:%String="^KTO1"</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ..KTO = KTO
+	Set ..KTO1 = KTO1
 	Set ..ProductTypeApi = $$$Inject(ProductTypeApi, ##class(DOM.PM.impl.ProductTypeAPIimpl).%New())
 	Set ..IngegevenKenmerkenTypeAPI = $$$Inject(IngegevenKenmerkenTypeAPI, ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New())
 	Quit $$$OK
@@ -44,17 +56,16 @@
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim AantalLaden As %Integer = 0
-	
-	#dim LeverancierNummer As %String = $P(^KTO1(ToeleveringId),"\",1)
+	#dim LeverancierNummer As %String = $Piece(@..KTO1@(ToeleveringId),"\",1)
 	#dim ToeleveringLijnNummer As %String = 100
 
 	For { 
-		Set ToeleveringLijnNummer = $O(^KTO(LeverancierNummer,ToeleveringId,ToeleveringLijnNummer)) 
+		Set ToeleveringLijnNummer = $Order(@..KTO@(LeverancierNummer,ToeleveringId,ToeleveringLijnNummer)) 
 		Quit:(ToeleveringLijnNummer="")
 		
-		#dim ToeleveringLijn As %String = ^KTO(LeverancierNummer,ToeleveringId,ToeleveringLijnNummer)
-		#dim ProductNummer As %String = $P(ToeleveringLijn,"\",2)
-		#dim LijnAantal As %String = $P(ToeleveringLijn,"\",3)
+		#dim ToeleveringLijn As %String = @..KTO@(LeverancierNummer,ToeleveringId,ToeleveringLijnNummer)
+		#dim ProductNummer As %String = $Piece(ToeleveringLijn,"\",2)
+		#dim LijnAantal As %String = $Piece(ToeleveringLijn,"\",3)
 		
 		Set:(..IsLadeVoorBewerkingsCenter(ProductNummer)) AantalLaden = AantalLaden + LijnAantal