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()