Index: AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/BouwstenenFilter.cls.xml
===================================================================
diff -u
--- AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/BouwstenenFilter.cls.xml	(revision 0)
+++ AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/BouwstenenFilter.cls.xml	(revision 48939)
@@ -0,0 +1,74 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.BouwstenenFilter">
+<Super>TECH.RegisteredObject,TECH.Filter</Super>
+
+<Property name="SoprProductConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>SoprProductConvertor:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..SoprProductConvertor = $$$Inject(SoprProductConvertor, ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="IsValid">
+<FormalSpec>Value:%CacheString</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsValid As %Boolean = $$$False
+	
+	If (..IsSOPRKindInCache(Value)) {
+		Set IsValid = $$$False
+	} ElseIf $$$Not(..IsSOPRInCache(Value)) {
+		Set IsValid = (..HeeftGeenKindBouwstenen(Value))
+	} Else {
+		Set IsValid = $$$True
+	}
+	
+	/*If (..IsSOPRKindInCache(Value)) {
+		Set IsValid = $$$False
+	} Else {
+		Set IsValid = (..HeeftGeenKindBouwstenen(Value) || ..IsSOPRInCache(Value))
+	}*/
+	
+	Quit IsValid
+]]></Implementation>
+</Method>
+
+<Method name="HeeftGeenKindBouwstenen">
+<FormalSpec>Bouwsteen:AXimpl.Admin.DOM.PM.Bouwsteen</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$Not(Bouwsteen.HeeftKindBouwstenen)
+]]></Implementation>
+</Method>
+
+<Method name="IsSOPRInCache">
+<FormalSpec>Bouwsteen:AXimpl.Admin.DOM.PM.Bouwsteen</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..SoprProductConvertor.IsSOPRInCache(Bouwsteen.ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="IsSOPRKindInCache">
+<FormalSpec>Bouwsteen:AXimpl.Admin.DOM.PM.Bouwsteen</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..SoprProductConvertor.IsSOPRKindInCache(Bouwsteen.ProductId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIteratorFilter/Test.cls.xml
===================================================================
diff -u -r47983 -r48939
--- vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIteratorFilter/Test.cls.xml	(.../Test.cls.xml)	(revision 47983)
+++ vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIteratorFilter/Test.cls.xml	(.../Test.cls.xml)	(revision 48939)
@@ -13,18 +13,18 @@
 </Method>
 
 <Method name="AssertIsValid">
-<FormalSpec>IsGeenKindBouwstenenValid:%Boolean,IsMeeTeRekenenVoorVoorraadValid:%Boolean,VerwachtResultaat:%Boolean</FormalSpec>
+<FormalSpec>ZijnBouwstenenValid:%Boolean,IsMeeTeRekenenVoorVoorraadValid:%Boolean,VerwachtResultaat:%Boolean</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen = ##class(AXimpl.Admin.DOM.PM.Bouwsteen).%New()
 	
-	#dim GeenKindBouwstenenFilterStub As vhTest.Mock.TECH.Filter = ##class(vhTest.Mock.TECH.Filter).%New()
-	Do GeenKindBouwstenenFilterStub.IndienMethodCall("IsValid", Bouwsteen).DanReturn(IsGeenKindBouwstenenValid)
+	#dim BouwstenenFilterStub As vhTest.Mock.TECH.Filter = ##class(vhTest.Mock.TECH.Filter).%New()
+	Do BouwstenenFilterStub.IndienMethodCall("IsValid", Bouwsteen).DanReturn(ZijnBouwstenenValid)
 	
 	#dim MeeTeRekenenVoorVoorraadFilterStub As vhTest.Mock.TECH.Filter = ##class(vhTest.Mock.TECH.Filter).%New()
 	Do MeeTeRekenenVoorVoorraadFilterStub.IndienMethodCall("IsValid", Bouwsteen).DanReturn(IsMeeTeRekenenVoorVoorraadValid)
 	
-	#dim BouwsteenIteratorFilter As AXimpl.Admin.DOM.PM.BouwsteenIteratorFilter = ##class(AXimpl.Admin.DOM.PM.BouwsteenIteratorFilter).%New(GeenKindBouwstenenFilterStub, MeeTeRekenenVoorVoorraadFilterStub)	
+	#dim BouwsteenIteratorFilter As AXimpl.Admin.DOM.PM.BouwsteenIteratorFilter = ##class(AXimpl.Admin.DOM.PM.BouwsteenIteratorFilter).%New(BouwstenenFilterStub, MeeTeRekenenVoorVoorraadFilterStub)	
 	
 	Do $$$AssertEquals(BouwsteenIteratorFilter.IsValid(Bouwsteen), VerwachtResultaat)
 ]]></Implementation>
Index: AXimpl/Admin/DOM/PM/BouwsteenIteratorFilter.cls.xml
===================================================================
diff -u -r47983 -r48939
--- AXimpl/Admin/DOM/PM/BouwsteenIteratorFilter.cls.xml	(.../BouwsteenIteratorFilter.cls.xml)	(revision 47983)
+++ AXimpl/Admin/DOM/PM/BouwsteenIteratorFilter.cls.xml	(.../BouwsteenIteratorFilter.cls.xml)	(revision 48939)
@@ -3,8 +3,8 @@
 <Class name="AXimpl.Admin.DOM.PM.BouwsteenIteratorFilter">
 <Super>TECH.RegisteredObject,TECH.Filter</Super>
 
