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
+
+