Index: vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnConverter/Test.cls.xml
===================================================================
diff -u -r45041 -r45507
--- vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 45041)
+++ vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 45507)
@@ -199,7 +199,7 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.impl.ProductImpl</ReturnType>
 <Implementation><![CDATA[
-	Set Product = ##class(DOM.PM.impl.ProductImpl).%New(..#ProductId)
+	#dim Product As DOM.PM.impl.ProductImpl = ##class(DOM.PM.impl.ProductImpl).OpenId(..#ProductId)
 	
 	Quit Product
 ]]></Implementation>
Index: DOM/PM/LBXProduct/impl/LBXLadeImpl.cls.xml
===================================================================
diff -u -r29059 -r45507
--- DOM/PM/LBXProduct/impl/LBXLadeImpl.cls.xml	(.../LBXLadeImpl.cls.xml)	(revision 29059)
+++ DOM/PM/LBXProduct/impl/LBXLadeImpl.cls.xml	(.../LBXLadeImpl.cls.xml)	(revision 45507)
@@ -11,7 +11,7 @@
 <Private>1</Private>
 </Property>
 
-<Method name="%OnNew">
+<Method name="Open">
 <FormalSpec>ProductNummer:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
Index: vhUnitTest/DOM/PM/TBXProduct/impl/TBXLadeImpl/BaseRug.cls.xml
===================================================================
diff -u -r44215 -r45507
--- vhUnitTest/DOM/PM/TBXProduct/impl/TBXLadeImpl/BaseRug.cls.xml	(.../BaseRug.cls.xml)	(revision 44215)
+++ vhUnitTest/DOM/PM/TBXProduct/impl/TBXLadeImpl/BaseRug.cls.xml	(.../BaseRug.cls.xml)	(revision 45507)
@@ -12,8 +12,7 @@
 	#dim RugProductIDX35 As %String = "851568"
 	Do ..ZetRugProductInPRBS(..#ProductID,RugProductIDX35)
 	
-	Set TBX = ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).%New(..#ProductID)
-	Quit TBX
+	Quit ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).OpenId(..#ProductID)
 ]]></Implementation>
 </Method>
 
@@ -25,8 +24,7 @@
 	#dim RugProductIDX40 As %String = "890065"
 	Do ..ZetRugProductInPRBS(..#ProductID,RugProductIDX40)
 	
-	Set TBX = ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).%New(..#ProductID)
-	Quit TBX
+	Quit ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).OpenId(..#ProductID)
 ]]></Implementation>
 </Method>
 
@@ -38,8 +36,7 @@
 	#dim RugProductIDNormaal As %String = "568111"
 	Do ..ZetRugProductInPRBS(..#ProductID,RugProductIDNormaal)
 	
-	Set TBX = ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).%New(..#ProductID)
-	Quit TBX
+	Quit ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).OpenId(..#ProductID)
 ]]></Implementation>
 </Method>
 
@@ -51,9 +48,7 @@
 	#dim RugProductIDNormaal As %String = "568111"
 	
 	Do ..ZetRugProductSpoelbakInPRBS(..#ProductID,RugProductIDNormaal)	
-	Set TBX = ##class(DOM.PM.TBXProduct.impl.TBXSpoelbakladeType2).%New(..#ProductID)
-	
-	Quit TBX
+	Quit ##class(DOM.PM.TBXProduct.impl.TBXSpoelbakladeType2).OpenId(..#ProductID)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/impl/ProductImpl.cls.xml
===================================================================
diff -u -r35039 -r45507
--- DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 35039)
+++ DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 45507)
@@ -16,14 +16,36 @@
 <Private>1</Private>
 </Property>
 
+<Method name="OpenId">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductId:%Integer</FormalSpec>
+<ReturnType>DOM.PM.impl.ProductImpl</ReturnType>
+<Implementation><![CDATA[
+	set Product = ..%New()
+	do Product.Open(ProductId)
+	Quit Product
+]]></Implementation>
+</Method>
+
 <Method name="%OnNew">
