Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml
===================================================================
diff -u -r64476 -r64496
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(.../ProductIdRecycleerder.cls.xml)	(revision 64476)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(.../ProductIdRecycleerder.cls.xml)	(revision 64496)
@@ -5,10 +5,17 @@
 
 <Property name="LbxRange">
 <Description>
-HET UITBREIDEN VAN EEN RANGE KAN DOOR SIMPELWEG AAN ONDERSTAANDE PROPERTIES TOE TE VOEGEN. OPGELET: WEES ZEKER DAT TOEVOEGINGEN ONGEBRUIKTE PRNs ZIJN !!! 
-OM BIJ UITBREIDING DE NIEUWE PRNs TE CHECKEN KUN JE CheckRangeOpBeschikbaarheidProductIds("", ProductIdsAlsKommaDelString) GEBRUIKEN !!!
-BOVENDIEN CHECKED DEZE OOK DE ^KPRO. ALS HET OVER LAGE PRNs GAAT MOGEN/MOETEN DIE IN DE ^KPRO VERWIJDERD WORDEN (via deploy-klasje, vb: vhDeploy.D20210525xProductIdRecycleerderKproOpkuis).
-ANDERS GRAAG PRNs GEBRUIKEN DIE NIET IN DE ^KPRO ZITTEN !!! Nota (info van PV): ^KPRO bestaat om details van facturen te kunnen tonen. Bij ontbreken wordt vermeld "onbekend product".</Description>
+HET UITBREIDEN VAN EEN RANGE KAN DOOR SIMPELWEG AAN ONDERSTAANDE PROPERTIES TOE TE VOEGEN. OPGELET: WEES ZEKER DAT TOEVOEGINGEN ONGEBRUIKTE PRODUCTID's ZIJN !!! 
+Ongebruikte ProductId's kun je achterhalen door volgende Global-zoekmask te gebruiken: ^KPR(,0)
+In het resultaat zijn de ProductId's in de 1e node reeds in gebruik, ProductId's die hier niet voorkomen zijn potentiële kandidaten (vul de gaten op).
+GEBRUIK OOK GEEN PRODUCTID's DIE AANSLUITEN ACHTERAAN DE KPR-RANGE, WANT DIE ZULLEN IN GEBRUIK ZIJN TEGEN DAT DE CODE IN PRODUCTIE KOMT !!!
+DOE DE UITBREIDING EERST OP EEN DEV-OMGEVING DIE OVER DE LAATSTE DATA BESCHIKT, VOER DAAR ONDERSTAANDE CHECK UIT EN BRENG DE AANGEPASTE CODE DAN PAS IN PRODUCTIE !!!
+Om voor uitbreiding van een range de nieuwe ProductId's vooraf te checken kun je (via PuTTy) volgende instructie gebruiken:  
+Do ##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.ProductIdRecycleerder).%New().CheckRangeOpBeschikbaarheidProductIds("", UitbreidingsProductIdsAlsKommaDelString)
+Bovendien checkt deze ook ^KPRO. Als het over heel oude (lage) ProductId's gaat mogen/moeten die in ^KPRO verwijderd worden (via deploy-klasje, vb: vhDeploy.D20210525xProductIdRecycleerderKproOpkuis).
+ANDERS GRAAG PRNs GEBRUIKEN DIE NIET IN DE ^KPRO ZITTEN !!! Nota (info van PV): ^KPRO bestaat om details van facturen te kunnen tonen. Bij ontbreken wordt vermeld "onbekend product".
+Als de uitbreidingsrange ok blijkt, plak die dan achteraan de uit te breiden range in de juiste van onderstaande properties. BIJ DE EERSTVOLGENDE OPVRAGING VAN EEN PRODUCTID IN DIE RANGE ZAL DE UITBREIDING 
+AUTOMATISCH GEPERSISTEERD WORDEN, PAS VANAF DE EERSTVOLGENDE OPVRAGING DAARNA IN DIE RANGE ZULLEN OOK DE TOEGEVOEGDE PRODUCTID's BESCHIKBAAR ZIJN.</Description>
 <Type>%String</Type>
 <InitialExpression>"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"</InitialExpression>
 </Property>
