Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestVanHoecke.cls.xml
===================================================================
diff -u -r36785 -r37218
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestVanHoecke.cls.xml	(.../TestVanHoecke.cls.xml)	(revision 36785)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestVanHoecke.cls.xml	(.../TestVanHoecke.cls.xml)	(revision 37218)
@@ -235,8 +235,8 @@
 
 <Method name="TestGeefLijnMetOnbestaandeWinkelkarID">
 <Implementation><![CDATA[
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("De opgegeven winkelkar id onbestaande winkelkar id is niet geldig!")
-	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Object to Load not found")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.ObjectExpectedException",Substrings))
 	#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.GeefLijn("onbestaande winkelkar id", "onbestaande lijn id")
 ]]></Implementation>
 </Method>
@@ -333,16 +333,10 @@
 
 <Method name="TestWijzigLijnAantalMetOnbestaandeWinkelkarID">
 <Implementation><![CDATA[
-	Try {
-		// Actie
-		Do ..WinkelkarService.WijzigLijnAantal("onbestaande winkelkar id", "onbestaande lijn id", /*Nieuw aantal=*/ 1)
-		
-		// Controle		
-		Do $$$AssertFalse(1, "We verwachten een exception.")
-	} Catch {
-		#dim Exception As TECH.Exceptions.InvalidInputException = ##class(TECH.ExceptionHandler).Catch()
-		Do $$$AssertTrue(Exception.%IsA("TECH.Exceptions.InvalidInputException"))
-	}
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Object to Load not found")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.ObjectExpectedException",Substrings))
+
+	Do ..WinkelkarService.WijzigLijnAantal("onbestaande winkelkar id", "onbestaande lijn id", 1)
 ]]></Implementation>
 </Method>
 
Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r37144 -r37218
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 37144)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 37218)
@@ -45,8 +45,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="WinkelkarRepository">
+<Type>DOM.EC.Winkelkar.impl.WinkelkarRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>MagMaatwerklijnGewijzigdWordenBepaler:APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden,MaatwerklijnInputValidator:APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator,BestelService:DOM.VKP.Maatwerk.BestelService,VroegsteLeverdatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler,WinkelkarPrijsUpdater:APPS.EC.impl.WinkelkarPrijsUpdater</FormalSpec>
+<FormalSpec>MagMaatwerklijnGewijzigdWordenBepaler:APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden,MaatwerklijnInputValidator:APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator,BestelService:DOM.VKP.Maatwerk.BestelService,VroegsteLeverdatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler,WinkelkarPrijsUpdater:APPS.EC.impl.WinkelkarPrijsUpdater,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -57,6 +62,7 @@
 	set ..BestelService = $$$Implementation(BestelService, ##class(DOM.VKP.Maatwerk.impl.BestelService).%New())
 	Set ..VroegsteLeverdatumBepaler = $$$Implementation(VroegsteLeverdatumBepaler, ##Class(APPS.EC.impl.VroegsteLeverdatumBepaler).%New())
 	Set ..WinkelkarPrijsUpdater = $$$Implementation(WinkelkarPrijsUpdater, ##class(APPS.EC.impl.WinkelkarPrijsUpdater).%New())
+	Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository,##class(DOM.EC.Winkelkar.impl.WinkelkarRepository).%New())
 
 	Set ..MaatwerkLijnBuilder = ##class(APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder).%New()
 	Set ..MaatwerkCalcAPI = ##class(DOM.PM.impl.MaatwerkCalcAPI).%New()
@@ -210,7 +216,7 @@
 <FormalSpec>WinkelkarID:%String</FormalSpec>
 <ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
 <Implementation><![CDATA[
-	Set WinkelkarImpl = ##class(DOM.EC.Winkelkar.Winkelkar).%OpenId(WinkelkarID)
+	#dim WinkelkarImpl As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarRepository.GeefViaID(WinkelkarID)
 	Do ..ControleerInput( $IsObject(WinkelkarImpl), "De opgegeven winkelkar id "_WinkelkarID_" is niet geldig!" )
 	Quit WinkelkarImpl
 ]]></Implementation>