Index: vhUnitTest/CHUI/VKP/OrderIngave/OrderControle/Test.cls.xml
===================================================================
diff -u -r51278 -r51279
--- vhUnitTest/CHUI/VKP/OrderIngave/OrderControle/Test.cls.xml	(.../Test.cls.xml)	(revision 51278)
+++ vhUnitTest/CHUI/VKP/OrderIngave/OrderControle/Test.cls.xml	(.../Test.cls.xml)	(revision 51279)
@@ -71,6 +71,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Default werking -&gt; IsOrderVolledigGemarkeerd -&gt; False">
+<Implementation><![CDATA[
+	#dim AantalOrderLijnen As %Integer = 3
+	
+	Do ..DataSetup(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)
+	
+	Do ..OrderApi.IndienMethodCall("GeefOrder",..#OrderNummer).DanReturn(OrderMock)
+	
+	#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>
@@ -119,6 +138,16 @@
 	Quit
 ]]></Implementation>
 </Method>
+
+<Method name="DataKillVolgensOrderLijn">
+<FormalSpec>OrderLijn:%Integer=1</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Kill ^HULP(..#Index,..#KlantNr,"M","A",..#OrderNummer,(OrderLijn-1)*10+100)
+	
+	Quit
+]]></Implementation>
+</Method>
 </Class>