Index: vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml
===================================================================
diff -u -r64148 -r64152
--- vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 64148)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 64152)
@@ -3,21 +3,69 @@
 <Class name="vhUnitTest.DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: Er staan geen orders open op de bon">
+<Parameter name="OrderId1">
+<Type>%Integer</Type>
+<Default>123456</Default>
+</Parameter>
+
+<Property name="pxLevOrd">
+<Type>BL.Flow.Proxy.pxLevOrd</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Taal">
+<Type>DOM.enu.Taal</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New()
-	#dim BonStub As DOM.VKP.Bon = ##class(vhTest.Mock.DOM.VKP.Bon).%New()
-	#dim pxLevOrd = ##class(BL.Flow.Proxy.pxLevOrd).%New()
-	#dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
+	Do ##super(aTestName)
 	
+	Set ..pxLevOrd = ##class(BL.Flow.Proxy.pxLevOrd).%New()
+	Set ..Taal = ##class(DOM.enu.Taal).Nederlands()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Er staan geen orders open op de leverbon">
+<Implementation><![CDATA[
 	#dim EmptyOrderIterator As TECH.Iterator = ..EmptyIterator()
-	Do BonStub.IndienMethodCall("GeefOrderIterator").DanReturn(EmptyOrderIterator)
 	
-	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(BonStub, pxLevOrd, Taal)
+	#dim LeverbonStub As DOM.VKP.Bon = ##class(vhTest.Mock.DOM.VKP.Bon).%New()
+	Do LeverbonStub.IndienMethodCall("GeefOrderIterator").DanReturn(EmptyOrderIterator)
 	
-	Do $$$AssertEquals(pxLevOrd.LIJNEN.Count(), 0)
+	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New()
+	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..pxLevOrd, ..Taal)
+	
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.Count(), 0)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Er staat een order open op de leverbon maar daar staan geen productorderlijnen meer op">
+<Implementation><![CDATA[
+	#dim EmptyProductOrderLijnIterator As TECH.Iterator = ..EmptyIterator()
+	
+	#dim OrderStub As DOM.VKP.Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do OrderStub.IndienMethodCall("GeefProductOrderLijnIterator").DanReturn(EmptyProductOrderLijnIterator)
+	
+	#dim OrderApiStub As DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderApiStub.IndienMethodCall("BestaatOrder", ..#OrderId1).DanReturn($$$True)
+	Do OrderApiStub.IndienMethodCall("GeefOrder", ..#OrderId1).DanReturn(OrderStub)
+	
+	Set OrderIdLijst = ##class(%ListOfDataTypes).%New()
+	Do OrderIdLijst.Insert(..#OrderId1)
+	#dim OrderIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OrderIdLijst)
+	
+	#dim LeverbonStub As DOM.VKP.Bon = ##class(vhTest.Mock.DOM.VKP.Bon).%New()
+	Do LeverbonStub.IndienMethodCall("GeefOrderIterator").DanReturn(OrderIterator)
+	
+	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New(OrderApiStub)
+	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..pxLevOrd, ..Taal)
+	
+	Do $$$AssertEquals(..pxLevOrd.LIJNEN.Count(), 0)
+]]></Implementation>
+</Method>
 </Class>