Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder/Test.cls.xml
===================================================================
diff -u -r64528 -r64533
--- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder/Test.cls.xml	(.../Test.cls.xml)	(revision 64528)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder/Test.cls.xml	(.../Test.cls.xml)	(revision 64533)
@@ -337,13 +337,7 @@
 	#dim ProductId As %String = "1001"
 	#dim LoggingDetail As %String
 	
-	// Aangezien we met data werken, waarop iedere instantie van de ProductIdRecycleerder mapt, kunnen we hier, om louter specifieke logging te testen, verschillende instanties gebruiken.
-	// De 1e instantie (die in de property) wordt gebruikt om de data op te zetten, de lokale instantie wordt gebruikt om de specifieke logging hier te testen.
-	// Op die manier vermijden we ook de logging m.b.t. PersisteerRanges en GeefTeRecyclerenProductId hier te moeten voorzien (= elders getest).
-	Do ..ProductIdRecycleerder.PersisteerRanges()
-	Do ..ProductIdRecycleerder.GeefTeRecyclerenProductId(Request) // Geeft ProductId 1000
-	Do ..ProductIdRecycleerder.GeefTeRecyclerenProductId(Request) // Geeft ProductId 1001
-	Do ..ProductIdRecycleerder.GeefTeRecyclerenProductId(Request) // Geeft ProductId 1002
+	Do ..PersisteerRangeEnZetDataOpVoorEersteDrieProductIds(Request)
 	
 	#dim LoggerMock As vhLib.Logger = ##class(vhTest.Mock.vhLib.Logger).%New("ProductIdRecycleerder")
 	Set LoggingDetail = "ProductId '"_ProductId_"' werd weer vrijgegeven voor LadeVariant '"_LadeVariant_"'. "
@@ -367,7 +361,7 @@
 	#dim LoggingDetail As %String
 	
 	#dim LoggerMock As vhLib.Logger = ##class(vhTest.Mock.vhLib.Logger).%New("ProductIdRecycleerder")
-	Set LoggingDetail = "Voor LadeVariant '"_LadeVariant_"' werden van de desbetreffende range (zie: property in ProductIdRecycleerder) alle voorheen nog niet gepersisteerde ProductId's zojuist gepersisteerd (Global "_..#GlobalNaam_"). "
+	Set LoggingDetail = 				"Voor LadeVariant '"_LadeVariant_"' werden van de desbetreffende range (zie: property in ProductIdRecycleerder) alle voorheen nog niet gepersisteerde ProductId's zojuist gepersisteerd (Global "_..#GlobalNaam_"). "
 	Set LoggingDetail = LoggingDetail _ "Bij de eerstvolgende vraag om een ProductId in deze range zullen ze beschikbaar zijn om gebruikt te worden door de ProductIdRecycleerder. "
 	Set LoggingDetail = LoggingDetail _ "Volgende ProductId's werden zopas gepersisteerd: '" _ Range _ "'. "
 	Do LoggerMock.VerwachtMethodCall("Info", "Range gepersisteerd", LoggingDetail)
