Index: AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r47566 -r47612
--- AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter.cls.xml	(.../GenVrijgegProductDixfConverter.cls.xml)	(revision 47566)
+++ AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter.cls.xml	(.../GenVrijgegProductDixfConverter.cls.xml)	(revision 47612)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductLegacyApi">
+<Type>DOM.PM.LegacyProductAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="AXimplFormatter">
 <Type>AXimpl.Formatter</Type>
 <Private>1</Private>
@@ -19,14 +24,15 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>AXimplFormatter:AXimpl.Formatter,ArtikelGroepBepaler:AX.Uitgaand.PM.VrijgegProduct.impl.ArtikelGroepBepaler</FormalSpec>
+<FormalSpec>AXimplFormatter:AXimpl.Formatter,ArtikelGroepBepaler:AX.Uitgaand.PM.VrijgegProduct.impl.ArtikelGroepBepaler,ProductLegacyApi:DOM.PM.LegacyProductAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..AXimplFormatter = $$$Inject(AXimplFormatter,##class(AXimpl.Formatter).%New())
 	Set ..ArtikelGroepBepaler = $$$Inject(ArtikelGroepBepaler,##class(AX.Uitgaand.PM.VrijgegProduct.impl.ArtikelGroepBepaler).%New())
+	Set ..ProductLegacyApi = $$$Inject(ProductLegacyApi,##class(DOM.DomeinContext).Instance().GeefLegacyProductAPI())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -112,7 +118,7 @@
 	Set ..AxProduct.InventTableModulePurchUnderDeliveryPct = "0"
 	Set ..AxProduct.InventTableModulePurchUnitId = "STK"
 	Set ..AxProduct.InventTableModuleSalesEndDisc = "Ja"
-	Set ..AxProduct.InventTableModuleSalesPriceUnit = $Piece($$PRIJSGEG^KPRIJS(Product.Basis.ProductNr),"\",9)
+	Set ..AxProduct.InventTableModuleSalesPriceUnit = $Piece(..ProductLegacyApi.GeefPrijsGegevens(Product.Basis.ProductNr),"\",9)
 	Set ..AxProduct.InventTableModuleSalesTaxItemGroupId = "G3"
 	Set ..AxProduct.InventTableModuleSalesUnitId = "STK"
 	Set ..AxProduct.ItemBuyerGroupId = ""
Index: vhUnitTest/AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter/Test.cls.xml
===================================================================
diff -u -r47564 -r47612
--- vhUnitTest/AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 47564)
+++ vhUnitTest/AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 47612)
@@ -46,6 +46,7 @@
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\")
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -64,6 +65,7 @@
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\")
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -82,6 +84,7 @@
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\")
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -100,6 +103,7 @@
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\")
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -118,6 +122,7 @@
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\")
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -136,6 +141,7 @@
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\")
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -154,6 +160,7 @@
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\")
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -172,6 +179,7 @@
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\")
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -190,6 +198,7 @@
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\")
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -208,6 +217,7 @@
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\")
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -226,6 +236,7 @@
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\")
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -243,6 +254,7 @@
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\")
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -261,6 +273,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: InventTableModuleSalesPriceUnit is GrootteOrdeVerkoop">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\")
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	#dim Converter As AX.Uitgaand.PM.GenVrijgegProduct.impl.GenVrijgegProductDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As %String = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.InventTableModuleSalesPriceUnit,"E")
+]]></Implementation>
+</Method>
+
 <Method name="GeefTeConverterenProduct">
 <Private>1</Private>
 <ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>