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>