@@ -386,6 +380,62 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: GeefAantalVrijePlaatsenInRangeVolgensLadeVariant - Check en logging en eventuele vrijgave bij onterecht vastgehouden ProductId&apos;s op basis van timestamp in data">
+<Implementation><![CDATA[
+	// Nota: Deze check gebeurt automatisch na het opvragen van GeefTeRecyclerenProductId.
+	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).LBX()
+	#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ..GeefRequest(LadeVariant)
+	#dim Range As %String = ..ProductIdRecycleerder.LbxRange
+	#dim LoggerMock As vhLib.Logger
+	#dim ProductId As %String
+	#dim VerwachteProductId As %String
+	#dim VerwachteAantalOnbenut As %Integer
+	#dim LoggingDetail As %String
+	#dim AantalSecondenInVerleden As %Integer
+	
+	Do ..PersisteerRangeEnZetDataOpVoorEersteDrieProductIds(Request)
+	Do ..AssertGlobalKeys(111000)
+	
+	Set AantalSecondenInVerleden = 3600
+	Do ..ZetTimestampInDataVanProductId1001(AantalSecondenInVerleden) // 1 uur oud => Geen vrijgave, geen logging!
+	
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New("ProductIdRecycleerder")
+	Set VerwachteProductId = "1003"
+	Set VerwachteAantalOnbenut = 2
+	Do ..DoGeefTeRecyclerenProductIdEnAssertLoggingSchaarsteInRange(VerwachteProductId, VerwachteAantalOnbenut, Range, LoggerMock)
+	Do ..AssertGlobalKeys(111100)
+	
+	Set AantalSecondenInVerleden = 3601
+	Do ..ZetTimestampInDataVanProductId1001(AantalSecondenInVerleden) // > 1 uur oud => Automatische vrijgave en logging!
+	
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New("ProductIdRecycleerder") // P.s.: Nieuwe instantie omdat VerwachtMethodCall niet overschreven mag worden volgens het Mocking framework.
+	Set LoggingDetail = "ProductId '1001' werd weer vrijgegeven voor LadeVariant '"_LadeVariant_"'. "
+	Do LoggerMock.VerwachtMethodCall("Info", "GeefProductIdVrij", LoggingDetail)
+	
+	Set LoggingDetail = "ProductId '1001' werd al langer dan een uur (onterecht) vastgehouden en is bij deze automatisch terug vrijgegeven voor hergebruik. "
+	Do LoggerMock.VerwachtMethodCall("Info", "Geblokkeerde ProductId vrijgegeven", LoggingDetail)
+	
+	Do ..AssertGlobalKeys(111100)
+	Set VerwachteProductId = "1004"
+	Set VerwachteAantalOnbenut = 2
+	Do ..DoGeefTeRecyclerenProductIdEnAssertLoggingSchaarsteInRange(VerwachteProductId, VerwachteAantalOnbenut, Range, LoggerMock)
+	Do ..AssertGlobalKeys(101110) // 1001 werd terug vrijgegeven.
+	
+	Set @..#GlobalNaam("LBX",1003) = 1 // 2e piece met timestamp doelbewust verwijderd om error-logging te testen...
+	
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New("ProductIdRecycleerder") // P.s.: Nieuwe instantie omdat VerwachtMethodCall niet overschreven mag worden volgens het Mocking framework.
+	Set LoggingDetail = 				"ProductId '1003' is in gebruik, maar de timestamp die het moment van uitbesteding ervan weergeeft ontbreekt. "
+	Set LoggingDetail = LoggingDetail _ "Gelieve na te kijken in de logging wanneer deze ProductId de laatste keer werd uitbesteed. "
+	Set LoggingDetail = LoggingDetail _ "Indien dit langer dan een uur geleden was, gelieve dan de ProductId manueel weer vrij te geven. "
+	Do LoggerMock.VerwachtMethodCall("Error", "Inconsistente data", LoggingDetail)
+	
+	Set VerwachteProductId = "1001"
+	Set VerwachteAantalOnbenut = 1
+	Do ..DoGeefTeRecyclerenProductIdEnAssertLoggingSchaarsteInRange(VerwachteProductId, VerwachteAantalOnbenut, Range, LoggerMock)
+	Do ..AssertGlobalKeys(111110)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Sequentie over LadeVarianten heen met tussendoor vrijgave van ProductId, range die op is, uitbreiding van range en ForceerVolledigeReset">
 <Implementation><![CDATA[
 	#dim LbxRequest As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ..GeefRequest(##class(AXimpl.PM.enu.LadeVariant).LBX())
@@ -602,19 +652,20 @@
 </Method>
 
 <Method name="DoGeefTeRecyclerenProductIdEnAssertLoggingSchaarsteInRange">
-<FormalSpec>VerwachteProductId:%String,VerwachteAantalOnbenut:%Integer,Range:%String</FormalSpec>
+<FormalSpec>VerwachteProductId:%String,VerwachteAantalOnbenut:%Integer,Range:%String,Logger:vhLib.Logger=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).LBX()
 	#dim LbxRequest As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ..GeefRequest(LadeVariant)
+	#dim LoggerMock As vhLib.Logger
 	#dim ProductId As %String
 	#dim Bovengrens As %Integer = 7
 	#dim Ondergrens As %Integer = 3
 	#dim IsLoggerVerifieerNodig As %Boolean = (VerwachteAantalOnbenut <= Bovengrens)
 	#dim LoggingDetail As %String
 	
 	// Het testframework staat niet toe dat de functie van een VerwachtMethodCall overschreven wordt, dus bij iedere assert wordt een nieuwe instantie van de mock gebruikt...
-	#dim LoggerMock As vhLib.Logger = ##class(vhTest.Mock.vhLib.Logger).%New("ProductIdRecycleerder")
+	Set LoggerMock = $$$If($$$HasLength(Logger), Logger, ##class(vhTest.Mock.vhLib.Logger).%New("ProductIdRecycleerder"))
 	Set ProductIdRecycleerder = ##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.ProductIdRecycleerder).%New(..LadeVariantBepaler, ..ProductApi, ..Console, LoggerMock)
 	Set ProductIdRecycleerder.LbxRange = Range
 	Set ProductIdRecycleerder.GlobalNaam = ..#GlobalNaam
@@ -651,6 +702,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PersisteerRangeEnZetDataOpVoorEersteDrieProductIds">
+<FormalSpec>Request:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	// Aangezien we met data werken, waarop iedere instantie van de ProductIdRecycleerder mapt, kunnen we, om louter specifieke logica/logging te testen, verschillende instanties gebruiken.
+	// Deze eerste instantie (in de property) wordt gebruikt om de data op te zetten. De lokale instantie in de UnitTesten wordt gebruikt voor de "logica/logging onder test".
+	// Op die manier wordt vermeden dat ook de logging m.b.t. PersisteerRanges en GeefTeRecyclerenProductId in die specifieke UnitTesten ook moet worden voorzien (wordt immers elders al getest).
+	Do ..ProductIdRecycleerder.PersisteerRanges()
+	Do ..ProductIdRecycleerder.GeefTeRecyclerenProductId(Request) // Geeft ProductId 1000
+	Do ..ProductIdRecycleerder.GeefTeRecyclerenProductId(Request) // Geeft ProductId 1001
+	Do ..ProductIdRecycleerder.GeefTeRecyclerenProductId(Request) // Geeft ProductId 1002
+]]></Implementation>
+</Method>
+
+<Method name="ZetTimestampInDataVanProductId1001">
+<FormalSpec>AantalSecondenInVerleden:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set DateTimeApi = ##class(TECH.DateTime.impl.DateTimeAPI).%New()
+	#dim NuInSeconden As %Integer = DateTimeApi.HorologToSeconds(DateTimeApi.CurrentHorolog())
+	Set @..#GlobalNaam("LBX",1001) = 1 _ "\" _ DateTimeApi.SecondsToHorolog(NuInSeconden - AantalSecondenInVerleden)
+]]></Implementation>
+</Method>
+
 <Method name="KillTestData">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml
