Index: DOM/EC/Winkelkar/Winkelkar.cls.xml
===================================================================
diff -u -r1574 -r1674
--- DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1574)
+++ DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1674)
@@ -99,6 +99,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefGroepLijn">
+<Description>
+Geeft leeg terug indien de groep niet bestaat</Description>
+<FormalSpec>GroepNaam:%String</FormalSpec>
+<ReturnType>DOM.EC.Winkelkar.GroepLijn</ReturnType>
+<Implementation><![CDATA[
+	Set GroepLijn = ""
+	
+	Set SublijnIterator = ..Root.SublijnIterator()
+	While (SublijnIterator.HasNext())
+	{
+		Set Lijn = SublijnIterator.Next()
+		If (Lijn.%Extends("DOM.EC.Winkelkar.GroepLijn"))
+		{
+			If (Lijn.Naam = GroepNaam)
+			{
+				Set GroepLijn = Lijn
+			}
+			Else
+			{
+				Set GroepLijn = Lijn.GeefGroep(GroepNaam)
+			}
+		}
+	}
+	
+	Quit GroepLijn
+]]></Implementation>
+</Method>
+
 <Method name="GeefLijnIterator">
 <Description>
 Een iterator over de lijnen van de lijst</Description>
@@ -147,7 +176,7 @@
 open staan.  Bv. een iterator of een lijn teruggegeven door een iterator.</Description>
 <FormalSpec>Lijn:DOM.EC.Winkelkar.Lijn</FormalSpec>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit ..Root.Verwijder(Lijn)
+<Implementation><![CDATA[	Quit Lijn.Groep.Verwijder(Lijn)
 ]]></Implementation>
 </Method>
 
@@ -171,20 +200,15 @@
 <ReturnType>DOM.EC.Winkelkar.Lijn</ReturnType>
 <Implementation><![CDATA[
 	$$$chkRequiredParameter(UnID)
-
-	if ('##class(DOM.EC.Winkelkar.Lijn).%ExistsId(UnID)) { $$$ThrowError($$$errInvalidID,"WinkelkarLijnID "_UnID_" onbestaand") }
 	
-	Set Index = ..Inhoud.FindObjectId(UnID) 
+	Set Lijn = ##class(DOM.EC.Winkelkar.Lijn).%OpenId(UnID)
+	if ('$IsObject(Lijn)) { $$$ThrowError($$$errInvalidID,"WinkelkarLijnID "_UnID_" onbestaand") }
 	
-	Set Lijn = ""
-	If $Length(Index)
+	Set Positie = ..Inhoud.FindObjectId(Lijn.%Id())
+	If (Positie = "")
 	{
-		Set Lijn = ..Inhoud.GetAt(Index)
+		$$$ThrowError($$$errObjectExpected,"WinkelkarLijn met "_UnID_" is onbestaand in deze winkelkar")
 	}
-	Else
-	{
-		$$$ThrowError($$$errObjectExpected,"WinkelkarLijnID Index "_UnID_" onbestaand")
-	}
 	
 	Quit Lijn
 ]]></Implementation>
@@ -196,7 +220,12 @@
 <FormalSpec>Visitor:DOM.EC.Winkelkar.WinkelkarVisitor</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Do ..Root.Accept(Visitor)	
+	Set LijnIterator = ..Root.SublijnIterator()
+	While (LijnIterator.HasNext())
+	{
+		Do LijnIterator.Next().Accept(Visitor)
+	}
+	//Do ..Root.Accept(Visitor)	
 	
 	Do Visitor.Finalize()
 	
Index: APPS/common/dto/Applicatie.cls.xml
===================================================================
diff -u
--- APPS/common/dto/Applicatie.cls.xml	(revision 0)
+++ APPS/common/dto/Applicatie.cls.xml	(revision 1674)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.dto.Applicatie">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Type">
+<Type>APPS.common.enu.ApplicatieType</Type>
+</Property>
+
+<Property name="Naam">
+<Type>%String</Type>
+</Property>
+</Class>
+</Export>
Index: DOM/EC/Winkelkar/InterneWinkelkar.cls.xml
===================================================================
diff -u
--- DOM/EC/Winkelkar/InterneWinkelkar.cls.xml	(revision 0)
+++ DOM/EC/Winkelkar/InterneWinkelkar.cls.xml	(revision 1674)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.EC.Winkelkar.InterneWinkelkar">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.EC.Winkelkar.Winkelkar</Super>
+
+<Property name="BewaarExpliciet">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+Wanneer BewaarExpliciet is ingesteld wordt de winkelkar niet na 1 dag verwijderd.</Description>
+<FormalSpec>ApplicatieID:%String,BewaarExpliciet:%Boolean=0</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..BewaarExpliciet = BewaarExpliciet
+	Quit ##super(ApplicatieID)
+
+]]></Implementation>
+</Method>
+
+<Method name="IsWijzigbaar">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit 1
+
+]]></Implementation>
+</Method>
+
+<Method name="IsVerwijderbaar">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit ('..BewaarExpliciet) && (##class(TECH.DateTime).TimeStampVerschil(##class(TECH.enu.DatePart).Dag(),..GeefGewijzigdOp(),##class(TECH.DateTime).CurrentTimeStamp()) > 1)
+
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>MaatwerkWinkelkarDefaultData</DefaultData>
+<Data name="MaatwerkWinkelkarDefaultData">
+<Subscript>"MaatwerkWinkelkar"</Subscript>
+<Value name="1">
+<Value>BewaarExpliciet</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: WS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r1574 -r1674
--- WS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 1574)
+++ WS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 1674)
@@ -14,11 +14,49 @@
 </Parameter>
 
 <Method name="GeefWinkelkar">
