Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml
===================================================================
diff -u -r64463 -r64468
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(.../ProductIdRecycleerder.cls.xml)	(revision 64463)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(.../ProductIdRecycleerder.cls.xml)	(revision 64468)
@@ -3,6 +3,28 @@
 <Class name="WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.ProductIdRecycleerder">
 <Super>TECH.Mockable</Super>
 
+<Parameter name="GlobalNaam">
+<Default>^ProductIdRecycle</Default>
+</Parameter>
+
+<Parameter name="LbxRange">
+<Description>
+HET UITBREIDEN VAN EEN RANGE KAN DOOR SIMPELWEG AAN ONDERSTAANDE PARAMETERS TOE TE VOEGEN. OPGELET: WEES ZEKER DAT TOEVOEGINGEN ONGEBRUIKTE PRNs ZIJN !!! Gebruik eventueel lokale method BestaatProduct("PRNr").</Description>
+<Default>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</Default>
+</Parameter>
+
+<Parameter name="MvxRange">
+<Default>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</Default>
+</Parameter>
+
+<Parameter name="TaxRange">
+<Default>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</Default>
+</Parameter>
+
+<Parameter name="TbxRange">
+<Default>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</Default>
+</Parameter>
+
 <Property name="LadeVariantBepaler">
 <Type>WSimpl.AX.CalculatedProduct.LadeVariantBepaler</Type>
 <Private>1</Private>
@@ -49,8 +71,6 @@
 		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."))
 	}
 	
 	Set AantalVrijePlaatsenInRangeVolgensLadeVariant = ..GeefAantalVrijePlaatsenInRangeVolgensLadeVariant(LadeVariant)
@@ -86,16 +106,18 @@
 <FormalSpec>LadeVariant:AXimpl.PM.enu.LadeVariant,ForceerVolledigeReset:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
 	#dim ProductId As %String
+	#dim GlobalKey As %String
 	#dim Range As %String = ..GeefRangeVolgensLadeVariant(LadeVariant)
 	
 	Set RangeIterator = ##class(TECH.StringIterator).%New(Range, ",")
 	While RangeIterator.HasNext() {
 		Set ProductId = RangeIterator.Next()
+		Set GlobalKey = ..#GlobalNaam_"("""_LadeVariant_""","_ProductId_")"
 		
 		If ForceerVolledigeReset {
-			Set ^ProductIdRecycle(LadeVariant,ProductId) = 0
-		} ElseIf ($$$Not($Data(^ProductIdRecycle(LadeVariant,ProductId)))) {
-			Set ^ProductIdRecycle(LadeVariant,ProductId) = 0
+			Set @GlobalKey = 0
+		} ElseIf ($$$Not($Data(@GlobalKey))) {
+			Set @GlobalKey = 0
 		}
 	}
 ]]></Implementation>
@@ -148,17 +170,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatProduct">
+<Description>
+Check los ProductId of er al een product voor bestaat en rapporteer in Console. Handig bij uitbreidingen van ranges.</Description>
+<FormalSpec>ProductId:%String</FormalSpec>
+<Implementation><![CDATA[
+	If (..ProductApi.BestaatProduct(ProductId)) {
+		Do ..Console.WriteLine("Voor ProductId '"_ ProductId _"' bestaat er al een product. Het is dus NIET vrij om hier aan een range toe te voegen!")
+	} Else {
+		Do ..Console.WriteLine("Voor ProductId '"_ ProductId _"' bestaat er nog geen product. Het is dus WEL vrij om hier aan een range toe te voegen!")
+	}
+]]></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)
+	#dim GlobalKey As %String
 	
 	If ($$$Not($$$HasLength(LadeVariantVanRangeVolgensProductId))) {
 		// Error-logging => ProductId niet gevonden in range om weer vrij te geven!
 	} Else {
-		Set ^ProductIdRecycle(LadeVariantVanRangeVolgensProductId,ProductId) = 0
+		Set GlobalKey = ..#GlobalNaam_"("""_LadeVariantVanRangeVolgensProductId_""","_ProductId_")"
+		Set @GlobalKey = 0
 	}
 ]]></Implementation>
 </Method>
@@ -205,14 +242,16 @@
 	#dim Range As %String = ..GeefRangeVolgensLadeVariant(LadeVariant)
 	#dim IsVrijeProductIdGevonden As %Boolean = $$$False
 	#dim ProductId As %String
+	#dim GlobalKey As %String
 	
 	Set RangeIterator = ##class(TECH.StringIterator).%New(Range, ",")
 	While (RangeIterator.HasNext() && ($$$Not(IsVrijeProductIdGevonden))) {
 		Set ProductId = RangeIterator.Next()
+		Set GlobalKey = ..#GlobalNaam_"("""_LadeVariant_""","_ProductId_")"
 		
-		If (($Data(^ProductIdRecycle(LadeVariant,ProductId))) && (^ProductIdRecycle(LadeVariant,ProductId) = 0)) {
+		If (($Data(@GlobalKey)) && (@GlobalKey = 0)) {
 			Set IsVrijeProductIdGevonden = $$$True
-			Set ^ProductIdRecycle(LadeVariant,ProductId) = 1
+			Set @GlobalKey = 1
 		}
 	}
 	
@@ -231,16 +270,28 @@
 <Implementation><![CDATA[
 	#dim RangeLijst As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList($Method($this, "Geef" _ LadeVariant _ "Range"), ",")
 	#dim AantalVrijePlaatsenInRangeVolgensLadeVariant As %Integer = RangeLijst.Count()
+	#dim AantalNietGepersisteerdeProductIdsInRange As %Integer = 0
 	#dim ProductId As %String
+	#dim GlobalKey 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
+		Set GlobalKey = ..#GlobalNaam_"("""_LadeVariant_""","_ProductId_")"
+		
+		If ($Data(@GlobalKey)) {
+			If (@GlobalKey = 1) {
+				Set AantalVrijePlaatsenInRangeVolgensLadeVariant = AantalVrijePlaatsenInRangeVolgensLadeVariant - 1
+			}
+		} Else {
+			Set AantalNietGepersisteerdeProductIdsInRange = AantalNietGepersisteerdeProductIdsInRange + 1
 		}
 	}
 	
+	If (AantalNietGepersisteerdeProductIdsInRange > 0) {
+		Do ..PersisteerRange(LadeVariant)
+	}
+	
 	Quit AantalVrijePlaatsenInRangeVolgensLadeVariant
 ]]></Implementation>
 </Method>
@@ -270,28 +321,28 @@
 <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><![CDATA[	Quit ..#LbxRange
 ]]></Implementation>
 </Method>
 
 <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><![CDATA[	Quit ..#MvxRange
 ]]></Implementation>
 </Method>
 
 <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><![CDATA[	Quit ..#TaxRange
 ]]></Implementation>
 </Method>
 
 <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"
+<Implementation><![CDATA[	Quit ..#TbxRange
 ]]></Implementation>
 </Method>
 </Class>