Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml
===================================================================
diff -u -r64457 -r64463
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(.../ProductIdRecycleerder.cls.xml)	(revision 64457)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(.../ProductIdRecycleerder.cls.xml)	(revision 64463)
@@ -38,7 +38,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim ProductId As %String = ""
-	
+	#dim AantalVrijePlaatsenInRangeVolgensLadeVariant As %Integer
 	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = ..LadeVariantBepaler.Bepaal("", Request.Attribute)
 	
 	If (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).LBX()) {
@@ -53,37 +53,50 @@
 		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
+	Set AantalVrijePlaatsenInRangeVolgensLadeVariant = ..GeefAantalVrijePlaatsenInRangeVolgensLadeVariant(LadeVariant)
+	If (AantalVrijePlaatsenInRangeVolgensLadeVariant <= 5) {
+		// Error-logging
+	} ElseIf (AantalVrijePlaatsenInRangeVolgensLadeVariant <= 10) {
+		// Warning-logging
+	}
 	
 	Quit ProductId
 ]]></Implementation>
 </Method>
 
 <Method name="PersisteerRanges">
-<Description>
+<Description><![CDATA[
 Opzet van dedicated Global waarin wordt bijgehouden welke ProductId's op dat moment in gebruik zijn.
-Dit forceert ook dat alle ProductId's in de range per direct weer beschikbaar worden voor de ProductIdRecycleerder. Wees zeker dat er niet 1 ècht in gebruik is op dat moment!!!</Description>
+Voor uitbreiding van range(s) (dus met ForceerVolledigeReset op False (= default)) => enkel persistering onbestaande subscripts.
+Voor volledige reset (dus met ForceerVolledigeReset op True) => Dit forceert dat ALLE (ook reeds bestaande die in gebruik zijn) ProductId's in de range weer vrijgegeven worden voor de ProductIdRecycleerder. USE WITH CARE !!!]]></Description>
+<FormalSpec>ForceerVolledigeReset:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
-	Do ..PersisteerRange(##class(AXimpl.PM.enu.LadeVariant).LBX())
-	Do ..PersisteerRange(##class(AXimpl.PM.enu.LadeVariant).MVX())
-	Do ..PersisteerRange(##class(AXimpl.PM.enu.LadeVariant).TAX())
-	Do ..PersisteerRange(##class(AXimpl.PM.enu.LadeVariant).TBX())
+	Do ..PersisteerRange(##class(AXimpl.PM.enu.LadeVariant).LBX(), ForceerVolledigeReset)
+	Do ..PersisteerRange(##class(AXimpl.PM.enu.LadeVariant).MVX(), ForceerVolledigeReset)
+	Do ..PersisteerRange(##class(AXimpl.PM.enu.LadeVariant).TAX(), ForceerVolledigeReset)
+	Do ..PersisteerRange(##class(AXimpl.PM.enu.LadeVariant).TBX(), ForceerVolledigeReset)
 ]]></Implementation>
 </Method>
 
 <Method name="PersisteerRange">
-<Description>
+<Description><![CDATA[
 Opzet van dedicated Global waarin wordt bijgehouden welke ProductId's op dat moment in gebruik zijn.
-Dit forceert ook dat alle ProductId's in de range per direct weer beschikbaar worden voor de ProductIdRecycleerder. Wees zeker dat er niet 1 ècht in gebruik is op dat moment!!!</Description>
-<FormalSpec>LadeVariant:AXimpl.PM.enu.LadeVariant</FormalSpec>
+Voor uitbreiding van range(s) (dus met ForceerVolledigeReset op False (= default)) => enkel persistering onbestaande subscripts.
+Voor volledige reset (dus met ForceerVolledigeReset op True) => Dit forceert dat ALLE (ook reeds bestaande die in gebruik zijn) ProductId's in de range weer vrijgegeven worden voor de ProductIdRecycleerder. USE WITH CARE !!!]]></Description>
+<FormalSpec>LadeVariant:AXimpl.PM.enu.LadeVariant,ForceerVolledigeReset:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
 	#dim ProductId As %String
 	#dim Range As %String = ..GeefRangeVolgensLadeVariant(LadeVariant)
 	
 	Set RangeIterator = ##class(TECH.StringIterator).%New(Range, ",")
 	While RangeIterator.HasNext() {
 		Set ProductId = RangeIterator.Next()
-		Set ^ProductIdRecycle(LadeVariant,ProductId) = 0
+		
+		If ForceerVolledigeReset {
+			Set ^ProductIdRecycle(LadeVariant,ProductId) = 0
+		} ElseIf ($$$Not($Data(^ProductIdRecycle(LadeVariant,ProductId)))) {
+			Set ^ProductIdRecycle(LadeVariant,ProductId) = 0
+		}
 	}
 ]]></Implementation>
 </Method>
@@ -158,21 +171,21 @@
 	#dim LadeVariant As AXimpl.PM.enu.LadeVariant
 	#dim RangeLijst As %ListOfDataTypes
 	
-	Set RangeLijst = ##class(TECH.ListUtils).PiecesToList(..GeefLbxRange(), ",")
+	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 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 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 RangeLijst = ##class(TECH.ListUtils).PiecesToList(..GeefTBXRange(), ",")
 		Set LadeVariant = $$$If(##class(TECH.ListUtils).Contains(RangeLijst, ProductId), ##class(AXimpl.PM.enu.LadeVariant).TBX(), "")
 	}
 	
@@ -212,20 +225,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAantalVrijePlaatsenInRangeVolgensLadeVariant">
+<FormalSpec>LadeVariant:AXimpl.PM.enu.LadeVariant</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim RangeLijst As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList($Method($this, "Geef" _ LadeVariant _ "Range"), ",")
+	#dim AantalVrijePlaatsenInRangeVolgensLadeVariant As %Integer = RangeLijst.Count()
+	#dim ProductId As %String
+	
+	Set RangeIterator = ##class(TECH.StringIterator).%New($Method($this, "Geef" _ LadeVariant _ "Range"), ",")
+	While (RangeIterator.HasNext()) {
+		Set ProductId = RangeIterator.Next()
+		If (($Data(^ProductIdRecycle(LadeVariant,ProductId))) && (^ProductIdRecycle(LadeVariant,ProductId) = 1)) {
+			Set AantalVrijePlaatsenInRangeVolgensLadeVariant = AantalVrijePlaatsenInRangeVolgensLadeVariant - 1
+		}
+	}
+	
+	Quit AantalVrijePlaatsenInRangeVolgensLadeVariant
+]]></Implementation>
+</Method>
+
 <Method name="GeefRangeVolgensLadeVariant">
 <FormalSpec>LadeVariant:AXimpl.PM.enu.LadeVariant</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Range As %String
 	
 	If (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).LBX()) {
-		Set Range = ..GeefLbxRange()
+		Set Range = ..GeefLBXRange()
 	} ElseIf (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).MVX()) {
-		Set Range = ..GeefMvxRange()
+		Set Range = ..GeefMVXRange()
 	} ElseIf (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).TAX()) {
-		Set Range = ..GeefTaxRange()
+		Set Range = ..GeefTAXRange()
 	} ElseIf (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).TBX()) {
-		Set Range = ..GeefTbxRange()
+		Set Range = ..GeefTBXRange()
 	} Else {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Onbekende LadeVariant: '"_LadeVariant_"' "))
 	}
@@ -234,28 +267,28 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLbxRange">
+<Method name="GeefLBXRange">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit "3027,3028,3029,3030,3031,3032,3033,3034,3035,3036,3037,3038,3039,3040,3041,3042,3043,3044,3045,3046,3047,3048,3049,3050,3051,3052,3053,3054,3055,3056"
 ]]></Implementation>
 </Method>
 
