Index: BL/PPS/TBX/WPPers/InfoBepaler.cls.xml
===================================================================
diff -u -r57664 -r57665
--- BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 57664)
+++ BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 57665)
@@ -26,14 +26,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..MatFormatter = ##class(APPS.Halux.PPS.impl.Formatter.Mat).%New()
-	set ..TBXMatToEnuMatConverter = ##class(BL.PPS.TBX.impl.TBXMatToEnuMatConverter).%New()
+	Set ..MatFormatter = ##class(APPS.Halux.PPS.impl.Formatter.Mat).%New()
+	Set ..TBXMatToEnuMatConverter = ##class(BL.PPS.TBX.impl.TBXMatToEnuMatConverter).%New()
+	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -44,7 +50,7 @@
 <Implementation><![CDATA[
 	#dim Info1 As %String = ""
 
-	#dim TBX As DOM.PM.TBXProduct.TBXLade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
+	#dim TBX As DOM.PM.TBXProduct.TBXLade = ..ProductAPI.GeefProduct(PRNr)
 
 	Set KLAS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS"))
 	Set Internebreedte =$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IB"))
@@ -90,7 +96,7 @@
 <FormalSpec>PRNr:%String,BatchID:%String,LaatsteBatch:%Boolean</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim TBX As DOM.PM.TBXProduct.TBXLade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
+	#dim TBX As DOM.PM.TBXProduct.TBXLade = ..ProductAPI.GeefProduct(PRNr)
 
 	#dim Info2 As %String = ""