Index: vhUnitTest/AX/Uitgaand/PM/impl/IsBasisProductFilter/Test.cls.xml
===================================================================
diff -u -r47319 -r47322
--- vhUnitTest/AX/Uitgaand/PM/impl/IsBasisProductFilter/Test.cls.xml	(.../Test.cls.xml)	(revision 47319)
+++ vhUnitTest/AX/Uitgaand/PM/impl/IsBasisProductFilter/Test.cls.xml	(.../Test.cls.xml)	(revision 47322)
@@ -8,8 +8,8 @@
 <Default>1000</Default>
 </Parameter>
 
-<Property name="GenerischOrgaluxProductFilter">
-<Type>AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter</Type>
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
 <Private>1</Private>
 </Property>
 
@@ -28,15 +28,33 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Generische Orgalux Producten zijn Basisproducten">
+<Method name="Test: Producten die voldoen aan BasisProductenFilterA met KindBouwstenen zijn Basisproducten">
 <Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeControlerenProduct()
 	
-	Set GenerischOrgaluxProductFilterStub = ##class(vhTest.Mock.AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter).%New()
-	Do GenerischOrgaluxProductFilterStub.IndienMethodCall("IsGenerischOrgaluxProduct",AxProduct).DanReturn($$$True)
+	#dim IteratorMockKind As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New()
+	Do IteratorMockKind.IndienMethodCall("Reset").DanDoeNiks()
+	Do IteratorMockKind.IndienMethodCall("HasNext").DanReturn($$$True)
 	
-	Set ..GenerischOrgaluxProductFilter = GenerischOrgaluxProductFilterStub
+	#dim IteratorMockHF As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New()
+	Do IteratorMockHF.IndienMethodCall("Reset").DanDoeNiks()
+	Do IteratorMockHF.IndienMethodCall("HasNext").DanReturn($$$False)
 	
