Index: AX/Uitgaand/PM/impl/IsOrgaluxProductFilter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/impl/IsOrgaluxProductFilter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/impl/IsOrgaluxProductFilter.cls.xml	(revision 46434)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.impl.IsOrgaluxProductFilter">
+<Super>TECH.RegisteredObject,TECH.Filter</Super>
+
+<Property name="IsValid">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="IsValid">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsValid As %Boolean = $$$False
+	#dim KortTekst As %String = Product.Basis.KortTekst
+	#dim HoofdGroep As %String = Product.Klassificatie.HoofdGroep
+	
+	If (($Extract(KortTekst,1,2) = "OL") || ($Extract(KortTekst,1,2) = "TA")) && (($Extract(HoofdGroep,3,4) = "OL") || ($Extract(HoofdGroep,3,4) = "TA")) {
+		Set IsValid = $$$True
+	} 	
+	
+	Quit IsValid
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AX/Uitgaand/PM/impl/IsOrgaluxProductFilter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/PM/impl/IsOrgaluxProductFilter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/PM/impl/IsOrgaluxProductFilter/Test.cls.xml	(revision 46434)
@@ -0,0 +1,134 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.PM.impl.IsOrgaluxProductFilter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductId">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(..#ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: KortTekst en HoofdGroep met OL">
+<Implementation><![CDATA[
+	#dim Product As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeControlerenProduct()
+	Set Product.Basis.KortTekst = "OLkorttekst"
+	Set Product.Klassificatie.HoofdGroep = "01OL"
+	
+	#dim Resultaat As %Boolean = ##class(AX.Uitgaand.PM.impl.IsOrgaluxProductFilter).%New().IsValid(Product)
+	
+	Do $$$AssertTrue(Resultaat)
+]]></Implementation>
+</Method>
+
+<Method name="Test: KortTekst en HoofdGroep met TA">
+<Implementation><![CDATA[
+	#dim Product As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeControlerenProduct()
+	Set Product.Basis.KortTekst = "TAkorttekst"
+	Set Product.Klassificatie.HoofdGroep = "01TA"
+	
+	#dim Resultaat As %Boolean = ##class(AX.Uitgaand.PM.impl.IsOrgaluxProductFilter).%New().IsValid(Product)
+	
+	Do $$$AssertTrue(Resultaat)
+]]></Implementation>
+</Method>
+
+<Method name="Test: KortTekst met OL en HoofdGroep met TA">
+<Implementation><![CDATA[
+	#dim Product As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeControlerenProduct()
+	Set Product.Basis.KortTekst = "OLkorttekst"
+	Set Product.Klassificatie.HoofdGroep = "01TA"
+	
+	#dim Resultaat As %Boolean = ##class(AX.Uitgaand.PM.impl.IsOrgaluxProductFilter).%New().IsValid(Product)
+	
+	Do $$$AssertTrue(Resultaat)
+]]></Implementation>
+</Method>
+
+<Method name="Test: KortTekst met TA en HoofdGroep met OL">
+<Implementation><![CDATA[
+	#dim Product As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeControlerenProduct()
+	Set Product.Basis.KortTekst = "TAkorttekst"
+	Set Product.Klassificatie.HoofdGroep = "01TA"
+	
+	#dim Resultaat As %Boolean = ##class(AX.Uitgaand.PM.impl.IsOrgaluxProductFilter).%New().IsValid(Product)
+	
+	Do $$$AssertTrue(Resultaat)
+]]></Implementation>
+</Method>
+
+<Method name="Test: KortTekst met OL en HoofdGroep niet OL of TA">
+<Implementation><![CDATA[
+	#dim Product As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeControlerenProduct()
+	Set Product.Basis.KortTekst = "OLkorttekst"
+	Set Product.Klassificatie.HoofdGroep = "01ZZ"
+	
+	#dim Resultaat As %Boolean = ##class(AX.Uitgaand.PM.impl.IsOrgaluxProductFilter).%New().IsValid(Product)
+	
+	Do $$$AssertFalse(Resultaat)
+]]></Implementation>
+</Method>
+
+<Method name="Test: KortTekst met TA en HoofdGroep niet OL of TA">
+<Implementation><![CDATA[
+	#dim Product As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeControlerenProduct()
+	Set Product.Basis.KortTekst = "TAkorttekst"
+	Set Product.Klassificatie.HoofdGroep = "01ZZ"
+	
+	#dim Resultaat As %Boolean = ##class(AX.Uitgaand.PM.impl.IsOrgaluxProductFilter).%New().IsValid(Product)
+	
+	Do $$$AssertFalse(Resultaat)
+]]></Implementation>
+</Method>
+
+<Method name="Test: KortTekst niet OL of TA en HoofdGroep met OL">
+<Implementation><![CDATA[
+	#dim Product As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeControlerenProduct()
+	Set Product.Basis.KortTekst = "ZZkorttekst"
+	Set Product.Klassificatie.HoofdGroep = "01OL"
+	
+	#dim Resultaat As %Boolean = ##class(AX.Uitgaand.PM.impl.IsOrgaluxProductFilter).%New().IsValid(Product)
+	
+	Do $$$AssertFalse(Resultaat)
+]]></Implementation>
+</Method>
+
+<Method name="Test: KortTekst niet OL of TA en HoofdGroep met TA">
+<Implementation><![CDATA[
+	#dim Product As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeControlerenProduct()
+	Set Product.Basis.KortTekst = "ZZkorttekst"
+	Set Product.Klassificatie.HoofdGroep = "01TA"
+	
+	#dim Resultaat As %Boolean = ##class(AX.Uitgaand.PM.impl.IsOrgaluxProductFilter).%New().IsValid(Product)
+	
+	Do $$$AssertFalse(Resultaat)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeControlerenProduct">
+<Private>1</Private>
+<ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>
+<Implementation><![CDATA[
+	Set Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+	Do Product.BasisSetObjectId(..#ProductId)
+	Quit Product
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>