Index: vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(revision 0)
+++ vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(revision 64451)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.ProductIdRecycleerder">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.ProductIdRecycleerder,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>LadeVariantBepaler:WSimpl.AX.CalculatedProduct.LadeVariantBepaler="",ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="CheckAlleRangesOpBeschikbaarheidProductIds">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("CheckAlleRangesOpBeschikbaarheidProductIds")
+]]></Implementation>
+</Method>
+
+<Method name="CheckRangeOpBeschikbaarheidProductIds">
+<FormalSpec>LadeVariant:AXimpl.PM.enu.LadeVariant</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("CheckRangeOpBeschikbaarheidProductIds",LadeVariant)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeRecyclerenProductId">
+<FormalSpec>Request:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTeRecyclerenProductId",Request)
+]]></Implementation>
+</Method>
+
+<Method name="PersisteerRange">
+<FormalSpec>LadeVariant:AXimpl.PM.enu.LadeVariant</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("PersisteerRange",LadeVariant)
+]]></Implementation>
+</Method>
+
+<Method name="PersisteerRanges">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("PersisteerRanges")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(revision 0)
+++ vhTest/Fake/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(revision 64451)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.ProductIdRecycleerder">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.ProductIdRecycleerder</Super>
+
+<Method name="CheckAlleRangesOpBeschikbaarheidProductIds">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="CheckRangeOpBeschikbaarheidProductIds">
+<FormalSpec>LadeVariant:AXimpl.PM.enu.LadeVariant</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeRecyclerenProductId">
+<FormalSpec>Request:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="PersisteerRange">
+<FormalSpec>LadeVariant:AXimpl.PM.enu.LadeVariant</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="PersisteerRanges">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml
===================================================================
diff -u
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(revision 0)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml	(revision 64451)
@@ -0,0 +1,188 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.ProductIdRecycleerder">
+<Super>TECH.Mockable</Super>
+
+<Property name="LadeVariantBepaler">
+<Type>WSimpl.AX.CalculatedProduct.LadeVariantBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Console">
+<Type>TECH.Console.Console</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LadeVariantBepaler:WSimpl.AX.CalculatedProduct.LadeVariantBepaler="",ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LadeVariantBepaler = $$$Inject(LadeVariantBepaler, ##class(WSimpl.AX.CalculatedProduct.LadeVariantBepaler).%New())
+	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..Console = ##class(TECH.Console.impl.TerminalConsole).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeRecyclerenProductId">
+<FormalSpec>Request:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductId As %String = ""
+	
+	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = ..LadeVariantBepaler.Bepaal("", Request.Attribute)
+	
+	If (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).LBX()) {
+		// implementatie
+	} ElseIf (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).MVX()) {
+		
+	} ElseIf (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).TAX()) {
+		
+	} ElseIf (LadeVariant = ##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."))
+	}
+	
+	Quit ProductId
+]]></Implementation>
+</Method>
+
+<Method name="PersisteerRanges">
+<Description>
+Opzet van dedicated Global waarin wordt bijgehouden welke ProductId's op dat moment in gebruik zijn.
+Dit forceert ook dat alle ProductId's in de range per direct weer beschikbaar worden voor de ProductIdRecycleerder. Wees zeker dat er niet 1 ècht in gebruik is op dat moment!!!</Description>
+<Implementation><![CDATA[
+	Do ..PersisteerRange(##class(AXimpl.PM.enu.LadeVariant).LBX())
+	Do ..PersisteerRange(##class(AXimpl.PM.enu.LadeVariant).MVX())
+	Do ..PersisteerRange(##class(AXimpl.PM.enu.LadeVariant).TAX())
+	Do ..PersisteerRange(##class(AXimpl.PM.enu.LadeVariant).TBX())
+]]></Implementation>
+</Method>
+
+<Method name="PersisteerRange">
+<Description>
+Opzet van dedicated Global waarin wordt bijgehouden welke ProductId's op dat moment in gebruik zijn.
+Dit forceert ook dat alle ProductId's in de range per direct weer beschikbaar worden voor de ProductIdRecycleerder. Wees zeker dat er niet 1 ècht in gebruik is op dat moment!!!</Description>
+<FormalSpec>LadeVariant:AXimpl.PM.enu.LadeVariant</FormalSpec>
+<Implementation><![CDATA[
+	#dim ProductId As %String
+	#dim Range As %String = ..GeefRangeVolgensLadeVariant(LadeVariant)
+	
+	Set RangeIterator = ##class(TECH.StringIterator).%New(Range, ",")
+	While RangeIterator.HasNext() {
+		Set ProductId = RangeIterator.Next()
+		Set ^ProductIdRecycle(LadeVariant,ProductId) = 0
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CheckAlleRangesOpBeschikbaarheidProductIds">
+<Description>
+Check alle ProductId's in de ranges of er al producten voor bestaan (via: BestaatProduct op ProductApi) en rapporteer in Console.</Description>
+<Implementation><![CDATA[
+	Do ..Console.WriteLine("LBX: ")
+	Do ..CheckRangeOpBeschikbaarheidProductIds(##class(AXimpl.PM.enu.LadeVariant).LBX())
+	
+	Do ..Console.WriteLine("MVX: ")
+	Do ..CheckRangeOpBeschikbaarheidProductIds(##class(AXimpl.PM.enu.LadeVariant).MVX())
+	
+	Do ..Console.WriteLine("TAX: ")
+	Do ..CheckRangeOpBeschikbaarheidProductIds(##class(AXimpl.PM.enu.LadeVariant).TAX())
+	
+	Do ..Console.WriteLine("TBX: ")
+	Do ..CheckRangeOpBeschikbaarheidProductIds(##class(AXimpl.PM.enu.LadeVariant).TBX())
+]]></Implementation>
+</Method>
+
+<Method name="CheckRangeOpBeschikbaarheidProductIds">
+<Description>
+Check alle ProductId's in de range of er al producten voor bestaan (via: BestaatProduct op ProductApi) en rapporteer in Console.</Description>
+<FormalSpec>LadeVariant:AXimpl.PM.enu.LadeVariant</FormalSpec>
+<Implementation><![CDATA[
+	#dim BeschikbareProductIdsInRange As %String = ""
+	#dim OnBeschikbareProductIdsInRange As %String = ""
+	#dim CountBeschikbareProductIdsInRange As %Integer = 0
+	#dim CountOnBeschikbareProductIdsInRange As %Integer = 0
+	#dim ProductId As %String
+	#dim Range As %String = ..GeefRangeVolgensLadeVariant(LadeVariant)
+	
+	Set RangeIterator = ##class(TECH.StringIterator).%New(Range, ",")
+	While RangeIterator.HasNext() {
+		Set ProductId = RangeIterator.Next()
+		If (..ProductApi.BestaatProduct(ProductId)) {
+			Set OnBeschikbareProductIdsInRange = OnBeschikbareProductIdsInRange _ ProductId _ "-"
+			Set CountOnBeschikbareProductIdsInRange = CountOnBeschikbareProductIdsInRange + 1
+		} Else {
+			Set BeschikbareProductIdsInRange = BeschikbareProductIdsInRange _ ProductId _ "-"
+			Set CountBeschikbareProductIdsInRange = CountBeschikbareProductIdsInRange + 1
+		}
+	}
+	
+	Do ..Console.WriteLine(CountOnBeschikbareProductIdsInRange _ " ProductIds in de range in gebruik: " _ OnBeschikbareProductIdsInRange)
+	Do ..Console.WriteLine(CountBeschikbareProductIdsInRange _ " beschikbare ProductId's in de range: " _ BeschikbareProductIdsInRange)
+]]></Implementation>
+</Method>
+
+<Method name="GeefRangeVolgensLadeVariant">
+<FormalSpec>LadeVariant:AXimpl.PM.enu.LadeVariant</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Range As %String
+	
+	If (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).LBX()) {
+		Set Range = ..GeefLbxRange()
+	} ElseIf (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).MVX()) {
+		Set Range = ..GeefMvxRange()
+	} ElseIf (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).TAX()) {
+		Set Range = ..GeefTaxRange()
+	} ElseIf (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).TBX()) {
+		Set Range = ..GeefTbxRange()
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Onbekende LadeVariant: '"_LadeVariant_"' "))
+	}
+	
+	Quit Range
+]]></Implementation>
+</Method>
+
+<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>
+</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>
+</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>
+</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>
+</Method>
+</Class>
+
+
+</Export>