Index: vhUnitTest/APPS/OrderUitvoering/TestBezwaren.cls.xml
===================================================================
diff -u -r29059 -r66094
--- vhUnitTest/APPS/OrderUitvoering/TestBezwaren.cls.xml	(.../TestBezwaren.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/OrderUitvoering/TestBezwaren.cls.xml	(.../TestBezwaren.cls.xml)	(revision 66094)
@@ -15,24 +15,44 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestWachtOpVolgendOrder">
+<Method name="Test Roept onderandere LeveringTeVerInDeToekomst bezwaren bepaleraan">
 <Implementation><![CDATA[
 	#dim OrderID As %String = "UT100000"
-	Set DoorsturenOrderPickingService = ##class(APPS.OrderUitvoering.DoorsturenOrderPickingService).%New()
+		
+	Set LeveringTeverInToekomstMock = ##class(vhTest.Mock.APPS.OrderUitvoering.Bezwaren.LeveringTeVerInToekomst).%New()
+	Do LeveringTeverInToekomstMock.VerwachtMethodCall("ZetOrderID","UT100000").DanDoeNiks()
+	Do LeveringTeverInToekomstMock.VerwachtMethodCall("ZetOrderLijnID","100").DanDoeNiks()
+	
+	Set BezwarenList = ##class(%ListOfDataTypes).%New()
+	Do BezwarenList.Insert("Toekomst bezwaar")
+	
+	Do LeveringTeverInToekomstMock.VerwachtMethodCall("GeefBezwaren").DanReturn(BezwarenList)
+	
+	Set DoorsturenOrderPickingService = ##class(APPS.OrderUitvoering.DoorsturenOrderPickingService).%New(LeveringTeverInToekomstMock)
 	#dim Bezwaren As %ListOfDataTypes = DoorsturenOrderPickingService.GeefBezwarenTegenOrderLijnDoorsturen(OrderID,100)
 	
-	Do $$$AssertEquals(Bezwaren.Count(),1,"Er zijn bezwaren voor dit order.")
-	#dim IsBezwaarGevonden As %Boolean = 0
+	Do $$$AssertEquals(Bezwaren.Count(),2,"Er zijn bezwaren voor dit order.")
+	#dim IsBezwaarVolgendOrderGevonden As %Boolean = 0
+	#dim IsBezwaarToekomstGevonden As %Boolean = 0
 	#dim BezwarenIt As TECH.Iterator = ##class(TECH.ListIterator).%New(Bezwaren)
-	While (BezwarenIt.HasNext() && 'IsBezwaarGevonden)
+	While (BezwarenIt.HasNext() && ('IsBezwaarVolgendOrderGevonden ! 'IsBezwaarToekomstGevonden))
 	{
 		#dim Bezwaar As %String = BezwarenIt.Next()	
+		w !, Bezwaar
 		If (Bezwaar [ "wacht op een volgend order, alvorens automatisch door te sturen voor orderpicking. Wilt u dit toch al markeren voor orderpicking?")
 		{
-			Set IsBezwaarGevonden = 1	
+			Set IsBezwaarVolgendOrderGevonden = 1	
 		}
+		If (Bezwaar [ "Toekomst bezwaar")
+		{
+			Set IsBezwaarToekomstGevonden = 1	
+		}
+
 	}	
-	Do $$$AssertTrue(IsBezwaarGevonden)
+	
+	Do LeveringTeverInToekomstMock.Verifieer()
+	Do $$$AssertTrue(IsBezwaarVolgendOrderGevonden)
+	Do $$$AssertTrue(IsBezwaarToekomstGevonden)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/OrderUitvoering/DoorsturenOrderPickingService.cls.xml
===================================================================
diff -u -r29059 -r66094
--- APPS/OrderUitvoering/DoorsturenOrderPickingService.cls.xml	(.../DoorsturenOrderPickingService.cls.xml)	(revision 29059)
+++ APPS/OrderUitvoering/DoorsturenOrderPickingService.cls.xml	(.../DoorsturenOrderPickingService.cls.xml)	(revision 66094)
@@ -1,14 +1,31 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.OrderUitvoering.DoorsturenOrderPickingService">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Property name="Bezwaren">
 <Type>%ListOfDataTypes</Type>
 <InitialExpression>##class(%ListOfDataTypes).%New()</InitialExpression>
 <Private>1</Private>
 </Property>
 
+<Property name="TeVerInDeToekomstBepaler">
+<Type>APPS.OrderUitvoering.Bezwaren.LeveringTeVerInToekomst</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>TeVerInDeToekomstBepaler:APPS.OrderUitvoering.Bezwaren.LeveringTeVerInToekomst=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..TeVerInDeToekomstBepaler = $$$Inject(TeVerInDeToekomstBepaler, ##class(APPS.OrderUitvoering.Bezwaren.LeveringTeVerInToekomst).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="RegistreerControle">
 <FormalSpec>OrderID:%String,OrderLijnID:%String,Controle:APPS.OrderUitvoering.OrderLijnDoorsturenControle</FormalSpec>
 <Implementation><![CDATA[
@@ -61,7 +78,13 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	Do ..Bezwaren.Clear()
+	
 	Do ..VoegToeBezwaren(##class(APPS.OrderUitvoering.Bezwaren.WachtOpAnderOrderVoorDoorsturen).%New(OrderID).GeefBezwaren())
+
+	Do ..TeVerInDeToekomstBepaler.ZetOrderID(OrderID)
+	Do ..TeVerInDeToekomstBepaler.ZetOrderLijnID(OrderLijnID)
+	Do ..VoegToeBezwaren(..TeVerInDeToekomstBepaler.GeefBezwaren())
+	
 	Quit ..Bezwaren
 ]]></Implementation>
 </Method>