-<FormalSpec>ProductID:%Integer</FormalSpec>
+<FormalSpec>ProductId:%Integer=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	do:$length(ProductId) ##class(TECH.Exceptions.IllegalUsageException).Throw("Momenteel niet toegelaten om producten te verkrijgen via deze manier -> Via OpenId gaan")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Open">
+<FormalSpec>ProductId:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
 	#dim Status = $$$OK
-	Set ..Product = $zobjClassMethod(..#DataMProductImpl,"%New",ProductID)
+	Set ..Product = $zobjClassMethod(..#DataMProductImpl,"%New",ProductId)
 	If ('$IsObject(..Product)){
 		Set Status = $$$ERROR("Geen bestaand product.")
 	}
Index: vhUnitTest/DOM/PM/MaatwerkProduct/GeefHalffabItemsBoom/Test.cls.xml
===================================================================
diff -u -r31507 -r45507
--- vhUnitTest/DOM/PM/MaatwerkProduct/GeefHalffabItemsBoom/Test.cls.xml	(.../Test.cls.xml)	(revision 31507)
+++ vhUnitTest/DOM/PM/MaatwerkProduct/GeefHalffabItemsBoom/Test.cls.xml	(.../Test.cls.xml)	(revision 45507)
@@ -53,7 +53,7 @@
 		quit $Classmethod(ClassName,"%New",IKID, BerekeningSpecificatie)
 	}
 	
-	quit $Classmethod(ClassName,"%New",..GeefProductID(ClassName))
+	quit $Classmethod(ClassName,"OpenId",..GeefProductID(ClassName))
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml
===================================================================
diff -u -r45106 -r45507
--- DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 45106)
+++ DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 45507)
@@ -626,7 +626,7 @@
 		Set RelingBouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_"PRRL.001")
 		Set RelingProduct = RelingBouwsteen.KindProduct
 		Set RelingProductNummer = RelingProduct.ProductNr
-		Set ..Reling = ##class(DOM.PM.TBXProduct.impl.TBXRelingImpl).%New(RelingProductNummer)
+		Set ..Reling = ##class(DOM.PM.TBXProduct.impl.TBXRelingImpl).OpenId(RelingProductNummer)
 	}
 	Quit ..Reling
 ]]></Implementation>
@@ -799,7 +799,7 @@
 			Set AdapterBouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||PRRLADAPT.001")
 			Set RelingProduct = AdapterBouwsteen.KindProduct
 			Set RelingProductNummer = RelingProduct.ProductNr
-			Set ..TussenReling = ##class(DOM.PM.TBXProduct.impl.TBXRelingImpl).%New(RelingProductNummer)
+			Set ..TussenReling = ##class(DOM.PM.TBXProduct.impl.TBXRelingImpl).OpenId(RelingProductNummer)
 		}
 		Else
 		{
Index: APPS/PM/Maatwerk/impl/BerekeningServiceProduct/TbxHelper.cls.xml
===================================================================
diff -u -r39836 -r45507
--- APPS/PM/Maatwerk/impl/BerekeningServiceProduct/TbxHelper.cls.xml	(.../TbxHelper.cls.xml)	(revision 39836)
+++ APPS/PM/Maatwerk/impl/BerekeningServiceProduct/TbxHelper.cls.xml	(.../TbxHelper.cls.xml)	(revision 45507)
@@ -43,7 +43,7 @@
 	Do blTBox.Initialize($LG(..WebOrder.DCsFromLijnen(),1))
 	#dim ProductID As %String = $List(blTBox.BuildFromWS(..WebOrder,"PRS=1;SAV=0;KPR=1"),1)
 	
-	Quit ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).%New(ProductID)
+	Quit ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).OpenId(ProductID)
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/impl/MaatwerkProductImpl.cls.xml
===================================================================
diff -u -r30977 -r45507
--- DOM/PM/impl/MaatwerkProductImpl.cls.xml	(.../MaatwerkProductImpl.cls.xml)	(revision 30977)
+++ DOM/PM/impl/MaatwerkProductImpl.cls.xml	(.../MaatwerkProductImpl.cls.xml)	(revision 45507)
@@ -21,7 +21,7 @@
 <Private>1</Private>
 </Property>
 
