Index: WSimpl/AX/CalculatedProduct/RequestConverter.cls.xml =================================================================== diff -u -r43303 -r43304 --- WSimpl/AX/CalculatedProduct/RequestConverter.cls.xml (.../RequestConverter.cls.xml) (revision 43303) +++ WSimpl/AX/CalculatedProduct/RequestConverter.cls.xml (.../RequestConverter.cls.xml) (revision 43304) @@ -45,6 +45,7 @@ Set ConfigVariant.GTIN = Product.GeefEANCode() Set ConfigVariant.SourcingDataAreaId = ..InterneFirmaBepaler.Bepaal(Product.GeefPRNr()) Set ConfigVariant.ProductName = Product.GeefKorttekst() + Set ConfigVariant.CostPrice = Product.GeefNettoAankoopPrijsInclCif() } Else { Set ConfigVariant.ErrorText = ##class(WSimpl.AX.CalculatedProduct.Converter.enu.ErrorText).NotFound() } Index: vhUnitTest/WSimpl/AX/CalculatedProduct/RequestConverter/Test.cls.xml =================================================================== diff -u -r43303 -r43304 --- vhUnitTest/WSimpl/AX/CalculatedProduct/RequestConverter/Test.cls.xml (.../Test.cls.xml) (revision 43303) +++ vhUnitTest/WSimpl/AX/CalculatedProduct/RequestConverter/Test.cls.xml (.../Test.cls.xml) (revision 43304) @@ -28,6 +28,7 @@ Do ProductStub.IndienMethodCall("GeefEANCode") Do ProductStub.IndienMethodCall("GeefPRNr").DanReturn(RandomItemId) Do ProductStub.IndienMethodCall("GeefKorttekst") + Do ProductStub.IndienMethodCall("GeefNettoAankoopPrijsInclCif") #dim ProductApiMock As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New() Do ProductApiMock.VerwachtMethodCall("BestaatProduct", RandomItemId).DanReturn($$$True) Index: vhUnitTest/WSimpl/AX/CalculatedProduct/RequestConverter/Test/ProductData.cls.xml =================================================================== diff -u -r43303 -r43304 --- vhUnitTest/WSimpl/AX/CalculatedProduct/RequestConverter/Test/ProductData.cls.xml (.../ProductData.cls.xml) (revision 43303) +++ vhUnitTest/WSimpl/AX/CalculatedProduct/RequestConverter/Test/ProductData.cls.xml (.../ProductData.cls.xml) (revision 43304) @@ -39,6 +39,7 @@ Do ..ProductStub.IndienMethodCall("GeefEANCode") Do ..ProductStub.IndienMethodCall("GeefPRNr").DanReturn(..RandomItemId) Do ..ProductStub.IndienMethodCall("GeefKorttekst") + Do ..ProductStub.IndienMethodCall("GeefNettoAankoopPrijsInclCif") Set ..DummyRequest = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest).%New() Set ..DummyRequest.ItemId = ..RandomItemId @@ -73,6 +74,15 @@ ]]> + + + + EanCode:%String 1 @@ -106,6 +116,18 @@ Do $$$AssertEquals(ConfigVariant.ProductName, Korttekst) ]]> + + +NettoAankoopPrijs:%Float +1 + +