-<Method name="GeefMvxRange">
+<Method name="GeefMVXRange">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit "3057,3058,3059,3060,3061,3062,3063,3064,3065,3066,3067,3068,3069,3070,3071,3072,3073,3074,3075,3076,3077,3078,3079,3080,3081,3082,3083,3084,3085,3086"
 ]]></Implementation>
 </Method>
 
-<Method name="GeefTaxRange">
+<Method name="GeefTAXRange">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit "3087,3088,3089,3090,3091,3092,3093,3094,3095,3096,3097,3098,3099,3100,3101,3102,3103,3104,3105,3106,3107,3108,3109,3110,3111,3112,3113,3114,3115,3116"
 ]]></Implementation>
 </Method>
 
-<Method name="GeefTbxRange">
+<Method name="GeefTBXRange">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit "3117,3118,3119,3120,3121,3122,3123,3124,3125,3126,3127,3128,3129,3130,3131,3132,3133,3134,3135,3136,3137,3138,3139,3140,3141,3142,3143,3144,3145,3146"
Index: vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml
===================================================================
diff -u -r64457 -r64463
--- vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(.../ProductIdRecycleerder.cls.xml)	(revision 64457)
+++ vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(.../ProductIdRecycleerder.cls.xml)	(revision 64463)
@@ -40,13 +40,14 @@
 </Method>
 
 <Method name="PersisteerRange">
-<FormalSpec>LadeVariant:AXimpl.PM.enu.LadeVariant</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("PersisteerRange",LadeVariant)
+<FormalSpec>LadeVariant:AXimpl.PM.enu.LadeVariant,ForceerVolledigeReset:%Boolean=0</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("PersisteerRange",LadeVariant,ForceerVolledigeReset)
 ]]></Implementation>
 </Method>
 
 <Method name="PersisteerRanges">
-<Implementation><![CDATA[	do ..VerwerkMethodCall("PersisteerRanges")
+<FormalSpec>ForceerVolledigeReset:%Boolean=0</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("PersisteerRanges",ForceerVolledigeReset)
 ]]></Implementation>
 </Method>
 </Class>