Index: DOM/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r46008 -r46015
--- DOM/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 46008)
+++ DOM/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 46015)
@@ -33,6 +33,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="WinkelkarKopieerder">
+<Type>DOM.EC.Winkelkar.impl.WinkelkarKopieerder</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository,WinkelkarLijnRepository:DOM.EC.Winkelkar.impl.LijnRepository,ProductLijnBuilder:DOM.EC.Winkelkar.impl.ProductLijnBuilder,WinkelkarPrijsUpdater:APPS.EC.impl.WinkelkarPrijsUpdater,MaatwerkLijnBuilder:DOM.EC.Winkelkar.impl.MaatwerkLijnBuilder</FormalSpec>
 <Private>1</Private>
@@ -45,6 +50,7 @@
 	Set ..ProductLijnBuilder = $$$Inject(ProductLijnBuilder,##class(DOM.EC.Winkelkar.impl.ProductLijnBuilder).%New())
 	Set ..WinkelkarPrijsUpdater = $$$Inject(WinkelkarPrijsUpdater, ##class(APPS.EC.impl.WinkelkarPrijsUpdater).%New())
 	Set ..MaatwerkLijnBuilder = $$$Inject(MaatwerkLijnBuilder,##class(DOM.EC.Winkelkar.impl.MaatwerkLijnBuilder).%New())
+ 	Set ..WinkelkarKopieerder = ##class(DOM.EC.Winkelkar.impl.WinkelkarKopieerder).%New()
 
 	Quit $$$OK
 ]]></Implementation>
@@ -106,6 +112,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ControleerWinkelkarViaExterneId">
+<FormalSpec>ExterneId:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	If ..WinkelkarRepository.BestaatViaExterneId(ExterneId) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("ExterneId "_ExterneId _" bestaat reeds"))			
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeProduct">
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,GroepNaam:%String,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String="",EenheidPrijs:%Decimal="",TotaalPrijs:%Decimal=""</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -152,6 +167,37 @@
 	Quit Lijn.GeefID()
 ]]></Implementation>
 </Method>
+
+<Method name="Kopieer">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
+<Implementation><![CDATA[	Quit ..WinkelkarKopieerder.Kopieer(Winkelkar)
+]]></Implementation>
+</Method>
+
+<Method name="MaakWinkelkar">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality,ExterneId:%String=""</FormalSpec>
+<ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarRepository.Maak(Applicatie.Type , Applicatie.Naam)
+	Do Winkelkar.ZetKlantID(KlantID)
+	Do Winkelkar.ZetPersonalityID(PersonalityID)
+	Do Winkelkar.ZetExterneId(ExterneId)
+	Quit Winkelkar
+]]></Implementation>
+</Method>
+
+<Method name="WisWinkelkar">
+<FormalSpec>WinkelkarID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..GeefWinkelkar(WinkelkarID)
+	If (Winkelkar.%IsA("DOM.EC.Winkelkar.ExterneWinkelkar")) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De winkelkar '"_WinkelkarID_"' hoort bij een ExterneOfferte, en mag daarom niet rechtstreeks gewist worden."))	
+	} Else {
+		Do ..WinkelkarRepository.VerwijderViaID(WinkelkarID)
+	}
+]]></Implementation>
+</Method>
 </Class>