Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml =================================================================== diff -u -r47239 -r47314 --- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 47239) +++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 47314) @@ -23,8 +23,8 @@ 1 - -AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter + +AX.Uitgaand.PM.impl.IsBasisProductFilter 1 @@ -48,7 +48,7 @@ Set ..DataDefinitieService = ##class(vhTest.Fake.BL.Prod.Kenmerk.DataDefinitieService).%New() Set ..VoorraadInstellingCalculator = ##class(vhTest.Fake.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New() Set ..AXimplFormatter = ##class(vhTest.Dummy.AXimpl.Formatter).%New() - Set ..GenerischOrgaluxProductFilter = ##class(vhTest.Fake.AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter).%New() + 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) ]]> @@ -1603,9 +1603,9 @@ #dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct() - #dim GenerischOrgaluxProductFilter As AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter = ##class(vhTest.Mock.AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter).%New() - Do GenerischOrgaluxProductFilter.IndienMethodCall("IsGenerischOrgaluxProduct",AxProduct).DanReturn($$$True) - Set ..GenerischOrgaluxProductFilter = GenerischOrgaluxProductFilter + #dim IsBasisProductFilter As AX.Uitgaand.PM.impl.IsBasisProductFilter = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.IsBasisProductFilter).%New() + Do IsBasisProductFilter.IndienMethodCall("IsValid",AxProduct).DanReturn($$$True) + Set ..IsBasisProductFilter = IsBasisProductFilter #dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter() @@ -1624,9 +1624,9 @@ #dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct() - #dim GenerischOrgaluxProductFilter As AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter = ##class(vhTest.Mock.AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter).%New() - Do GenerischOrgaluxProductFilter.IndienMethodCall("IsGenerischOrgaluxProduct",AxProduct).DanReturn($$$False) - Set ..GenerischOrgaluxProductFilter = GenerischOrgaluxProductFilter + #dim IsBasisProductFilter As AX.Uitgaand.PM.impl.IsBasisProductFilter = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.IsBasisProductFilter).%New() + Do IsBasisProductFilter.IndienMethodCall("IsValid",AxProduct).DanReturn($$$False) + Set ..IsBasisProductFilter = IsBasisProductFilter #dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter() @@ -1649,7 +1649,7 @@ 1 AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter - Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml =================================================================== diff -u -r47239 -r47314 --- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml (.../VrijgegProductDixfConverter.cls.xml) (revision 47239) +++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml (.../VrijgegProductDixfConverter.cls.xml) (revision 47314) @@ -68,8 +68,8 @@ 1 - -AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter + +AX.Uitgaand.PM.impl.IsBasisProductFilter 1 @@ -89,7 +89,7 @@ -DataDefinitieService:BL.Prod.Kenmerk.DataDefinitieService,VoorraadInstellingCalculator:AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator,AXimplFormatter:AXimpl.Formatter,GenerischOrgaluxProductFilter:AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter +DataDefinitieService:BL.Prod.Kenmerk.DataDefinitieService,VoorraadInstellingCalculator:AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator,AXimplFormatter:AXimpl.Formatter,IsBasisProductFilter:AX.Uitgaand.PM.impl.IsBasisProductFilter 1 1 %Status @@ -98,7 +98,7 @@ Set ..DataDefinitieService = $$$Inject(DataDefinitieService,##class(BL.Prod.Kenmerk.DataDefinitieService).%New()) Set ..VoorraadInstellingCalculator = $$$Inject(VoorraadInstellingCalculator,##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()) Set ..AXimplFormatter = $$$Inject(AXimplFormatter,##class(AXimpl.Formatter).%New()) - Set ..GenerischOrgaluxProductFilter = $$$Inject(GenerischOrgaluxProductFilter,##class(AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter).%New()) + Set ..IsBasisProductFilter = $$$Inject(IsBasisProductFilter,##class(AX.Uitgaand.PM.impl.IsBasisProductFilter).%New()) Set ..Utils = ##class(AXimpl.Utils).%New() Quit $$$OK ]]> @@ -138,7 +138,7 @@ Set ..AxProduct.DefaultOrderType = ..DefaultOrderType Set ..AxProduct.DisplayProductNumber = Product.Basis.IdentNummer Set ..AxProduct.EcoResStorageDimensionGroupName = "WMS" - Set ..AxProduct.EcoResTrackingDimensionGroupName = $$$If(..GenerischOrgaluxProductFilter.IsGenerischOrgaluxProduct(Product),"None","Batch") + Set ..AxProduct.EcoResTrackingDimensionGroupName = $$$If(..IsBasisProductFilter.IsValid(Product),"None","Batch") Set ..AxProduct.Intracode = ..BepaalIntracode(Product) Set ..Intracode = ..AxProduct.Intracode Set ..AxProduct.InventItemInventMandatoryInventLocation = "Nee"