===================================================================
diff -u -r64521 -r64533
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(.../ProductIdRecycleerder.cls.xml)	(revision 64521)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(.../ProductIdRecycleerder.cls.xml)	(revision 64533)
@@ -359,17 +359,40 @@
 	#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 IsProductIdBeschikbaar As %Boolean = $$$False
+	#dim NuInSeconden As %Integer = ..DateTimeApi.HorologToSeconds(..DateTimeApi.CurrentHorolog())
+	#dim DateTimeUitbestedingProductId As %String
+	#dim DateTimeInSecondenUitbestedingProductId As %Integer
+	#dim IsUitbestedingMeerDanEenUurOud As %Boolean
 	#dim ProductId As %String
 	#dim GlobalKey As %String
+	#dim LoggingDetail As %String
 	
 	Set RangeIterator = ##class(TECH.StringIterator).%New($Method($this, "Geef" _ LadeVariant _ "Range"), ",")
 	While (RangeIterator.HasNext()) {
 		Set ProductId = RangeIterator.Next()
 		Set GlobalKey = ..GlobalNaam_"("""_LadeVariant_""","_ProductId_")"
 		
 		If ($Data(@GlobalKey)) {
-			If ($Piece(@GlobalKey, "\") = 1) {
-				Set AantalVrijePlaatsenInRangeVolgensLadeVariant = AantalVrijePlaatsenInRangeVolgensLadeVariant - 1
+			Set IsProductIdBeschikbaar = ($Piece(@GlobalKey, "\") = 1)
+			
+			If (IsProductIdBeschikbaar) {
+				Set DateTimeUitbestedingProductId = $Piece(@GlobalKey, "\", 2)
+				Set DateTimeInSecondenUitbestedingProductId = ..DateTimeApi.HorologToSeconds(DateTimeUitbestedingProductId)
+				
+				If ($$$Not($$$HasLength(DateTimeUitbestedingProductId))) {
+					Set AantalVrijePlaatsenInRangeVolgensLadeVariant = AantalVrijePlaatsenInRangeVolgensLadeVariant - 1
+					Set LoggingDetail = 				"ProductId '"_ProductId_"' is in gebruik, maar de timestamp die het moment van uitbesteding ervan weergeeft ontbreekt. "
+					Set LoggingDetail = LoggingDetail _ "Gelieve na te kijken in de logging wanneer deze ProductId de laatste keer werd uitbesteed. "
+					Set LoggingDetail = LoggingDetail _ "Indien dit langer dan een uur geleden was, gelieve dan de ProductId manueel weer vrij te geven. "
+					Do ..Logger.Error("Inconsistente data", LoggingDetail)
+				} ElseIf (NuInSeconden > (DateTimeInSecondenUitbestedingProductId + 3600)) {
+					Do ..GeefProductIdVrij(ProductId)
+					Set LoggingDetail = "ProductId '"_ProductId_"' werd al langer dan een uur (onterecht) vastgehouden en is bij deze automatisch terug vrijgegeven voor hergebruik. "
+					Do ..Logger.Info("Geblokkeerde ProductId vrijgegeven", LoggingDetail)
+				} Else {
+					Set AantalVrijePlaatsenInRangeVolgensLadeVariant = AantalVrijePlaatsenInRangeVolgensLadeVariant - 1
+				}
 			}
 		} Else {
 			Set AantalNietGepersisteerdeProductIdsInRange = AantalNietGepersisteerdeProductIdsInRange + 1