Index: APPS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r1718 -r2011
--- APPS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 1718)
+++ APPS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 2011)
@@ -76,6 +76,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakLeegWinkelkar">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set WinkelkarImpl = ..OpenWinkelkar(Applicatie, WinkelkarID)
+	
+	Do WinkelkarImpl.VerwijderAlleInhoud()
+	
+	Set Status = WinkelkarImpl.%Save()
+	
+	If ($$$ISERR(Status))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),"De winkelkar kon niet worden leeggemaakt omdat ze niet kon worden opgeslagen",Status))
+	}
+	
+	Quit ..GeefWinkelkar(Applicatie, WinkelkarID)
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeMaatwerk">
 <FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
Index: WS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r1957 -r2011
--- WS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 1957)
+++ WS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 2011)
@@ -59,19 +59,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Dummy1">
-<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.TAOOKenmerken</FormalSpec>
+<Method name="MaakLeegWinkelkar">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
 <WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.WinkelkarService).%New().MaakLeegWinkelkar(Applicatie, WinkelkarID)
+]]></Implementation>
 </Method>
-
-<Method name="Dummy2">
-<FormalSpec>GroepLijn:APPS.EC.Winkelkar.dto.GroepLijn</FormalSpec>
-<WebMethod>1</WebMethod>
-</Method>
-
-<Method name="Dummy3">
-<FormalSpec>MaatwerkLijn:APPS.EC.Winkelkar.dto.MaatwerkLijn</FormalSpec>
-<WebMethod>1</WebMethod>
-</Method>
 </Class>
 </Export>
Index: vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml
===================================================================
diff -u -r1718 -r2011
--- vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml	(.../TestWinkelkarService.cls.xml)	(revision 1718)
+++ vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml	(.../TestWinkelkarService.cls.xml)	(revision 2011)
@@ -146,5 +146,46 @@
 	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(Winkelkar.WinkelkarID)
 ]]></Implementation>
 </Method>
+
+<Method name="TestMaakLeegWinkelkar">
+<Implementation><![CDATA[
+	Set WinkelkarService = ##class(APPS.EC.Winkelkar.WinkelkarService).%New()
+	
+	Set Applicatie = ##class(APPS.common.dto.Applicatie).%New()
+	Set Applicatie.Naam = "UnitTest"
+	Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
+	
+	Set GroepNaam = "Groep"
+	
+	Set KlantID = 7587
+	Set Winkelkar = WinkelkarService.MaakWinkelkar(Applicatie,KlantID)
+	
+	Set IngegevenKenmerken = ##class(APPS.PM.Maatwerk.dto.TAOOKenmerken).%New()
+	Set IngegevenKenmerken.CorpusBreedte = 600
+	Set IngegevenKenmerken.Draagkracht = 30
+	Set IngegevenKenmerken.IsBinnenbreedte = 1
+	Set IngegevenKenmerken.IsBinnenlade = 1
+	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAOOLadeKleur).SmokedWalnut()
+	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAOOLadeHoogte).N()
+	Set IngegevenKenmerken.LadeDiepte = 250
+	Set IngegevenKenmerken.HeeftOpvullijstLinks = 0
+	Set IngegevenKenmerken.HeeftOpvullijstRechts = 0
+	Set IngegevenKenmerken.HeeftTipon = 0
+	Set IngegevenKenmerken.HeeftZijstabilisering = 0
+	
+	Set Aantal = 3
+	
+	Set Winkelkar = WinkelkarService.VoegToeMaatwerk(Applicatie, Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal)
+	
+	Do $$$AssertTrue($IsObject(Winkelkar),"Er werd een winkelkar teruggegeven")
+	
+	Set Winkelkar = WinkelkarService.MaakLeegWinkelkar(Applicatie, Winkelkar.WinkelkarID)
+	
+	Do $$$AssertTrue($IsObject(Winkelkar),"De gewijzigde winkelkar werd weergegeven")
+	Do $$$AssertEquals(Winkelkar.Lijnen.Count(),0,"De winkelkar werd leeggemaakt")
+	
+	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(Winkelkar.WinkelkarID)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/EC/Winkelkar/Winkelkar.cls.xml
===================================================================
diff -u -r1731 -r2011
--- DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1731)
+++ DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 2011)
@@ -62,9 +62,7 @@
 <Implementation><![CDATA[
 	Set ..ApplicatieID = ApplicatieID
 	Set ..Root = ##class(DOM.EC.Winkelkar.GroepLijn).%New("ROOT")
-	
 	Do ..Inhoud.Insert(..Root)
-	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -160,6 +158,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderAlleInhoud">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..Inhoud.Clear()
+	Set ..Root = ##class(DOM.EC.Winkelkar.GroepLijn).%New("ROOT")
+	Do ..Inhoud.Insert(..Root)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderInternal">
 <Description>
 Interne method, niet gebruiken.  Verwijdert een Lijn uit de storage, maar
@@ -205,8 +213,6 @@
 	{
 		Do LijnIterator.Next().Accept(Visitor)
 	}
-	//Do ..Root.Accept(Visitor)	
-	
 	Do Visitor.Finalize()
 	
 	Quit $$$OK