Index: AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevIteratorFilter.cls.xml
===================================================================
diff -u -r46441 -r46466
--- AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevIteratorFilter.cls.xml	(.../AankoopPrijzenLevIteratorFilter.cls.xml)	(revision 46441)
+++ AX/Uitgaand/PM/AankoopPrijzenLev/impl/AankoopPrijzenLevIteratorFilter.cls.xml	(.../AankoopPrijzenLevIteratorFilter.cls.xml)	(revision 46466)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="SoprProductConverter">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Vestiging">
 <Type>AXimpl.InterneFirmaInitialen</Type>
 <Private>1</Private>
@@ -22,6 +27,7 @@
 <Implementation><![CDATA[
 	Set ..Vestiging = Vestiging
 	Set ..IsOrgaluxProductFilter = ##class(AX.Uitgaand.PM.impl.IsOrgaluxProductFilter).%New()
+	Set ..SoprProductConverter = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -33,12 +39,17 @@
 <Implementation><![CDATA[
 	Set Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(Item.GetData(1))
 	#dim IsValid As %Boolean = $$$True
+	#dim ProductNummer = Product.Basis.ProductNr
 	#dim PPL As %String = Product.Prijs.PPL
 	
 	If $$$Not(PPL > 0){
 		Set IsValid = $$$False
 	} 
 	
+	If ((..Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()) && (..SoprProductConverter.IsSOPRInCache(ProductNummer)) && $$$Not(..SoprProductConverter.IsSOPRInAX(ProductNummer))) {
+		Set IsValid = $$$False
+	}
+	
 	If ((..Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()) && ..IsOrgaluxProductFilter.IsValid(Product)) {
 		Set IsValid = $$$False
 	}