Index: WSimpl/AX/CalculatedProduct/ProductUpdater.cls.xml
===================================================================
diff -u
--- WSimpl/AX/CalculatedProduct/ProductUpdater.cls.xml	(revision 0)
+++ WSimpl/AX/CalculatedProduct/ProductUpdater.cls.xml	(revision 57285)
@@ -0,0 +1,111 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.AX.CalculatedProduct.ProductUpdater">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductService">
+<Type>WSimpl.AX.CalculatedProduct.ProductService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LadeVariantBepaler">
+<Type>WSimpl.AX.CalculatedProduct.LadeVariantBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DataMProductRepository">
+<Type>DOM.PM.impl.DataM.DataMProductRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductDataFactory">
+<Type>DOM.PM.dto.ProductDataFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductService:WSimpl.AX.CalculatedProduct.ProductService="",LadeVariantBepaler:WSimpl.AX.CalculatedProduct.LadeVariantBepaler="",DataMProductRepository:DOM.PM.impl.DataM.DataMProductRepository="",ProductDataFactory:DOM.PM.dto.ProductDataFactory=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductService = $$$Inject(ProductService, ##class(WSimpl.AX.CalculatedProduct.ProductService).%New())
+	Set ..LadeVariantBepaler = $$$Inject(LadeVariantBepaler, ##class(WSimpl.AX.CalculatedProduct.LadeVariantBepaler).%New())
+	Set ..DataMProductRepository = $$$Inject(DataMProductRepository, ##class(DOM.PM.impl.DataM.DataMProductRepository).%New())
+	Set ..ProductDataFactory = $$$Inject(ProductDataFactory, ##class(DOM.PM.dto.ProductDataFactory).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefGeupdatetProduct">
+<FormalSpec>Request:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest,ProductId:%String</FormalSpec>
+<ReturnType>DOM.PM.Product</ReturnType>
+<Implementation><![CDATA[
+	#dim Product As DOM.PM.Product =  ..ProductService.GeefProduct(ProductId, Request.ItemId)
+	
+	If ($$$Not($IsObject(Product))) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Voor het via BOMBOL updaten van een Product is er voor het door AX aangeleverde AdminProductNummer '"_ProductId_"' in Cache geen Product gevonden. Er kan dus niets geüpdate worden."))
+	} ElseIf (Product.IsGenerischProduct()) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Voor het via BOMBOL updaten van een Product is er voor het door AX aangeleverde AdminProductNummer '"_ProductId_"' in Cache een generisch product gevonden, dat daarom niet geüpdatet wordt."))
+	} Else {
+		Set Product = ..GeefGeupdatetProductVolgensLadeVariant(Request, ProductId, Product.GeefDossierNr())
+	}
+	
+	Quit Product
+]]></Implementation>
+</Method>
+
+<Method name="GeefGeupdatetProductVolgensLadeVariant">
+<FormalSpec>Request:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest,ProductId:%String,DossierNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Product</ReturnType>
+<Implementation><![CDATA[
+	#dim Product As DOM.PM.Product = ""
+	#dim LadeVariant As AXimpl.PM.enu.LadeVariant = ..GeefLadeVariant(ProductId, Request.Attribute)
+	
+	If (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).TBX()) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Het in BOMBOL updaten van een TBX-product is nog niet voorzien. Het door AX aangeleverde AdminProductNummer: '"_ProductId_"'."))
+	} ElseIf (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).LBX()) {
+		Set Product = ..GeefGeupdatetLbxProduct(Request, ProductId, DossierNummer)
+	} ElseIf (LadeVariant = ##class(AXimpl.PM.enu.LadeVariant).TAX()) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Het in BOMBOL updaten van een TAX-product is nog niet voorzien. Het door AX aangeleverde AdminProductNummer: '"_ProductId_"'."))
+	}
+	
+	Quit Product
+]]></Implementation>
+</Method>
+
+<Method name="GeefGeupdatetLbxProduct">
+<FormalSpec>Request:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest,ProductId:%String,DossierNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Product</ReturnType>
+<Implementation><![CDATA[
+	#dim Product As DOM.PM.Product = ""
+	
+	Do ..VerwijderProduct(ProductId)
+	Set Product = ..ProductService.GeefProductGemaaktVolgensAxKenmerken(Request, ..ProductDataFactory.MaakProductData(ProductId, DossierNummer))
+	
+	Quit Product
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderProduct">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..DataMProductRepository.VerwijderViaID(ProductId, $$$False)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeVariant">
+<FormalSpec>ProductId:%String,Kenmerken:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXimpl.PM.enu.LadeVariant</ReturnType>
+<Implementation><![CDATA[	Quit ..LadeVariantBepaler.Bepaal(ProductId, Kenmerken)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductUpdater/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductUpdater/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductUpdater/Test.cls.xml	(revision 57285)
@@ -0,0 +1,149 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.AX.CalculatedProduct.ProductUpdater.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductId">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<Parameter name="RandomDossierNr">
+<Type>%String</Type>
+<Default>RandomDossierNr</Default>
+</Parameter>
+
+<Property name="ProductService">
+<Type>WSimpl.AX.CalculatedProduct.ProductService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DataMProductRepository">
+<Type>DOM.PM.impl.DataM.DataMProductRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(..#ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..DataMProductRepository = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProductRepository).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Een Lbx-Product wordt geüpdatet">
+<Implementation><![CDATA[
+	#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ..GeefRequest()
+	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ..GeefProductStub()
+	#dim ProductData As DOM.PM.dto.ProductData = ##class(DOM.PM.dto.ProductData).%New()
+	
+	#dim ProductServiceMock As vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService).%New()
+	Do ProductServiceMock.VerwachtMethodCall("GeefProduct", ..#ProductId, Request.ItemId).DanReturn(ProductStub)
+	Do ProductServiceMock.VerwachtMethodCall("GeefProductGemaaktVolgensAxKenmerken", Request, ProductData).DanReturn(ProductStub)
+	Set ..ProductService = ProductServiceMock
+	
+	#dim DataMProductRepositoryMock As vhTest.Mock.DOM.PM.impl.DataM.DataMProductRepository = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProductRepository).%New()
+	Do DataMProductRepositoryMock.VerwachtMethodCall("VerwijderViaID", ..#ProductId, $$$False).DanDoeNiks()
+	Set ..DataMProductRepository = DataMProductRepositoryMock
+	
+	#dim ProductUpdater As WSimpl.AX.CalculatedProduct.ProductUpdater = ..GeefProductUpdater("LBX", Request, ProductData)
+	#dim GeupdatetProduct As DOM.PM.Product = ProductUpdater.GeefGeupdatetProduct(Request, ..#ProductId)
+	
+	Do ..Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als GeefProduct van de ProductService leeg teruggeeft =&gt; Exceptie">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Voor het via BOMBOL updaten van een Product is er voor het door AX aangeleverde AdminProductNummer '", ..#ProductId, "' in Cache geen Product gevonden. Er kan dus niets geüpdate worden.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+
+	#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest).%New()
+	
+	#dim ProductServiceStub As vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService).%New()
+	Do ProductServiceStub.IndienMethodCall("GeefProduct", ..#ProductId, Request.ItemId).DanReturn("")
+	Set ..ProductService = ProductServiceStub
+	
+	#dim ProductUpdater As WSimpl.AX.CalculatedProduct.ProductUpdater = ..GeefProductUpdater(, Request)
+	#dim GeupdatetProduct As DOM.PM.Product = ProductUpdater.GeefGeupdatetProduct(Request, ..#ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductUpdater">
+<FormalSpec>LadeVariant:AXimpl.PM.enu.LadeVariant=##class(AXimpl.PM.enu.LadeVariant).LBX(),Request:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest,ProductData:DOM.PM.dto.ProductData=##class(DOM.PM.dto.ProductData).%New()</FormalSpec>
+<Private>1</Private>
+<ReturnType>WSimpl.AX.CalculatedProduct.ProductUpdater</ReturnType>
+<Implementation><![CDATA[
+	#dim LadeVariantBepalerStub As vhTest.Mock.WSimpl.AX.CalculatedProduct.LadeVariantBepaler = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.LadeVariantBepaler).%New()
+	Do LadeVariantBepalerStub.IndienMethodCall("Bepaal", ..#ProductId, Request.Attribute).DanReturn(LadeVariant)
+	
+	#dim ProductDataFactoryStub As vhTest.Mock.DOM.PM.dto.ProductDataFactory = ##class(vhTest.Mock.DOM.PM.dto.ProductDataFactory).%New()
+	Do ProductDataFactoryStub.IndienMethodCall("MaakProductData", ..#ProductId, ..#RandomDossierNr).DanReturn(ProductData)
+	
+	Quit ##class(WSimpl.AX.CalculatedProduct.ProductUpdater).%New(..ProductService, LadeVariantBepalerStub, ..DataMProductRepository, ProductDataFactoryStub)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductStub">
+<Private>1</Private>
+<ReturnType>DOM.PM.Product</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("IsGenerischProduct").DanReturn($$$False)
+	Do ProductStub.IndienMethodCall("GeefDossierNr").DanReturn(..#RandomDossierNr)
+	
+	Quit ProductStub
+]]></Implementation>
+</Method>
+
+<Method name="GeefRequest">
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest</ReturnType>
+<Implementation><![CDATA[
+	#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest).%New()
+	Do Request.Attribute.Insert(..MaakAttribute("AdminProductNummer", ..#ProductId))
+	
+	Quit Request
+]]></Implementation>
+</Method>
+
+<Method name="MaakAttribute">
+<FormalSpec>Name:%String,Value:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute</ReturnType>
+<Implementation><![CDATA[
+	#dim Attribute As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set Attribute.Name = Name
+	Set Attribute.ValueTxt = Value
+	
+	Quit Attribute
+]]></Implementation>
+</Method>
+
+<Method name="Verifieer">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..ProductService.Verifieer()
+	Do ..DataMProductRepository.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>