@@ -48,8 +55,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>LadeVariantBepaler:WSimpl.AX.CalculatedProduct.LadeVariantBepaler="",ProductApi:DOM.PM.ProductAPI="",Console:TECH.Console.Console=""</FormalSpec>
+<FormalSpec>LadeVariantBepaler:WSimpl.AX.CalculatedProduct.LadeVariantBepaler="",ProductApi:DOM.PM.ProductAPI="",Console:TECH.Console.Console="",Logger:vhLib.Logger=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -58,6 +70,7 @@
 	Set ..LadeVariantBepaler = $$$Inject(LadeVariantBepaler, ##class(WSimpl.AX.CalculatedProduct.LadeVariantBepaler).%New())
 	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
 	Set ..Console = $$$Inject(Console, ##class(TECH.Console.impl.TerminalConsole).%New())
+	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New("ProductIdRecycleerder"))
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -68,7 +81,8 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim ProductId As %String = ""
-	#dim AantalVrijePlaatsenInRangeVolgensLadeVariant As %Integer
+	#dim AantalVrijePlaatsenInRangeVolgensLadeVariant, Bovengrens, Ondergrens As %Integer
+	#dim LoggingDetail As %String
 	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = ..LadeVariantBepaler.Bepaal("", Request.Attribute)
 	
 	If (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).LBX()) {
@@ -81,11 +95,23 @@
 		Set ProductId = ..GeefEerstvolgendeVrijeProductId(##class(AXimpl.PM.enu.LadeVariant).TBX())
 	}
 	
+	// UITLEG IVM UITBREIDING VAN DE RANGES: ZIE HELEMAAL BOVENAAN IN DEZE KLASSE !!!
 	Set AantalVrijePlaatsenInRangeVolgensLadeVariant = ..GeefAantalVrijePlaatsenInRangeVolgensLadeVariant(LadeVariant)
-	If (AantalVrijePlaatsenInRangeVolgensLadeVariant <= 5) {
-		// Error-logging
-	} ElseIf (AantalVrijePlaatsenInRangeVolgensLadeVariant <= 10) {
-		// Warning-logging
+	Set Bovengrens = 7
+	Set Ondergrens = 3
+	If (AantalVrijePlaatsenInRangeVolgensLadeVariant = 0) {
+		Set LoggingDetail = 				"In de '"_LadeVariant_"'-range van de ProductIdRecycleerder zijn ALLE ProductId's in gebruik!!! Het is ten zeerste aan te raden de range uit te breiden!!! "
+		Set LoggingDetail = LoggingDetail _ "Er worden nu nieuwe ProductId's gebruikt i.p.v. dat er één uit de recyclage-range gebruikt wordt. "
+		Set LoggingDetail = LoggingDetail _ "Voor uitbreiding van de range zie uitleg in klasse: '" _ $Classname(##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.ProductIdRecycleerder).%New()) _ "'. "
+		Do ..Logger.Error("Schaarste in de range", LoggingDetail)
+	} ElseIf (AantalVrijePlaatsenInRangeVolgensLadeVariant <= Ondergrens) {
+		Set LoggingDetail = 				"In de '"_LadeVariant_"'-range van de ProductIdRecycleerder zijn nog slechts '"_AantalVrijePlaatsenInRangeVolgensLadeVariant_"' ProductId's onbenut. Het is zeer aan te raden de range uit te breiden. "
+		Set LoggingDetail = LoggingDetail _ "Als de range volledig in gebruik is wordt er een error gelogd en wordt er een nieuwe ProductId gebruikt i.p.v. dat er één uit de recyclage-range gebruikt wordt. "
+		Set LoggingDetail = LoggingDetail _ "Voor uitbreiding van de range zie uitleg in klasse: '" _ $Classname(##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.ProductIdRecycleerder).%New()) _ "'. "
+		Do ..Logger.Warning("Schaarste in de range", LoggingDetail)
+	} ElseIf (AantalVrijePlaatsenInRangeVolgensLadeVariant <= Bovengrens) {
+		Set LoggingDetail = 				"In de '"_LadeVariant_"'-range van de ProductIdRecycleerder zijn nog slechts '"_AantalVrijePlaatsenInRangeVolgensLadeVariant_"' ProductId's onbenut. Vanaf slechts ruimte voor '"_Ondergrens_"' wordt er een warning gelogd. "
+		Do ..Logger.Info("Schaarste in de range", LoggingDetail)
 	}
 	
 	Quit ProductId
Index: vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml
===================================================================
diff -u -r64476 -r64496
--- vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(.../ProductIdRecycleerder.cls.xml)	(revision 64476)
+++ vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(.../ProductIdRecycleerder.cls.xml)	(revision 64496)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>LadeVariantBepaler:WSimpl.AX.CalculatedProduct.LadeVariantBepaler="",ProductApi:DOM.PM.ProductAPI="",Console:TECH.Console.Console=""</FormalSpec>
+<FormalSpec>LadeVariantBepaler:WSimpl.AX.CalculatedProduct.LadeVariantBepaler="",ProductApi:DOM.PM.ProductAPI="",Console:TECH.Console.Console="",Logger:vhLib.Logger=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder/Test.cls.xml
===================================================================
diff -u -r64493 -r64496
--- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder/Test.cls.xml	(.../Test.cls.xml)	(revision 64493)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder/Test.cls.xml	(.../Test.cls.xml)	(revision 64496)
@@ -342,6 +342,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Logging ivm schaarste in de range">
+<Implementation><![CDATA[
+	#dim Range As %String = "1000,1001,1002,1003,1004,1005,1006,1007,1008"
+	
+	Set ..ProductIdRecycleerder.LbxRange = Range
+	Do ..ProductIdRecycleerder.PersisteerRange(##class(AXimpl.PM.enu.LadeVariant).LBX())
+	
+	Do ..DoGeefTeRecyclerenProductIdEnAssertLoggingSchaarsteInRange("1000", 8, Range)
+	Do ..DoGeefTeRecyclerenProductIdEnAssertLoggingSchaarsteInRange("1001", 7, Range)
+	Do ..DoGeefTeRecyclerenProductIdEnAssertLoggingSchaarsteInRange("1002", 6, Range)
+	Do ..DoGeefTeRecyclerenProductIdEnAssertLoggingSchaarsteInRange("1003", 5, Range)
+	Do ..DoGeefTeRecyclerenProductIdEnAssertLoggingSchaarsteInRange("1004", 4, Range)
+	Do ..DoGeefTeRecyclerenProductIdEnAssertLoggingSchaarsteInRange("1005", 3, Range)
+	Do ..DoGeefTeRecyclerenProductIdEnAssertLoggingSchaarsteInRange("1006", 2, Range)
+	Do ..DoGeefTeRecyclerenProductIdEnAssertLoggingSchaarsteInRange("1007", 1, Range)
+	Do ..DoGeefTeRecyclerenProductIdEnAssertLoggingSchaarsteInRange("1008", 0, Range)
+	Do ..DoGeefTeRecyclerenProductIdEnAssertLoggingSchaarsteInRange("", 0, Range)
+]]></Implementation>
+</Method>
+
 <Method name="GeefRequest">
 <FormalSpec>LadeVariant:AXimpl.PM.enu.LadeVariant=##class(AXimpl.PM.enu.LadeVariant).LBX()</FormalSpec>
 <Private>1</Private>
@@ -461,6 +481,48 @@
 ]]></Implementation>
 </Method>
 
+<Method name="DoGeefTeRecyclerenProductIdEnAssertLoggingSchaarsteInRange">
+<FormalSpec>VerwachteProductId:%String,VerwachteAantalOnbenut:%Integer,Range:%String</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 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 ProductIdRecycleerder = ##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.ProductIdRecycleerder).%New(..LadeVariantBepaler, ..ProductApi, ..Console, LoggerMock)
+	Set ProductIdRecycleerder.LbxRange = Range
+	Set ProductIdRecycleerder.GlobalNaam = ..#GlobalNaam
+	
+	If (VerwachteAantalOnbenut = 0) {
+		Set LoggingDetail = 				"In de '"_LadeVariant_"'-range van de ProductIdRecycleerder zijn ALLE ProductId's in gebruik!!! Het is ten zeerste aan te raden de range uit te breiden!!! "
+		Set LoggingDetail = LoggingDetail _ "Er worden nu nieuwe ProductId's gebruikt i.p.v. dat er één uit de recyclage-range gebruikt wordt. "
+		Set LoggingDetail = LoggingDetail _ "Voor uitbreiding van de range zie uitleg in klasse: '" _ $Classname(##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.ProductIdRecycleerder).%New()) _ "'. "
+		Do LoggerMock.VerwachtMethodCall("Error", "Schaarste in de range", LoggingDetail)
+	} ElseIf (VerwachteAantalOnbenut <= Ondergrens) {
+		Set LoggingDetail = 				"In de '"_LadeVariant_"'-range van de ProductIdRecycleerder zijn nog slechts '"_VerwachteAantalOnbenut_"' ProductId's onbenut. Het is zeer aan te raden de range uit te breiden. "
+		Set LoggingDetail = LoggingDetail _ "Als de range volledig in gebruik is wordt er een error gelogd en wordt er een nieuwe ProductId gebruikt i.p.v. dat er één uit de recyclage-range gebruikt wordt. "
+		Set LoggingDetail = LoggingDetail _ "Voor uitbreiding van de range zie uitleg in klasse: '" _ $Classname(##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.ProductIdRecycleerder).%New()) _ "'. "
+		Do LoggerMock.VerwachtMethodCall("Warning", "Schaarste in de range", LoggingDetail)
+	} ElseIf (VerwachteAantalOnbenut <= Bovengrens) {
+		Set LoggingDetail = 				"In de '"_LadeVariant_"'-range van de ProductIdRecycleerder zijn nog slechts '"_VerwachteAantalOnbenut_"' ProductId's onbenut. Vanaf slechts ruimte voor '"_Ondergrens_"' wordt er een warning gelogd. "
+		Do LoggerMock.VerwachtMethodCall("Info", "Schaarste in de range", LoggingDetail)
+	}
+	
+	Set ProductId = ProductIdRecycleerder.GeefTeRecyclerenProductId(LbxRequest)
+	Do $$$AssertEquals(ProductId, VerwachteProductId)
+	
+	If IsLoggerVerifieerNodig {
+		Do LoggerMock.Verifieer()
+	}
+]]></Implementation>
+</Method>
+
 <Method name="KillTestData">
 <Private>1</Private>
 <Implementation><![CDATA[