Index: AX/Uitgaand/PM/UOMConversie/impl/UOMConversieIteratorFilter.cls.xml
===================================================================
diff -u -r42749 -r43027
--- AX/Uitgaand/PM/UOMConversie/impl/UOMConversieIteratorFilter.cls.xml	(.../UOMConversieIteratorFilter.cls.xml)	(revision 42749)
+++ AX/Uitgaand/PM/UOMConversie/impl/UOMConversieIteratorFilter.cls.xml	(.../UOMConversieIteratorFilter.cls.xml)	(revision 43027)
@@ -3,23 +3,18 @@
 <Class name="AX.Uitgaand.PM.UOMConversie.impl.UOMConversieIteratorFilter">
 <Super>TECH.RegisteredObject,TECH.Filter</Super>
 
-<Property name="IsValid">
-<Type>%Boolean</Type>
+<Property name="SoprIteratorFilter">
+<Type>AX.Uitgaand.PM.impl.SoprIteratorFilter</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="AxProductConvertor">
-<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..AxProductConvertor = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..SoprIteratorFilter = ##class(AX.Uitgaand.PM.impl.SoprIteratorFilter).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -28,21 +23,9 @@
 <FormalSpec>Item:TECH.ResultSet</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim IsValid As %Boolean = $$$False
-	#dim ConvertedAxProduct As AX.Uitgaand.PM.impl.Convertor.Sopr.AxProduct
 	#dim Product As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(Item.GetData(1))
-	#dim IsBlumProduct As %Boolean = (Product.Basis.LeverancierNummer = "5005")
 	
-	If (IsBlumProduct = 1){
-		Set ConvertedAxProduct = ..AxProductConvertor.AdminNaarAx(Product.Basis.ProductNr)
-		If ((ConvertedAxProduct.IsSoprInAx = 1) && (ConvertedAxProduct.IsSoprInCache = 1) || (ConvertedAxProduct.IsSoprInAx = 0) && (ConvertedAxProduct.IsSoprInCache = 0)){
-			Set IsValid = $$$True
-		} 
-	} Else {
-		Set IsValid = $$$True
-	}
-	
-	Quit IsValid
+	Quit ..SoprIteratorFilter.IsValid(Product)
 ]]></Implementation>
 </Method>
 </Class>
Index: AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningIteratorFilter.cls.xml
===================================================================
diff -u -r42800 -r43027
--- AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningIteratorFilter.cls.xml	(.../BehoeftePlanningIteratorFilter.cls.xml)	(revision 42800)
+++ AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningIteratorFilter.cls.xml	(.../BehoeftePlanningIteratorFilter.cls.xml)	(revision 43027)
@@ -8,8 +8,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="AxProductConvertor">
-<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+<Property name="SoprIteratorFilter">
+<Type>AX.Uitgaand.PM.impl.SoprIteratorFilter</Type>
 <Private>1</Private>
 </Property>
 
@@ -36,8 +36,8 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..Vestiging = Vestiging
+	Set ..SoprIteratorFilter = ##class(AX.Uitgaand.PM.impl.SoprIteratorFilter).%New()
 	Set ..Utils = $$$Inject(Utils,##class(AXimpl.Utils).%New())
-	Set ..AxProductConvertor = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -83,18 +83,9 @@
 <FormalSpec>ProductBehoefte:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim ConvertedAxProduct As AX.Uitgaand.PM.impl.Convertor.Sopr.AxProduct
 	#dim Product As AX.Uitgaand.PM.Product.impl.Product = ProductBehoefte
-	#dim IsBlumProduct As %Boolean = (Product.Basis.LeverancierNummer = "5005")
 	
-	If (IsBlumProduct = 1){
-		Set ConvertedAxProduct = ..AxProductConvertor.AdminNaarAx(Product.Basis.ProductNr)
-		If ((ConvertedAxProduct.IsSoprInAx = 1) && (ConvertedAxProduct.IsSoprInCache = 1) || (ConvertedAxProduct.IsSoprInAx = 0) && (ConvertedAxProduct.IsSoprInCache = 0)){
-			Set ..IsValidSopr = $$$True
-		} 
-	} Else {
-		Set ..IsValidSopr = $$$True
-	}
+	Set ..IsValidSopr = ..SoprIteratorFilter.IsValid(Product)
 	
 	Quit $$$OK
 ]]></Implementation>
Index: AX/Uitgaand/PM/Product/impl/ProductIteratorFilter.cls.xml
===================================================================
diff -u -r42588 -r43027
--- AX/Uitgaand/PM/Product/impl/ProductIteratorFilter.cls.xml	(.../ProductIteratorFilter.cls.xml)	(revision 42588)
+++ AX/Uitgaand/PM/Product/impl/ProductIteratorFilter.cls.xml	(.../ProductIteratorFilter.cls.xml)	(revision 43027)
@@ -3,23 +3,18 @@
 <Class name="AX.Uitgaand.PM.Product.impl.ProductIteratorFilter">
 <Super>TECH.RegisteredObject,TECH.Filter</Super>
 