-<FormalSpec>ApplicatieID:%String,WinkelkarID:%String</FormalSpec>
+<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().GeefWinkelkar(ApplicatieID,WinkelkarID)
+<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.WinkelkarService).%New().GeefWinkelkar(Applicatie,WinkelkarID)
 ]]></Implementation>
 </Method>
+
+<Method name="MaakWinkelkar">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.WinkelkarService).%New().MaakWinkelkar(Applicatie)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderLijn">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,LijnID:%String</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.WinkelkarService).%New().VerwijderLijn(Applicatie, WinkelkarID, LijnID)
+]]></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>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.WinkelkarService).%New().VoegToeMaatwerk(Applicatie, WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal)
+]]></Implementation>
+</Method>
+
+<Method name="WisWinkelkar">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Do ##class(APPS.EC.Winkelkar.WinkelkarService).%New().WisWinkelkar(Applicatie,WinkelkarID)
+]]></Implementation>
+</Method>
+
+<Method name="WijzigLijn">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,LijnID:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.WinkelkarService).%New().WijzigLijn(Applicatie, WinkelkarID, LijnID, IngegevenKenmerken, Aantal)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: CSC Winkelkar.prj.xml
===================================================================
diff -u -r1574 -r1674
--- CSC Winkelkar.prj.xml	(.../CSC Winkelkar.prj.xml)	(revision 1574)
+++ CSC Winkelkar.prj.xml	(.../CSC Winkelkar.prj.xml)	(revision 1674)
@@ -1,19 +1,23 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC Winkelkar" LastModified="2011-07-01 07:52:22">
+<Project name="CSC Winkelkar" LastModified="2011-07-13 15:15:47">
   <Items>
     <ProjectItem name="APPS.EC.Winkelkar.WinkelkarService" type="CLS"/>
+    <ProjectItem name="APPS.EC.Winkelkar.dto.GroepLijn" type="CLS"/>
     <ProjectItem name="APPS.EC.Winkelkar.dto.Lijn" type="CLS"/>
     <ProjectItem name="APPS.EC.Winkelkar.dto.MaatwerkLijn" type="CLS"/>
     <ProjectItem name="APPS.EC.Winkelkar.dto.Winkelkar" type="CLS"/>
     <ProjectItem name="APPS.EC.Winkelkar.impl.LijnNaarDtoVisitor" type="CLS"/>
     <ProjectItem name="APPS.PM.Maatwerk.dto.IngegevenKenmerken" type="CLS"/>
     <ProjectItem name="APPS.PM.Maatwerk.dto.TAOOKenmerken" type="CLS"/>
+    <ProjectItem name="APPS.PM.Maatwerk.impl.DtoNaarKenmerkVisitor" type="CLS"/>
     <ProjectItem name="APPS.PM.Maatwerk.impl.KenmerkNaarDtoVisitor" type="CLS"/>
+    <ProjectItem name="APPS.common.dto.Applicatie" type="CLS"/>
+    <ProjectItem name="APPS.common.enu.ApplicatieType" type="CLS"/>
     <ProjectItem name="DOM.EC.Winkelkar.GroepLijn" type="CLS"/>
+    <ProjectItem name="DOM.EC.Winkelkar.InterneWinkelkar" type="CLS"/>
     <ProjectItem name="DOM.EC.Winkelkar.Lijn" type="CLS"/>
     <ProjectItem name="DOM.EC.Winkelkar.MaatwerkLijn" type="CLS"/>
-    <ProjectItem name="DOM.EC.Winkelkar.MaatwerkWinkelkar" type="CLS"/>
     <ProjectItem name="DOM.EC.Winkelkar.ProductLijn" type="CLS"/>
     <ProjectItem name="DOM.EC.Winkelkar.TekstLijn" type="CLS"/>
     <ProjectItem name="DOM.EC.Winkelkar.Visitors.ProductenTeller" type="CLS"/>
