Index: WSimpl/AX/CalculatedProduct/SourcingDataAreaIdBepaler.cls.xml
===================================================================
diff -u
--- WSimpl/AX/CalculatedProduct/SourcingDataAreaIdBepaler.cls.xml	(revision 0)
+++ WSimpl/AX/CalculatedProduct/SourcingDataAreaIdBepaler.cls.xml	(revision 46501)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.AX.CalculatedProduct.SourcingDataAreaIdBepaler">
+<Super>TECH.Mockable</Super>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductTypeApi">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductApi:DOM.PM.ProductAPI="",ProductTypeApi:DOM.PM.ProductTypeAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..ProductTypeApi = $$$Inject(ProductTypeApi, ##class(DOM.PM.impl.ProductTypeAPIimpl).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Bepaal">
+<FormalSpec>Product:DOM.PM.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim SourcingDataAreaId As %String = ""
+	
+	If (..ProductTypeApi.IsGenerischAfgeleidProduct(Product.GeefID())) {
+		#dim GenerischProduct As DOM.PM.Product = ..ProductApi.GeefProduct(Product.GeefGenerischProductID())
+		
+		Set SourcingDataAreaId = ..GeefInterneFirmaInitialen(GenerischProduct.GeefLeverancierID())
+	} Else {
+		Set SourcingDataAreaId = ..GeefInterneFirmaInitialen(Product.GeefLeverancierID())
+	}
+	
+	Quit SourcingDataAreaId
+]]></Implementation>
+</Method>
+
+<Method name="GeefInterneFirmaInitialen">
+<FormalSpec>LeverancierId:DOM.common.PartijID</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXimpl.InterneFirmaInitialen</ReturnType>
+<Implementation><![CDATA[
+	#dim InterneFirmaInitialen As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	If (LeverancierId = ##class(DOM.AKP.enu.Leverancier).Halux()) {
+		Set InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	} 
+	
+	Quit InterneFirmaInitialen
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/AX/CalculatedProduct/SourcingDataAreaIdBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/AX/CalculatedProduct/SourcingDataAreaIdBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/SourcingDataAreaIdBepaler/Test.cls.xml	(revision 46501)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.AX.CalculatedProduct.SourcingDataAreaIdBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: indien geen generisch product gevonden wordt voor het opgegeven product, wordt SourcingDataAreaId ingevuld op basis van de LeverancierId van het opgegeven product">
+<Implementation><![CDATA[
+	Do ..AssertSourcingDataAreaId($$$False, ##class(DOM.AKP.enu.Leverancier).Halux(), ##class(AXimpl.InterneFirmaInitialen).HaluxNv())
+	Do ..AssertSourcingDataAreaId($$$False, "NietHaluxLeverancier", ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv())
+]]></Implementation>
+</Method>
+
+<Method name="Test: indien een generisch product gevonden wordt voor het opgegeven product, wordt SourcingDataAreaId ingevuld op basis van de LeverancierId van het generisch product">
+<Implementation><![CDATA[
+	Do ..AssertSourcingDataAreaId($$$True, ##class(DOM.AKP.enu.Leverancier).Halux(), ##class(AXimpl.InterneFirmaInitialen).HaluxNv())
+	Do ..AssertSourcingDataAreaId($$$True, "NietHaluxLeverancier", ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv())
+]]></Implementation>
+</Method>
+
+<Method name="AssertSourcingDataAreaId">
+<FormalSpec>IsGenerischAfgeleidProduct:%Boolean,LeverancierId:%String,VerwachteSourcingDataAreaId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim RandomProductId As %String = "RandomProductId"
+	#dim RandomGenerischProductId As %String = "RandomGenerischProductId"
+	
+	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefID").DanReturn(RandomProductId)
+	Do ProductStub.IndienMethodCall("GeefLeverancierID").DanReturn(LeverancierId)
+	Do ProductStub.IndienMethodCall("GeefGenerischProductID").DanReturn(RandomGenerischProductId)
+	
+	#dim GenerischProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do GenerischProductStub.IndienMethodCall("GeefLeverancierID").DanReturn(LeverancierId)
+	
+	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiStub.IndienMethodCall("GeefProduct", RandomGenerischProductId).DanReturn(GenerischProductStub)
+	
+	#dim ProductTypeApiStub As vhTest.Mock.DOM.PM.ProductTypeAPI = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).%New()
+	Do ProductTypeApiStub.IndienMethodCall("IsGenerischAfgeleidProduct", RandomProductId).DanReturn(IsGenerischAfgeleidProduct)
+	
+	#dim SourcingDataAreaIdBepaler As WSimpl.AX.CalculatedProduct.SourcingDataAreaIdBepaler = ##class(WSimpl.AX.CalculatedProduct.SourcingDataAreaIdBepaler).%New(ProductApiStub, ProductTypeApiStub)
+	#dim SourcingDataAreaId As %String = SourcingDataAreaIdBepaler.Bepaal(ProductStub)
+	
+	Do $$$AssertEquals(SourcingDataAreaId, VerwachteSourcingDataAreaId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/WSimpl/AX/CalculatedProduct/SourcingDataAreaIdBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/AX/CalculatedProduct/SourcingDataAreaIdBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/WSimpl/AX/CalculatedProduct/SourcingDataAreaIdBepaler.cls.xml	(revision 46501)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WSimpl.AX.CalculatedProduct.SourcingDataAreaIdBepaler">
+<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.SourcingDataAreaIdBepaler</Super>
+
+<Method name="Bepaal">
+<FormalSpec>Product:DOM.PM.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/WSimpl/AX/CalculatedProduct/SourcingDataAreaIdBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WSimpl/AX/CalculatedProduct/SourcingDataAreaIdBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/WSimpl/AX/CalculatedProduct/SourcingDataAreaIdBepaler.cls.xml	(revision 46501)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.WSimpl.AX.CalculatedProduct.SourcingDataAreaIdBepaler">
+<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.SourcingDataAreaIdBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Bepaal">
+<FormalSpec>Product:DOM.PM.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Bepaal",Product)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>