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 +