Index: APPS/EC/Winkelkar/dto/GroepLijn.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/dto/GroepLijn.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/dto/GroepLijn.cls.xml	(revision 1674)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.EC.Winkelkar.dto.GroepLijn">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EC.Winkelkar.dto.Lijn</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Naam">
+<Type>%String</Type>
+</Property>
+
+<Property name="Lijnen">
+<Type>APPS.EC.Winkelkar.dto.Lijn</Type>
+<Collection>list</Collection>
+</Property>
+</Class>
+</Export>
Index: vhUnitTest/DOM/EC/Winkelkar/TestWinkelkar.cls.xml
===================================================================
diff -u -r1574 -r1674
--- vhUnitTest/DOM/EC/Winkelkar/TestWinkelkar.cls.xml	(.../TestWinkelkar.cls.xml)	(revision 1574)
+++ vhUnitTest/DOM/EC/Winkelkar/TestWinkelkar.cls.xml	(.../TestWinkelkar.cls.xml)	(revision 1674)
@@ -59,14 +59,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestGroepen">
+<Implementation><![CDATA[
+	Set Winkelkar = ##class(vhUnitTest.DOM.EC.Winkelkar.UnitTestWinkelkar).%New("UnitTestWinkelkar")
+	
+	Set GroepLijn1 = ##class(DOM.EC.Winkelkar.GroepLijn).%New("Groep1")
+	Do Winkelkar.VoegToe(GroepLijn1)
+	
+	Set GroepLijn2 = ##class(DOM.EC.Winkelkar.GroepLijn).%New("Groep2")
+	Do GroepLijn1.VoegToe(GroepLijn2)
+	
+	Set GroepLijn3 = ##class(DOM.EC.Winkelkar.GroepLijn).%New("Groep3")	
+	Do GroepLijn2.VoegToe(GroepLijn3)
+	
+	Set GroepLijn4 = ##class(DOM.EC.Winkelkar.GroepLijn).%New("Groep4")
+	Do GroepLijn3.VoegToe(GroepLijn4)
+	
+	Do $$$AssertEquals(Winkelkar.GeefGroepLijn("Groep1"), GroepLijn1, "Groep 1 is gevonden")
+	Do $$$AssertEquals(Winkelkar.GeefGroepLijn("Groep2"), GroepLijn2, "Groep 2 is gevonden")
+	Do $$$AssertEquals(Winkelkar.GeefGroepLijn("Groep3"), GroepLijn3, "Groep 3 is gevonden")
+	Do $$$AssertEquals(Winkelkar.GeefGroepLijn("Groep4"), GroepLijn4, "Groep 4 is gevonden")
+]]></Implementation>
+</Method>
+
 <Method name="TestOpslaan">
 <Implementation><![CDATA[
 	Set Winkelkar = ##class(vhUnitTest.DOM.EC.Winkelkar.UnitTestWinkelkar).%New("UnitTestWinkelkar")
 	
 	Set TekstLijn1 = ##class(DOM.EC.Winkelkar.TekstLijn).%New("Dit is een tekstlijn")
 	Set TekstLijn2 = ##class(DOM.EC.Winkelkar.TekstLijn).%New("Dit is een andere tekstlijn")
-	Set TekstLijn3 = ##class(DOM.EC.Winkelkar.TekstLijn).%New("Dit is nog een andere tekstlijn")
-	Set TekstLijn4 = ##class(DOM.EC.Winkelkar.TekstLijn).%New("En nog een andere tekstlijn")
 	
 	Do Winkelkar.VoegToe(TekstLijn1)
 	Set SaveStatus = Winkelkar.%Save()
@@ -84,9 +105,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestMaatwerkWinkelkar">
+<Method name="TestInterneWinkelkar">
 <Implementation><![CDATA[
-	Set Winkelkar = ##class(DOM.EC.Winkelkar.MaatwerkWinkelkar).%New("UnitTest")
+	Set Winkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")
 	
 	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
 	Set Aantal = 2
@@ -106,7 +127,7 @@
 	Set Kenmerken = ""
 	Set MaatwerkLijn = ""
 	
-	Set Winkelkar = ##class(DOM.EC.Winkelkar.MaatwerkWinkelkar).%OpenId(WinkelkarID)
+	Set Winkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%OpenId(WinkelkarID)
 	
 	Set MaatwerkLijn = Winkelkar.GeefLijnIterator().Next()
 	
@@ -119,15 +140,15 @@
 	// Laatste gewijzigd op 2 dagen geleden instellen zodat deze wel mag verwijderd worden
 	
 	Set ResultSet = ##class(%ResultSet).%New()
-	Do ResultSet.Prepare("UPDATE DOM_EC_Winkelkar.MaatwerkWinkelkar SET GewijzigdOp = ?")
+	Do ResultSet.Prepare("UPDATE DOM_EC_Winkelkar.InterneWinkelkar SET GewijzigdOp = ?")
 	Do ResultSet.Execute($H-2)
 	
 	Do Winkelkar.%Reload()
 	
 	Do $$$AssertTrue(Winkelkar.IsVerwijderbaar(),"De winkelkar is wel verwijderbaar na 2 dagen")
 	
 	Do ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%DeleteId(MaatwerkLijn.GeefIngegevenKenmerken().%Id())
-	Do ##class(DOM.EC.Winkelkar.MaatwerkWinkelkar).%DeleteId(Winkelkar.%Id())
+	Do ##class(DOM.EC.Winkelkar.InterneWinkelkar).%DeleteId(Winkelkar.%Id())
 ]]></Implementation>
 </Method>
 
FishEye: Tag 1674 refers to a dead (removed) revision in file `DOM/EC/Winkelkar/MaatwerkWinkelkar.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/PM/Maatwerk/dto/TAOOKenmerken.cls.xml
===================================================================
diff -u -r1655 -r1674
--- APPS/PM/Maatwerk/dto/TAOOKenmerken.cls.xml	(.../TAOOKenmerken.cls.xml)	(revision 1655)
+++ APPS/PM/Maatwerk/dto/TAOOKenmerken.cls.xml	(.../TAOOKenmerken.cls.xml)	(revision 1674)
@@ -16,7 +16,7 @@
 ]]></Implementation>
 </Method>
 
-<Property name="CorpusBinnenbreedte">
+<Property name="CorpusBreedte">
 <Type>%Float</Type>
 </Property>
 
@@ -64,10 +64,16 @@
 <Type>%Boolean</Type>
 </Property>
 
+<Method name="Accept">
+<FormalSpec>Visitor:APPS.PM.Maatwerk.impl.DtoNaarKenmerkVisitor</FormalSpec>
+<Implementation><![CDATA[	Do Visitor.VerwerkTAOOKenmerken(##this)
+]]></Implementation>
+</Method>
+
 <Method name="IsVolledig">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Quit (..CorpusBinnenbreedte '= "") &&
+	Quit (..CorpusBreedte '= "") &&
 		(..IsBinnenbreedte || (..CorpusWandDikte '= "")) && // CorpusWandDikte moet enkel ingevuld zijn indien geen binnenmaat
 		(..Draagkracht '= "") &&
 		(..IsBinnenbreedte '= "") &&
Index: APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml
===================================================================
diff -u -r1655 -r1674
--- APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(.../KenmerkNaarDtoVisitor.cls.xml)	(revision 1655)
+++ APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(.../KenmerkNaarDtoVisitor.cls.xml)	(revision 1674)
@@ -22,7 +22,8 @@
 <Implementation><![CDATA[
 	Set ..IngegevenKenmerken = ##class(APPS.PM.Maatwerk.dto.TAOOKenmerken).%New()
 	
-	Set ..IngegevenKenmerken.CorpusBinnenbreedte = TAOOKenmerken.CorpusBinnenbreedte
+	// Todo: Wanneer de dto gegevens worden bewaard nagaan of er werd ingevuld met binnenbreedte of niet (anders wanddikte bijtellen)
+	Set ..IngegevenKenmerken.CorpusBreedte = TAOOKenmerken.CorpusBinnenbreedte
 	Set ..IngegevenKenmerken.Draagkracht = TAOOKenmerken.Draagkracht
 	Set ..IngegevenKenmerken.IsBinnenlade = TAOOKenmerken.IsBinnenlade
 	Set ..IngegevenKenmerken.LadeDiepte = TAOOKenmerken.LadeDiepte
Index: vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml
===================================================================
diff -u -r1574 -r1674
--- vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml	(.../TestWinkelkarService.cls.xml)	(revision 1574)
+++ vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml	(.../TestWinkelkarService.cls.xml)	(revision 1674)
@@ -9,7 +9,7 @@
 
 <Method name="TestGeefWinkelkar">
 <Implementation><![CDATA[
-	Set Winkelkar = ##class(DOM.EC.Winkelkar.MaatwerkWinkelkar).%New("UnitTest")
+	Set Winkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")
 	
 	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
 	Set Aantal = 2
@@ -30,8 +30,12 @@
 	
 	Set WinkelkarService = ##class(APPS.EC.Winkelkar.WinkelkarService).%New()
 	
-	Set WinkelkarDto = WinkelkarService.GeefWinkelkar("UnitTest",Winkelkar.%Id())
+	Set Applicatie = ##class(APPS.common.dto.Applicatie).%New()
+	Set Applicatie.Naam = "UnitTest"
+	Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
 	
+	Set WinkelkarDto = WinkelkarService.GeefWinkelkar(Applicatie,Winkelkar.%Id())
+	
 	Do $$$AssertTrue($IsObject(WinkelkarDto))
 	
 	Do $$$AssertEquals(WinkelkarDto.AantalProducten,5,"Er zijn 5 producten")
@@ -41,8 +45,101 @@
 	
 	
 	Do ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%DeleteId(MaatwerkLijn.GeefIngegevenKenmerken().%Id())
-	Do ##class(DOM.EC.Winkelkar.MaatwerkWinkelkar).%DeleteId(Winkelkar.%Id())
+	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(Winkelkar.%Id())
 ]]></Implementation>
 </Method>
+
+<Method name="TestMaakWinkelkar">
+<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 Winkelkar = WinkelkarService.MaakWinkelkar(Applicatie)
+	
+	Do $$$AssertTrue($IsObject(Winkelkar),"Er werd een winkelkar aangemaakt")
+	Do $$$AssertEquals(Winkelkar.ApplicatieID,"UnitTest","De applicatie id is ingevuld")
+	Do $$$AssertEquals(Winkelkar.AantalProducten,0,"Er zitten nog geen producten in")
+	
+	Do WinkelkarService.WisWinkelkar(Applicatie,Winkelkar.WinkelkarID)
+	
+	Do $$$AssertFalse(##class(DOM.EC.Winkelkar.Winkelkar).%ExistsId(Winkelkar.WinkelkarID),"De winkelkar is verwijderd")
+]]></Implementation>
+</Method>
+
+<Method name="TestVoegToeMaatwerk">
+<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 Winkelkar = WinkelkarService.MaakWinkelkar(Applicatie)
+	
+	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 = -1
+	
+	Set $ZTRAP = "FoutVoegToe"	
+	Set VoegToeGelukt = 0
+	Do WinkelkarService.VoegToeMaatwerk(Applicatie, Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal)
+	Set VoegToeGelukt = 1
+	Set $ZTRAP = ""
+	Goto FoutCorrect
+FoutVoegToe
+	Set $ZTRAP = ""
+	Set VoegToeGelukt = 0
+FoutCorrect
+
+	Do $$$AssertFalse(VoegToeGelukt,"De lijn kon niet worden toegevoegd omdat het aantal negatief is")
+	
+	Set IngegevenKenmerken.HeeftTipon = ""
+	Set Aantal = 3
+	
+	Set $ZTRAP = "FoutVoegToe2"	
+	Set VoegToeGelukt = 0
+	Do WinkelkarService.VoegToeMaatwerk(Applicatie, Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal)
+	Set VoegToeGelukt = 1
+	Set $ZTRAP = ""
+	Goto FoutCorrect2
+FoutVoegToe2
+	Set $ZTRAP = ""
+	Set VoegToeGelukt = 0
+FoutCorrect2
+
+	Do $$$AssertFalse(VoegToeGelukt,"De lijn kon niet worden toegevoegd omdat de ingegeven kenmerken niet volledig zijn")
+	
+	Set IngegevenKenmerken.HeeftTipon = 0
+	
+	Set Winkelkar = WinkelkarService.VoegToeMaatwerk(Applicatie, Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal)
+	
+	Do $$$AssertTrue($IsObject(Winkelkar),"Er werd een winkelkar teruggegeven")
+	Do $$$AssertEquals(Winkelkar.Lijnen.Count(),1,"Er is 1 groep toegevoegd")
+	Do $$$AssertTrue(Winkelkar.Lijnen.GetAt(1).%Extends("APPS.EC.Winkelkar.dto.GroepLijn"))
+	
+	Set Winkelkar = WinkelkarService.VerwijderLijn(Applicatie, Winkelkar.WinkelkarID, Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).LijnID)
+	
+	Do $$$AssertTrue($IsObject(Winkelkar),"De gewijzigde winkelkar werd weergegeven")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).Lijnen.Count(),0,"De lijn werd verwijderd")
+	
+	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(Winkelkar.WinkelkarID)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml	(revision 1674)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.PM.Maatwerk.impl.DtoNaarKenmerkVisitor">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefIngegevenKenmerken">
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ..IngegevenKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTAOOKenmerken">
+<FormalSpec>TAOOKenmerken:APPS.PM.Maatwerk.dto.TAOOKenmerken</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
+	
+	If (TAOOKenmerken.IsBinnenbreedte)
+	{
+		Set ..IngegevenKenmerken.CorpusBinnenbreedte = TAOOKenmerken.CorpusBreedte
+	}
+	Else
+	{
+		Set ..IngegevenKenmerken.CorpusBinnenbreedte = TAOOKenmerken.CorpusBreedte - ( 2 * TAOOKenmerken.WandDikte )
+	}
+	Set ..IngegevenKenmerken.Draagkracht = TAOOKenmerken.Draagkracht
+	Set ..IngegevenKenmerken.IsBinnenlade = TAOOKenmerken.IsBinnenlade
+	Set ..IngegevenKenmerken.LadeDiepte = TAOOKenmerken.LadeDiepte
+	Set ..IngegevenKenmerken.LadeHoogte = TAOOKenmerken.LadeHoogte
+	Set ..IngegevenKenmerken.LadeKleur = TAOOKenmerken.LadeKleur
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: CSC Ugly Picking.prj.xml
===================================================================
diff -u -r1662 -r1674
--- CSC Ugly Picking.prj.xml	(.../CSC Ugly Picking.prj.xml)	(revision 1662)
+++ CSC Ugly Picking.prj.xml	(.../CSC Ugly Picking.prj.xml)	(revision 1674)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC Ugly Picking" LastModified="2011-07-12 13:19:17">
+<Project name="CSC Ugly Picking" LastModified="2011-07-12 14:38:01">
   <Items>
     <ProjectItem name="APPS.MAG.UGLYPicking.dto.Bon" type="CLS"/>
     <ProjectItem name="APPS.MAG.UGLYPicking.dto.Bonnen" type="CLS"/>
@@ -23,8 +23,8 @@
     <ProjectItem name="APPS.MAG.UGLYPicking.enu.PickActie" type="CLS"/>
     <ProjectItem name="APPS.MAG.UGLYPicking.enu.UitstelOptie" type="CLS"/>
     <ProjectItem name="APPS.MAG.UGLYPicking.impl.BonInMagazijnIterator" type="CLS"/>
-    <ProjectItem name="APPS.MAG.UGLYPicking.impl.BonStatusComparator" type="CLS"/>
     <ProjectItem name="APPS.MAG.UGLYPicking.impl.EventCatcher" type="CLS"/>
+    <ProjectItem name="APPS.MAG.UGLYPicking.impl.MagazijnStatusComparator" type="CLS"/>
     <ProjectItem name="APPS.MAG.UGLYPicking.impl.Sessie" type="CLS"/>
     <ProjectItem name="APPS.MAG.UGLYPicking.impl.SublijnInBonIterator" type="CLS"/>
     <ProjectItem name="APPS.MAG.UGLYPicking.impl.UglyPickingService" type="CLS"/>
Index: DOM/EC/Winkelkar/Lijn.cls.xml
===================================================================
diff -u -r1566 -r1674
--- DOM/EC/Winkelkar/Lijn.cls.xml	(.../Lijn.cls.xml)	(revision 1566)
+++ DOM/EC/Winkelkar/Lijn.cls.xml	(.../Lijn.cls.xml)	(revision 1674)
@@ -20,7 +20,7 @@
 
 <Property name="Groep">
 <Description>
-Backpointer naar groep (vooral voor sql queries).  Vraag is of we dit nodig hebben...</Description>
+Backpointer naar groep.</Description>
 <Type>DOM.EC.Winkelkar.GroepLijn</Type>
 </Property>
 
Index: DOM/EC/Winkelkar/Visitors/ProductenTeller.cls.xml
===================================================================
diff -u -r1574 -r1674
--- DOM/EC/Winkelkar/Visitors/ProductenTeller.cls.xml	(.../ProductenTeller.cls.xml)	(revision 1574)
+++ DOM/EC/Winkelkar/Visitors/ProductenTeller.cls.xml	(.../ProductenTeller.cls.xml)	(revision 1674)
@@ -7,6 +7,7 @@
 
 <Property name="Aantal">
 <Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
 <Private>1</Private>
 </Property>
 
Index: APPS/common/enu/ApplicatieType.cls.xml
===================================================================
diff -u
--- APPS/common/enu/ApplicatieType.cls.xml	(revision 0)
+++ APPS/common/enu/ApplicatieType.cls.xml	(revision 1674)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.enu.ApplicatieType">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>;Intern;Extern</Default>
+</Parameter>
+
+<Method name="Intern">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.common.enu.ApplicatieType</ReturnType>
+<Implementation><![CDATA[	Quit "Intern"
+]]></Implementation>
+</Method>
+
+<Method name="Extern">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.common.enu.ApplicatieType</ReturnType>
+<Implementation><![CDATA[	Quit "Extern"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml
===================================================================
diff -u -r1574 -r1674
--- APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml	(.../LijnNaarDtoVisitor.cls.xml)	(revision 1574)
+++ APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml	(.../LijnNaarDtoVisitor.cls.xml)	(revision 1674)
@@ -10,6 +10,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="HuidigeGroep">
+<Type>APPS.EC.Winkelkar.dto.GroepLijn</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar</FormalSpec>
 <Private>1</Private>
@@ -21,6 +26,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeLijn">
+<FormalSpec>Lijn:APPS.EC.Winkelkar.dto.Lijn</FormalSpec>
+<Implementation><![CDATA[
+	If ($IsObject(..HuidigeGroep))
+	{
+		Do ..HuidigeGroep.Lijnen.Insert(Lijn)
+	}
+	Else
+	{
+		Do ..Winkelkar.Lijnen.Insert(Lijn)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkMaatwerkLijn">
 <FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -29,16 +48,38 @@
 	Set Lijn.LijnID = MaatwerkLijn.%Id()
 	
 	Set Lijn.Aantal = MaatwerkLijn.GeefAantal()
+	Set Lijn.EenheidPrijs = MaatwerkLijn.GeefEenheidPrijs()
+	Set Lijn.TotaalPrijs = MaatwerkLijn.GeefTotaalPrijs()
 	
 	Set KenmerkNaarDtoVisitor = ##class(APPS.PM.Maatwerk.impl.KenmerkNaarDtoVisitor).%New()
 	Do MaatwerkLijn.GeefIngegevenKenmerken().Accept(KenmerkNaarDtoVisitor)
 	
 	Set Lijn.IngegevenKenmerken = KenmerkNaarDtoVisitor.GeefIngegevenKenmerken()
 	
-	Do ..Winkelkar.Lijnen.Insert(Lijn)
+	Do ..VoegToeLijn(Lijn)
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkGroepBegin">
+<FormalSpec>GroepLijn:DOM.EC.Winkelkar.GroepLijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..HuidigeGroep = ##class(APPS.EC.Winkelkar.dto.GroepLijn).%New()
+	Set ..HuidigeGroep.Naam = GroepLijn.Naam
+	Do ..Winkelkar.Lijnen.Insert(..HuidigeGroep)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkGroepEind">
+<FormalSpec>GroepLijn:DOM.EC.Winkelkar.GroepLijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/EC/Winkelkar/GroepLijn.cls.xml
===================================================================
diff -u -r1566 -r1674
--- DOM/EC/Winkelkar/GroepLijn.cls.xml	(.../GroepLijn.cls.xml)	(revision 1566)
+++ DOM/EC/Winkelkar/GroepLijn.cls.xml	(.../GroepLijn.cls.xml)	(revision 1674)
@@ -2,6 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="DOM.EC.Winkelkar.GroepLijn">
 <ClassType>persistent</ClassType>
+<IncludeCode>TECH.Error,vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.EC.Winkelkar.Lijn,DOM.common.GroepLijn</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -36,6 +37,33 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefGroep">
+<FormalSpec>GroepNaam:%String</FormalSpec>
+<ReturnType>DOM.EC.Winkelkar.GroepLijn</ReturnType>
+<Implementation><![CDATA[
+	Set GroepLijn = ""
+	
+	Set SublijnIterator = ..SublijnIterator()
+	While (SublijnIterator.HasNext())
+	{
+		Set Lijn = SublijnIterator.Next()
+		If (Lijn.%Extends("DOM.EC.Winkelkar.GroepLijn"))
+		{
+			If (Lijn.Naam = GroepNaam)
+			{
+				Set GroepLijn = Lijn
+			}
+			Else
+			{
+				Set GroepLijn = Lijn.GeefGroep(GroepNaam)
+			}
+		}
+	}
+	
+	Quit GroepLijn
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeVerwijder">
 <Description>
 Als een groep verwijderd wordt, verwijdert ze eerst haar inhoud.</Description>
@@ -69,6 +97,7 @@
 	//Set Lijn.Groep = ##this
 	if (..Lijst) { Do ..Lijst.VoegToeInternal(Lijn) }
 	Set rc = ..Sublijnen.InsertAt(Lijn, InsertPos)
+	If (rc) { Set Lijn.Groep = ##this }
 	Quit rc
 ]]></Implementation>
 </Method>
@@ -79,10 +108,30 @@
 	//Set Lijn.Groep = ##this
 	if (..Lijst) { Do ..Lijst.VoegToeInternal(Lijn) }
 	Set rc = ..Sublijnen.Insert(Lijn)
+	If (rc) { Set Lijn.Groep = ##this }
 	Quit rc
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPositie">
+<FormalSpec>Lijn:DOM.EC.Winkelkar.Lijn</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set i = 1
+	While (i '> ..Sublijnen.Count()) && (..Sublijnen.GetAt(i).%Oid() '= Lijn.%Oid())
+	{
+		Set i = i + 1
+	}
+	
+	If (i > ..Sublijnen.Count())
+	{
+		$$$ThrowError($$$errInvalidID,"Deze lijn bestaat niet in deze groep")
+	}
+	
+	Quit i
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 // TODO betere error handling, momenteel nogal slordig
Index: APPS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r1574 -r1674
--- APPS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 1574)
+++ APPS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 1674)
@@ -6,39 +6,205 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefWinkelkar">
-<FormalSpec>ApplicatieID:%String,WinkelkarID:%String</FormalSpec>
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
 <Implementation><![CDATA[
-	Set Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%OpenId(WinkelkarID)
+	Set WinkelkarImpl = ..OpenWinkelkar(Applicatie, WinkelkarID)
 	
-	If '$IsObject(Winkelkar)
+	Set Winkelkar = ##class(APPS.EC.Winkelkar.dto.Winkelkar).%New()
+	
+	Set ProductenTellerVisitor = ##class(DOM.EC.Winkelkar.Visitors.ProductenTeller).%New()
+	Do WinkelkarImpl.Accept(ProductenTellerVisitor)
+	
+	Set TotaalPrijsBepaler = ##class(DOM.EC.Winkelkar.Visitors.TotaalPrijsBepaler).%New()
+	Do WinkelkarImpl.Accept(TotaalPrijsBepaler)
+	
+	Set Winkelkar.AantalProducten = ProductenTellerVisitor.GeefAantal()
+	Set Winkelkar.TotaalPrijs = TotaalPrijsBepaler.GeefPrijs()
+	Set Winkelkar.ApplicatieID = Applicatie.Naam
+	Set Winkelkar.WinkelkarID = WinkelkarID
+	
+	Set LijnNaarDtoVisitor = ##class(APPS.EC.Winkelkar.impl.LijnNaarDtoVisitor).%New(Winkelkar)
+	Do WinkelkarImpl.Accept(LijnNaarDtoVisitor)
+	
+	Quit Winkelkar
+]]></Implementation>
+</Method>
+
+<Method name="MaakWinkelkar">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	If (Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern())
 	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De opgegeven winkelkar id is niet geldig!"))
+		Set WinkelkarImpl = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New(Applicatie.Naam)
 	}
+	Else
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Voor dit type winkelkar is nog geen implementatie voorzien."))
+	}
 	
-	If (Winkelkar.GeefApplicatieID() '= ApplicatieID)
+	Set Status = WinkelkarImpl.%Save()
+	
+	If ($$$ISERR(Status))
 	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De opgegeven applicatie id is niet geldig!"))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),"De winkelkar kon niet worden opgeslagen",Status))
 	}
 	
-	Set WinkelkarDto = ##class(APPS.EC.Winkelkar.dto.Winkelkar).%New()
+	Quit ..GeefWinkelkar(Applicatie, WinkelkarImpl.%Id())
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderLijn">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,LijnID:%String</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set WinkelkarImpl = ..OpenWinkelkar(Applicatie, WinkelkarID)
 	
-	Set ProductenTellerVisitor = ##class(DOM.EC.Winkelkar.Visitors.ProductenTeller).%New()
-	Do Winkelkar.Accept(ProductenTellerVisitor)
+	Do WinkelkarImpl.Verwijder(WinkelkarImpl.GeefLijn(LijnID))
 	
-	Set TotaalPrijsBepaler = ##class(DOM.EC.Winkelkar.Visitors.TotaalPrijsBepaler).%New()
-	Do Winkelkar.Accept(TotaalPrijsBepaler)
+	Set Status = WinkelkarImpl.%Save()
 	
-	Set WinkelkarDto.AantalProducten = ProductenTellerVisitor.GeefAantal()
-	Set WinkelkarDto.TotaalPrijs = TotaalPrijsBepaler.GeefPrijs()
-	Set WinkelkarDto.ApplicatieID = ApplicatieID
-	Set WinkelkarDto.WinkelkarID = WinkelkarID
+	If ($$$ISERR(Status))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),"De lijn kon niet worden verwijderd omdat de winkelkar niet kon worden opgeslagen",Status))
+	}
 	
-	Set LijnNaarDtoVisitor = ##class(APPS.EC.Winkelkar.impl.LijnNaarDtoVisitor).%New(WinkelkarDto)
-	Do Winkelkar.Accept(LijnNaarDtoVisitor)
+	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>
+<Implementation><![CDATA[
+	Set Winkelkar = ..OpenWinkelkar(Applicatie, WinkelkarID)
 	
-	Quit WinkelkarDto
+	Set Status = ..VoegToeAanGroep(Winkelkar, GroepNaam, ..MaakMaatwerkLijn(IngegevenKenmerken, Aantal))
+	
+	If ($$$ISERR(Status))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),"De lijn kon niet worden toegevoegd aan de winkelkar.",Status))
+	}
+	
+	Set Status = Winkelkar.%Save()
+	
+	If ($$$ISERR(Status))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),"De winkelkar kon niet worden opgeslagen.",Status))
+	}
+	
+	Quit ..GeefWinkelkar(Applicatie, WinkelkarID)
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeAanGroep">
+<Description>
+Maakt een groep aan indien deze niet bestaat.</Description>
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,GroepNaam:%String,Lijn:DOM.EC.Winkelkar.Lijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set GroepLijn = Winkelkar.GeefGroepLijn(GroepNaam)
+	If (GroepLijn = "")
+	{
+		Set GroepLijn = ##class(DOM.EC.Winkelkar.GroepLijn).%New(GroepNaam)
+		Do Winkelkar.VoegToe(GroepLijn)
+	}
+	Quit GroepLijn.VoegToe(Lijn)
+]]></Implementation>
+</Method>
+
+<Method name="WisWinkelkar">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Winkelkar = ..OpenWinkelkar(Applicatie, WinkelkarID)
+	Set Status = Winkelkar.%DeleteId(Winkelkar.%Id())
+	
+	If ($$$ISERR(Status))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"De winkelkar kon niet worden verwijderd.",Status))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="WijzigLijn">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,LijnID:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set Winkelkar = ..OpenWinkelkar(Applicatie, WinkelkarID)
+	
+	Set Lijn = Winkelkar.GeefLijn(LijnID)
+	
+	Set Positie = Lijn.Groep.GeefPositie(Lijn)
+	
+	Do Winkelkar.Verwijder(Lijn)
+	
+	Do Lijn.Groep.VoegTussen(..MaakMaatwerkLijn(IngegevenKenmerken, Aantal), Positie)
+	
+	Do Winkelkar.%Save()
+	
+	Quit ..GeefWinkelkar(Applicatie, WinkelkarID)
+]]></Implementation>
+</Method>
+
+<Method name="MaakMaatwerkLijn">
+<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (Aantal '> 0)
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Het aantal moet groter zijn dan 0"))
+	}
+	
+	If ('IngegevenKenmerken.IsVolledig())
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De ingegeven kenmerken zijn niet volledig"))
+	}
+	
+	Set IngegevenKenmerkenVisitor = ##class(APPS.PM.Maatwerk.impl.DtoNaarKenmerkVisitor).%New()
+	Do IngegevenKenmerken.Accept(IngegevenKenmerkenVisitor)
+	Set IngegevenKenmerkenDOM = IngegevenKenmerkenVisitor.GeefIngegevenKenmerken()
+	
+	// Berekenen halffabrikaat items product
+	Set KlantID = 7587
+	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality)
+	Set Context=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(IngegevenKenmerken.GeefFamilie(),IngegevenKenmerken.GeefVariant(),BerekeningsSpecificatie)
+	
+	Do ##class(vhLib.OldSchool).InitVars()
+	
+	Do Context.GeefHalffabSpec().BerekenHalffabDetails(Context,IngegevenKenmerkenDOM)
+	Set KostContext = ##class(DOM.PM.Maatwerk.Calc.Kost.KostContext).%New(IngegevenKenmerken.GeefFamilie(), IngegevenKenmerken.GeefVariant(), BerekeningsSpecificatie)
+	Set KostItem = KostContext.GeefKostSpec().BerekenKostDetails(KostContext,Context.HalffabItemsBoom,IngegevenKenmerkenDOM)
+	
+	// Aanmaken van de lijn
+	Set EenheidPrijs = $$ROUND^KPRIJS(KostItem.GeefKost())
+	Set TotaalPrijs = EenheidPrijs * Aantal
+	
+	Quit ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(Aantal, IngegevenKenmerkenDOM, EenheidPrijs, TotaalPrijs)
+]]></Implementation>
+</Method>
+
+<Method name="OpenWinkelkar">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set WinkelkarImpl = ##class(DOM.EC.Winkelkar.Winkelkar).%OpenId(WinkelkarID)
+	
+	If '$IsObject(WinkelkarImpl)
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De opgegeven winkelkar id is niet geldig!"))
+	}
+	
+	If (WinkelkarImpl.GeefApplicatieID() '= Applicatie.Naam)
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De opgegeven applicatie id is niet geldig!"))
+	}
+	
+	Quit WinkelkarImpl
+]]></Implementation>
+</Method>
 </Class>
 </Export>