Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml =================================================================== diff -u -r47314 -r47479 --- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml (.../VrijgegProductDixfConverter.cls.xml) (revision 47314) +++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml (.../VrijgegProductDixfConverter.cls.xml) (revision 47479) @@ -58,6 +58,11 @@ 1 + +AX.Uitgaand.PM.VrijgegProduct.impl.ArtikelGroepBepaler +1 + + AXimpl.Formatter 1 @@ -89,7 +94,7 @@ -DataDefinitieService:BL.Prod.Kenmerk.DataDefinitieService,VoorraadInstellingCalculator:AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator,AXimplFormatter:AXimpl.Formatter,IsBasisProductFilter:AX.Uitgaand.PM.impl.IsBasisProductFilter +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 1 1 %Status @@ -99,6 +104,7 @@ Set ..VoorraadInstellingCalculator = $$$Inject(VoorraadInstellingCalculator,##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()) 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 ..Utils = ##class(AXimpl.Utils).%New() Quit $$$OK ]]> @@ -260,7 +266,7 @@ Set ..AxProduct.InventItemSalesSetupMultipleQty = ..BepaalInventItemSalesSetupMultipleQtyVH(Product) Set ..AxProduct.InventSiteId = "VHEPN1" Set ..AxProduct.ItemBuyerGroupId = ..Utils.ConvertItemBuyerGroupId(##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),Product) - Set ..AxProduct.ItemGroupId = "HG" + Set ..AxProduct.ItemGroupId = ..ArtikelGroepBepaler.GeefArtikelGroep(Product.Basis.ProductNr,##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()) Set ..AxProduct.PmfProductType = ..BepaalPmfProductTypeVH(Product) Set ..AxProduct.ReqGroupId = ..Utils.ConvertReqGroupId(##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),Product) Set ..AxProduct.InventItemPurchSetupCalendarDays = ..BepaalInventItemPurchSetupCalendarDaysVH(Product) @@ -291,7 +297,7 @@ Set ..AxProduct.InventItemSalesSetupMultipleQty = "1" Set ..AxProduct.InventSiteId = "HLXEPN1" Set ..AxProduct.ItemBuyerGroupId = ..Utils.ConvertItemBuyerGroupId(##class(AXimpl.InterneFirmaInitialen).HaluxNv(),Product) - Set ..AxProduct.ItemGroupId = "GS" + Set ..AxProduct.ItemGroupId = ..ArtikelGroepBepaler.GeefArtikelGroep(Product.Basis.ProductNr,##class(AXimpl.InterneFirmaInitialen).HaluxNv()) Set ..AxProduct.PmfProductType = ..BepaalPmfProductTypeHLX(Product) Set ..AxProduct.ReqGroupId = ..Utils.ConvertReqGroupId(##class(AXimpl.InterneFirmaInitialen).HaluxNv(),Product) Set ..AxProduct.InventItemPurchSetupCalendarDays = "1" Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml =================================================================== diff -u -r47314 -r47479 --- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 47314) +++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 47479) @@ -8,6 +8,11 @@ 1000 + +AX.Uitgaand.PM.VrijgegProduct.impl.ArtikelGroepBepaler +1 + + AXimpl.Formatter 1 @@ -51,6 +56,7 @@ Set ..IsBasisProductFilter = ##class(vhTest.Fake.AX.Uitgaand.PM.impl.IsBasisProductFilter).%New() Set ..BestelImpulsRepositoryMock = ##class(vhTest.Mock.DOM.AKP.BestelImpuls.impl.BestelImpulsRepository).%New() Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$True) + Set ..ArtikelGroepBepaler = ##class(vhTest.Fake.AX.Uitgaand.PM.VrijgegProduct.impl.ArtikelGroepBepaler).%New() ]]> @@ -167,7 +173,6 @@ Do $$$AssertEquals(ConvertedProduct.InventItemPurchSetupInventSiteDefault,"VHEPN1") Do $$$AssertEquals(ConvertedProduct.InventItemSalesSetupInventSiteDefault,"VHEPN1") Do $$$AssertEquals(ConvertedProduct.InventSiteId,"VHEPN1") - Do $$$AssertEquals(ConvertedProduct.ItemGroupId,"HG") ]]> @@ -199,7 +204,6 @@ Do $$$AssertEquals(ConvertedProduct.InventItemSalesSetupMultipleQty,"1") Do $$$AssertEquals(ConvertedProduct.InventSiteId,"HLXEPN1") Do $$$AssertEquals(ConvertedProduct.InventItemPurchSetupCalendarDays,"1") - Do $$$AssertEquals(ConvertedProduct.ItemGroupId,"GS") ]]> @@ -1636,6 +1640,27 @@ ]]> + + + + 1 AX.Uitgaand.PM.Product.impl.Product @@ -1649,7 +1674,7 @@ 1 AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter - Index: vhTest/Fake/AX/Uitgaand/PM/VrijgegProduct/impl/ArtikelGroepBepaler.cls.xml =================================================================== diff -u --- vhTest/Fake/AX/Uitgaand/PM/VrijgegProduct/impl/ArtikelGroepBepaler.cls.xml (revision 0) +++ vhTest/Fake/AX/Uitgaand/PM/VrijgegProduct/impl/ArtikelGroepBepaler.cls.xml (revision 47479) @@ -0,0 +1,19 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +AX.Uitgaand.PM.VrijgegProduct.impl.ArtikelGroepBepaler + + +PRNr:%Integer,Vestiging:AXimpl.InterneFirmaInitialen +%String + + + + + + Index: vhTest/Mock/AX/Uitgaand/PM/VrijgegProduct/impl/ArtikelGroepBepaler.cls.xml =================================================================== diff -u --- vhTest/Mock/AX/Uitgaand/PM/VrijgegProduct/impl/ArtikelGroepBepaler.cls.xml (revision 0) +++ vhTest/Mock/AX/Uitgaand/PM/VrijgegProduct/impl/ArtikelGroepBepaler.cls.xml (revision 47479) @@ -0,0 +1,20 @@ + + + + +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 +1 +AX.Uitgaand.PM.VrijgegProduct.impl.ArtikelGroepBepaler,Tools.Mock.MockClassBase +right + + +PRNr:%Integer,Vestiging:AXimpl.InterneFirmaInitialen +%String + + + + + + Index: AX/Uitgaand/PM/VrijgegProduct/impl/ArtikelGroepBepaler.cls.xml =================================================================== diff -u --- AX/Uitgaand/PM/VrijgegProduct/impl/ArtikelGroepBepaler.cls.xml (revision 0) +++ AX/Uitgaand/PM/VrijgegProduct/impl/ArtikelGroepBepaler.cls.xml (revision 47479) @@ -0,0 +1,16 @@ + + + +Prod.Product +TECH.RegisteredObject,TECH.Mockable + + +PRNr:%Integer,Vestiging:AXimpl.InterneFirmaInitialen +%String + + + + + +