Index: vhUnitTest/AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter/Test.cls.xml =================================================================== diff -u -r47212 -r47315 --- vhUnitTest/AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 47212) +++ vhUnitTest/AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 47315) @@ -13,8 +13,8 @@ 1 - -AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter + +AX.Uitgaand.PM.impl.IsBasisProductFilter 1 @@ -31,7 +31,7 @@ @@ -231,9 +231,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.GenVrijgegProduct.impl.GenVrijgegProductDixfConverter = ..GeefConverter() @@ -252,9 +252,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.GenVrijgegProduct.impl.GenVrijgegProductDixfConverter = ..GeefConverter() @@ -277,7 +277,7 @@ 1 AX.Uitgaand.PM.GenVrijgegProduct.impl.GenVrijgegProductDixfConverter - Index: AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter.cls.xml =================================================================== diff -u -r47244 -r47315 --- AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter.cls.xml (.../GenVrijgegProductDixfConverter.cls.xml) (revision 47244) +++ AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter.cls.xml (.../GenVrijgegProductDixfConverter.cls.xml) (revision 47315) @@ -13,20 +13,20 @@ 1 - -AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter + +AX.Uitgaand.PM.impl.IsBasisProductFilter 1 -AXimplFormatter:AXimpl.Formatter,GenerischOrgaluxProductFilter:AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter +AXimplFormatter:AXimpl.Formatter,IsBasisProductFilter:AX.Uitgaand.PM.impl.IsBasisProductFilter 1 1 %Status 1 @@ -59,7 +59,7 @@ Set ..AxProduct.DefaultOrderType = $$$If(Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),"Aankoop","Productie") 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 ..AxProduct.IntrastatExclude = "" // ON HOLD Set ..AxProduct.IntraUnit = $$$If(##class(TECH.StringUtils).Equals(..AxProduct.Intracode,"84659500","85043180","90172039"),"1","")