Index: AXimpl/Admin/Context.cls.xml
===================================================================
diff -u -r47272 -r47610
--- AXimpl/Admin/Context.cls.xml (.../Context.cls.xml) (revision 47272)
+++ AXimpl/Admin/Context.cls.xml (.../Context.cls.xml) (revision 47610)
@@ -27,7 +27,7 @@
1
-APPS.ApplicatieContext
+AXimpl.Admin.Context
1
-DOM.PARTIJ.LegacyPartijAPI,TECH.RegisteredObject
+DOM.PM.LegacyProductAPI,TECH.RegisteredObject
right
@@ -12,6 +12,13 @@
+
+
+ProductNummer:%String
+%String
+
+
Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml
===================================================================
diff -u -r47566 -r47610
--- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 47566)
+++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 47610)
@@ -75,6 +75,7 @@
#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()
@@ -159,6 +160,7 @@
#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()
@@ -184,6 +186,7 @@
#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(05497)
+ Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\")
#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
@@ -211,6 +214,7 @@
"Aankooporder" en dus InventItemPurchSetupLeadTimeHLX leeg is
+ Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\")
#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
@@ -1215,6 +1267,7 @@
#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()
@@ -1233,6 +1286,7 @@
+
+
+
+
1
AX.Uitgaand.PM.Product.impl.Product
Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r47566 -r47610
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml (.../VrijgegProductDixfConverter.cls.xml) (revision 47566)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml (.../VrijgegProductDixfConverter.cls.xml) (revision 47610)
@@ -78,6 +78,11 @@
1
+
+DOM.PM.LegacyProductAPI
+1
+
+
BL.Prod.Kenmerk.DataDefinitieService
1
@@ -94,7 +99,7 @@
-DataDefinitieService:BL.Prod.Kenmerk.DataDefinitieService,VoorraadInstellingCalculator:AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator,AXimplFormatter:AXimpl.Formatter,IsBasisProductFilter:AX.Uitgaand.PM.impl.IsBasisProductFilter,ArtikelGroepBepaler:AX.Uitgaand.PM.VrijgegProduct.impl.ArtikelGroepBepaler
+DataDefinitieService:BL.Prod.Kenmerk.DataDefinitieService,VoorraadInstellingCalculator:AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator,AXimplFormatter:AXimpl.Formatter,IsBasisProductFilter:AX.Uitgaand.PM.impl.IsBasisProductFilter,ArtikelGroepBepaler:AX.Uitgaand.PM.VrijgegProduct.impl.ArtikelGroepBepaler,ProductLegacyApi:DOM.PM.LegacyProductAPI
1
1
%Status
@@ -105,6 +110,7 @@
Set ..AXimplFormatter = $$$Inject(AXimplFormatter,##class(AXimpl.Formatter).%New())
Set ..IsBasisProductFilter = $$$Inject(IsBasisProductFilter,##class(AX.Uitgaand.PM.impl.IsBasisProductFilter).%New())
Set ..ArtikelGroepBepaler = $$$Inject(ArtikelGroepBepaler,##class(AX.Uitgaand.PM.VrijgegProduct.impl.ArtikelGroepBepaler).%New())
+ Set ..ProductLegacyApi = $$$Inject(ProductLegacyApi,##class(DOM.DomeinContext).Instance().GeefLegacyProductAPI())
Set ..Utils = ##class(AXimpl.Utils).%New()
Quit $$$OK
]]>
@@ -179,7 +185,7 @@
Set ..AxProduct.InventTableModulePurchUnderDeliveryPct = ..BepaalInventTableModulePurchUnderDeliveryPct(Product)
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.ItemDimCostPrice = "Nee"
Index: vhTest/Mock/DOM/PM/LegacyProductAPI.cls.xml
===================================================================
diff -u -r41359 -r47610
--- vhTest/Mock/DOM/PM/LegacyProductAPI.cls.xml (.../LegacyProductAPI.cls.xml) (revision 41359)
+++ vhTest/Mock/DOM/PM/LegacyProductAPI.cls.xml (.../LegacyProductAPI.cls.xml) (revision 47610)
@@ -3,8 +3,7 @@
Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
1
DOM.PM.LegacyProductAPI,Tools.Mock.MockClassBase
right
@@ -24,6 +23,13 @@
+
+
+ProductNummer:%String
+%String
+
+
Index: DOM/PM/LegacyProductAPI.cls.xml
===================================================================
diff -u -r41359 -r47610
--- DOM/PM/LegacyProductAPI.cls.xml (.../LegacyProductAPI.cls.xml) (revision 41359)
+++ DOM/PM/LegacyProductAPI.cls.xml (.../LegacyProductAPI.cls.xml) (revision 47610)
@@ -11,6 +11,12 @@
ProductNummer:%String
%String
+
+
+1
+ProductNummer:%String
+%String
+