Index: DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml
===================================================================
diff -u -r41923 -r41945
--- DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 41923)
+++ DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 41945)
@@ -6,6 +6,26 @@
 <Super>DOM.VKP.Bon,TECH.RegisteredObject</Super>
 <Inheritance>right</Inheritance>
 
+<Property name="TransportApi">
+<Type>DOM.TRANSP.TransportAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PersonalityViaOorsprongBepaler">
+<Type>DOM.VKP.impl.DataM.DataMOrder.PersonalityViaOorsprongBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PartijApi">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="BonNummer">
 <Type>%Integer</Type>
 <Private>1</Private>
@@ -39,6 +59,10 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..BonNummer = BonNummer
+	Set ..TransportApi = ##class(DOM.DomeinContext).Instance().GeefTransportAPI()
+	Set ..OrderApi = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+	Set ..PersonalityViaOorsprongBepaler = ##class(DOM.VKP.impl.DataM.DataMOrder.PersonalityViaOorsprongBepaler).%New()
+	Set ..PartijApi = ##class(DOM.DomeinContext).Instance().GeefPartijAPI()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -111,7 +135,7 @@
 	If $P(..NodeAdres,"\",1) {
 		Set LeverAdres = ##class(DataMAdres).CreateFromDelimitedString(..NodeAdres)
 	} Else{
-		Set LeverAdres = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(..GeefKlantID()).GeefAdres()
+		Set LeverAdres = ..PartijApi.GeefPartij(..GeefKlantID()).GeefAdres()
 	}
 	Quit LeverAdres
 ]]></Implementation>
@@ -155,8 +179,7 @@
 	If ($Length(TransportLink)>0){
 		#dim VervoerRef As %String = $Piece(TransportLink,";",1)
 		#dim GroepRef As %String = $Piece(TransportLink,";",2)
-		#dim TransportAPI As DOM.TRANSP.TransportAPI = ##class(DOM.DomeinContext).Instance().GeefTransportAPI()
-		Set Transport = TransportAPI.GeefLevering(VervoerRef,GroepRef)
+		Set Transport = ..TransportApi.GeefLevering(VervoerRef,GroepRef)
 	}
 	Quit Transport
 ]]></Implementation>