-<Property name="IsValid">
-<Type>%Boolean</Type>
+<Property name="SoprIteratorFilter">
+<Type>AX.Uitgaand.PM.impl.SoprIteratorFilter</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="AxProductConvertor">
-<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..AxProductConvertor = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..SoprIteratorFilter = ##class(AX.Uitgaand.PM.impl.SoprIteratorFilter).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -28,21 +23,9 @@
 <FormalSpec>Item:TECH.ResultSet</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim IsValid As %Boolean = $$$False
-	#dim ConvertedAxProduct As AX.Uitgaand.PM.impl.Convertor.Sopr.AxProduct
 	#dim Product As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(Item.GetData(1))
-	#dim IsBlumProduct As %Boolean = (Product.Basis.LeverancierNummer = "5005")
 	
-	If (IsBlumProduct = 1){
-		Set ConvertedAxProduct = ..AxProductConvertor.AdminNaarAx(Product.Basis.ProductNr)
-		If ((ConvertedAxProduct.IsSoprInAx = 1) && (ConvertedAxProduct.IsSoprInCache = 1) || (ConvertedAxProduct.IsSoprInAx = 0) && (ConvertedAxProduct.IsSoprInCache = 0)){
-			Set IsValid = $$$True
-		} 
-	} Else {
-		Set IsValid = $$$True
-	}
-	
-	Quit IsValid
+	Quit ..SoprIteratorFilter.IsValid(Product)
 ]]></Implementation>
 </Method>
 </Class>
Index: AX/Uitgaand/PM/VestSpecOrdInst/impl/VestSpecOrdInstIteratorFilter.cls.xml
===================================================================
diff -u -r42598 -r43027
--- AX/Uitgaand/PM/VestSpecOrdInst/impl/VestSpecOrdInstIteratorFilter.cls.xml	(.../VestSpecOrdInstIteratorFilter.cls.xml)	(revision 42598)
+++ AX/Uitgaand/PM/VestSpecOrdInst/impl/VestSpecOrdInstIteratorFilter.cls.xml	(.../VestSpecOrdInstIteratorFilter.cls.xml)	(revision 43027)
@@ -3,23 +3,18 @@
 <Class name="AX.Uitgaand.PM.VestSpecOrdInst.impl.VestSpecOrdInstIteratorFilter">
 <Super>TECH.RegisteredObject,TECH.Filter</Super>
 
-<Property name="IsValid">
-<Type>%Boolean</Type>
+<Property name="SoprIteratorFilter">
+<Type>AX.Uitgaand.PM.impl.SoprIteratorFilter</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="AxProductConvertor">
-<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..AxProductConvertor = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..SoprIteratorFilter = ##class(AX.Uitgaand.PM.impl.SoprIteratorFilter).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -28,21 +23,9 @@
 <FormalSpec>Item:TECH.ResultSet</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim IsValid As %Boolean = $$$False
-	#dim ConvertedAxProduct As AX.Uitgaand.PM.impl.Convertor.Sopr.AxProduct
 	#dim Product As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(Item.GetData(1))
-	#dim IsBlumProduct As %Boolean = (Product.Basis.LeverancierNummer = "5005")
 	
-	If (IsBlumProduct = 1){
-		Set ConvertedAxProduct = ..AxProductConvertor.AdminNaarAx(Product.Basis.ProductNr)
-		If ((ConvertedAxProduct.IsSoprInAx = 1) && (ConvertedAxProduct.IsSoprInCache = 1) || (ConvertedAxProduct.IsSoprInAx = 0) && (ConvertedAxProduct.IsSoprInCache = 0)){
-			Set IsValid = $$$True
-		} 
-	} Else {
-		Set IsValid = $$$True
-	}
-	
-	Quit IsValid
+	Quit ..SoprIteratorFilter.IsValid(Product)
 ]]></Implementation>
 </Method>
 </Class>
Index: AX/Uitgaand/PM/TMSInventEnabled/impl/TMSInventEnabledIteratorFilter.cls.xml
===================================================================
diff -u -r42593 -r43027
--- AX/Uitgaand/PM/TMSInventEnabled/impl/TMSInventEnabledIteratorFilter.cls.xml	(.../TMSInventEnabledIteratorFilter.cls.xml)	(revision 42593)
+++ AX/Uitgaand/PM/TMSInventEnabled/impl/TMSInventEnabledIteratorFilter.cls.xml	(.../TMSInventEnabledIteratorFilter.cls.xml)	(revision 43027)
@@ -3,23 +3,18 @@
 <Class name="AX.Uitgaand.PM.TMSInventEnabled.impl.TMSInventEnabledIteratorFilter">
 <Super>TECH.RegisteredObject,TECH.Filter</Super>
 
