Index: vhUnitTest/WSimpl/Vhisie4/OrderBeperker/Filter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/OrderBeperker/Filter/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/OrderBeperker/Filter/Test.cls.xml	(revision 48775)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.OrderBeperker.Filter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="OrigineleConfigSetting">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Filter">
+<Type>WSimpl.Vhisie4.OrderBeperker.Filter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..OrigineleConfigSetting = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("TijdelijkeOrders2A")
+	Set ..Filter =  ##class(WSimpl.Vhisie4.OrderBeperker.Filter).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("TijdelijkeOrders2A", ..OrigineleConfigSetting)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Filter laat waarden toe indien in Modus 2A en indien geen tijdelijk OrderNummer">
+<Implementation><![CDATA[
+	Do ..AssertIsValid(109999, $$$True, $$$False)
+	Do ..AssertIsValid(109999, $$$False, $$$False)	
+	Do ..AssertIsValid(110001, $$$True, $$$True)
+	Do ..AssertIsValid(110001, $$$False, $$$False)
+]]></Implementation>
+</Method>
+
+<Method name="AssertIsValid">
+<FormalSpec>OrderNummer:%Integer,IsModus2A:%Boolean,VerwachtResultaat:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("TijdelijkeOrders2A", IsModus2A)
+	
+	#dim OrderHoofding As WS.Vhisie4.KlantDocument.dto.OrderHoofding = ##class(WS.Vhisie4.KlantDocument.dto.OrderHoofding).%New()
+	Set OrderHoofding.OrderId = OrderNummer
+	
+	#dim IsValid As %Boolean = ..Filter.IsValid(OrderHoofding)
+	
+	Do $$$AssertEquals(IsValid, VerwachtResultaat)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>