+	Set ProductImplMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New()
+	Do ProductImplMock.IndienMethodCall("GeefLeverancierID").DanReturn("L||6051")
+	Do ProductImplMock.IndienMethodCall("GeefLinkType").DanReturn("S")
+	Do ProductImplMock.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(IteratorMockKind)
+	Do ProductImplMock.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(IteratorMockHF)
+	Do ProductImplMock.IndienMethodCall("GeefActiefStatus").DanReturn("")
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.IndienMethodCall("GeefProduct",..#ProductId).DanReturn(ProductImplMock)
+	
+	Set ..ProductApi = ProductApiMock
+	
 	#dim Filter As AX.Uitgaand.PM.impl.IsBasisProductFilter = ..GeefFilter()
 	
 	#dim Resultaat As %Boolean = Filter.IsValid(AxProduct)
@@ -45,6 +63,76 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Producten die voldoen aan BasisProductenFilterA met HFBouwstenen zijn Basisproducten">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeControlerenProduct()
+	
+	#dim IteratorMockKind As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New()
+	Do IteratorMockKind.IndienMethodCall("Reset").DanDoeNiks()
+	Do IteratorMockKind.IndienMethodCall("HasNext").DanReturn($$$False)
+	
+	#dim IteratorMockHF As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New()
+	Do IteratorMockHF.IndienMethodCall("Reset").DanDoeNiks()
+	Do IteratorMockHF.IndienMethodCall("HasNext").DanReturn($$$True)
+	
+	Set ProductImplMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New()
+	Do ProductImplMock.IndienMethodCall("GeefLeverancierID").DanReturn("L||6051")
+	Do ProductImplMock.IndienMethodCall("GeefLinkType").DanReturn("S")
+	Do ProductImplMock.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(IteratorMockKind)
+	Do ProductImplMock.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(IteratorMockHF)
+	Do ProductImplMock.IndienMethodCall("GeefActiefStatus").DanReturn("")
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.IndienMethodCall("GeefProduct",..#ProductId).DanReturn(ProductImplMock)
+	
+	Set ..ProductApi = ProductApiMock
+	
+	#dim Filter As AX.Uitgaand.PM.impl.IsBasisProductFilter = ..GeefFilter()
+	
+	#dim Resultaat As %Boolean = Filter.IsValid(AxProduct)
+	
+	Do $$$AssertEquals(Resultaat,$$$True)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Producten die voldoen aan BasisProductenFilterA die beperkt aktief zijn zijn Basisproducten">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeControlerenProduct()
+	
+	#dim IteratorMockKind As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New()
+	Do IteratorMockKind.IndienMethodCall("Reset").DanDoeNiks()
+	Do IteratorMockKind.IndienMethodCall("HasNext").DanReturn($$$True)
+	
+	#dim IteratorMockHF As TECH.Iterator = ##class(vhTest.Mock.TECH.Iterator).%New()
+	Do IteratorMockHF.IndienMethodCall("Reset").DanDoeNiks()
+	Do IteratorMockHF.IndienMethodCall("HasNext").DanReturn($$$False)
+	
+	Set ProductImplMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New()
+	Do ProductImplMock.IndienMethodCall("GeefLeverancierID").DanReturn("L||6051")
+	Do ProductImplMock.IndienMethodCall("GeefLinkType").DanReturn("S")
+	Do ProductImplMock.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(IteratorMockKind)
+	Do ProductImplMock.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(IteratorMockHF)
+	Do ProductImplMock.IndienMethodCall("GeefActiefStatus").DanReturn("2")
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.IndienMethodCall("GeefProduct",..#ProductId).DanReturn(ProductImplMock)
+	
+	Set ..ProductApi = ProductApiMock
+	
+	#dim Filter As AX.Uitgaand.PM.impl.IsBasisProductFilter = ..GeefFilter()
+	
+	#dim Resultaat As %Boolean = Filter.IsValid(AxProduct)
+	
+	Do $$$AssertEquals(Resultaat,$$$True)
+]]></Implementation>
+</Method>
+
 <Method name="GeefTeControlerenProduct">
 <Private>1</Private>
 <ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>
@@ -58,7 +146,7 @@
 <Method name="GeefFilter">
 <Private>1</Private>
 <ReturnType>AX.Uitgaand.PM.impl.IsBasisProductFilter</ReturnType>
-<Implementation><![CDATA[	quit ##class(AX.Uitgaand.PM.impl.IsBasisProductFilter).%New(..GenerischOrgaluxProductFilter)
+<Implementation><![CDATA[	quit ##class(AX.Uitgaand.PM.impl.IsBasisProductFilter).%New(..ProductApi)
 ]]></Implementation>
 </Method>
 </Class>
Index: AX/Uitgaand/PM/impl/IsBasisProductFilter.cls.xml
===================================================================
diff -u -r47312 -r47322
--- AX/Uitgaand/PM/impl/IsBasisProductFilter.cls.xml	(.../IsBasisProductFilter.cls.xml)	(revision 47312)
+++ AX/Uitgaand/PM/impl/IsBasisProductFilter.cls.xml	(.../IsBasisProductFilter.cls.xml)	(revision 47322)
@@ -3,19 +3,19 @@
 <Class name="AX.Uitgaand.PM.impl.IsBasisProductFilter">
 <Super>TECH.RegisteredObject,TECH.Mockable</Super>
 
-<Property name="GenerischOrgaluxProductFilter">
-<Type>AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter</Type>
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>GenerischOrgaluxProductFilter:AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter</FormalSpec>
+<FormalSpec>ProductApi:DOM.PM.ProductAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..GenerischOrgaluxProductFilter = $$$Inject(GenerischOrgaluxProductFilter, ##class(AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter).%New())
+	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -25,14 +25,29 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim IsValid As %Boolean = $$$False
+	#dim ProductImpl As DOM.PM.Product = ..ProductApi.GeefProduct(Product.Basis.ProductNr)
 	
-	If ..GenerischOrgaluxProductFilter.IsGenerischOrgaluxProduct(Product) {
+	If ..BasisProductenFilterA(ProductImpl) {
 		Set IsValid = $$$True
 	}
 	
 	Quit IsValid
 ]]></Implementation>
 </Method>
+
+<Method name="BasisProductenFilterA">
+<FormalSpec>ProductImpl:DOM.PM.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim LeverancierIsVanHoecke As %Boolean = $$$If($Piece(ProductImpl.GeefLeverancierID(),"||",2)="6051",$$$True,$$$False)
+	#dim IsStockOverKinderen As %Boolean = $$$If(ProductImpl.GeefLinkType()="S",$$$True,$$$False)
+	#dim HeeftBouwstenen As %Boolean = $$$If(((ProductImpl.GeefKindBouwstenenIterator().HasNext()) || (ProductImpl.GeefHFBouwstenenIterator().HasNext())),$$$True,$$$False)
+	#dim IsCommercieelAktief As %Boolean = $$$If(((ProductImpl.GeefActiefStatus()="") || (ProductImpl.GeefActiefStatus()="2")),$$$True,$$$False)
+	
+	Quit LeverancierIsVanHoecke && IsStockOverKinderen && HeeftBouwstenen && IsCommercieelAktief
+]]></Implementation>
+</Method>
 </Class>