-<Property name="IsValid">
-<Type>%Boolean</Type>
+<Property name="SoprIteratorFilter">
+<Type>AX.Uitgaand.PM.impl.SoprIteratorFilter</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="AxProductConvertor">
-<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..AxProductConvertor = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..SoprIteratorFilter = ##class(AX.Uitgaand.PM.impl.SoprIteratorFilter).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -28,21 +23,9 @@
 <FormalSpec>Item:TECH.ResultSet</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim IsValid As %Boolean = $$$False
-	#dim ConvertedAxProduct As AX.Uitgaand.PM.impl.Convertor.Sopr.AxProduct
 	#dim Product As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(Item.GetData(1))
-	#dim IsBlumProduct As %Boolean = (Product.Basis.LeverancierNummer = "5005")
 	
-	If (IsBlumProduct = 1){
-		Set ConvertedAxProduct = ..AxProductConvertor.AdminNaarAx(Product.Basis.ProductNr)
-		If ((ConvertedAxProduct.IsSoprInAx = 1) && (ConvertedAxProduct.IsSoprInCache = 1) || (ConvertedAxProduct.IsSoprInAx = 0) && (ConvertedAxProduct.IsSoprInCache = 0)){
-			Set IsValid = $$$True
-		} 
-	} Else {
-		Set IsValid = $$$True
-	}
-	
-	Quit IsValid
+	Quit ..SoprIteratorFilter.IsValid(Product)
 ]]></Implementation>
 </Method>
 </Class>
Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevIteratorFilter.cls.xml
===================================================================
diff -u -r42666 -r43027
--- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevIteratorFilter.cls.xml	(.../ExtArtOmschrLevIteratorFilter.cls.xml)	(revision 42666)
+++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevIteratorFilter.cls.xml	(.../ExtArtOmschrLevIteratorFilter.cls.xml)	(revision 43027)
@@ -3,23 +3,18 @@
 <Class name="AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevIteratorFilter">
 <Super>TECH.RegisteredObject,TECH.Filter</Super>
 
-<Property name="IsValid">
-<Type>%Boolean</Type>
+<Property name="SoprIteratorFilter">
+<Type>AX.Uitgaand.PM.impl.SoprIteratorFilter</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="AxProductConvertor">
-<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..AxProductConvertor = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..SoprIteratorFilter = ##class(AX.Uitgaand.PM.impl.SoprIteratorFilter).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -28,21 +23,9 @@
 <FormalSpec>Item:TECH.ResultSet</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim IsValid As %Boolean = $$$False
-	#dim ConvertedAxProduct As AX.Uitgaand.PM.impl.Convertor.Sopr.AxProduct
 	#dim Product As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(Item.GetData(1))
-	#dim IsBlumProduct As %Boolean = (Product.Basis.LeverancierNummer = "5005")
 	
-	If (IsBlumProduct = 1){
-		Set ConvertedAxProduct = ..AxProductConvertor.AdminNaarAx(Product.Basis.ProductNr)
-		If ((ConvertedAxProduct.IsSoprInAx = 1) && (ConvertedAxProduct.IsSoprInCache = 1) || (ConvertedAxProduct.IsSoprInAx = 0) && (ConvertedAxProduct.IsSoprInCache = 0)){
-			Set IsValid = $$$True
-		} 
-	} Else {
-		Set IsValid = $$$True
-	}
-	
-	Quit IsValid
+	Quit ..SoprIteratorFilter.IsValid(Product)
 ]]></Implementation>
 </Method>
 </Class>
