Index: vhUnitTest/DOM/VKP/TestBon.cls.xml
===================================================================
diff -u -r29728 -r41923
--- vhUnitTest/DOM/VKP/TestBon.cls.xml	(.../TestBon.cls.xml)	(revision 29728)
+++ vhUnitTest/DOM/VKP/TestBon.cls.xml	(.../TestBon.cls.xml)	(revision 41923)
@@ -1,95 +1,108 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.VKP.TestBon">
-<Description>
-do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.VKP.TestBon")</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
 <Property name="OrderData">
 <Type>vhUnitTest.DOM.VKP.OrderData</Type>
+<Private>1</Private>
 </Property>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	Set ..OrderData = ##class(vhUnitTest.DOM.VKP.OrderData).%New()
+	Do ..OrderData.Create()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	Do ..OrderData.Delete()
+]]></Implementation>
+</Method>
+
 <Method name="TestBon">
 <Implementation><![CDATA[
-	#dim OrderAPI As DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
-	Do $$$AssertTrue(OrderAPI.%Extends("DOM.VKP.OrderAPI"),"Het object is een OrderAPI")
+	#dim StubOrderAPI As DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+		
+	#dim OrderAPI As DOM.VKP.OrderAPI = ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New()
+	#dim Bon As DOM.VKP.Bon = OrderAPI.GeefBon(325216)
 	
-	#dim BonNr As %String = 325216
+	quit:$$$Not($$$AssertTrue(Bon.%Extends("DOM.VKP.Bon")))
 	
-	#dim Bon As DOM.VKP.Bon = OrderAPI.GeefBon(BonNr)
-	
-	Do $$$AssertTrue(Bon.%Extends("DOM.VKP.Bon"),"Het object is een bon")
 	Do $$$AssertEquals(Bon.GeefFactuurID(),"")
 	
 	#dim BonlijnIterator As TECH.Iterator = Bon.GeefBonLijnIterator()
+		
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMOrderlijn"),"De lijn is een product order lijn"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn"))
+	quit:$$$Not($$$AssertFalse(BonlijnIterator.HasNext(),"De bon bevat geen volgende lijn"))
 	