-<Method name="%OnNew">
+<Method name="Open">
 <FormalSpec>ProductID:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
Index: vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepaler/ProductieOpstartfaseBepalerTBX/IsInOpstartfase/Test.cls.xml
===================================================================
diff -u -r45069 -r45507
--- vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepaler/ProductieOpstartfaseBepalerTBX/IsInOpstartfase/Test.cls.xml	(.../Test.cls.xml)	(revision 45069)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepaler/ProductieOpstartfaseBepalerTBX/IsInOpstartfase/Test.cls.xml	(.../Test.cls.xml)	(revision 45507)
@@ -42,7 +42,7 @@
 
 <Method name="Test TBXLade Sifon type 3 is momenteel in Opstartfase">
 <Implementation><![CDATA[
-	Set TBXLadeStub = ##class(DOM.PM.TBXProduct.impl.TBXSifonladeType3).%New(..#ProductID)
+	#dim TBXLadeStub As DOM.PM.TBXProduct.impl.TBXSifonladeType3 = ##class(DOM.PM.TBXProduct.impl.TBXSifonladeType3).OpenId(..#ProductID)
 
 	#dim VerwachtInOpstartfase As %Boolean = $$$True
 	Do ..AssertProductieOpstartfase(TBXLadeStub, VerwachtInOpstartfase)
Index: DOM/PM/impl/ProductTypeAPIimpl.cls.xml
===================================================================
diff -u -r44613 -r45507
--- DOM/PM/impl/ProductTypeAPIimpl.cls.xml	(.../ProductTypeAPIimpl.cls.xml)	(revision 44613)
+++ DOM/PM/impl/ProductTypeAPIimpl.cls.xml	(.../ProductTypeAPIimpl.cls.xml)	(revision 45507)
@@ -46,27 +46,27 @@
 		#dim Klas As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",ProductID,"KLAS"))
 		If ((Klas = ##class(DOM.PM.enu.TBXToepassing).Lade()) || (Klas = ""))
 		{
-			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).%New(ProductID)
+			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).OpenId(ProductID)
 		}
 		Elseif (Klas = ##class(DOM.PM.enu.TBXToepassing).SifonType1())
 		{
-			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXSifonladeType1).%New(ProductID)
+			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXSifonladeType1).OpenId(ProductID)
 		}
 		Elseif (Klas = ##class(DOM.PM.enu.TBXToepassing).SifonType2())
 		{
-			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXSifonladeType2).%New(ProductID)
+			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXSifonladeType2).OpenId(ProductID)
 		}
 		Elseif (Klas = ##class(DOM.PM.enu.TBXToepassing).SifonType3())
 		{
-			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXSifonladeType3).%New(ProductID)
+			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXSifonladeType3).OpenId(ProductID)
 		}
 		Elseif (Klas = ##class(DOM.PM.enu.TBXToepassing).Spoelbak())
 		{
-			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXSpoelbakladeType2).%New(ProductID)
+			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXSpoelbakladeType2).OpenId(ProductID)
 		}
 		Elseif (Klas = ##class(DOM.PM.enu.TBXToepassing).Buro())
 		{
-			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).%New(ProductID) // Er is nog geen speciale klasse voorzien voor buroladen
+			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).OpenId(ProductID) // Er is nog geen speciale klasse voorzien voor buroladen
 		}
 	}
 	