-<Property name="GeenKindBouwstenenFilter">
-<Type>AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.GeenKindBouwstenenFilter</Type>
+<Property name="BouwstenenFilter">
+<Type>AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.BouwstenenFilter</Type>
 <Private>1</Private>
 </Property>
 
@@ -14,13 +14,13 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>GeenKindBouwstenenFilter:AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.GeenKindBouwstenenFilter="",MeeTeRekenenVoorVoorraadFilter:AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.MeeTeRekenenVoorVoorraadFilter=""</FormalSpec>
+<FormalSpec>BouwstenenFilter:AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.BouwstenenFilter="",MeeTeRekenenVoorVoorraadFilter:AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.MeeTeRekenenVoorVoorraadFilter="",GeenZesProductFilter:AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.GeenZesProductFilter</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..GeenKindBouwstenenFilter = $$$Inject(GeenKindBouwstenenFilter, ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.GeenKindBouwstenenFilter).%New())
+	Set ..BouwstenenFilter = $$$Inject(BouwstenenFilter, ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.BouwstenenFilter).%New())
 	Set ..MeeTeRekenenVoorVoorraadFilter = $$$Inject(MeeTeRekenenVoorVoorraadFilter, ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.MeeTeRekenenVoorVoorraadFilter).%New())
 	
 	Quit $$$OK
@@ -30,7 +30,7 @@
 <Method name="IsValid">
 <FormalSpec>Value:%CacheString</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..GeenKindBouwstenenFilter.IsValid(Value) && ..MeeTeRekenenVoorVoorraadFilter.IsValid(Value)
+<Implementation><![CDATA[	Quit ..BouwstenenFilter.IsValid(Value) && ..MeeTeRekenenVoorVoorraadFilter.IsValid(Value)
 ]]></Implementation>
 </Method>
 </Class>
Index: AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/GeenKindBouwstenenFilter.cls.xml
===================================================================
diff -u -r47983 -r48939
--- AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/GeenKindBouwstenenFilter.cls.xml	(.../GeenKindBouwstenenFilter.cls.xml)	(revision 47983)
+++ AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/GeenKindBouwstenenFilter.cls.xml	(.../GeenKindBouwstenenFilter.cls.xml)	(revision 48939)
@@ -6,11 +6,11 @@
 <Method name="IsValid">
 <FormalSpec>Value:%CacheString</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..HeeftKindBouwstenen(Value)
+<Implementation><![CDATA[	Quit ..HeeftGeenKindBouwstenen(Value)
 ]]></Implementation>
 </Method>
 
-<Method name="HeeftKindBouwstenen">
+<Method name="HeeftGeenKindBouwstenen">
 <FormalSpec>Bouwsteen:AXimpl.Admin.DOM.PM.Bouwsteen</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
Index: vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/BouwstenenFilter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/BouwstenenFilter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/BouwstenenFilter/Test.cls.xml	(revision 48939)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.BouwstenenFilter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	Do ..AssertFilter($$$True,,, $$$False, "SOPRKindInCache is ongeldig")
+	Do ..AssertFilter($$$False, $$$True,, $$$True, "Bij niet-SOPRKindInCache is SOPRInCache geldig")
+	Do ..AssertFilter($$$False, $$$False, $$$True, $$$True, "Bij niet-SOPRKindInCache en niet-SOPRInCache is HeeftGeenKindBouwstenen geldig")
+	Do ..AssertFilter($$$False, $$$False, $$$False, $$$False, "Niet-SOPRKindInCachen niet-SOPRInCache en HeeftKindBouwstenen is ongeldig")
+]]></Implementation>
+</Method>
+
+<Method name="AssertFilter">
+<FormalSpec>IsSoprKindInCache:%Boolean=$$$False,IsSoprInCache:%Boolean=$$$False,HeeftGeenKindBouwstenen:%Boolean=$$$False,IsValid:%Boolean,Message:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen = ##class(AXimpl.Admin.DOM.PM.Bouwsteen).%New()
+	Set Bouwsteen.HeeftKindBouwstenen = $$$Not(HeeftGeenKindBouwstenen)
+	
+	#dim SoprProductConvertorStub As vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do SoprProductConvertorStub.IndienMethodCall("IsSOPRKindInCache", Bouwsteen.ProductId).DanReturn(IsSoprKindInCache)
+	Do SoprProductConvertorStub.IndienMethodCall("IsSOPRInCache", Bouwsteen.ProductId).DanReturn(IsSoprInCache)
+	
+	#dim BouwstenenFilter As AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.BouwstenenFilter = ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.BouwstenenFilter).%New(SoprProductConvertorStub)
+	
+	Do $$$AssertEquals(BouwstenenFilter.IsValid(Bouwsteen), IsValid, Message)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>