Index: BL/PPS/OL/Inpak.cls.xml
===================================================================
diff -u -r31456 -r31458
--- BL/PPS/OL/Inpak.cls.xml	(.../Inpak.cls.xml)	(revision 31456)
+++ BL/PPS/OL/Inpak.cls.xml	(.../Inpak.cls.xml)	(revision 31458)
@@ -134,20 +134,42 @@
 <Private>1</Private>
 </Property>
 
-<Method name="%OnNew">
+<Method name="MultiCountBepalerGet">
 <Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set ..MultiCountBepaler = ##class(BL.PPS.OL.Inpak.MultiCountBepaler).%New()
-	Set ..ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
-	Set ..VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
-	Set ..BonTypeAPI = ##class(DOM.DomeinContext).Instance().GeefBonTypeAPI()
-	Quit $$$OK
+	Set:$$$Not($IsObject(r%MultiCountBepaler)) r%MultiCountBepaler = ##class(BL.PPS.OL.Inpak.MultiCountBepaler).%New()
+	Quit r%MultiCountBepaler
 ]]></Implementation>
 </Method>
 
+<Method name="ProductTypeAPIGet">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set:$$$Not($IsObject(r%ProductTypeAPI)) r%ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	Quit r%ProductTypeAPI
+]]></Implementation>
+</Method>
+
+<Method name="VerkoopAPIGet">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set:$$$Not($IsObject(r%VerkoopAPI)) r%VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
+	Quit r%VerkoopAPI
+]]></Implementation>
+</Method>
+
+<Method name="BonTypeAPIGet">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set:$$$Not($IsObject(r%BonTypeAPI)) r%BonTypeAPI = ##class(DOM.DomeinContext).Instance().GeefBonTypeAPI()
+	Quit r%BonTypeAPI
+]]></Implementation>
+</Method>
+
 <Method name="Open">
 <Description>
 Open : Initialiseren van object (properties + ophalen sequentie)</Description>