Index: AX/Uitgaand/PM/LijstPrijs/impl/LijstPrijsIteratorFilter.cls.xml
===================================================================
diff -u -r46449 -r47718
--- AX/Uitgaand/PM/LijstPrijs/impl/LijstPrijsIteratorFilter.cls.xml	(.../LijstPrijsIteratorFilter.cls.xml)	(revision 46449)
+++ AX/Uitgaand/PM/LijstPrijs/impl/LijstPrijsIteratorFilter.cls.xml	(.../LijstPrijsIteratorFilter.cls.xml)	(revision 47718)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IsServiceProductFilter">
+<Type>AX.Uitgaand.PM.impl.IsServiceProductFilter</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="SoprIteratorFilter">
 <Type>AX.Uitgaand.PM.impl.SoprIteratorFilter</Type>
 <Private>1</Private>
@@ -27,6 +32,7 @@
 <Implementation><![CDATA[
 	Set ..Vestiging = Vestiging
 	Set ..SoprIteratorFilter = ##class(AX.Uitgaand.PM.impl.SoprIteratorFilter).%New()
+	Set ..IsServiceProductFilter = ##class(AX.Uitgaand.PM.impl.IsServiceProductFilter).%New()
 	Set ..IsOrgaluxProductFilter = ##class(AX.Uitgaand.PM.impl.IsOrgaluxProductFilter).%New()
 	Quit $$$OK
 ]]></Implementation>
@@ -43,7 +49,7 @@
 		Set IsValid = $$$True
 	}
 	
-	If ((..Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()) && ..IsOrgaluxProductFilter.IsValid(Product)) {
+	If (((..Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()) && ..IsOrgaluxProductFilter.IsValid(Product)) || (..IsServiceProductFilter)) {
 		Set IsValid = $$$False
 	}