Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder/Test.cls.xml
===================================================================
diff -u -r64478 -r64481
--- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder/Test.cls.xml	(.../Test.cls.xml)	(revision 64478)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder/Test.cls.xml	(.../Test.cls.xml)	(revision 64481)
@@ -154,9 +154,104 @@
 </Method>
 
 <Method name="Test: PersisteerRange - Breidt de gepersisteerde range uit volgens de hardcoded range, indien nodig">
+<Implementation><![CDATA[
+	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).LBX()
+	#dim LaatsteGlobalKeyVoordien As %String = ..#GlobalNaam_"("""_LadeVariant_""",1005)"
+	#dim LaatsteGlobalKeyNadien As %String = ..#GlobalNaam_"("""_LadeVariant_""",1006)"
+	
+	Set ..ProductIdRecycleerder.LbxRange = "1000,1001,1002,1003,1004,1005"
+	Do ..ProductIdRecycleerder.PersisteerRange(LadeVariant)
+	Do $$$AssertTrue($Data(@LaatsteGlobalKeyVoordien))
+	Do $$$AssertFalse($Data(@LaatsteGlobalKeyNadien))
+	
+	Set ..ProductIdRecycleerder.LbxRange = "1000,1001,1002,1003,1004,1005,1006"
+	Do ..ProductIdRecycleerder.PersisteerRange(LadeVariant)
+	Do $$$AssertTrue($Data(@LaatsteGlobalKeyVoordien))
+	Do $$$AssertTrue($Data(@LaatsteGlobalKeyNadien))
+]]></Implementation>
 </Method>
 
+<Method name="Test: PersisteerRange - Uitbreiding wordt automatisch getriggerd na elke opvraging van een ProductId">
+<Implementation><![CDATA[
+	#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ..GeefRequest()
+	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).LBX()
+	#dim LaatsteGlobalKeyVoordien As %String = ..#GlobalNaam_"("""_LadeVariant_""",1005)"
+	#dim LaatsteGlobalKeyNadien As %String = ..#GlobalNaam_"("""_LadeVariant_""",1006)"
+	#dim ProductId As %String
+	
+	Do ..LadeVariantBepaler.IndienMethodCall("Bepaal", "", Request.Attribute).DanReturn(LadeVariant)
+	
+	Set ..ProductIdRecycleerder.LbxRange = "1000,1001,1002,1003,1004,1005"
+	Do ..ProductIdRecycleerder.PersisteerRange(LadeVariant)
+	Do $$$AssertTrue($Data(@LaatsteGlobalKeyVoordien))
+	Do $$$AssertFalse($Data(@LaatsteGlobalKeyNadien))
+	
+	Set ..ProductIdRecycleerder.LbxRange = "1000,1001,1002,1003,1004,1005,1006"
+	Set ProductId = ..ProductIdRecycleerder.GeefTeRecyclerenProductId(Request)
+	Do $$$AssertEquals(ProductId, "1000")
+	
+	Do $$$AssertTrue($Data(@LaatsteGlobalKeyVoordien))
+	Do $$$AssertTrue($Data(@LaatsteGlobalKeyNadien))
+]]></Implementation>
+</Method>
+
+<Method name="Test: PersisteerRange - Uitbreiding van de range heeft geen invloed op in gebruik zijn van ProductId&apos;s uit eerdere range">
+<Implementation><![CDATA[
+	#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ..GeefRequest()
+	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).LBX()
+	#dim GlobalKeyEersteProductId As %String = ..#GlobalNaam_"("""_LadeVariant_""",1000)"
+	#dim LaatsteGlobalKeyVoordien As %String = ..#GlobalNaam_"("""_LadeVariant_""",1005)"
+	#dim LaatsteGlobalKeyNadien As %String = ..#GlobalNaam_"("""_LadeVariant_""",1006)"
+	#dim ProductId As %String
+	
+	Do ..LadeVariantBepaler.IndienMethodCall("Bepaal", "", Request.Attribute).DanReturn(LadeVariant)
+	
+	Set ..ProductIdRecycleerder.LbxRange = "1000,1001,1002,1003,1004,1005"
+	Do ..ProductIdRecycleerder.PersisteerRange(LadeVariant)
+	
+	Do $$$AssertFalse(@GlobalKeyEersteProductId)
+	Set ProductId = ..ProductIdRecycleerder.GeefTeRecyclerenProductId(Request)
+	Do $$$AssertEquals(ProductId, "1000")
+	Do $$$AssertTrue(@GlobalKeyEersteProductId)
+	Do $$$AssertTrue($Data(@LaatsteGlobalKeyVoordien))
+	Do $$$AssertFalse($Data(@LaatsteGlobalKeyNadien))
+	
+	Set ..ProductIdRecycleerder.LbxRange = "1000,1001,1002,1003,1004,1005,1006"
+	Do ..ProductIdRecycleerder.PersisteerRange(LadeVariant)
+	
+	Set ProductId = ..ProductIdRecycleerder.GeefTeRecyclerenProductId(Request)
+	Do $$$AssertEquals(ProductId, "1001")
+	Do $$$AssertTrue(@GlobalKeyEersteProductId)
+	Do $$$AssertTrue($Data(@LaatsteGlobalKeyVoordien))
+	Do $$$AssertTrue($Data(@LaatsteGlobalKeyNadien))
+]]></Implementation>
+</Method>
+
 <Method name="Test: PersisteerRange - De 2e parameter ForceerVolledigeReset =&gt; de volledige range wordt weer beschikbaar voor GeefTeRecyclerenProductId">
+<Implementation><![CDATA[
+	#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ..GeefRequest()
+	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).LBX()
+	#dim GlobalKeyEersteProductId As %String = ..#GlobalNaam_"("""_LadeVariant_""",1000)"
+	#dim ForceerVolledigeReset As %Boolean = $$$True
+	#dim ProductId As %String
+	
+	Do ..LadeVariantBepaler.IndienMethodCall("Bepaal", "", Request.Attribute).DanReturn(LadeVariant)
+	
+	Set ..ProductIdRecycleerder.LbxRange = "1000,1001,1002,1003,1004,1005"
+	Do ..ProductIdRecycleerder.PersisteerRange(LadeVariant)
+	
+	Do $$$AssertFalse(@GlobalKeyEersteProductId)
+	Set ProductId = ..ProductIdRecycleerder.GeefTeRecyclerenProductId(Request)
+	Do $$$AssertEquals(ProductId, "1000")
+	Do $$$AssertTrue(@GlobalKeyEersteProductId)
+	
+	Do ..ProductIdRecycleerder.PersisteerRange(LadeVariant, ForceerVolledigeReset)
+	
+	Do $$$AssertFalse(@GlobalKeyEersteProductId)
+	Set ProductId = ..ProductIdRecycleerder.GeefTeRecyclerenProductId(Request)
+	Do $$$AssertEquals(ProductId, "1000")
+	Do $$$AssertTrue(@GlobalKeyEersteProductId)
+]]></Implementation>
 </Method>
 
 <Method name="Test: GeefProductIdVrij - De ProductId wordt weer beschikbaar voor GeefTeRecyclerenProductId">