Index: vhTest/Fake/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml
===================================================================
diff -u -r64451 -r64457
--- vhTest/Fake/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(.../ProductIdRecycleerder.cls.xml)	(revision 64451)
+++ vhTest/Fake/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(.../ProductIdRecycleerder.cls.xml)	(revision 64457)
@@ -18,6 +18,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductIdVrij">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="GeefTeRecyclerenProductId">
 <FormalSpec>Request:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml
===================================================================
diff -u -r64451 -r64457
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(.../ProductIdRecycleerder.cls.xml)	(revision 64451)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(.../ProductIdRecycleerder.cls.xml)	(revision 64457)
@@ -42,17 +42,19 @@
 	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = ..LadeVariantBepaler.Bepaal("", Request.Attribute)
 	
 	If (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).LBX()) {
-		// implementatie
+		Set ProductId = ..GeefEerstvolgendeVrijeProductId(##class(AXimpl.PM.enu.LadeVariant).LBX())
 	} ElseIf (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).MVX()) {
-		
+		Set ProductId = ..GeefEerstvolgendeVrijeProductId(##class(AXimpl.PM.enu.LadeVariant).MVX())
 	} ElseIf (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).TAX()) {
-		
+		Set ProductId = ..GeefEerstvolgendeVrijeProductId(##class(AXimpl.PM.enu.LadeVariant).TAX())
 	} ElseIf (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).TBX()) {
-		
+		Set ProductId = ..GeefEerstvolgendeVrijeProductId(##class(AXimpl.PM.enu.LadeVariant).TBX())
 	} Else {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Onbekende LadeVariant voorzien: '"_LadeVariant_"' in de door AX aangeleverde Kenmerken. De range voor recyclage van een ProductId kan niet bepaald worden."))
 	}
 	
+	// Check op beschikbaarheden ranges => nog genoeg vrij of uitbreiding nodig? => Logging en eventueel mail naar ICT_Meldingen
+	
 	Quit ProductId
 ]]></Implementation>
 </Method>
