Index: vhTest/Fake/DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml
===================================================================
diff -u -r35931 -r37488
--- vhTest/Fake/DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml	(.../WinkelkarRepository.cls.xml)	(revision 35931)
+++ vhTest/Fake/DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml	(.../WinkelkarRepository.cls.xml)	(revision 37488)
@@ -6,6 +6,13 @@
 Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.EC.Winkelkar.impl.WinkelkarRepository</Super>
+
+<Method name="Maak">
+<FormalSpec>Type:%String,ApplicatieID:%String</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml
===================================================================
diff -u -r35931 -r37488
--- vhTest/Mock/DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml	(.../WinkelkarRepository.cls.xml)	(revision 35931)
+++ vhTest/Mock/DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml	(.../WinkelkarRepository.cls.xml)	(revision 37488)
@@ -13,6 +13,13 @@
 <Type>%String</Type>
 <Default>DOM.EC.Winkelkar.Winkelkar</Default>
 </Parameter>
+
+<Method name="Maak">
+<FormalSpec>Type:%String,ApplicatieID:%String</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Maak",Type,ApplicatieID)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml
===================================================================
diff -u -r36450 -r37488
--- DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml	(.../WinkelkarRepository.cls.xml)	(revision 36450)
+++ DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml	(.../WinkelkarRepository.cls.xml)	(revision 37488)
@@ -7,6 +7,19 @@
 <Type>%String</Type>
 <Default>DOM.EC.Winkelkar.Winkelkar</Default>
 </Parameter>
+
+<Method name="Maak">
+<FormalSpec>Type:%String,ApplicatieID:%String</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[
+	If (Type = ##class(APPS.common.enu.ApplicatieType).Intern()) {
+		Quit ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New(ApplicatieID)
+	} ElseIf (Type = ##class(APPS.common.enu.ApplicatieType).Extern()) {
+		Quit ##class(DOM.EC.Winkelkar.ExterneWinkelkar).%New(ApplicatieID)
+	} 
+	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Voor dit type winkelkar ("_Type_" "_ApplicatieID_") is nog geen implementatie voorzien."))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r37465 -r37488
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 37465)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 37488)
@@ -123,19 +123,12 @@
 <FormalSpec>Applicatie:APPS.common.dto.Applicatie,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
 <Implementation><![CDATA[
-	If (Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()) {
-		Set WinkelkarImpl = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New(Applicatie.Naam)
-	} ElseIf (Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Extern()) {
-		Set WinkelkarImpl = ##class(DOM.EC.Winkelkar.ExterneWinkelkar).%New(Applicatie.Naam)
-	} Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Voor dit type winkelkar ("_Applicatie.Type_" "_Applicatie.Naam_") is nog geen implementatie voorzien."))
-	}
-	
+	#dim WinkelkarImpl As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarRepository.Maak(Applicatie.Type , Applicatie.Naam)
 	Do WinkelkarImpl.ZetKlantID(KlantID)
 	Do WinkelkarImpl.ZetPersonalityID(PersonalityID)
-	Do WinkelkarImpl.Save()
+	Do ..WinkelkarRepository.Bewaar(WinkelkarImpl)
 	
-	Quit ..GeefWinkelkar(WinkelkarImpl.%Id())
+	Quit ..GeefWinkelkar(WinkelkarImpl.GeefID())
 ]]></Implementation>
 </Method>