Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/Test.cls.xml
===================================================================
diff -u -r58044 -r58409
--- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58044)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58409)
@@ -8,6 +8,11 @@
 <Default>RandomProductId</Default>
 </Parameter>
 
+<Parameter name="RandomNieuwProductId">
+<Type>%String</Type>
+<Default>RandomNieuwProductId</Default>
+</Parameter>
+
 <Property name="ProductService">
 <Type>WSimpl.AX.CalculatedProduct.ProductService</Type>
 </Property>
@@ -17,73 +22,86 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OrderService">
+<Type>WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	
 	Set ..ProductService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService).%New()
 	Set ..ProductUpdater = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductUpdater).%New()
+	Set ..OrderService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService).%New()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: AttrVsAdminProdNr is Fixed">
+<Method name="Test: AttrVsAdminProdNr is Fixed =&gt; Geeft bestaand product">
 <Implementation><![CDATA[
-	#dim ProductDummy As vhTest.Dummy.DOM.PM.Product = ##class(vhTest.Dummy.DOM.PM.Product).%New()
+	#dim ProductStub As DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefPRNr").DanReturn(..#RandomProductId)
 	
 	#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ..MaakRequest(..#RandomProductId)
 	Set Request.AttrVsAdminProdNr = "Fixed"
 			
 	#dim ProductServiceMock As vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService).%New()
-	Do ProductServiceMock.VerwachtMethodCall("GeefProduct", ..#RandomProductId, Request.ItemId).DanReturn(ProductDummy)
+	Do ProductServiceMock.VerwachtMethodCall("GeefProduct", ..#RandomProductId, Request.ItemId).DanReturn(ProductStub)
 	Set ..ProductService = ProductServiceMock
 	
 	#dim ProductVolgensAxAttribuutBepaler As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler = ..GeefProductVolgensAxAttribuutBepaler()
 	#dim ProductVolgensAxAttribuut As DOM.PM.Product = ProductVolgensAxAttribuutBepaler.GeefProductVolgensAttrVsAdminProdNr(Request)
 	
+	Do $$$AssertEquals(ProductVolgensAxAttribuut.GeefPRNr(), ..#RandomProductId)
 	Do ..ProductService.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: AttrVsAdminProdNr is ChangeRequest">
+<Method name="Test: AttrVsAdminProdNr is ChangeRequest =&gt; Nieuw product volgens kenmerken">
 <Implementation><![CDATA[
-	#dim ProductDummy As vhTest.Dummy.DOM.PM.Product = ##class(vhTest.Dummy.DOM.PM.Product).%New()
+	#dim ProductStub As DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefPRNr").DanReturn(..#RandomNieuwProductId)
 	
 	#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ..MaakRequest(..#RandomProductId)
 	Set Request.AttrVsAdminProdNr = "ChangeRequest"
 	
 	#dim ProductServiceMock As vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService).%New()
-	Do ProductServiceMock.VerwachtMethodCall("GeefProductGemaaktVolgensAxKenmerken", Request).DanReturn(ProductDummy)
+	Do ProductServiceMock.VerwachtMethodCall("GeefProductGemaaktVolgensAxKenmerken", Request).DanReturn(ProductStub)
 	Set ..ProductService = ProductServiceMock
 	
 	#dim ProductVolgensAxAttribuutBepaler As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler = ..GeefProductVolgensAxAttribuutBepaler()
 	#dim ProductVolgensAxAttribuut As DOM.PM.Product = ProductVolgensAxAttribuutBepaler.GeefProductVolgensAttrVsAdminProdNr(Request)
 	
+	Do $$$AssertEquals(ProductVolgensAxAttribuut.GeefPRNr(), ..#RandomNieuwProductId)
 	Do ..ProductService.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: AttrVsAdminProdNr = Customizable en AdminProductNummer = niet meegegeven =&gt; Nieuw product volgens kenmerken">
 <Implementation><![CDATA[
-	#dim ProductDummy As vhTest.Dummy.DOM.PM.Product = ##class(vhTest.Dummy.DOM.PM.Product).%New()
+	#dim ProductStub As DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefPRNr").DanReturn(..#RandomNieuwProductId)
 	
 	#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ..MaakRequest("")
 	Set Request.AttrVsAdminProdNr = "Customizable"
 	
 	#dim ProductServiceMock As vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService).%New()
-	Do ProductServiceMock.VerwachtMethodCall("GeefProductGemaaktVolgensAxKenmerken", Request).DanReturn(ProductDummy)
+	Do ProductServiceMock.VerwachtMethodCall("GeefProductGemaaktVolgensAxKenmerken", Request).DanReturn(ProductStub)
 	Set ..ProductService = ProductServiceMock
 	
 	#dim ProductVolgensAxAttribuutBepaler As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler = ..GeefProductVolgensAxAttribuutBepaler()
 	#dim ProductVolgensAxAttribuut As DOM.PM.Product = ProductVolgensAxAttribuutBepaler.GeefProductVolgensAttrVsAdminProdNr(Request)
 	
+	Do $$$AssertEquals(ProductVolgensAxAttribuut.GeefPRNr(), ..#RandomNieuwProductId)
 	Do ..ProductService.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: AttrVsAdminProdNr = Customizable en AdminProductNummer = meegegeven =&gt; GeefGeupdatetProduct van ProductUpdater">
 <Implementation><![CDATA[
-	#dim ProductDummy As vhTest.Dummy.DOM.PM.Product = ##class(vhTest.Dummy.DOM.PM.Product).%New()
+	#dim ProductStub As DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefPRNr").DanReturn(..#RandomProductId)
 	
 	#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ..MaakRequest(..#RandomProductId)
 	Set Request.AttrVsAdminProdNr = "Customizable"
@@ -93,62 +111,73 @@
 	Set ..ProductService = ProductServiceMock
 	
 	#dim ProductUpdaterMock As vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductUpdater = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductUpdater).%New()
-	Do ProductUpdaterMock.VerwachtMethodCall("GeefGeupdatetProduct", Request, ..#RandomProductId).DanReturn(ProductDummy)
+	Do ProductUpdaterMock.VerwachtMethodCall("GeefGeupdatetProduct", Request, ..#RandomProductId).DanReturn(ProductStub)
 	Set ..ProductUpdater = ProductUpdaterMock
 	
 	#dim ProductVolgensAxAttribuutBepaler As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler = ..GeefProductVolgensAxAttribuutBepaler()
 	#dim ProductVolgensAxAttribuut As DOM.PM.Product = ProductVolgensAxAttribuutBepaler.GeefProductVolgensAttrVsAdminProdNr(Request)
 	
+	Do $$$AssertEquals(ProductVolgensAxAttribuut.GeefPRNr(), ..#RandomProductId)
 	Do ..ProductService.Verifieer()
 	Do ..ProductUpdater.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: AttrVsAdminProdNr = Customizable en AdminProductNummer = meegegeven =&gt; HeeftBezwaarVoorProductDelete =&gt; Nieuw product volgens kenmerken">
 <Implementation><![CDATA[
-	#dim ProductDummy As vhTest.Dummy.DOM.PM.Product = ##class(vhTest.Dummy.DOM.PM.Product).%New()
+	#dim ProductStub As DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefPRNr").DanReturn(..#RandomNieuwProductId)
 	
 	#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ..MaakRequest(..#RandomProductId)
 	Set Request.AttrVsAdminProdNr = "Customizable"
 	
 	#dim ProductServiceMock As vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService).%New()
 	Do ProductServiceMock.IndienMethodCall("HeeftBezwaarVoorProductDelete", ..#RandomProductId).DanReturn($$$True)
-	Do ProductServiceMock.VerwachtMethodCall("GeefProductGemaaktVolgensAxKenmerken", Request).DanReturn(ProductDummy)
+	Do ProductServiceMock.VerwachtMethodCall("GeefProductGemaaktVolgensAxKenmerken", Request).DanReturn(ProductStub)
 	Do ProductServiceMock.IndienMethodCall("GeefOrderIdsVoorProduct", ..#RandomProductId).DanReturn("")
 	Set ..ProductService = ProductServiceMock
 	
 	#dim ProductVolgensAxAttribuutBepaler As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler = ..GeefProductVolgensAxAttribuutBepaler()
 	#dim ProductVolgensAxAttribuut As DOM.PM.Product = ProductVolgensAxAttribuutBepaler.GeefProductVolgensAttrVsAdminProdNr(Request)
 	
+	Do $$$AssertEquals(ProductVolgensAxAttribuut.GeefPRNr(), ..#RandomNieuwProductId)
 	Do ..ProductService.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: AttrVsAdminProdNr = Customizable en AdminProductNummer = meegegeven =&gt; HeeftBezwaarVoorProductDelete =&gt; Orders aanwezig =&gt; VerwerkOrder op OrderService aanroepen">
 <Implementation><![CDATA[
 	#dim OrderIdLijst As %String = "12345,23456"
-	#dim ProductDummy As vhTest.Dummy.DOM.PM.Product = ##class(vhTest.Dummy.DOM.PM.Product).%New()
+	#dim ProductStub As DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefPRNr").DanReturn(..#RandomNieuwProductId)
 	
 	#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ..MaakRequest(..#RandomProductId)
 	Set Request.AttrVsAdminProdNr = "Customizable"
+	Set Request.InventTransId = "InventTransId"
 	
 	#dim ProductServiceMock As vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService).%New()
 	Do ProductServiceMock.IndienMethodCall("HeeftBezwaarVoorProductDelete", ..#RandomProductId).DanReturn($$$True)
-	Do ProductServiceMock.VerwachtMethodCall("GeefProductGemaaktVolgensAxKenmerken", Request).DanReturn(ProductDummy)
+	Do ProductServiceMock.VerwachtMethodCall("GeefProductGemaaktVolgensAxKenmerken", Request).DanReturn(ProductStub)
 	Do ProductServiceMock.IndienMethodCall("GeefOrderIdsVoorProduct", ..#RandomProductId).DanReturn(OrderIdLijst)
 	Set ..ProductService = ProductServiceMock
 	
+	#dim OrderServiceMock As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService).%New()
+	Do OrderServiceMock.VerwachtMethodCall("VerwerkOrder", "12345", ..#RandomProductId, ..#RandomNieuwProductId, "InventTransId").DanDoeNiks()
+	Do OrderServiceMock.VerwachtMethodCall("VerwerkOrder", "23456", ..#RandomProductId, ..#RandomNieuwProductId, "InventTransId").DanDoeNiks()
+	Set ..OrderService = OrderServiceMock
+	
 	#dim ProductVolgensAxAttribuutBepaler As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler = ..GeefProductVolgensAxAttribuutBepaler()
 	#dim ProductVolgensAxAttribuut As DOM.PM.Product = ProductVolgensAxAttribuutBepaler.GeefProductVolgensAttrVsAdminProdNr(Request)
 	
 	Do ..ProductService.Verifieer()
+	Do ..OrderService.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="GeefProductVolgensAxAttribuutBepaler">
 <Private>1</Private>
 <ReturnType>WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler</ReturnType>
-<Implementation><![CDATA[	Quit ##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler).%New(..ProductService, ..ProductUpdater)
+<Implementation><![CDATA[	Quit ##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler).%New(..ProductService, ..ProductUpdater, ..OrderService)
 ]]></Implementation>
 </Method>