@@ -133,6 +135,83 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductIdVrij">
+<Description>
+Wordt aangeroepen vanuit WSimpl.AX.CalculatedProduct.RequestConverter om op het einde van de rit het ProductId weer vrij te geven.</Description>
+<FormalSpec>ProductId:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim LadeVariantVanRangeVolgensProductId = ..GeefLadeVariantVanRangeVolgensProductId(ProductId)
+	
+	If ($$$Not($$$HasLength(LadeVariantVanRangeVolgensProductId))) {
+		// Error-logging => ProductId niet gevonden in range om weer vrij te geven!
+	} Else {
+		Set ^ProductIdRecycle(LadeVariantVanRangeVolgensProductId,ProductId) = 0
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeVariantVanRangeVolgensProductId">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXimpl.PM.enu.LadeVariant</ReturnType>
+<Implementation><![CDATA[
+	#dim LadeVariant As AXimpl.PM.enu.LadeVariant
+	#dim RangeLijst As %ListOfDataTypes
+	
+	Set RangeLijst = ##class(TECH.ListUtils).PiecesToList(..GeefLbxRange(), ",")
+	Set LadeVariant = $$$If(##class(TECH.ListUtils).Contains(RangeLijst, ProductId), ##class(AXimpl.PM.enu.LadeVariant).LBX(), "")
+	
+	If ($$$Not($$$HasLength(LadeVariant))) {
+		Set RangeLijst = ##class(TECH.ListUtils).PiecesToList(..GeefMvxRange(), ",")
+		Set LadeVariant = $$$If(##class(TECH.ListUtils).Contains(RangeLijst, ProductId), ##class(AXimpl.PM.enu.LadeVariant).MVX(), "")
+	}
+	
+	If ($$$Not($$$HasLength(LadeVariant))) {
+		Set RangeLijst = ##class(TECH.ListUtils).PiecesToList(..GeefTaxRange(), ",")
+		Set LadeVariant = $$$If(##class(TECH.ListUtils).Contains(RangeLijst, ProductId), ##class(AXimpl.PM.enu.LadeVariant).TAX(), "")
+	}
+	
+	If ($$$Not($$$HasLength(LadeVariant))) {
+		Set RangeLijst = ##class(TECH.ListUtils).PiecesToList(..GeefTbxRange(), ",")
+		Set LadeVariant = $$$If(##class(TECH.ListUtils).Contains(RangeLijst, ProductId), ##class(AXimpl.PM.enu.LadeVariant).TBX(), "")
+	}
+	
+	If ($$$Not($$$HasLength(LadeVariant))) {
+		// Logging => Voor ProductIdRecycleerder gezocht ProductId niet gevonden in de ProductId-ranges die ervoor gereserveerd zijn.
+	}
+	
+	Quit LadeVariant
+]]></Implementation>
+</Method>
+
+<Method name="GeefEerstvolgendeVrijeProductId">
+<FormalSpec>LadeVariant:AXimpl.PM.enu.LadeVariant</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Range As %String = ..GeefRangeVolgensLadeVariant(LadeVariant)
+	#dim IsVrijeProductIdGevonden As %Boolean = $$$False
+	#dim ProductId As %String
+	
+	Set RangeIterator = ##class(TECH.StringIterator).%New(Range, ",")
+	While (RangeIterator.HasNext() && ($$$Not(IsVrijeProductIdGevonden))) {
+		Set ProductId = RangeIterator.Next()
+		
+		If (($Data(^ProductIdRecycle(LadeVariant,ProductId))) && (^ProductIdRecycle(LadeVariant,ProductId) = 0)) {
+			Set IsVrijeProductIdGevonden = $$$True
+			Set ^ProductIdRecycle(LadeVariant,ProductId) = 1
+		}
+	}
+	
+	If ($$$Not(IsVrijeProductIdGevonden)) {
+		Set ProductId = ""
+		// ERROR-LOGGING - RANGE VOLLEDIG VOLZET !!!
+	}
+	
+	Quit ProductId
+]]></Implementation>
+</Method>
+
 <Method name="GeefRangeVolgensLadeVariant">
 <FormalSpec>LadeVariant:AXimpl.PM.enu.LadeVariant</FormalSpec>
 <Private>1</Private>
Index: WSimpl/AX/CalculatedProduct/RequestConverter.cls.xml
===================================================================
diff -u -r58671 -r64457
--- WSimpl/AX/CalculatedProduct/RequestConverter.cls.xml	(.../RequestConverter.cls.xml)	(revision 58671)
+++ WSimpl/AX/CalculatedProduct/RequestConverter.cls.xml	(.../RequestConverter.cls.xml)	(revision 64457)
@@ -72,6 +72,7 @@
 	
 	#dim Product As DOM.PM.Product = ""
 	#dim ProductId As %String = ..GeefAttributeValueTxtVolgensAttributeName(Request.Attribute, "AdminProductNummer")
+	#dim IsSalesPriceBOMAttrVsAdminProdNr As %Boolean = (Request.AttrVsAdminProdNr = "SalesPriceBOM")
 	
 	Try {
 		If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefAttrVsAdminProdNrInBomBol() && (..IsLade(Request))) {
@@ -98,6 +99,10 @@
 		Do ConfigVariant.Attribute.Insert(..GeefAxAttribute("AdminProductNummer", Product.GeefPRNr()))
 	}
 	
+	If IsSalesPriceBOMAttrVsAdminProdNr {
+		// TODO: VRIJGAVE ^ProductIdRecycle via ProductIdRecycleerder !!!
+	}
+	
 	Quit ConfigVariant
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml
===================================================================
diff -u -r64451 -r64457
--- vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(.../ProductIdRecycleerder.cls.xml)	(revision 64451)
+++ vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(.../ProductIdRecycleerder.cls.xml)	(revision 64457)
@@ -26,6 +26,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductIdVrij">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("GeefProductIdVrij",ProductId)
+]]></Implementation>
+</Method>
+
 <Method name="GeefTeRecyclerenProductId">
 <FormalSpec>Request:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest</FormalSpec>
 <ReturnType>%String</ReturnType>