Index: APPS/VKP/impl/OfferteService.cls.xml
===================================================================
diff -u -r29059 -r32078
--- APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 29059)
+++ APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 32078)
@@ -28,6 +28,58 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeMaatwerk">
+<FormalSpec>Offerte:APPS.VKP.Offerte,Taal:DOM.enu.Taal,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,ProjectReferentie:%String=""</FormalSpec>
+<ReturnType>DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim GroepNaam As %String = ..GroepnaamBepaler.GeefGroepNaam(IngegevenKenmerken,Taal)
+	do ..WinkelkarService.VoegToeMaatwerk(Offerte.GeefWinkelkarID(),GroepNaam,IngegevenKenmerken,Aantal,ProjectReferentie)
+]]></Implementation>
+</Method>
+
+<Property name="GroepnaamBepaler">
+<Type>APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GroepnaamBepalerGet">
+<Private>1</Private>
+<ReturnType>APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler</ReturnType>
+<Implementation><![CDATA[
+	set r%GroepnaamBepaler = $$$LazyLoad(r%GroepnaamBepaler,##class(APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler).%New())
+	quit r%GroepnaamBepaler
+]]></Implementation>
+</Method>
+
+<Property name="WinkelkarService">
+<Type>APPS.EC.Winkelkar.WinkelkarService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="WinkelkarServiceGet">
+<Private>1</Private>
+<ReturnType>APPS.EC.Winkelkar.WinkelkarService</ReturnType>
+<Implementation><![CDATA[
+	set r%WinkelkarService = $$$LazyLoad(r%WinkelkarService,##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New())
+	quit r%WinkelkarService
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderOfferte">
+<FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
+<Implementation><![CDATA[
+	#dim OfferteID As %String = Offerte.GeefID()
+	if $$$HasLength(OfferteID) {
+		#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).OpenId( Offerte.WinkelkarID )
+		#dim DocumentReferenties As DOM.VKP.DocumentReferenties = Offerte.DocumentReferenties
+	
+		Do Offerte.Delete()
+		Do DocumentReferenties.Delete()
+		Do Winkelkar.Delete()
+	}
+]]></Implementation>
+</Method>
+
 <Method name="KopieerOfferte">
 <FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
 <ReturnType>APPS.VKP.Offerte</ReturnType>
@@ -145,8 +197,8 @@
 <Private>1</Private>
 <ReturnType>APPS.VKP.impl.OfferteService.MagWijzigenBepaler</ReturnType>
 <Implementation><![CDATA[
-	set i%MagWijzigenBepaler = $$$LazyLoad(i%MagWijzigenBepaler,##class(APPS.VKP.impl.OfferteService.MagWijzigenBepaler).%New())
-	quit i%MagWijzigenBepaler
+	set r%MagWijzigenBepaler = $$$LazyLoad(r%MagWijzigenBepaler,##class(APPS.VKP.impl.OfferteService.MagWijzigenBepaler).%New())
+	quit r%MagWijzigenBepaler
 ]]></Implementation>
 </Method>
 </Class>