Index: vhUnitTest/WSimpl/AX/CalculatedProduct/LadeVariantBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/AX/CalculatedProduct/LadeVariantBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/LadeVariantBepaler/Test.cls.xml	(revision 57264)
@@ -0,0 +1,173 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.AX.CalculatedProduct.LadeVariantBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="ProductTypeApi">
+<Type>DOM.PM.ProductTypeAPI</Type>
+</Property>
+
+<Method name="Test: Bepaal geeft leeg terug">
+<Implementation><![CDATA[
+	#dim RandomProductId As %String = "RandomProductId"
+	
+	Set ProductTypeApiStub  = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).%New()
+	Do ProductTypeApiStub.VerwachtMethodCall("IsTandemboxProduct", RandomProductId).ExactAantalKeer(1).DanReturn($$$False)
+	Do ProductTypeApiStub.VerwachtMethodCall("IsLegraboxProduct", RandomProductId).ExactAantalKeer(1).DanReturn($$$False)
+	Do ProductTypeApiStub.VerwachtMethodCall("IsTAORboxProduct", RandomProductId).ExactAantalKeer(1).DanReturn($$$False)
+	
+	Set ..ProductTypeApi = ProductTypeApiStub
+	
+	#dim LadeVariantBepaler As WSimpl.AX.CalculatedProduct.LadeVariantBepaler = ..GeefLadeVariantBepaler()
+	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = LadeVariantBepaler.Bepaal(RandomProductId, ##class(%ListOfObjects).%New())
+	
+	Do $$$AssertEquals(LadeVariant, "")
+	Do ProductTypeApiStub.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bepaal gebruikt de ProductTypeApi om de LadeVariant te bepalen voor TBX">
+<Implementation><![CDATA[
+	#dim RandomProductId As %String = "RandomProductId"
+	
+	Set ProductTypeApiStub  = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).%New()
+	Do ProductTypeApiStub.VerwachtMethodCall("IsTandemboxProduct", RandomProductId).ExactAantalKeer(1).DanReturn($$$True)
+	
+	Set ..ProductTypeApi = ProductTypeApiStub
+	
+	#dim LadeVariantBepaler As WSimpl.AX.CalculatedProduct.LadeVariantBepaler = ..GeefLadeVariantBepaler()
+	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = LadeVariantBepaler.Bepaal(RandomProductId, ##class(%ListOfObjects).%New())
+	
+	Do $$$AssertEquals(LadeVariant, ##class(AXimpl.PM.enu.LadeVariant).TBX())
+	Do ProductTypeApiStub.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bepaal gebruikt de ProductTypeApi om de LadeVariant te bepalen voor LBX">
+<Implementation><![CDATA[
+	#dim RandomProductId As %String = "RandomProductId"
+	
+	Set ProductTypeApiStub  = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).%New()
+	Do ProductTypeApiStub.VerwachtMethodCall("IsTandemboxProduct", RandomProductId).ExactAantalKeer(1).DanReturn($$$False)
+	Do ProductTypeApiStub.VerwachtMethodCall("IsLegraboxProduct", RandomProductId).ExactAantalKeer(1).DanReturn($$$True)
+	
+	Set ..ProductTypeApi = ProductTypeApiStub
+	
+	#dim LadeVariantBepaler As WSimpl.AX.CalculatedProduct.LadeVariantBepaler = ..GeefLadeVariantBepaler()
+	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = LadeVariantBepaler.Bepaal(RandomProductId, ##class(%ListOfObjects).%New())
+	
+	Do $$$AssertEquals(LadeVariant, ##class(AXimpl.PM.enu.LadeVariant).LBX())
+	Do ProductTypeApiStub.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bepaal gebruikt de ProductTypeApi om de LadeVariant te bepalen voor TAX">
+<Implementation><![CDATA[
+	#dim RandomProductId As %String = "RandomProductId"
+	
+	Set ProductTypeApiStub  = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).%New()
+	Do ProductTypeApiStub.VerwachtMethodCall("IsTandemboxProduct", RandomProductId).ExactAantalKeer(1).DanReturn($$$False)
+	Do ProductTypeApiStub.VerwachtMethodCall("IsLegraboxProduct", RandomProductId).ExactAantalKeer(1).DanReturn($$$False)
+	Do ProductTypeApiStub.VerwachtMethodCall("IsTAORboxProduct", RandomProductId).ExactAantalKeer(1).DanReturn($$$True)
+	
+	Set ..ProductTypeApi = ProductTypeApiStub
+	
+	#dim LadeVariantBepaler As WSimpl.AX.CalculatedProduct.LadeVariantBepaler = ..GeefLadeVariantBepaler()
+	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = LadeVariantBepaler.Bepaal(RandomProductId, ##class(%ListOfObjects).%New())
+	
+	Do $$$AssertEquals(LadeVariant, ##class(AXimpl.PM.enu.LadeVariant).TAX())
+	Do ProductTypeApiStub.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als bepaling LadeVariant via ProductTypeApi leeg geeft =&gt; LadeVariant ophalen uit Kenmerken =&gt; TBX">
+<Implementation><![CDATA[
+	#dim RandomProductId As %String = "RandomProductId"
+	#dim AxVariant As %String = "TBX"
+	
+	#dim Kenmerk As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set Kenmerk.Name = "Data.Kenmerken.Variant"
+	Set Kenmerk.ValueTxt = AxVariant
+	
+	#dim KenmerkenLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
+	Do KenmerkenLijst.Insert(Kenmerk)
+	
+	Set ProductTypeApiStub  = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).%New()
+	Do ProductTypeApiStub.VerwachtMethodCall("IsTandemboxProduct", RandomProductId).ExactAantalKeer(1).DanReturn($$$False)
+	Do ProductTypeApiStub.VerwachtMethodCall("IsLegraboxProduct", RandomProductId).ExactAantalKeer(1).DanReturn($$$False)
+	Do ProductTypeApiStub.VerwachtMethodCall("IsTAORboxProduct", RandomProductId).ExactAantalKeer(1).DanReturn($$$False)
+	
+	Set ..ProductTypeApi = ProductTypeApiStub
+	
+	#dim LadeVariantBepaler As WSimpl.AX.CalculatedProduct.LadeVariantBepaler = ..GeefLadeVariantBepaler()
+	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = LadeVariantBepaler.Bepaal(RandomProductId, KenmerkenLijst)
+	
+	Do $$$AssertEquals(LadeVariant, ##class(AXimpl.PM.enu.LadeVariant).TBX())
+	Do ProductTypeApiStub.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als bepaling LadeVariant via ProductTypeApi leeg geeft =&gt; LadeVariant ophalen uit Kenmerken =&gt; LBX">
+<Implementation><![CDATA[
+	#dim RandomProductId As %String = "RandomProductId"
+	#dim AxVariant As %String = "LBX"
+	
+	#dim Kenmerk As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set Kenmerk.Name = "Data.Kenmerken.Variant"
+	Set Kenmerk.ValueTxt = AxVariant
+	
+	#dim KenmerkenLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
+	Do KenmerkenLijst.Insert(Kenmerk)
+	
+	Set ProductTypeApiStub  = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).%New()
+	Do ProductTypeApiStub.VerwachtMethodCall("IsTandemboxProduct", RandomProductId).ExactAantalKeer(1).DanReturn($$$False)
+	Do ProductTypeApiStub.VerwachtMethodCall("IsLegraboxProduct", RandomProductId).ExactAantalKeer(1).DanReturn($$$False)
+	Do ProductTypeApiStub.VerwachtMethodCall("IsTAORboxProduct", RandomProductId).ExactAantalKeer(1).DanReturn($$$False)
+	
+	Set ..ProductTypeApi = ProductTypeApiStub
+	
+	#dim LadeVariantBepaler As WSimpl.AX.CalculatedProduct.LadeVariantBepaler = ..GeefLadeVariantBepaler()
+	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = LadeVariantBepaler.Bepaal(RandomProductId, KenmerkenLijst)
+	
+	Do $$$AssertEquals(LadeVariant, ##class(AXimpl.PM.enu.LadeVariant).LBX())
+	Do ProductTypeApiStub.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als bepaling LadeVariant via ProductTypeApi leeg geeft =&gt; LadeVariant ophalen uit Kenmerken =&gt; TAX">
+<Implementation><![CDATA[
+	#dim RandomProductId As %String = "RandomProductId"
+	#dim AxVariant As %String = "TAX"
+	
+	#dim Kenmerk As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set Kenmerk.Name = "Data.Kenmerken.Variant"
+	Set Kenmerk.ValueTxt = AxVariant
+	
+	#dim KenmerkenLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
+	Do KenmerkenLijst.Insert(Kenmerk)
+	
+	Set ProductTypeApiStub  = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).%New()
+	Do ProductTypeApiStub.VerwachtMethodCall("IsTandemboxProduct", RandomProductId).ExactAantalKeer(1).DanReturn($$$False)
+	Do ProductTypeApiStub.VerwachtMethodCall("IsLegraboxProduct", RandomProductId).ExactAantalKeer(1).DanReturn($$$False)
+	Do ProductTypeApiStub.VerwachtMethodCall("IsTAORboxProduct", RandomProductId).ExactAantalKeer(1).DanReturn($$$False)
+	
+	Set ..ProductTypeApi = ProductTypeApiStub
+	
+	#dim LadeVariantBepaler As WSimpl.AX.CalculatedProduct.LadeVariantBepaler = ..GeefLadeVariantBepaler()
+	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = LadeVariantBepaler.Bepaal(RandomProductId, KenmerkenLijst)
+	
+	Do $$$AssertEquals(LadeVariant, ##class(AXimpl.PM.enu.LadeVariant).TAX())
+	Do ProductTypeApiStub.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeVariantBepaler">
+<Private>1</Private>
+<ReturnType>WSimpl.AX.CalculatedProduct.LadeVariantBepaler</ReturnType>
+<Implementation><![CDATA[	Quit ##class(WSimpl.AX.CalculatedProduct.LadeVariantBepaler).%New(..ProductTypeApi)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/AX/CalculatedProduct/LadeVariantBepaler.cls.xml
===================================================================
diff -u
--- WSimpl/AX/CalculatedProduct/LadeVariantBepaler.cls.xml	(revision 0)
+++ WSimpl/AX/CalculatedProduct/LadeVariantBepaler.cls.xml	(revision 57264)
@@ -0,0 +1,89 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.AX.CalculatedProduct.LadeVariantBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductTypeApi">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductTypeApi:DOM.PM.ProductTypeAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductTypeApi = $$$Inject(ProductTypeApi, ##class(DOM.PM.impl.ProductTypeAPIimpl).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Bepaal">
+<FormalSpec>ProductId:%String,Kenmerken:%List</FormalSpec>
+<ReturnType>AXimpl.PM.enu.LadeVariant</ReturnType>
+<Implementation><![CDATA[
+	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = ..BepaalLadeVariantVolgensProductId(ProductId)
+	
+	If ($$$Not($$$HasLength(LadeVariant))) {
+		#dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Kenmerken)
+		Set LadeVariant = ..BepaalLadeVariantVolgensKenmerken(KenmerkenIterator)
+	}
+	
+	Quit LadeVariant
+]]></Implementation>
+</Method>
+
+<Method name="BepaalLadeVariantVolgensProductId">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXimpl.PM.enu.LadeVariant</ReturnType>
+<Implementation><![CDATA[
+	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = ""
+	
+	If (..ProductTypeApi.IsTandemboxProduct(ProductId)) {
+		Set LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).TBX()
+	} ElseIf (..ProductTypeApi.IsLegraboxProduct(ProductId)) {
+		Set LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).LBX()
+	} ElseIf (..ProductTypeApi.IsTAORboxProduct(ProductId)) {
+		Set LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).TAX()
+	}
+	
+	Quit LadeVariant
+]]></Implementation>
+</Method>
+
+<Method name="BepaalLadeVariantVolgensKenmerken">
+<FormalSpec>KenmerkenIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXimpl.PM.enu.LadeVariant</ReturnType>
+<Implementation><![CDATA[
+	#dim LadeVariant As %String = ""
+	#dim AxLadeVariant As %String = ""
+	#dim Kenmerk As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute
+	
+	While (KenmerkenIterator.HasNext()) {
+		Set Kenmerk = KenmerkenIterator.Next()
+		If (Kenmerk.Name = "Data.Kenmerken.Variant") {
+			Set AxLadeVariant = Kenmerk.ValueTxt
+			Continue
+		}
+	}
+	
+	If (AxLadeVariant = "TBX") {
+		Set LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).TBX()
+	} ElseIf (AxLadeVariant = "LBX") {
+		Set LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).LBX()
+	} ElseIf (AxLadeVariant = "TAX") {
+		Set LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).TAX()
+	}
+	
+	Quit LadeVariant
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>