-	Do $$$AssertTrue(BonlijnIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven")
-	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertFalse(BonlijnIterator.HasNext(),"De bon bevat geen volgende lijn")
-	
 	#dim TypedBonIterator As TECH.Iterator
 	
 	Set TypedBonIterator = Bon.GeefTypeBonLijnIterator(##class(DOM.VKP.enu.BonLijnType).Tekst())
-	Do $$$AssertTrue(TypedBonIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven")
+	quit:$$$Not($$$AssertTrue(TypedBonIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven"))
 	Do $$$AssertFalse(TypedBonIterator.HasNext(),"De bon bevat geen tekstlijnen")
 ]]></Implementation>
 </Method>
 
 <Method name="TestOrderInformatie">
 <Implementation><![CDATA[
-	#dim BonNr As %String = 325217
-	#dim OrderAPI As DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
-	#dim Bon As DOM.VKP.Bon = OrderAPI.GeefBon(BonNr)
-	Do $$$AssertTrue($IsObject(Bon.GeefDocumentReferenties()),"DocumentReferenties ingevuld")
+	#dim StubOrderAPI As DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+	do StubOrderAPI.IndienMethodCall("BestaatFactuur",123456).DanReturn($$$True)
+
+	#dim OrderAPI As DOM.VKP.OrderAPI = ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New()
+	#dim Bon As DOM.VKP.Bon = OrderAPI.GeefBon(325217)
+	quit:$$$Not($$$AssertTrue($IsObject(Bon.GeefDocumentReferenties()),"DocumentReferenties ingevuld"))
 	Do $$$AssertEquals(Bon.GeefDocumentReferenties().CommissieReferentie,"UTCommissieReferentie")
 	Do $$$AssertEquals(Bon.GeefDocumentReferenties().OrderReferentie,"UTOrderReferentie")
 	Do $$$AssertEquals(Bon.GeefDocumentReferenties().KlantOrderNummer,"UTKlantOrderNummer")
 	
-	#dim itOrders = Bon.GeefOrderIterator()
+	#dim itOrders As TECH.Iterator = Bon.GeefOrderIterator()
 	
-	Do $$$AssertTrue(itOrders.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven")
-	Do $$$AssertTrue(itOrders.HasNext(),"De bon heeft een volgend order")
-	Do $$$AssertTrue(itOrders.Next()=123440,"Het order nr werd correct terug gegeven")
-	Do $$$AssertTrue(itOrders.HasNext(),"De bon heeft een volgend order")
-	Do $$$AssertTrue(itOrders.Next()=123441,"Het order nr werd correct terug gegeven")
+	quit:$$$Not($$$AssertTrue(itOrders.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven"))
+	quit:$$$Not($$$AssertTrue(itOrders.HasNext(),"De bon heeft een volgend order"))
+	quit:$$$Not($$$AssertTrue(itOrders.Next()=123440,"Het order nr werd correct terug gegeven"))
+	quit:$$$Not($$$AssertTrue(itOrders.HasNext(),"De bon heeft een volgend order"))
+	quit:$$$Not($$$AssertTrue(itOrders.Next()=123441,"Het order nr werd correct terug gegeven"))
 	Do $$$AssertFalse(itOrders.HasNext(),"De bon bevat geen volgende lijn")
 	
 	Do $$$AssertEquals(Bon.GeefFactuurID(),123456)
 	
 	#dim itLijnen = Bon.GeefOrderLijnIterator(123441)
-	Do $$$AssertTrue(itLijnen.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven")
-	Do $$$AssertTrue(itLijnen.HasNext(),"De bon heeft een volgende orderlijn")
-	Do $$$AssertTrue(itLijnen.Next().GeefProductID()=175415,"De juiste lijn werd terug gegeven")
-	Do $$$AssertTrue(itLijnen.HasNext(),"De bon heeft een volgende orderlijn")
-	Do $$$AssertTrue(itLijnen.Next().GeefProductID()=175416,"De juiste lijn werd terug gegeven")
+	quit:$$$Not($$$AssertTrue(itLijnen.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven"))
+	quit:$$$Not($$$AssertTrue(itLijnen.HasNext(),"De bon heeft een volgende orderlijn"))
+	quit:$$$Not($$$AssertTrue(itLijnen.Next().GeefProductID()=175415,"De juiste lijn werd terug gegeven"))
+	quit:$$$Not($$$AssertTrue(itLijnen.HasNext(),"De bon heeft een volgende orderlijn"))
+	quit:$$$Not($$$AssertTrue(itLijnen.Next().GeefProductID()=175416,"De juiste lijn werd terug gegeven"))
 	Do $$$AssertFalse(itLijnen.HasNext(),"De bon bevat geen volgende lijn")
 
 	set itLijnen = Bon.GeefOrderLijnIterator(123440)
-	Do $$$AssertTrue(itLijnen.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven")
-	Do $$$AssertTrue(itLijnen.HasNext(),"De bon heeft een volgende orderlijn")
-	Do $$$AssertTrue(itLijnen.Next().GeefProductID()=104752,"De juiste lijn werd terug gegeven")
-	Do $$$AssertTrue(itLijnen.HasNext(),"De bon heeft een volgende orderlijn")
-	Do $$$AssertTrue(itLijnen.Next().GeefProductID()=90399,"De juiste lijn werd terug gegeven")
-	Do $$$AssertTrue(itLijnen.HasNext(),"De bon heeft een volgende orderlijn")
-	Do $$$AssertTrue(itLijnen.Next().GeefProductID()=1168398,"De juiste lijn werd terug gegeven")
+	quit:$$$Not($$$AssertTrue(itLijnen.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven"))
+	quit:$$$Not($$$AssertTrue(itLijnen.HasNext(),"De bon heeft een volgende orderlijn"))
+	quit:$$$Not($$$AssertTrue(itLijnen.Next().GeefProductID()=104752,"De juiste lijn werd terug gegeven"))
+	quit:$$$Not($$$AssertTrue(itLijnen.HasNext(),"De bon heeft een volgende orderlijn"))
+	quit:$$$Not($$$AssertTrue(itLijnen.Next().GeefProductID()=90399,"De juiste lijn werd terug gegeven"))
+	quit:$$$Not($$$AssertTrue(itLijnen.HasNext(),"De bon heeft een volgende orderlijn"))
+	quit:$$$Not($$$AssertTrue(itLijnen.Next().GeefProductID()=1168398,"De juiste lijn werd terug gegeven"))
 	Do $$$AssertFalse(itLijnen.HasNext(),"De bon bevat geen volgende lijn")
-
-	quit
 ]]></Implementation>
 </Method>
 
@@ -120,21 +133,6 @@
 	#dim Bon As DOM.VKP.Bon = OrderAPI.GeefBon(BonNr)
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeAllTests">
-<Implementation><![CDATA[
-	do ##super()
-	Set ..OrderData = ##class(vhUnitTest.DOM.VKP.OrderData).%New()
-	Do ..OrderData.Create()
-]]></Implementation>
-</Method>
-
-<Method name="OnAfterAllTests">
-<Implementation><![CDATA[
-	do ##super()
-	Do ..OrderData.Delete()
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/VKP/OrderData.cls.xml
===================================================================
diff -u -r29728 -r41923
--- vhUnitTest/DOM/VKP/OrderData.cls.xml	(.../OrderData.cls.xml)	(revision 29728)
+++ vhUnitTest/DOM/VKP/OrderData.cls.xml	(.../OrderData.cls.xml)	(revision 41923)
@@ -96,7 +96,6 @@
 	Set ^KUL(1091,"F",325216,107) = "703000 \175416\20\\\5.55\20#\8\111.00\111.00\703000 \L\\\700\111.00\KF6\\\\E1\EUR\\\61514\\\\\\\\\\\\\\\\1\1\\\\0"
 	Set ^KUL(1091,"F",325216,"VP",129018) = "2\60031,42441\\\"
 	
-	
 	Set ^KU1(325217,"F") = "1091\123456"
 	
 	Set ..DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
Index: DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml
===================================================================
diff -u -r36446 -r41923
--- DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 36446)
+++ DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 41923)
@@ -319,7 +319,7 @@
 	#dim FactuurID As %String = ""
 	#dim ID As %String = $piece(^KU1(..BonNummer,"F"),"\",2)
 	Quit:$piece(^KU1(..BonNummer,"F"),"\",3)="P" ""
-	Set:(##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatFactuur(ID)) FactuurID = ID
+	Set:$$$HasLength(ID)&&(##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatFactuur(ID)) FactuurID = ID
 	Quit FactuurID
 ]]></Implementation>
 </Method>
@@ -330,7 +330,7 @@
 	#dim ProformaID As %String = ""
 	#dim ID As %String = $piece(^KU1(..BonNummer,"F"),"\",2)
 	Quit:$piece(^KU1(..BonNummer,"F"),"\",3)'="P" ""
-	Set:(##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatProforma(ID)) ProformaID = ID
+	Set:$$$HasLength(ID)&&(##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatProforma(ID)) ProformaID = ID
 	Quit ProformaID
 ]]></Implementation>
 </Method>