Index: DOM/EC/Winkelkar/GroepLijn.cls.xml
===================================================================
diff -u -r29059 -r30741
--- DOM/EC/Winkelkar/GroepLijn.cls.xml	(.../GroepLijn.cls.xml)	(revision 29059)
+++ DOM/EC/Winkelkar/GroepLijn.cls.xml	(.../GroepLijn.cls.xml)	(revision 30741)
@@ -7,9 +7,8 @@
 <Super>DOM.EC.Winkelkar.Lijn</Super>
 
 <Property name="Naam">
-<Type>%String</Type>
+<Type>TECH.String</Type>
 <Required>1</Required>
-<Parameter name="MAXLEN" value="100"/>
 </Property>
 
 <Property name="Sublijnen">
@@ -44,26 +43,25 @@
 <FormalSpec>GroepNaam:%String</FormalSpec>
 <ReturnType>DOM.EC.Winkelkar.GroepLijn</ReturnType>
 <Implementation><![CDATA[
-	Set GroepLijn = ""
+	#dim Groep As TECH.String = ""
+	#dim Iterator As TECH.Iterator = ..SublijnIterator()
+	#dim Lijn As DOM.EC.Winkelkar.Lijn
 	
-	Set SublijnIterator = ..SublijnIterator()
-	While ((""=GroepLijn) && SublijnIterator.HasNext())
-	{
-		Set Lijn = SublijnIterator.Next()
-		If (Lijn.%Extends("DOM.EC.Winkelkar.GroepLijn"))
-		{
-			If (Lijn.Naam = GroepNaam)
-			{
-				Set GroepLijn = Lijn
+	while (Iterator.HasNext() && (Groep = "")) {
+		set Lijn = Iterator.Next()
+		
+		if (Lijn.%Extends("DOM.EC.Winkelkar.GroepLijn")) {
+			#dim GroepLijn As DOM.EC.Winkelkar.GroepLijn = Lijn
+			
+			if (GroepLijn.Naam = GroepNaam) {
+				set Groep = GroepLijn	
+			} else {
+				set Groep = GroepLijn.GeefGroep(GroepNaam)
 			}
-			Else
-			{
-				Set GroepLijn = Lijn.GeefGroep(GroepNaam)
-			}
 		}
 	}
 	
-	Quit GroepLijn
+	quit Groep
 ]]></Implementation>
 </Method>
 
@@ -79,59 +77,66 @@
 	// 
 	// We evalueren niet ..Sublijnen.Count() in de while want als er dan iets
 	// misloopt met het verwijderen kunnen we een oneindige lus krijgen.
-	Set Count = ..Sublijnen.Count()
-	Set VerwijderStatus = $$$OK
-	while (Count > 0 && (VerwijderStatus = $$$OK)) {
+	
+	#dim Count As TECH.Integer = ..Sublijnen.Count()
+	#dim VerwijderStatus As %Status = $$$OK
+	
+	while ((Count > 0) && (VerwijderStatus = $$$OK)) {
 		// Eerste element van de lijst
-		Set Lijn = ..Sublijnen.GetNext("")
-		Set VerwijderStatus = Lijn.OnBeforeVerwijder()
-		if (VerwijderStatus = $$$OK) {
-			Set VerwijderStatus = ..VerwijderPos(Lijn, 1)
-		}
-		Set Count = Count - 1
+		
+		#dim Lijn As DOM.EC.Winkelkar.Lijn = ..Sublijnen.GetNext("")
+		set VerwijderStatus = Lijn.OnBeforeVerwijder()
+		set:(VerwijderStatus = $$$OK) VerwijderStatus = ..VerwijderPos(Lijn, 1)
+		set Count = Count - 1
 	}
-	Quit VerwijderStatus
+	
+	quit VerwijderStatus
 ]]></Implementation>
 </Method>
 
 <Method name="VoegTussen">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.Lijn,InsertPos:%Integer</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	if (..Lijst) { Do ..Lijst.VoegToeInternal(Lijn) }
-	Set rc = ..Sublijnen.InsertAt(Lijn, InsertPos)
-	If (rc) { Set Lijn.Groep = ##this }
-	Quit rc
+	do:(..Lijst) ..Lijst.VoegToeInternal(Lijn)
+	
+	#dim Status As %Status = ..Sublijnen.InsertAt(Lijn, InsertPos)
+	
+	set:(Status) Lijn.Groep = ##this
+	
+	quit Status
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToe">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.Lijn</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	if (..Lijst) { Do ..Lijst.VoegToeInternal(Lijn) }
+	do:(..Lijst) ..Lijst.VoegToeInternal(Lijn)
+	
 	#dim Status As %Status = ..Sublijnen.Insert(Lijn)
-	If (Status) { Set Lijn.Groep = ##this }
-	Quit Status
+	
+	set:(Status) Lijn.Groep = ##this
+	
+	quit Status
 ]]></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
+	#dim i As TECH.Integer = 1
+	
+	while ($$$Not(i > ..Sublijnen.Count()) && $$$Not(..Sublijnen.GetAt(i).%Oid() = Lijn.%Oid())) {
+		set i = i + 1
 	}
 	
-	If (i > ..Sublijnen.Count())
-	{
+	if (i > ..Sublijnen.Count()) {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Deze lijn bestaat niet in deze groep"))
 	}
 	
-	Quit i
+	quit i
 ]]></Implementation>
 </Method>
 
@@ -157,23 +162,23 @@
 <FormalSpec>Lijn:DOM.EC.Winkelkar.Lijn</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set it = ..SublijnIterator()
-	Set Found = 0
-	Set VerwijderStatus = $$$OK
-	while (it.HasNext() && (' Found) && (VerwijderStatus = $$$OK)) {
-		Set Lijn2 = it.Next()
-		if (Lijn2 = Lijn) {
-			Set Found = 1
-			Set VerwijderStatus = Lijn.OnBeforeVerwijder()
-			if (VerwijderStatus = $$$OK) {
-				Set VerwijderStatus = ..VerwijderPos(Lijn, it.Key())
-			}
+	#dim Iterator As TECH.Iterator = ..SublijnIterator()
+	#dim Found As %Boolean = $$$False
+	#dim VerwijderStatus As Status = $$$OK
+	
+	while (Iterator.HasNext() && $$$Not(Found) && (VerwijderStatus = $$$OK)) {
+		#dim NextLijn As DOM.EC.Winkelkar.Lijn = Iterator.Next()
+		
+		if (Lijn = NextLijn) {
+			set Found = $$$True
+			set VerwijderStatus = Lijn.OnBeforeVerwijder()
+			set:(VerwijderStatus = $$$OK) VerwijderStatus = ..VerwijderPos(Lijn, Iterator.Key())
 		}
 	}
-	if ('Found) {
-		Set VerwijderStatus = $$$ERROR($$$GeneralError, "Te verwijderen lijn niet gevonden")
-	}
-	Quit VerwijderStatus
+	
+	set:($$$Not(Found)) VerwijderStatus = $$$ERROR($$$GeneralError, "Te verwijderen lijn niet gevonden")
+	
+	quit VerwijderStatus
 ]]></Implementation>
 </Method>
 
@@ -184,12 +189,13 @@
 <Implementation><![CDATA[
 	// TODO Error handling of RemoveAt, but it seems to return something else than
 	// documented -> omitted for now
-	Do ..Sublijnen.RemoveAt(Pos)
-	Set rc = ..Lijst.VerwijderInternal(Lijn) 
-	if ($$$ISERR(rc)) { 	
-		Quit $$$ERROR($$$GeneralError,"Fout bij verwijderen van lijn " _ Lijn)
-	}
-	Quit $$$OK
+	do ..Sublijnen.RemoveAt(Pos)
+	
+	#dim Status As %Status =..Lijst.VerwijderInternal(Lijn) 
+	
+	set:($$$ISERR(Status)) Status = $$$ERROR($$$GeneralError, "Fout bij verwijderen van lijn " _ Lijn)
+	
+	quit Status
 ]]></Implementation>
 </Method>