Index: vhUnitTest/CHUI/VKP/OrderIngave/OrderControle/Test.cls.xml
===================================================================
diff -u -r51279 -r51280
--- vhUnitTest/CHUI/VKP/OrderIngave/OrderControle/Test.cls.xml	(.../Test.cls.xml)	(revision 51279)
+++ vhUnitTest/CHUI/VKP/OrderIngave/OrderControle/Test.cls.xml	(.../Test.cls.xml)	(revision 51280)
@@ -34,21 +34,21 @@
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
-	;Do ..DataKill()
+	Do ..DataKill()
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	;Do ..DataKill()
+	Do ..DataKill()
 	Do ##super(aTestName)
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterAllTests">
 <Implementation><![CDATA[
-	;Do ..DataKill()
+	Do ..DataKill()
  	Do ##super()
 ]]></Implementation>
 </Method>
@@ -57,14 +57,8 @@
 <Implementation><![CDATA[
 	#dim AantalOrderLijnen As %Integer = 3
 	
-	Do ..DataSetup(AantalOrderLijnen)
-	#dim OrderLijnIteratorMock as TECH.Iterator = ..GeefOrderLijnIterator(AantalOrderLijnen)
+	Do ..OrderApi.IndienMethodCall("GeefOrder",..#OrderNummer).DanReturn(..GeefOrderMockVolgensAantalOrderLijnen(AantalOrderLijnen))
 	
-	#dim OrderMock As DOM.VKP.Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
-	Do OrderMock.IndienMethodCall("GeefOrderLijnIterator").DanReturn(OrderLijnIteratorMock)
-	
-	Do ..OrderApi.IndienMethodCall("GeefOrder",..#OrderNummer).DanReturn(OrderMock)
-	
 	#dim Result As %boolean = ..GeefOrdercontrole().IsOrderVolledigGemarkeerd(..#Index,..#KlantNr,..#OrderNummer)
 	
 	Do $$$AssertTrue(Result)
@@ -75,28 +69,133 @@
 <Implementation><![CDATA[
 	#dim AantalOrderLijnen As %Integer = 3
 	
-	Do ..DataSetup(AantalOrderLijnen)
+	Do ..OrderApi.IndienMethodCall("GeefOrder",..#OrderNummer).DanReturn(..GeefOrderMockVolgensAantalOrderLijnen(AantalOrderLijnen))
+	
 	Do ..DataKillVolgensOrderLijn(2)
-	#dim OrderLijnIteratorMock as TECH.Iterator = ..GeefOrderLijnIterator(AantalOrderLijnen)
 	
-	#dim OrderMock As DOM.VKP.Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
-	Do OrderMock.IndienMethodCall("GeefOrderLijnIterator").DanReturn(OrderLijnIteratorMock)
+	#dim Result As %boolean = ..GeefOrdercontrole().IsOrderVolledigGemarkeerd(..#Index,..#KlantNr,..#OrderNummer)
 	
-	Do ..OrderApi.IndienMethodCall("GeefOrder",..#OrderNummer).DanReturn(OrderMock)
+	Do $$$AssertFalse(Result)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Er zijn geen OrderLijnen -&gt; IsOrderVolledigGemarkeerd -&gt; True">
+<Implementation><![CDATA[
+	#dim AantalOrderLijnen As %Integer = 0
+
+	Do ..OrderApi.IndienMethodCall("GeefOrder",..#OrderNummer).DanReturn(..GeefOrderMockVolgensAantalOrderLijnen(AantalOrderLijnen))
 	
 	#dim Result As %boolean = ..GeefOrdercontrole().IsOrderVolledigGemarkeerd(..#Index,..#KlantNr,..#OrderNummer)
 	
+	Do $$$AssertTrue(Result)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Er is 1 OrderLijn die gemarkeerd is -&gt; IsOrderVolledigGemarkeerd -&gt; True">
+<Implementation><![CDATA[
+	#dim AantalOrderLijnen As %Integer = 1
+	
+	Do ..OrderApi.IndienMethodCall("GeefOrder",..#OrderNummer).DanReturn(..GeefOrderMockVolgensAantalOrderLijnen(AantalOrderLijnen))
+	
+	#dim Result As %boolean = ..GeefOrdercontrole().IsOrderVolledigGemarkeerd(..#Index,..#KlantNr,..#OrderNummer)
+	
+	Do $$$AssertTrue(Result)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Er is 1 OrderLijn die niet gemarkeerd is -&gt; IsOrderVolledigGemarkeerd -&gt; False">
+<Implementation><![CDATA[
+	#dim AantalOrderLijnen As %Integer = 1
+	
+	Do ..OrderApi.IndienMethodCall("GeefOrder",..#OrderNummer).DanReturn(..GeefOrderMockVolgensAantalOrderLijnen(AantalOrderLijnen))
+	
+	Do ..DataKillVolgensOrderLijn(1)
+	
+	#dim Result As %boolean = ..GeefOrdercontrole().IsOrderVolledigGemarkeerd(..#Index,..#KlantNr,..#OrderNummer)
+	
 	Do $$$AssertFalse(Result)
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Er zijn 10 OrderLijnen die allemaal gemarkeerd zijn -&gt; IsOrderVolledigGemarkeerd -&gt; True">
+<Implementation><![CDATA[
+	#dim AantalOrderLijnen As %Integer = 10
+	
+	Do ..OrderApi.IndienMethodCall("GeefOrder",..#OrderNummer).DanReturn(..GeefOrderMockVolgensAantalOrderLijnen(AantalOrderLijnen))
+	
+	#dim Result As %boolean = ..GeefOrdercontrole().IsOrderVolledigGemarkeerd(..#Index,..#KlantNr,..#OrderNummer)
+	
+	Do $$$AssertTrue(Result)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Er zijn 10 OrderLijnen waarvan de laatste niet gemarkeerd is -&gt; IsOrderVolledigGemarkeerd -&gt; False">
+<Implementation><![CDATA[
+	#dim AantalOrderLijnen As %Integer = 10
+	
+	Do ..OrderApi.IndienMethodCall("GeefOrder",..#OrderNummer).DanReturn(..GeefOrderMockVolgensAantalOrderLijnen(AantalOrderLijnen))
+	
+	Do ..DataKillVolgensOrderLijn(10)
+	
+	#dim Result As %boolean = ..GeefOrdercontrole().IsOrderVolledigGemarkeerd(..#Index,..#KlantNr,..#OrderNummer)
+	
+	Do $$$AssertFalse(Result)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Er zijn 10 OrderLijnen waarvan de vijfde niet gemarkeerd is -&gt; IsOrderVolledigGemarkeerd -&gt; False">
+<Implementation><![CDATA[
+	#dim AantalOrderLijnen As %Integer = 10
+	
+	Do ..OrderApi.IndienMethodCall("GeefOrder",..#OrderNummer).DanReturn(..GeefOrderMockVolgensAantalOrderLijnen(AantalOrderLijnen))
+	
+	Do ..DataKillVolgensOrderLijn(5)
+	
+	#dim Result As %boolean = ..GeefOrdercontrole().IsOrderVolledigGemarkeerd(..#Index,..#KlantNr,..#OrderNummer)
+	
+	Do $$$AssertFalse(Result)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Er zijn 10 OrderLijnen waarvan de 3e en 5de en 7e niet gemarkeerd zijn -&gt; IsOrderVolledigGemarkeerd -&gt; False">
+<Implementation><![CDATA[
+	#dim AantalOrderLijnen As %Integer = 10
+	
+	Do ..OrderApi.IndienMethodCall("GeefOrder",..#OrderNummer).DanReturn(..GeefOrderMockVolgensAantalOrderLijnen(AantalOrderLijnen))
+	
+	Do ..DataKillVolgensOrderLijn(3)
+	Do ..DataKillVolgensOrderLijn(5)
+	Do ..DataKillVolgensOrderLijn(7)
+	
+	#dim Result As %boolean = ..GeefOrdercontrole().IsOrderVolledigGemarkeerd(..#Index,..#KlantNr,..#OrderNummer)
+	
+	Do $$$AssertFalse(Result)
+]]></Implementation>
+</Method>
+
 <Method name="GeefOrdercontrole">
 <Private>1</Private>
 <ReturnType>CHUI.VKP.OrderIngave.OrderControle</ReturnType>
 <Implementation><![CDATA[	Quit ##class(CHUI.VKP.OrderIngave.OrderControle).%New(..OrderApi)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOrderMockVolgensAantalOrderLijnen">
+<FormalSpec>AantalOrderLijnen:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.Order</ReturnType>
+<Implementation><![CDATA[
+	Do ..DataSetup(AantalOrderLijnen)
+	
+	#dim OrderLijnIteratorMock as TECH.Iterator = ..GeefOrderLijnIterator(AantalOrderLijnen)
+	
+	#dim OrderMock As DOM.VKP.Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do OrderMock.IndienMethodCall("GeefOrderLijnIterator").DanReturn(OrderLijnIteratorMock)
+	
+	Quit OrderMock
+]]></Implementation>
+</Method>
+
 <Method name="GeefOrderLijnIterator">
 <FormalSpec>AantalOrderLijnen:%Integer=1</FormalSpec>
 <Private>1</Private>