Index: APPS/VKP/Commissie/impl/CommissieService.cls.xml
===================================================================
diff -u -r29059 -r31233
--- APPS/VKP/Commissie/impl/CommissieService.cls.xml	(.../CommissieService.cls.xml)	(revision 29059)
+++ APPS/VKP/Commissie/impl/CommissieService.cls.xml	(.../CommissieService.cls.xml)	(revision 31233)
@@ -18,6 +18,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DataService">
+<Type>APPS.common.impl.DataService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>CommissieRepository:DOM.VKP.Commissie.CommissieRepository</FormalSpec>
 <Private>1</Private>
@@ -28,6 +38,8 @@
 	set ..CommissieRepository = $$$Implementation(CommissieRepository,##class(DOM.VKP.Commissie.impl.CommissieRepository).%New())
 	set ..OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
 	set ..BoekhoudingAPI = ##class(DOM.DomeinContext).Instance().GeefBoekhoudingAPI()
+	Set ..LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+	Set ..DataService = ##class(APPS.common.impl.DataService).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -315,32 +327,31 @@
 <Implementation><![CDATA[
 	set dtoCommissie = ##class(APPS.VKP.Commissie.dto.Commissie).%New()
 	set dtoCommissie.ID = Commissie.GeefID()
-	#dim AanbrengerID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(Commissie.Aanbrenger)
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(Commissie.Klant)
-	set dtoCommissie.Aanbrenger = ##class(APPS.common.impl.DataService).%New().GeefKlantData(AanbrengerID)
-	set dtoCommissie.Klant = ##class(APPS.common.impl.DataService).%New().GeefKlantData(KlantID)
+	#dim AanbrengerID As DOM.common.PartijID = ..LegacyPartijAPI.GeefKlantPartijID(Commissie.Aanbrenger)
+	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..LegacyPartijAPI.GeefKlantPartijID(Commissie.Klant)
+	set dtoCommissie.Aanbrenger = ..DataService.GeefKlantData(AanbrengerID)
+	set dtoCommissie.Klant = ..DataService.GeefKlantData(KlantID)
 	
-	set dtoCommissie.Verkoopfactuur = Commissie.Verkoopfactuur
-	set dtoCommissie.Aankoopfactuur = Commissie.Aankoopfactuur
-	
+
 	if $length(Commissie.Verkoopfactuur) {
-		#dim Verkoopfactuur As DOM.BKH.VerkoopFactuur = ##class(DOM.DomeinContext).Instance().GeefBoekhoudingAPI().GeefVerkoopFactuur(Commissie.Verkoopfactuur)
+		#dim Verkoopfactuur As DOM.BKH.VerkoopFactuur = ..BoekhoudingAPI.GeefVerkoopFactuur(Commissie.Verkoopfactuur)
+		set dtoCommissie.Verkoopfactuur = Commissie.Verkoopfactuur
 		set dtoCommissie.DatumVerkoopfactuurVoldaan = Verkoopfactuur.GeefDatumVoldaan()
 	}
 	
 	if $length(Commissie.Aankoopfactuur) {
-		#dim Aankoopfactuur As DOM.BKH.AankoopFactuur = ##class(DOM.DomeinContext).Instance().GeefBoekhoudingAPI().GeefAankoopFactuur(Commissie.Aankoopfactuur)
+		#dim Aankoopfactuur As DOM.BKH.AankoopFactuur = ..BoekhoudingAPI.GeefAankoopFactuur(Commissie.Aankoopfactuur)
+		set dtoCommissie.Aankoopfactuur = Commissie.Aankoopfactuur
 		set dtoCommissie.DatumAankoopfactuur = Aankoopfactuur.GeefDatum()
 		set dtoCommissie.DatumAankoopfactuurVoldaan = Aankoopfactuur.GeefDatumVoldaan()
 	}
 
-	set CommissieRepository = ##class(DOM.VKP.Commissie.impl.CommissieRepository).%New()
 
 	set dtoCommissie.Percentage = Commissie.Percentage
 	set dtoCommissie.TijdstipVerstuurd = Commissie.TijdstipVerstuurd
 	set dtoCommissie.Status = ..GeefStatus(Commissie)
 	set dtoCommissie.Referentie = Commissie.Referentie
-	set dtoCommissie.TotaalBedrag = CommissieRepository.GeefTotaalBedragVoorReferentie(Commissie.Referentie)
+	set dtoCommissie.TotaalBedrag = ..CommissieRepository.GeefTotaalBedragVoorReferentie(Commissie.Referentie)
 	set dtoCommissie.Bedrag = Commissie.Bedrag 
 	set dtoCommissie.Geblokkeerd = Commissie.Geblokkeerd
 	set dtoCommissie.IsGoedgekeurd = Commissie.IsGoedgekeurd
@@ -445,7 +456,7 @@
 	
 	if $length(Commissie.Aankoopfactuur) {
 		set Status = ##class(DOM.VKP.Commissie.enu.CommissieStatus).AankoopfactuurIngeboekt()
-		#dim Aankoopfactuur As DOM.BKH.AankoopFactuur = ##class(DOM.DomeinContext).Instance().GeefBoekhoudingAPI().GeefAankoopFactuur(Commissie.Aankoopfactuur)
+		#dim Aankoopfactuur As DOM.BKH.AankoopFactuur = ..BoekhoudingAPI.GeefAankoopFactuur(Commissie.Aankoopfactuur)
 		if Aankoopfactuur.IsVoldaan() set Status = ##class(DOM.VKP.Commissie.enu.CommissieStatus).AankoopfactuurBetaald()
 	}