Index: AX/Uitgaand/PM/impl/SoprIteratorFilter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/impl/SoprIteratorFilter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/impl/SoprIteratorFilter.cls.xml	(revision 43027)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.impl.SoprIteratorFilter">
+<Super>TECH.RegisteredObject,TECH.Filter</Super>
+
+<Property name="IsValid">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxProductConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..AxProductConvertor = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="IsValid">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsValid As %Boolean = $$$False
+	#dim ConvertedAxProduct As AX.Uitgaand.PM.impl.Convertor.Sopr.AxProduct
+	#dim IsBlumProduct As %Boolean = (Product.Basis.LeverancierNummer = "5005")
+	
+	If (IsBlumProduct = 1){
+		Set ConvertedAxProduct = ..AxProductConvertor.AdminNaarAx(Product.Basis.ProductNr)
+		If (((ConvertedAxProduct.IsSoprInAx = 1) && (ConvertedAxProduct.IsSoprInCache = 1)) || ((ConvertedAxProduct.IsSoprInAx = 0) && (ConvertedAxProduct.IsSoprInCache = 0))){
+			Set IsValid = $$$True
+		} 
+	} Else {
+		Set IsValid = $$$True
+	}
+	
+	Quit IsValid
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/WHSReservationHierarchyItem/impl/WHSReservationHierarchyItemIteratorFilter.cls.xml
===================================================================
diff -u -r42592 -r43027
--- AX/Uitgaand/PM/WHSReservationHierarchyItem/impl/WHSReservationHierarchyItemIteratorFilter.cls.xml	(.../WHSReservationHierarchyItemIteratorFilter.cls.xml)	(revision 42592)
+++ AX/Uitgaand/PM/WHSReservationHierarchyItem/impl/WHSReservationHierarchyItemIteratorFilter.cls.xml	(.../WHSReservationHierarchyItemIteratorFilter.cls.xml)	(revision 43027)
@@ -3,23 +3,18 @@
 <Class name="AX.Uitgaand.PM.WHSReservationHierarchyItem.impl.WHSReservationHierarchyItemIteratorFilter">
 <Super>TECH.RegisteredObject,TECH.Filter</Super>
 
-<Property name="IsValid">
-<Type>%Boolean</Type>
+<Property name="SoprIteratorFilter">
+<Type>AX.Uitgaand.PM.impl.SoprIteratorFilter</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="AxProductConvertor">
-<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..AxProductConvertor = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..SoprIteratorFilter = ##class(AX.Uitgaand.PM.impl.SoprIteratorFilter).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -28,21 +23,9 @@
 <FormalSpec>Item:TECH.ResultSet</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim IsValid As %Boolean = $$$False
-	#dim ConvertedAxProduct As AX.Uitgaand.PM.impl.Convertor.Sopr.AxProduct
 	#dim Product As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(Item.GetData(1))
-	#dim IsBlumProduct As %Boolean = (Product.Basis.LeverancierNummer = "5005")
 	
-	If (IsBlumProduct = 1){
-		Set ConvertedAxProduct = ..AxProductConvertor.AdminNaarAx(Product.Basis.ProductNr)
-		If ((ConvertedAxProduct.IsSoprInAx = 1) && (ConvertedAxProduct.IsSoprInCache = 1) || (ConvertedAxProduct.IsSoprInAx = 0) && (ConvertedAxProduct.IsSoprInCache = 0)){
-			Set IsValid = $$$True
-		} 
-	} Else {
-		Set IsValid = $$$True
-	}
-	
-	Quit IsValid
+	Quit ..SoprIteratorFilter.IsValid(Product)
 ]]></Implementation>
 </Method>
 </Class>
Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductIteratorFilter.cls.xml
===================================================================
diff -u -r42591 -r43027
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductIteratorFilter.cls.xml	(.../VrijgegProductIteratorFilter.cls.xml)	(revision 42591)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductIteratorFilter.cls.xml	(.../VrijgegProductIteratorFilter.cls.xml)	(revision 43027)
@@ -3,23 +3,18 @@
 <Class name="AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductIteratorFilter">
 <Super>TECH.RegisteredObject,TECH.Filter</Super>
 
-<Property name="IsValid">
-<Type>%Boolean</Type>
+<Property name="SoprIteratorFilter">
+<Type>AX.Uitgaand.PM.impl.SoprIteratorFilter</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="AxProductConvertor">
-<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..AxProductConvertor = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..SoprIteratorFilter = ##class(AX.Uitgaand.PM.impl.SoprIteratorFilter).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -28,21 +23,9 @@
 <FormalSpec>Item:TECH.ResultSet</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim IsValid As %Boolean = $$$False
-	#dim ConvertedAxProduct As AX.Uitgaand.PM.impl.Convertor.Sopr.AxProduct
 	#dim Product As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(Item.GetData(1))
-	#dim IsBlumProduct As %Boolean = (Product.Basis.LeverancierNummer = "5005")
 	
-	If (IsBlumProduct = 1){
-		Set ConvertedAxProduct = ..AxProductConvertor.AdminNaarAx(Product.Basis.ProductNr)
-		If ((ConvertedAxProduct.IsSoprInAx = 1) && (ConvertedAxProduct.IsSoprInCache = 1) || (ConvertedAxProduct.IsSoprInAx = 0) && (ConvertedAxProduct.IsSoprInCache = 0)){
-			Set IsValid = $$$True
-		} 
-	} Else {
-		Set IsValid = $$$True
-	}
-	
-	Quit IsValid
+	Quit ..SoprIteratorFilter.IsValid(Product)
 ]]></Implementation>
 </Method>
 </Class>