@@ -267,20 +290,10 @@
 
 <Method name="GeefAanbrengers">
 <ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[
-	
-	Quit ##class(TECH.ListUtils).PiecesToList($piece(..NodeHoofding,"\",55),"`")
+<Implementation><![CDATA[	Quit ##class(TECH.ListUtils).PiecesToList($piece(..NodeHoofding,"\",55),"`")
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAanbrengerIndex">
-<FormalSpec>AanbrengerCode:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefAanbrengers().Find(AanbrengerCode)
-]]></Implementation>
-</Method>
-
 <Method name="GeefAanbrengerCommissiePercentage">
 <FormalSpec>AanbrengerCode:%String</FormalSpec>
 <ReturnType>%Decimal</ReturnType>
@@ -319,7 +332,7 @@
 	#dim FactuurID As %String = ""
 	#dim ID As %String = $piece(^KU1(..BonNummer,"F"),"\",2)
 	Quit:$piece(^KU1(..BonNummer,"F"),"\",3)="P" ""
-	Set:$$$HasLength(ID)&&(##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatFactuur(ID)) FactuurID = ID
+	Set:$$$HasLength(ID)&&(..OrderApi.BestaatFactuur(ID)) FactuurID = ID
 	Quit FactuurID
 ]]></Implementation>
 </Method>
@@ -330,7 +343,7 @@
 	#dim ProformaID As %String = ""
 	#dim ID As %String = $piece(^KU1(..BonNummer,"F"),"\",2)
 	Quit:$piece(^KU1(..BonNummer,"F"),"\",3)'="P" ""
-	Set:$$$HasLength(ID)&&(##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatProforma(ID)) ProformaID = ID
+	Set:$$$HasLength(ID)&&(..OrderApi.BestaatProforma(ID)) ProformaID = ID
 	Quit ProformaID
 ]]></Implementation>
 </Method>
@@ -343,9 +356,7 @@
 
 <Method name="GeefPersonalityID">
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[
-	Set PersonalityViaOorsprongBepaler = ##class(DOM.VKP.impl.DataM.DataMOrder.PersonalityViaOorsprongBepaler).%New()
-	Quit PersonalityViaOorsprongBepaler.GeefPersonality(..GeefOorsprong()).GeefID()
+<Implementation><![CDATA[	Quit ..PersonalityViaOorsprongBepaler.GeefPersonality(..GeefOorsprong()).GeefID()
 ]]></Implementation>
 </Method>
 
@@ -360,6 +371,14 @@
 <Implementation><![CDATA[	Quit ##class(DOM.VKP.DocumentReferenties).OpenId($Piece(..NodeHoofding,"\",57))
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAanbrengerIndex">
+<FormalSpec>AanbrengerCode:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefAanbrengers().Find(AanbrengerCode)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/VKP/TestBon.cls.xml
===================================================================
diff -u -r41923 -r41945
--- vhUnitTest/DOM/VKP/TestBon.cls.xml	(.../TestBon.cls.xml)	(revision 41923)
+++ vhUnitTest/DOM/VKP/TestBon.cls.xml	(.../TestBon.cls.xml)	(revision 41945)
@@ -27,9 +27,7 @@
 
 <Method name="TestBon">
 <Implementation><![CDATA[
-	#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()
+	set OrderAPI = ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New()
 	#dim Bon As DOM.VKP.Bon = OrderAPI.GeefBon(325216)
 	
 	quit:$$$Not($$$AssertTrue(Bon.%Extends("DOM.VKP.Bon")))
@@ -38,22 +36,22 @@
 	
 	#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"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.%Extends("TECH.Iterator")))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.HasNext(),"HasNext 1"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMOrderlijn"),"Next 1"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.HasNext(),"HasNext 2"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn"),"Next 2"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.HasNext(),"HasNext 3"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn"),"Next 3"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.HasNext(),"HasNext 4"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn"),"Next 4"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.HasNext(),"HasNext 5"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn"),"Next 5"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.HasNext(),"HasNext 6"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn"),"Next 6"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.HasNext(),"HasNext 7"))
+	quit:$$$Not($$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn"),"Next 7"))
+	quit:$$$Not($$$AssertFalse(BonlijnIterator.HasNext(),"HasNext 8"))
 	
 	#dim TypedBonIterator As TECH.Iterator
 	
@@ -68,41 +66,40 @@
 	#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()
+	set 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 As TECH.Iterator = Bon.GeefOrderIterator()
+	#dim OrderIterator As TECH.Iterator = Bon.GeefOrderIterator()
 	
-	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")
+	quit:$$$Not($$$AssertTrue(OrderIterator.HasNext(),"325217 - HasNext 1"))
+	quit:$$$Not($$$AssertTrue(OrderIterator.Next()=123440))
+	quit:$$$Not($$$AssertTrue(OrderIterator.HasNext(),"325217 - HasNext 2"))
+	quit:$$$Not($$$AssertTrue(OrderIterator.Next()=123441))
+	Do $$$AssertFalse(OrderIterator.HasNext(),"De bon bevat geen volgende lijn")
 	
 	Do $$$AssertEquals(Bon.GeefFactuurID(),123456)
 	
-	#dim itLijnen = Bon.GeefOrderLijnIterator(123441)
-	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")
+	#dim LijnenIterator As TECH.Iterator
+	
+	set LijnenIterator = Bon.GeefOrderLijnIterator(123441)
+	quit:$$$Not($$$AssertTrue(LijnenIterator.HasNext(),"123441 - HasNext 1"))
+	quit:$$$Not($$$AssertTrue(LijnenIterator.Next().GeefProductID()=175415,"De juiste lijn werd terug gegeven"))
+	quit:$$$Not($$$AssertTrue(LijnenIterator.HasNext(),"123441 - HasNext 2"))
+	quit:$$$Not($$$AssertTrue(LijnenIterator.Next().GeefProductID()=175416,"De juiste lijn werd terug gegeven"))
+	Do $$$AssertFalse(LijnenIterator.HasNext(),"123441 - HasNext 3")
 
-	set itLijnen = Bon.GeefOrderLijnIterator(123440)
-	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")
+	set LijnenIterator = Bon.GeefOrderLijnIterator(123440)
+	quit:$$$Not($$$AssertTrue(LijnenIterator.HasNext(),"123440 - HasNext 1"))
+	quit:$$$Not($$$AssertTrue(LijnenIterator.Next().GeefProductID()=104752,"De juiste lijn werd terug gegeven"))
+	quit:$$$Not($$$AssertTrue(LijnenIterator.HasNext(),"123440 - HasNext 2"))
+	quit:$$$Not($$$AssertTrue(LijnenIterator.Next().GeefProductID()=90399,"De juiste lijn werd terug gegeven"))
+	quit:$$$Not($$$AssertTrue(LijnenIterator.HasNext(),"123440 - HasNext 3"))
+	quit:$$$Not($$$AssertTrue(LijnenIterator.Next().GeefProductID()=1168398,"De juiste lijn werd terug gegeven"))
+	Do $$$AssertFalse(LijnenIterator.HasNext(),"123440 - HasNext 4")
 ]]></Implementation>
 </Method>