@@ -152,7 +152,7 @@
 <ReturnType>DOM.PM.KADProduct.KADKaderdeur</ReturnType>
 <Implementation><![CDATA[
 	If ('..IsKaderdeurProduct(ProductID)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Product "_ProductID_" is geen kaderdeur"))
-	Quit ##class(DOM.PM.KADProduct.impl.KADKaderdeurImpl).%New(ProductID)
+	Quit ##class(DOM.PM.KADProduct.impl.KADKaderdeurImpl).OpenId(ProductID)
 ]]></Implementation>
 </Method>
 
@@ -254,7 +254,7 @@
 <ReturnType>DOM.PM.TAORProduct.TAORLade</ReturnType>
 <Implementation><![CDATA[
 	If ('..IsTAORboxProduct(ProductID)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Product "_ProductID_" is geen TAORbox"))
-	Quit ##class(DOM.PM.TAORProduct.impl.TAORLadeImpl).%New(ProductID)
+	Quit ##class(DOM.PM.TAORProduct.impl.TAORLadeImpl).OpenId(ProductID)
 ]]></Implementation>
 </Method>
 
@@ -263,7 +263,7 @@
 <ReturnType>DOM.PM.LBXProduct.LBXLade</ReturnType>
 <Implementation><![CDATA[
 	If ('..IsLegraboxProduct(ProductID)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Product "_ProductID_" is geen TAORbox"))
-	Quit ##class(DOM.PM.LBXProduct.impl.LBXLadeImpl).%New(ProductID)
+	Quit ##class(DOM.PM.LBXProduct.impl.LBXLadeImpl).OpenId(ProductID)
 ]]></Implementation>
 </Method>
 
@@ -287,11 +287,11 @@
 	#dim Antislipmat As DOM.PM.ASMProduct.ASMAntislipmat = ""
 	If (GenType = "DIV\ASM")
 	{
-		Set Antislipmat = ##class(DOM.PM.ASMProduct.impl.ASMAntislipmatImpl).%New(ProductID)
+		Set Antislipmat = ##class(DOM.PM.ASMProduct.impl.ASMAntislipmatImpl).OpenId(ProductID)
 	}
 	ElseIf ($Extract($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",ProductID,"BasisType")),1,3) = "MAT")
 	{
-		Set Antislipmat = ##class(DOM.PM.ASMProduct.impl.TBXAntislipmatImpl).%New(ProductID)
+		Set Antislipmat = ##class(DOM.PM.ASMProduct.impl.TBXAntislipmatImpl).OpenId(ProductID)
 	}
 	Else
 	{
@@ -326,7 +326,7 @@
 		if '..IsMaatwerkProduct(ProductID) {
 			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Product "_ProductID_" is geen maatwerkproduct"))
 		}
-		set MaatwerkProductImpl = ##class(DOM.PM.impl.MaatwerkProductImpl).%New(ProductID)
+		set MaatwerkProductImpl = ##class(DOM.PM.impl.MaatwerkProductImpl).OpenId(ProductID)
 	}
 	quit MaatwerkProductImpl
 ]]></Implementation>
@@ -390,7 +390,7 @@
 <ReturnType>DOM.PM.OLProduct.OLProduct</ReturnType>
 <Implementation><![CDATA[
 	If '..IsOrgaluxProduct(ProductID) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Product "_ProductID_" is geen orgalux product"))
-	Quit ##class(DOM.PM.OLProduct.impl.OLProductImpl).%New(ProductID)
+	Quit ##class(DOM.PM.OLProduct.impl.OLProductImpl).OpenId(ProductID)
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/impl/ProductAPI.cls.xml
===================================================================
diff -u -r30265 -r45507
--- DOM/PM/impl/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 30265)
+++ DOM/PM/impl/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 45507)
@@ -34,7 +34,7 @@
 		}
 		ElseIf (GenType = "TBX\HKS") || (GenType = "TBX\BBX")
 		{
-			Set Product = ##class(DOM.PM.impl.MaatwerkProductImpl).%New(ProductID)
+			Set Product = ##class(DOM.PM.impl.MaatwerkProductImpl).OpenId(ProductID)
 		}
 		ElseIf (ProductTypeAPI.IsTAORboxProduct(ProductID))
 		{
@@ -48,7 +48,7 @@
 		{
 			If (ProductTypeAPI.IsDwarslatOpMaat(ProductID)) // orgalux dwarslat op maat classificatie
 			{
-				Set Product = ##class(DOM.PM.impl.MaatwerkProductImpl).%New(ProductID)
+				Set Product = ##class(DOM.PM.impl.MaatwerkProductImpl).OpenId(ProductID)
 			}
 			Else
 			{
@@ -64,43 +64,43 @@
 			#dim BasisType As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",ProductID,"BasisType"))
 			If (BasisType = "RUGH")
 			{
-				Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRughouderImpl).%New(ProductID)
+				Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRughouderImpl).OpenId(ProductID)
 			}
 			ElseIf (##class(TECH.StringUtils).StartsWith(BasisType,"RUG"))
 			{
 				If (BasisType [ "RUGSTRK")  // Bij problemen eventueel beter : ... ? 1(1"RL",1"RLH",1"RLTUS",1"FRONTRL")   OPM: "RLALU" is geen reling maar een adapter-stukje 
 				{
-					Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRugStrookImpl).%New(ProductID)
+					Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRugStrookImpl).OpenId(ProductID)
 				} 
 				Else
 				{
-					Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRugOpMaatImpl).%New(ProductID)
+					Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRugOpMaatImpl).OpenId(ProductID)
 				}
 			}
 			ElseIf (BasisType [ "RL")  // Bij problemen eventueel beter : ... ? 1(1"RL",1"RLH",1"RLTUS",1"FRONTRL")   OPM: "RLALU" is geen reling maar een adapter-stukje 
 			{
-				Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRelingImpl).%New(ProductID)
+				Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRelingImpl).OpenId(ProductID)
 			}
 			ElseIf (BasisType [ "BODEM")
 			{
 				If (BasisType [ "BODEMSTRK")
 				{
-					Set Product = ##class(DOM.PM.TBXProduct.impl.TBXBodemStrookImpl).%New(ProductID)
+					Set Product = ##class(DOM.PM.TBXProduct.impl.TBXBodemStrookImpl).OpenId(ProductID)
 				} 
 				Else
 				{
-					Set Product = ##class(DOM.PM.TBXProduct.impl.TBXBodemOpMaatImpl).%New(ProductID)
+					Set Product = ##class(DOM.PM.TBXProduct.impl.TBXBodemOpMaatImpl).OpenId(ProductID)
 				}
 			}
 			ElseIf (##class(TECH.StringUtils).StartsWith(BasisType,"LA"))
 			{
-				Set Product = ##class(DOM.PM.TBXProduct.impl.TBXZijkantImpl).%New(ProductID)
+				Set Product = ##class(DOM.PM.TBXProduct.impl.TBXZijkantImpl).OpenId(ProductID)
 			}
 		}
 	
 		If ('$IsObject(Product))
 		{
-			Set Product = ##class(DOM.PM.impl.ProductImpl).%New(ProductID)
+			Set Product = ##class(DOM.PM.impl.ProductImpl).OpenId(ProductID)
 		}
 	}
 	
Index: DOM/PM/TAORProduct/impl/TAORLadeImpl.cls.xml
===================================================================
diff -u -r29059 -r45507
--- DOM/PM/TAORProduct/impl/TAORLadeImpl.cls.xml	(.../TAORLadeImpl.cls.xml)	(revision 29059)
+++ DOM/PM/TAORProduct/impl/TAORLadeImpl.cls.xml	(.../TAORLadeImpl.cls.xml)	(revision 45507)
@@ -11,7 +11,7 @@
 <Private>1</Private>
 </Property>
 
-<Method name="%OnNew">
+<Method name="Open">
 <FormalSpec>ProductNummer:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
Index: zTryout/JBL/KostDumper.cls.xml
===================================================================
diff -u -r39812 -r45507
--- zTryout/JBL/KostDumper.cls.xml	(.../KostDumper.cls.xml)	(revision 39812)
+++ zTryout/JBL/KostDumper.cls.xml	(.../KostDumper.cls.xml)	(revision 45507)
@@ -7,7 +7,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ProductID:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set LadeImpl = ##class(DOM.PM.LBXProduct.impl.LBXLadeImpl).%New(ProductID)
+	Set LadeImpl = ##class(DOM.PM.LBXProduct.impl.LBXLadeImpl).OpenId(ProductID)
 	#dim IK As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = LadeImpl.GeefProductSpecificatie().GeefIngegevenKenmerken()
 	
 	set BerekeningService = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()