Index: APPS/EC/Verkoop/impl/VerkoopService.cls.xml
===================================================================
diff -u -r36788 -r36838
--- APPS/EC/Verkoop/impl/VerkoopService.cls.xml	(.../VerkoopService.cls.xml)	(revision 36788)
+++ APPS/EC/Verkoop/impl/VerkoopService.cls.xml	(.../VerkoopService.cls.xml)	(revision 36838)
@@ -3,6 +3,41 @@
 <Class name="APPS.EC.Verkoop.impl.VerkoopService">
 <Super>TECH.RegisteredObject,APPS.EC.Verkoop.VerkoopService</Super>
 
+<Property name="OfferteService">
+<Type>APPS.VKP.OfferteService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarService">
+<Type>APPS.EC.Winkelkar.WinkelkarService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarRepository">
+<Type>DOM.EC.Winkelkar.impl.WinkelkarRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OfferteRepository">
+<Type>APPS.VKP.Offerte.impl.OfferteRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OfferteService:APPS.VKP.OfferteService,WinkelkarService:APPS.EC.Winkelkar.WinkelkarService,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository,OfferteRepository:APPS.VKP.Offerte.impl.OfferteRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..OfferteService = $$$Inject(OfferteService, ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService())
+	Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository, ##class(DOM.EC.Winkelkar.impl.WinkelkarRepository).%New())
+	Set ..OfferteRepository = $$$Inject(OfferteRepository, ##class(APPS.VKP.Offerte.impl.OfferteRepository).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefOfferte">
 <FormalSpec>OfferteID:%String</FormalSpec>
 <ReturnType>APPS.EC.dto.Offerte</ReturnType>
@@ -12,6 +47,16 @@
 
 <Method name="WisOfferte">
 <FormalSpec>OfferteID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID)
+
+	If (Offerte.IsBesteld()) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidUserInputException).%New("De offerte '"_OfferteID_"' is reeds besteld, en mag daarom niet gewist worden."))	
+	} Else {
+		Do ..WinkelkarRepository.VerwijderViaID(Offerte.GeefWinkelkarID())
+		Do ..OfferteRepository.VerwijderViaID(OfferteID)
+	}
+]]></Implementation>
 </Method>
 </Class>