Index: AX/Uitgaand/PM/impl/IsServiceProductFilter.cls.xml =================================================================== diff -u -r47478 -r47728 --- AX/Uitgaand/PM/impl/IsServiceProductFilter.cls.xml (.../IsServiceProductFilter.cls.xml) (revision 47478) +++ AX/Uitgaand/PM/impl/IsServiceProductFilter.cls.xml (.../IsOngewenstProductInMigratieFilter.cls.xml) (revision 47728) @@ -1,6 +1,6 @@ - + TECH.RegisteredObject,TECH.Filter @@ -15,10 +15,16 @@ #dim IsValid As %Boolean = $$$False #dim ProductNummer As %String = Product.Basis.ProductNr + /// ServiceProducten If (##class(TECH.StringUtils).Contains(ProductNummer,"797700","1102922","1156079","785609","769387","830298","865318","865317","865329","865330","865327","1793108")) { Set IsValid = $$$True - } + } + /// Foutief in Admin gedefinieerde en niet-verwijderbare 6-Producten + If (##class(TECH.StringUtils).Contains(ProductNummer,"1030442","1030443","1101535","1101537")) { + Set IsValid = $$$True + } + Quit IsValid ]]> Index: AX/Uitgaand/PM/KostPrijs/impl/KostPrijsIteratorFilter.cls.xml =================================================================== diff -u -r47251 -r47728 --- AX/Uitgaand/PM/KostPrijs/impl/KostPrijsIteratorFilter.cls.xml (.../KostPrijsIteratorFilter.cls.xml) (revision 47251) +++ AX/Uitgaand/PM/KostPrijs/impl/KostPrijsIteratorFilter.cls.xml (.../KostPrijsIteratorFilter.cls.xml) (revision 47728) @@ -8,8 +8,8 @@ 1 - -AX.Uitgaand.PM.impl.IsServiceProductFilter + +AX.Uitgaand.PM.impl.IsOngewenstProductInMigratieFilter 1 @@ -31,7 +31,7 @@ 1 1 - -AX.Uitgaand.PM.impl.IsServiceProductFilter + +AX.Uitgaand.PM.impl.IsOngewenstProductInMigratieFilter 1 @@ -31,7 +31,7 @@ 1 TECH.RegisteredObject,TECH.Filter - -AX.Uitgaand.PM.impl.IsServiceProductFilter + +AX.Uitgaand.PM.impl.IsOngewenstProductInMigratieFilter 1 @@ -20,7 +20,7 @@ 1 @@ -31,7 +31,7 @@ Index: AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevIteratorFilter.cls.xml =================================================================== diff -u -r47247 -r47728 --- AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevIteratorFilter.cls.xml (.../AankoopPrijzenLevIteratorFilter.cls.xml) (revision 47247) +++ AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevIteratorFilter.cls.xml (.../AankoopPrijzenLevIteratorFilter.cls.xml) (revision 47728) @@ -8,8 +8,8 @@ 1 - -AX.Uitgaand.PM.impl.IsServiceProductFilter + +AX.Uitgaand.PM.impl.IsOngewenstProductInMigratieFilter 1 @@ -32,7 +32,7 @@ 1 - -AX.Uitgaand.PM.impl.IsServiceProductFilter + +AX.Uitgaand.PM.impl.IsOngewenstProductInMigratieFilter 1 @@ -31,7 +31,7 @@ 1 1 - -AX.Uitgaand.PM.impl.IsServiceProductFilter + +AX.Uitgaand.PM.impl.IsOngewenstProductInMigratieFilter 1 @@ -32,7 +32,7 @@ @@ -49,7 +49,7 @@ Set IsValid = $$$True } - If (((..Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()) && ..IsOrgaluxProductFilter.IsValid(Product)) || (..IsServiceProductFilter)) { + If (((..Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()) && ..IsOrgaluxProductFilter.IsValid(Product)) || (..IsOngewenstProductInMigratieFilter)) { Set IsValid = $$$False } Index: AXimpl/Admin/DOM/PM/ProductIteratorFilter.cls.xml =================================================================== diff -u -r47482 -r47728 --- AXimpl/Admin/DOM/PM/ProductIteratorFilter.cls.xml (.../ProductIteratorFilter.cls.xml) (revision 47482) +++ AXimpl/Admin/DOM/PM/ProductIteratorFilter.cls.xml (.../ProductIteratorFilter.cls.xml) (revision 47728) @@ -3,8 +3,8 @@ TECH.RegisteredObject,TECH.Filter - -AX.Uitgaand.PM.impl.IsServiceProductFilter + +AX.Uitgaand.PM.impl.IsOngewenstProductInMigratieFilter 1 @@ -19,7 +19,7 @@ %Status 1 @@ -36,7 +36,7 @@ Set IsValid = $$$False } ElseIf (##class(TECH.StringUtils).Equals(Product.Basis.LinkType,"S","HZ","HHZ")) { Set IsValid = $$$False - } ElseIf (..ServiceProductFilter.IsValid(Product)) { + } ElseIf (..IsOngewenstProductInMigratieFilter.IsValid(Product)) { Set IsValid = $$$False } Index: AX/Uitgaand/PM/GtinCode/impl/GtinCodeIteratorFilter.cls.xml =================================================================== diff -u -r47250 -r47728 --- AX/Uitgaand/PM/GtinCode/impl/GtinCodeIteratorFilter.cls.xml (.../GtinCodeIteratorFilter.cls.xml) (revision 47250) +++ AX/Uitgaand/PM/GtinCode/impl/GtinCodeIteratorFilter.cls.xml (.../GtinCodeIteratorFilter.cls.xml) (revision 47728) @@ -3,8 +3,8 @@ TECH.RegisteredObject,TECH.Filter - -AX.Uitgaand.PM.impl.IsServiceProductFilter + +AX.Uitgaand.PM.impl.IsOngewenstProductInMigratieFilter 1 @@ -20,7 +20,7 @@ 1 @@ -32,7 +32,7 @@ #dim Product As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(Item.GetData(1)) #dim IsValid As %Boolean = $$$False - If ((Product.Basis.BarcodeWaarde > 0) && ..SoprIteratorFilter.IsValid(Product) && $$$Not(..ServiceProductFilter.IsValid(Product))) { + If ((Product.Basis.BarcodeWaarde > 0) && ..SoprIteratorFilter.IsValid(Product) && $$$Not(..IsOngewenstProductInMigratieFilter.IsValid(Product))) { Set IsValid = $$$True } Index: AX/Uitgaand/PM/InventBatch/impl/InventBatchIteratorFilter.cls.xml =================================================================== diff -u -r47330 -r47728 --- AX/Uitgaand/PM/InventBatch/impl/InventBatchIteratorFilter.cls.xml (.../InventBatchIteratorFilter.cls.xml) (revision 47330) +++ AX/Uitgaand/PM/InventBatch/impl/InventBatchIteratorFilter.cls.xml (.../InventBatchIteratorFilter.cls.xml) (revision 47728) @@ -13,8 +13,8 @@ 1 - -AX.Uitgaand.PM.impl.IsServiceProductFilter + +AX.Uitgaand.PM.impl.IsOngewenstProductInMigratieFilter 1 @@ -38,7 +38,7 @@ Set ..Vestiging = Vestiging Set ..IsBasisProductFilter = ##class(AX.Uitgaand.PM.impl.IsBasisProductFilter).%New() Set ..IsOrgaluxProductFilter = ##class(AX.Uitgaand.PM.impl.IsOrgaluxProductFilter).%New() - Set ..ServiceProductFilter = ##class(AX.Uitgaand.PM.impl.IsServiceProductFilter).%New() + Set ..IsOngewenstProductInMigratieFilter = ##class(AX.Uitgaand.PM.impl.IsOngewenstProductInMigratieFilter).%New() Set ..SoprIteratorFilter = ##class(AX.Uitgaand.PM.impl.SoprIteratorFilter).%New() Quit $$$OK @@ -52,7 +52,7 @@ #dim IsValid As %Boolean = $$$False Set Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(Item.GetData(1)) - If (..SoprIteratorFilter.IsValid(Product) && $$$Not(..ServiceProductFilter.IsValid(Product))) { + If (..SoprIteratorFilter.IsValid(Product) && $$$Not(..IsOngewenstProductInMigratieFilter.IsValid(Product))) { Set IsValid = $$$True } Index: AX/Uitgaand/PM/VestSpecOrdInst/impl/VestSpecOrdInstIteratorFilter.cls.xml =================================================================== diff -u -r47267 -r47728 --- AX/Uitgaand/PM/VestSpecOrdInst/impl/VestSpecOrdInstIteratorFilter.cls.xml (.../VestSpecOrdInstIteratorFilter.cls.xml) (revision 47267) +++ AX/Uitgaand/PM/VestSpecOrdInst/impl/VestSpecOrdInstIteratorFilter.cls.xml (.../VestSpecOrdInstIteratorFilter.cls.xml) (revision 47728) @@ -8,8 +8,8 @@ 1 - -AX.Uitgaand.PM.impl.IsServiceProductFilter + +AX.Uitgaand.PM.impl.IsOngewenstProductInMigratieFilter 1 @@ -31,7 +31,7 @@ 1 1 - -AX.Uitgaand.PM.impl.IsServiceProductFilter + +AX.Uitgaand.PM.impl.IsOngewenstProductInMigratieFilter 1 @@ -31,7 +31,7 @@ 1 TECH.RegisteredObject,TECH.Filter - -AX.Uitgaand.PM.impl.IsServiceProductFilter + +AX.Uitgaand.PM.impl.IsOngewenstProductInMigratieFilter 1 @@ -20,7 +20,7 @@ 1 @@ -31,7 +31,7 @@ FishEye: Tag 47728 refers to a dead (removed) revision in file `AX/Uitgaand/PM/impl/IsServiceProductFilter.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: AX/Uitgaand/PM/UOMConversie/impl/UOMConversieIteratorFilter.cls.xml =================================================================== diff -u -r47263 -r47728 --- AX/Uitgaand/PM/UOMConversie/impl/UOMConversieIteratorFilter.cls.xml (.../UOMConversieIteratorFilter.cls.xml) (revision 47263) +++ AX/Uitgaand/PM/UOMConversie/impl/UOMConversieIteratorFilter.cls.xml (.../UOMConversieIteratorFilter.cls.xml) (revision 47728) @@ -3,8 +3,8 @@ TECH.RegisteredObject,TECH.Filter - -AX.Uitgaand.PM.impl.IsServiceProductFilter + +AX.Uitgaand.PM.impl.IsOngewenstProductInMigratieFilter 1 @@ -20,7 +20,7 @@ 1 @@ -31,7 +31,7 @@