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