Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder/Test.cls.xml
===================================================================
diff -u -r64481 -r64483
--- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder/Test.cls.xml	(.../Test.cls.xml)	(revision 64481)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder/Test.cls.xml	(.../Test.cls.xml)	(revision 64483)
@@ -255,6 +255,47 @@
 </Method>
 
 <Method name="Test: GeefProductIdVrij - De ProductId 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 GlobalKeyTweedeProductId As %String = ..#GlobalNaam_"("""_LadeVariant_""",1001)"
+	#dim GlobalKeyDerdeProductId As %String = ..#GlobalNaam_"("""_LadeVariant_""",1002)"
+	#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)
+	Do $$$AssertFalse(@GlobalKeyTweedeProductId)
+	Do $$$AssertFalse(@GlobalKeyDerdeProductId)
+	Set ProductId = ..ProductIdRecycleerder.GeefTeRecyclerenProductId(Request)
+	Do $$$AssertEquals(ProductId, "1000")
+	Do $$$AssertTrue(@GlobalKeyEersteProductId)
+	Do $$$AssertFalse(@GlobalKeyTweedeProductId)
+	Do $$$AssertFalse(@GlobalKeyDerdeProductId)
+	Set ProductId = ..ProductIdRecycleerder.GeefTeRecyclerenProductId(Request)
+	Do $$$AssertEquals(ProductId, "1001")
+	Do $$$AssertTrue(@GlobalKeyEersteProductId)
+	Do $$$AssertTrue(@GlobalKeyTweedeProductId)
+	Do $$$AssertFalse(@GlobalKeyDerdeProductId)
+	Set ProductId = ..ProductIdRecycleerder.GeefTeRecyclerenProductId(Request)
+	Do $$$AssertEquals(ProductId, "1002")
+	Do $$$AssertTrue(@GlobalKeyEersteProductId)
+	Do $$$AssertTrue(@GlobalKeyTweedeProductId)
+	Do $$$AssertTrue(@GlobalKeyDerdeProductId)
+	Do ..ProductIdRecycleerder.GeefProductIdVrij("1001")
+	Do $$$AssertTrue(@GlobalKeyEersteProductId)
+	Do $$$AssertFalse(@GlobalKeyTweedeProductId)
+	Do $$$AssertTrue(@GlobalKeyDerdeProductId)
+	Set ProductId = ..ProductIdRecycleerder.GeefTeRecyclerenProductId(Request)
+	Do $$$AssertEquals(ProductId, "1001")
+	Do $$$AssertTrue(@GlobalKeyEersteProductId)
+	Do $$$AssertTrue(@GlobalKeyTweedeProductId)
+	Do $$$AssertTrue(@GlobalKeyDerdeProductId)
+]]></Implementation>
 </Method>
 
 <Method name="Test: GeefTeRecyclerenProductId - Sequentie over LadeVarianten heen met tussendoor uitbreiding van ranges">