Index: BL/PPS/TBX/LeanBatch.cls.xml
===================================================================
diff -u -r63749 -r63755
--- BL/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 63749)
+++ BL/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 63755)
@@ -6,6 +6,30 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Mockable</Super>
 
+<Property name="IngegevenKenmerkenTypeApi">
+<Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LegacyPartijApi">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>IngegevenKenmerkenTypeApi:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI="",LegacyPartijApi:DOM.PARTIJ.LegacyPartijAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerkenTypeApi = $$$Inject(IngegevenKenmerkenTypeApi, ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New())
+	Set ..LegacyPartijApi = $$$Inject(LegacyPartijApi, ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Night">
 <Description>
 Night job to clean old batches </Description>
@@ -135,7 +159,6 @@
 <FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
 <ReturnType>BL.PPS.TBX.ToeleveringProductInfo</ReturnType>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerkenTypeAPI As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken
 	Set ToeleveringProductInfo = ##class(BL.PPS.TBX.ToeleveringProductInfo).%New()
 	
@@ -169,25 +192,23 @@
 				Set Aantal = ProductLijn.GeefAantal()
 				
 				#dim LBXLade As DOM.PM.LBXProduct.LBXLade = Product 
-				Set IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
 				Set IngegevenKenmerken = LBXLade.GeefIngegevenKenmerken()
 				
-				If (IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken) || IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken)) {
+				If (..IngegevenKenmerkenTypeApi.IsSpoelbaklade(IngegevenKenmerken) || ..IngegevenKenmerkenTypeApi.IsSifonlade(IngegevenKenmerken)) {
 					Set ToeleveringProductInfo.AantalLadenMetUitsparing = ToeleveringProductInfo.AantalLadenMetUitsparing + Aantal
 				}
 				
-				If IngegevenKenmerkenTypeAPI.IsSmalleLade(IngegevenKenmerken) {
+				If ..IngegevenKenmerkenTypeApi.IsSmalleLade(IngegevenKenmerken) {
 					Set ToeleveringProductInfo.AantalSmalleLaden = ToeleveringProductInfo.AantalSmalleLaden + Aantal
 				}
 				
 			} ElseIf (Product.%Extends("DOM.PM.MVXProduct.MVXLade")) {
 				Set Aantal = ProductLijn.GeefAantal()
 				
-				#dim MVXLade As DOM.PM.LBXProduct.LBXLade = Product 
-				Set IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
+				#dim MVXLade As DOM.PM.MVXProduct.MVXLade = Product 
 				Set IngegevenKenmerken = MVXLade.GeefIngegevenKenmerken()
 				
-				If (IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken) || IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken)) {
+				If (..IngegevenKenmerkenTypeApi.IsSpoelbaklade(IngegevenKenmerken) || ..IngegevenKenmerkenTypeApi.IsSifonlade(IngegevenKenmerken)) {
 					Set ToeleveringProductInfo.AantalLadenMetUitsparing = ToeleveringProductInfo.AantalLadenMetUitsparing + Aantal
 				}
 			}
@@ -317,7 +338,7 @@
 <Method name="ProdGrp">
 <FormalSpec>ProductID:%String,KLNr:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefKlantPartijID(KLNr)
+	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..LegacyPartijApi.GeefKlantPartijID(KLNr)
 	set ProductService = ##class(APPS.Halux.common.ProductieService).%New()
 	quit ProductService.GeefProductieGroep(KlantID,ProductID)
 ]]></Implementation>
Index: vhTest/Mock/BL/PPS/TBX/LeanBatch.cls.xml
===================================================================
diff -u -r60460 -r63755
--- vhTest/Mock/BL/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 60460)
+++ vhTest/Mock/BL/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 63755)
@@ -7,6 +7,13 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>BL.PPS.TBX.LeanBatch,Tools.Mock.MockClassBase</Super>
 
+<Method name="%OnNew">
+<FormalSpec>IngegevenKenmerkenTypeApi:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI="",LegacyPartijApi:DOM.PARTIJ.LegacyPartijAPI=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="AddBatch">
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <ReturnType>%Status</ReturnType>